Mode 6 - Percussion Description: 6 Mode instrument using mpulse as striking force Based on work by Scott Lindroth and Francois Blanc NOTE: Mode frequency multiplier should be carefully set so that sr/freq < pi (see documentation on for mode opcode) 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 inummodes = <modeOn0> + <modeOn1> + <modeOn2> + <modeOn3> + <modeOn4> + <modeOn5> aexc mpulse inummodes, 0 aout = 0 if (<modeOn0> == 1) then aout0 mode aexc * <gain0>, ipch * <freqMultiply0>, iQ * <qMultiply0> aout sum aout, aout0 endif if (<modeOn1> == 1) then aout1 mode aexc * <gain1>, ipch * <freqMultiply1>, iQ * <qMultiply1> aout sum aout, aout1 endif if (<modeOn2> == 1) then aout2 mode aexc * <gain2>, ipch * <freqMultiply2>, iQ * <qMultiply2> aout sum aout, aout2 endif if (<modeOn3> == 1) then aout3 mode aexc * <gain3>, ipch * <freqMultiply3>, iQ * <qMultiply3> aout sum aout, aout3 endif if (<modeOn4> == 1) then aout4 mode aexc * <gain4>, ipch * <freqMultiply4>, iQ * <qMultiply4> aout sum aout, aout4 endif if (<modeOn5> == 1) then aout5 mode 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>Mode 6</html> 32 384 <html>Base Q</html> baseQ 99 366 0.0 100.0 92.20589 60 freqMultiply0 99 161 1.0 16.0 1.0 60 qMultiply0 99 238 0.0 1.0 0.40843627 60 19 181 Freq Multiply 36 260 Q Multiply 123 57 <html>1</html> freqMultiply1 168 161 1.0 16.0 2.0 60 qMultiply1 168 238 0.0 1.0 0.2880254 60 freqMultiply2 237 161 1.0 16.0 3.0 60 qMultiply2 237 238 0.0 1.0 0.2051352 60 freqMultiply3 306 161 1.0 16.0 4.0 60 qMultiply3 306 238 0.0 1.0 0.014398522 60 freqMultiply4 375 161 1.0 16.0 6.0 60 qMultiply4 375 238 0.0 1.0 0.14396146 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 8.0 60 qMultiply5 444 238 0.0 1.0 0.048642457 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 true modeOn5 454 319 On false 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 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: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:1 ver2:1 ver2:0.2509221435 ver2:0.2812690735 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