Alpha v1- Orch Alpha v1 by Steven Yi A 3-Oscilator Subtractive Synthesizer 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 yiFilterEnvelope,k,ioooo ienvType, iattack, idecay, isus, irel xin if (ienvType == 0) then kenv linseg 0, iattack, 1, idecay, isus, .01, isus elseif (ienvType == 1) then kenv linseg 0, p3 * .5, 1, p3 * .5, 0 elseif (ienvType == 2) then kenv linseg 0, p3 - .1, 1, .1, 1 elseif (ienvType == 3) then itie tival 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 init 1 elseif (p3 > 0 && itie == 0) then ; this is a single note ; TODO - Should Remove, use articulation from other places ;kenv adsr .2, 0, 1, 1 kenv linseg 0, .2,1, .1, 1 endif endif xout kenv endop opcode getFrequency,i,i ipch xin iout = (ipch < 15 ? cpspch(ipch) : ipch) xout iout endop ipch getFrequency p4 ipch2 getFrequency p5 kpchline line ipch, p3, ipch2 iamp = ampdb(p6) iSpace = p7 ienvType = p8 kenv yiEnvelope ienvType, <attack>, <decay>, <sustain>, <release> kFilterEnv yiFilterEnvelope ienvType, <attack>, <decay>, <sustain>, <release> iwaveform1 = <waveform1> iwaveform2 = <waveform2> iwaveform3 = <waveform3> iamp1 = <oscAmp1> iamp2 = <oscAmp2> iamp3 = <oscAmp3> /* SOUND GENERATION CODE */ ;a1 vco2 1, kpchline + <detune1>, iwaveform1, <pulsewidth1> ;a2 vco2 1, kpchline + <detune2>, iwaveform2, <pulsewidth2> ;a3 vco2 1, kpchline + <detune3>, iwaveform3, <pulsewidth3> a1 vco2 1, kpchline, iwaveform1, <pulsewidth1> a2 vco2 1, kpchline, iwaveform2, <pulsewidth2> a3 vco2 1, kpchline, iwaveform3, <pulsewidth3> aout = (a1 * iamp1) + (a2 * iamp2) + (a3 * iamp3) ;aout moogladder aout, kpchline + ( (<cutoff> - kpchline) * kFilterEnv), <resonance> aout moogvcf aout, kpchline + ( (<cutoff> - kpchline) * kFilterEnv), <resonance> ;aout butterlp aout, <cutoff> aout balance aout, a1 aout = aout * iamp * kenv 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 decay 519 45 0.0 1.0 0.15 50 sustain 572 45 0.0 1.0 0.89667374 50 release 625 45 0.0 10.0 0.014612231 50 attack 466 45 0.0 10.0 0.0050 50 470 26 Attack 523 26 Decay 573 26 Sustain 626 26 Release 379 57 <html><font size="+1">Amp Env</font></html> 424 161 <html><font size="+1">VCF</font></html> 511 131 Resonance 471 131 Cutoff oscAmp1 90 86 0.0 1.0 1.0 60 cutoff 466 151 0.0 20000.0 0.22474794 50 resonance 519 151 0.0 1.0 0.44528311 50 pulsewidth1 26 86 0.0 1.0 0.7503816 60 9 39 Waveform 25 65 PulseWidth 12 6 <html><font size="+1">OSC 1</font></html> waveform1 75 35 Sawtooth 0 Square/PWM 2 Saw/Tri/Ramp 4 Pulse (not normalized) 6 Integrated Sawtooth 8 Square Wave (no PWM) 10 Triangle (no ramp) 12 1 110 65 Mix 163 65 Detune detune1 153 86 -10.0 10.0 0.5 60 oscAmp2 86 272 0.0 1.0 0.16735752 60 pulsewidth2 22 272 0.0 1.0 0.93469685 60 5 225 Waveform 21 251 PulseWidth 8 192 <html><font size="+1">OSC 2</font></html> waveform2 71 221 Sawtooth 0 Square/PWM 2 Saw/Tri/Ramp 4 Pulse (not normalized) 6 Integrated Sawtooth 8 Square Wave (no PWM) 10 Triangle (no ramp) 12 4 106 251 Mix 159 251 Detune detune2 149 272 -10.0 10.0 0.5 60 oscAmp3 88 452 0.0 1.0 0.8104157 60 pulsewidth3 24 452 0.0 1.0 0.93469685 60 7 405 Waveform 23 431 PulseWidth 10 372 <html><font size="+1">OSC 3</font></html> waveform3 73 401 Sawtooth 0 Square/PWM 2 Saw/Tri/Ramp 4 Pulse (not normalized) 6 Integrated Sawtooth 8 Square Wave (no PWM) 10 Triangle (no ramp) 12 6 108 431 Mix 161 431 Detune detune3 151 452 -10.0 10.0 0.5 60 0.014572331 6 0.89667374 0.065000884 1.0 0.01 0.014612231 0.93469685 1 0.5 0.049524926 0.5 0.5 0 0.93469685 0.8104157 0.559624 0.93469685 0.014572331 6 0.89667374 0.019781437 1.0 0.01 0.014612231 0.93469685 1 0.5 0.05 0.5 0.5 6 0.7503816 0.8104157 0.559624 0.93469685