b64 - v1.1 b64 version 1.1 Released: 2008.02.04 Author: Steven Yi This instrument is inspired by the SID sound chip commonly used in Commodore 64 computers, using simliar waveforms and options for ring modulation. [History] v1.1 - 2008.02.04 -Fixed Triangle wave not being generated -Added use of pan_gm2 for panning -Added automatable pan knob to interface v1.0 - 2007.12.14 -initial release if (<sustain> > 0) then p3 = p3 + <release> else p3 = <attack> + <decay> endif ipch getFrequency p4 iamp = ampdb(p5) kenv adsr <attack>, <decay>, <sustain>, <release> aout1 multiOscil <waveform1>, ipch * <freqMultiply1>, <pulseWidth1> aout2 multiOscil <waveform2>, ipch * <freqMultiply2>, <pulseWidth2> aout3 multiOscil <waveform3>, ipch * <freqMultiply3>, <pulseWidth3> aout1 simpleMultiFilter aout1 * <amp1>, <filterType1>, <filterFreq1>, <filterBandwidth1> aout2 simpleMultiFilter aout2 * <amp2>, <filterType2>, <filterFreq2>, <filterBandwidth2> aout3 simpleMultiFilter aout3 * <amp3>, <filterType3>, <filterFreq3>, <filterBandwidth3> aout = 0 if (<ringmod1> == 1) then atemp = aout1 * aout3 aout = atemp else aout = aout1 endif if (<ringmod2> == 1) then atemp = aout2 * aout1 aout = aout + atemp else aout = aout + aout2 endif if (<ringmod3> == 1) then atemp = aout3 * aout2 aout = aout + atemp else aout = aout + aout3 endif aout = aout * kenv * iamp aLeft, aRight pan_gm2 aout, <pan> blueMixerOut aLeft, aRight ringmod1 389 58 Ring Modulation false true ringmod2 389 202 Ring Modulation false true ringmod3 388 350 Ring Modulation false true decay 615 104 true 0.0 1.0 0.025 50 true sustain 668 104 true 0.0 1.0 0.9320919 50 true release 721 104 true 0.0 10.0 0.15 50 true attack 562 104 true 0.0 10.0 0.025 50 true 566 85 Attack 619 85 Decay 669 85 Sustain 722 85 Release 565 55 <html><font size="+1">Amp Env</font></html> amp2 410 258 true 0.0 1.0 0.75279456 50 true 419 239 Amp amp1 410 110 true 0.0 1.0 1.0 50 true 419 89 Amp amp3 410 404 true 0.0 1.0 0.342383 50 true 419 385 Amp 13 11 <html><font size="+3"><b>b64</b></font></html> pan 562 230 true -1.0 1.0 0.0 60 true 575 200 <html><font size="+1">Pan</font></htmL> waveform1 74 60 Triangle 0 Saw 1 Pulse 2 Tri-Saw 3 Tri-Pulse 4 Saw-Pulse 5 Tri-Saw-Pulse 6 Noise 7 3 true filterType1 243 59 No Filter -1 Low Pass 0 High Pass 1 Band Pass 2 1 true waveform2 76 202 Triangle 0 Saw 1 Pulse 2 Tri-Saw 3 Tri-Pulse 4 Saw-Pulse 5 Tri-Saw-Pulse 6 Noise 7 3 true 16 61 <html><font size="+1">Osc 1</font></html> 17 202 <html><font size="+1">Osc 2</font></html> 20 352 <html><font size="+1">Osc 3</font></html> waveform3 79 352 Triangle 0 Saw 1 Pulse 2 Tri-Saw 3 Tri-Pulse 4 Saw-Pulse 5 Tri-Saw-Pulse 6 Noise 7 6 true freqMultiply3 89 404 true 0.01 8.0 4.3661346 50 true freqMultiply2 92 258 true 0.01 8.0 2.0799 50 true freqMultiply1 87 110 true 0.01 8.0 1.0 50 true filterType2 243 202 No Filter -1 Low Pass 0 High Pass 1 Band Pass 2 3 true filterType3 243 351 No Filter -1 Low Pass 0 High Pass 1 Band Pass 2 1 true 75 89 Freq Multiply 78 239 Freq Multiply 81 385 Freq Multiply filterFreq1 247 110 true 20.0 10000.0 5553.636 50 true filterBandwidth1 303 110 true 0.01 1000.0 259.06876 50 true filterFreq2 245 258 true 20.0 10000.0 3352.252 50 true filterBandwidth2 301 258 true 0.01 1000.0 333.70627 50 true filterFreq3 247 404 true 20.0 10000.0 1829.2126 50 true filterBandwidth3 303 404 true 0.01 1000.0 259.06876 50 true 259 385 Freq 300 385 Bandwidth 256 239 Freq 297 239 Bandwidth 258 89 Freq 299 89 Bandwidth 157 89 Pulse Width pulseWidth1 166 110 true 0.0 1.0 0.011042413 50 true pulseWidth2 171 258 true 0.0 1.0 0.21877983 50 true 163 239 Pulse Width pulseWidth3 171 404 true 0.0 1.0 0.42848733 50 true 166 385 Pulse Width getFrequency i i ipch xin iout = (ipch < 15 ? cpspch(ipch) : ipch) xout iout simpleMultiFilter a aikk ain, itype, kfreq, kbandwidth xin if (itype < 0) then aout = ain elseif (itype == 0) then aout butterlp ain, kfreq elseif (itype == 1) then aout butterhp ain, kfreq elseif (itype == 2) then aout butterbp ain, kfreq, kbandwidth endif xout aout pan_gm2 aa ak ain, kspace xin klast init -2 kleft init 0 kright init 0 ;from MIDI GM-2 Default Pan Curve (RP-036) ;Left Channel Gain [dB] = 20*log (cos (Pi/2* max(0,CC#10 ? 1)/126) ;Right Channel Gain [dB] = 20*log (sin (Pi /2* max(0,CC#10 ? 1)/126) if (kspace != klast) then kpercent = (kspace + 1) / 2 kleft = ampdb(20 * log(cos($M_PI_2 * kpercent))) kright = (kpercent == 0) ? 0 : ampdb(20 * log(sin($M_PI_2 * kpercent))) endif aleft = ain * kleft aright = ain * kright xout aleft, aright multiOscil a ikk iwaveform, kpch, kpulsewidth xin aout = 0 kcount = 0 if (iwaveform == 7) then aout noise 1, 0 kcount = 1 endif if (iwaveform == 0 || iwaveform == 3 || iwaveform == 4 || iwaveform == 6) then aout vco2 1, kpch, 12 kcount = 1 endif if (iwaveform == 1 || iwaveform == 3 || iwaveform == 6) then atemp vco2 1, kpch, 0 aout = aout + atemp kcount = kcount + 1 endif if (iwaveform == 2 || iwaveform == 4 || iwaveform == 5 || iwaveform == 6) then atemp vco2 1, kpch, 2, kpulsewidth aout = aout + atemp kcount = kcount + 1 endif aout = aout / kcount xout aout