Reson 6 - Percussion Description: 6 Reson instrument using VCO2 sawtooth as input with feedback Author: Steven Yi [HISTORY] v1.0 - Initial Release ipch getFrequency p4 iamp = ampdb(p5) iSpace = p7 iQ = <baseQ> imaxdel = 1/ipch ;INSERT SOUND GENERATION CODE HERE inumresons = <modeOn0> + <modeOn1> + <modeOn2> + <modeOn3> + <modeOn4> + <modeOn5> aexc mpulse .25 / inumresons, 0 aout = 0 if (<modeOn0> == 1) then aout0 reson aexc * <gain0>, ipch * <freqMultiply0>, iQ * <qMultiply0> aout sum aout, aout0 endif if (<modeOn1> == 1) then aout1 reson aexc * <gain1>, ipch * <freqMultiply1>, iQ * <qMultiply1> aout sum aout, aout1 endif if (<modeOn2> == 1) then aout2 reson aexc * <gain2>, ipch * <freqMultiply2>, iQ * <qMultiply2> aout sum aout, aout2 endif if (<modeOn3> == 1) then aout3 reson aexc * <gain3>, ipch * <freqMultiply3>, iQ * <qMultiply3> aout sum aout, aout3 endif if (<modeOn4> == 1) then aout4 reson aexc * <gain4>, ipch * <freqMultiply4>, iQ * <qMultiply4> aout sum aout, aout4 endif if (<modeOn5> == 1) then aout5 reson aexc * <gain5>, ipch * <freqMultiply5>, iQ * <qMultiply5> aout sum aout, aout5 endif aout = aout * iamp ;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 blueMixerOut aLeft, aRight 11 11 <html>Reson 6</html> 377 392 <html>Base Q</html> baseQ 444 370 0.0 100.0 33.170067 60 freqMultiply0 99 161 1.0 16.0 1.0 60 qMultiply0 99 238 0.0 1.0 0.079179175 60 19 181 Freq Multiply 36 260 Q Multiply 123 57 <html>1</html> freqMultiply1 168 161 1.0 16.0 1.47 60 qMultiply1 168 238 0.0 1.0 0.064395726 60 freqMultiply2 237 161 1.0 16.0 2.09 60 qMultiply2 237 238 0.0 1.0 0.15137056 60 freqMultiply3 306 161 1.0 16.0 2.56 60 qMultiply3 306 238 0.0 1.0 0.12355891 60 freqMultiply4 375 161 1.0 16.0 4.69 60 qMultiply4 375 238 0.0 1.0 0.3 60 192 57 <html>2</html> 261 57 <html>3</html> 330 57 <html>4</html> 399 57 <html>5</html> freqMultiply5 444 161 1.0 16.0 5.63 60 qMultiply5 444 238 0.0 1.0 0.3 60 468 57 <html>6</html> modeOn0 109 319 On true modeOn1 180 319 On true modeOn2 247 319 On true modeOn3 316 319 On true modeOn4 385 319 On false modeOn5 454 319 On false decay 151 380 0.0 1.0 0.014572331 50 sustain 204 380 0.0 1.0 0.89667374 50 release 257 380 0.0 10.0 0.1461223 50 attack 98 380 0.0 10.0 0.099999994 50 105 361 Attack 159 361 Decay 209 361 Sustain 260 361 Release 11 392 <html>Amp Env</html> gain0 99 84 0.0 1.0 1.0 60 34 104 Input Gain gain1 168 84 0.0 1.0 1.0 60 gain2 237 84 0.0 1.0 1.0 60 gain3 306 84 0.0 1.0 1.0 60 gain4 375 84 0.0 1.0 1.0 60 gain5 444 84 0.0 1.0 1.0 60 354 471 <html>Feedback</html> feedback 444 449 0.0 1.0 0.011158802 60 ver2:0.099999994 ver2:37.0705451965 ver2:0.0145723308 ver2:0.0175071973 ver2:1 ver2:2 ver2:3 ver2:4 ver2:6 ver2:8 ver2:1 ver2:1 ver2:1 ver2:1 ver2:1 ver2:1 true true true true true false ver2:1 ver2:0.400000006 ver2:0.5 ver2:0.6000000238 ver2:0.3000000119 ver2:0.200000003 ver2:0.1461223066 ver2:0.896673739 ver2:0.099999994 ver2:27.6036148071 ver2:0.0145723308 ver2:0.1251200289 ver2:1 ver2:2 ver2:3 ver2:4 ver2:6 ver2:8 ver2:1 ver2:1 ver2:1 ver2:1 ver2:1 ver2:1 true true true true true false ver2:0.7033399343 ver2:0.6287568808 ver2:0.7758972645 ver2:0.7093686461 ver2:0.6634556055 ver2:0.6587585807 ver2:0.1461223066 ver2:0.896673739 ver2:0.099999994 ver2:11.485004425 ver2:0.0145723308 ver2:0.0175071973 ver2:1 ver2:2 ver2:3.0099999905 ver2:4.0100002289 ver2:4.6900000572 ver2:5.6300001144 ver2:1 ver2:1 ver2:1 ver2:1 ver2:1 ver2:1 true true true true true true ver2:1 ver2:0.400000006 ver2:0.5 ver2:0.6000000238 ver2:0.3000000119 ver2:0.3000000119 ver2:0.1461223066 ver2:0.896673739 ver2:0.099999994 ver2:33.1700668335 ver2:0.0145723308 ver2:0.0111588016 ver2:1 ver2:1.4700000286 ver2:2.0899999142 ver2:2.5599999428 ver2:4.6900000572 ver2:5.6300001144 ver2:1 ver2:1 ver2:1 ver2:1 ver2:1 ver2:1 true true true true false false ver2:1 ver2:1 ver2:0.2509221435 ver2:0.2812690735 ver2:0.3000000119 ver2:0.3000000119 ver2:0.1461223066 ver2:0.896673739 ver2:0.099999994 ver2:33.1700668335 ver2:0.0145723308 ver2:0.0111588016 ver2:1 ver2:1.4700000286 ver2:2.0899999142 ver2:2.5599999428 ver2:4.6900000572 ver2:5.6300001144 ver2:1 ver2:1 ver2:1 ver2:1 ver2:1 ver2:1 true true true true false false ver2:0.1314426959 ver2:0.0742314756 ver2:0.1842819005 ver2:0.190241009 ver2:0.3000000119 ver2:0.3000000119 ver2:0.1461223066 ver2:0.896673739 getFrequency i i ipch xin iout = (ipch < 15 ? cpspch(ipch) : ipch) xout iout