AddOrgan - Prototype2
AddOrgan
by Steven Yi
An Additive-Synth instrument that emulates and organ.
This instrument is designed to work with the author's python Orchestral Composition library, included with blue.
This instrument uses the following pfields:
p4 ipch
p5 ipch2
p6 amp in db
p7 pan (-1.0 to 1.0)
p8 articulation (see yiEnvelope UDO below)
This instrument uses the following UDO's:
opcode yiEnvelope,k,ioooooo
ienvType, iattack, idecay, isus, irel, iOldAmp, iNewAmp xin
itie tival
idur = p3
iEndAmp = iNewAmp / iOldAmp
if (ienvType == 0) then
kenv adsr iattack, idecay, isus, irel
elseif (ienvType == 1) then
kenv linseg 0, p3 * .5, 1, p3 * .5, 0
elseif (ienvType == 2) then
kenv linseg 0, p3 - .1, 1, .1, 0
elseif (ienvType == 3) then
if (itie == 0 && p3 < 0) then
; this is an initial note within a group of tied notes
kenv linseg 0, .2, 1, .2, 1
elseif (p3 > 0 && itie == 1) then
; this is an end note out of a group of tied notes
kenv linseg 1, p3 - 1, 1, 1, 0
elseif (p3 > 0 && itie == 0) then
; this is a stand alone note
kenv adsr iattack, idecay, isus, irel
else
; this is a middle note within a group of tied notes (p3 < 0 && itie == 1)
kenv line 1, abs(p3), iEndAmp
endif
endif
xout kenv
endop
opcode getFrequency,i,i
ipch xin
iout = (ipch < 15 ? cpspch(ipch) : ipch)
xout iout
endop
gi_organ_<INSTR_ID> ftgen 0, 0, 65537, 10, <harm1>, <harm2>, <harm3>, <harm4>, 0, <harm5>, 0, <harm6>, 0, <harm7>, 0, <harm8>, 0, 0, 0, <harm9>
iorgantable = gi_organ_<INSTR_ID>
p3 = p3 + .15
ipch = p4
ipch2 = p5
ipch = (ipch < 15 ? cpspch(ipch) : ipch)
ipch2 = (ipch2 < 15 ? cpspch(ipch2) : ipch2)
kpchline line ipch, p3, ipch2
iamp = ampdb(p6)
iSpace = p7
ienvType = p8
kenv yiEnvelope ienvType, .1, 0, 1, .2
;INSERT SOUND GENERATION CODE HERE
aout oscil3 1, kpchline * .5, iorgantable
aout = aout * kenv * iamp
aout butterlp aout, kpchline + (kenv * 8 * kpchline)
;END SOUND GENERATION CODE
iSpace = iSpace * 3.14159265359 * .5
krtl = sqrt(2) / 2 * (cos(iSpace) + sin(iSpace)) ; CONSTANT POWER PANNING
krtr = sqrt(2) / 2 * (cos(iSpace) - sin(iSpace)) ; FROM C.ROADS "CM TUTORIAL" pp460
aLeft = aout * krtl
aRight = aout * krtr
; outs aLeft, aRight
ga1 = ga1 + aLeft
ga2 = ga2 + aRight
harm9
444
53
0.0
1.0
0.1
0.0
150
harm8
391
53
0.0
1.0
0.1
0.3
150
harm7
338
53
0.0
1.0
0.1
0.1
150
harm6
285
53
0.0
1.0
0.1
0.4
150
harm5
232
53
0.0
1.0
0.1
0.1
150
harm4
179
53
0.0
1.0
0.1
0.5
150
harm3
126
53
0.0
1.0
0.1
0.2
150
harm2
73
53
0.0
1.0
0.1
0.90000004
150
464
236
401
236
349
236
305
236
242
236
198
236
136
236
93
236
harm1
20
53
0.0
1.0
0.1
0.1
150
36
236
9
10