Abacuss v1.1 Abacuss v1.1, by Brian Wong, 2008. Freq0 is the fundamental frequency obtained from p5 in the score, all the other frequencies are calculated by multiplying the value in the corresponding knob by the fundamental frequency. The Resonant Lowpass filter can be turned on and off, and is controlled from the lineobject widget. ;inst strt dur amp freq ;--------------------------------------------------------------------------------------------------- p1 p2 p3 p4 p5 v1.0 - Jan. 28, 2008 v1.1- Feb. 6, 2008 : added automatable panning using the pan_gm2 UDO. ;[once]( gi_wave_<INSTR_ID> ftgen 0,0,65536,9,<fq1>,<vbank_1>,<phs1>,<fq2>,<vbank_2>,<phs2>,<fq3>,<vbank_3>,<phs3>,<fq4>,<vbank_4>,<phs4>,<fq5>,<vbank_5>,<phs5>,<fq6>,<vbank_6>,<phs6>,<fq7>,<vbank_7>,<phs7>,<fq8>,<vbank_8>,<phs8>,<fq9>,<vbank_9>,<phs9>,<fq10>,<vbank_10>,<phs10>,<fq11>,<vbank_11>,<phs11>,<fq12>,<vbank_12>,<phs12>,<fq13>,<vbank_13>,<phs13>,1,<vbank_0>,<phs0> gi_cut_<INSTR_ID> ftgen 0,0,1024,-7,<liner_Cutoff> gi_band_<INSTR_ID> ftgen 0,0,1024,-7,<liner_Bandwidth> gi_reson_<INSTR_ID> ftgen 0,0,1024,-7,<liner_Resonance> ;) kamp xadsr <Envatk>*p3, <Envdec>*p3, <Envsus>, <Envrel>*p3 kamp = kamp * p4 a1 oscili kamp, p5, gi_wave_<INSTR_ID> kpan = <pan> if (<filton> == 1) then invdur = 1/p3 kfreq oscili 1, invdur, gi_cut_<INSTR_ID> kband oscili 1, invdur, gi_band_<INSTR_ID> kreson oscili 1, invdur, gi_reson_<INSTR_ID> abpf butterbp a1, kfreq, kband alpf butterlp a1, kfreq a1 = alpf + abpf*kreson endif aLeft, aRight pan_gm2 a1, <pan> blueMixerOut aLeft, aRight Envatk 21 473 false 0.0 1.0 0.1 60 true Envdec 85 473 false 0.0 1.0 0.1 60 true Envsus 150 473 false 0.0 1.0 0.8898305 60 true Envrel 216 473 false 0.0 1.0 0.2 60 true 34 549 Attack 98 549 Decay 159 549 Sustain 221 549 Release vbank 21 159 false 0.0 1.0 0.0010 150 5 true 0 0 true 0.0 1.0 0.0010 0.9990001 150 true 0 0 true 0.0 1.0 0.0010 0.49800003 150 true 0 0 true 0.0 1.0 0.0010 0.33200002 150 true 0 0 true 0.0 1.0 0.0010 0.24900001 150 true 0 0 true 0.0 1.0 0.0010 0.19900002 150 true 0 0 true 0.0 1.0 0.0010 0.16700001 150 true 0 0 true 0.0 1.0 0.0010 0.13900001 150 true 0 0 true 0.0 1.0 0.0010 0.12200001 150 true 0 0 true 0.0 1.0 0.0010 0.11100001 150 true 0 0 true 0.0 1.0 0.0010 0.08800001 150 true 0 0 true 0.0 1.0 0.0010 0.091000006 150 true 0 0 true 0.0 1.0 0.0010 0.083000004 150 true 0 0 true 0.0 1.0 0.0010 0.07700001 150 true 0 0 true 0.0 1.0 0.0010 0.069000006 150 true 29 407 Freq0 fq1 76 341 false 1.0 128.0 2.0 50 true 83 407 Freq1 phs0 21 75 false 0.0 360.0 0.0 50 true 24 140 Phase0 phs1 77 75 false 0.0 360.0 0.0 50 true 79 140 Phase1 fq2 131 341 false 1.0 128.0 3.0 50 true 138 407 Freq2 phs2 133 75 false 0.0 360.0 0.0 50 true 136 140 Phase2 fq3 185 341 false 1.0 128.0 4.0 50 true 193 407 Freq3 phs3 188 75 false 0.0 360.0 0.0 50 true 191 140 Phase3 fq4 241 341 false 1.0 128.0 5.0 50 true 250 407 Freq4 phs4 244 75 false 0.0 360.0 0.0 50 true 246 140 Phase4 fq5 296 341 false 1.0 128.0 6.0 50 true 305 407 Freq5 phs5 299 75 false 0.0 360.0 0.0 50 true 302 140 Phase5 fq6 351 341 false 1.0 128.0 7.0 50 true 359 408 Freq6 phs6 354 75 false 0.0 360.0 0.0 50 true 357 140 Phase6 fq7 406 341 false 1.0 128.0 8.0 50 true 413 407 Freq7 phs7 409 75 false 0.0 360.0 0.0 50 true 412 140 Phase7 fq8 461 341 false 1.0 128.0 9.0 50 true 470 407 Freq8 phs8 464 75 false 0.0 360.0 0.0 50 true 467 140 Phase8 fq9 516 341 false 1.0 128.0 10.0 50 true 524 407 Freq9 phs9 519 75 false 0.0 360.0 0.0 50 true 522 140 Phase9 fq10 571 341 false 1.0 128.0 11.0 50 true 576 407 Freq10 phs10 573 75 false 0.0 360.0 0.0 50 true 573 140 Phase10 fq11 626 341 false 1.0 128.0 12.0 50 true 631 407 Freq11 phs11 628 75 false 0.0 360.0 0.0 50 true 628 140 Phase11 fq12 681 341 false 1.0 128.0 13.0 50 true 685 407 Freq12 phs12 682 75 false 0.0 360.0 0.0 50 true 682 140 Phase12 fq13 736 341 false 1.0 128.0 14.0 50 true 741 407 Freq13 phs13 737 75 false 0.0 360.0 0.0 50 true 737 140 Phase13 9 176 V 8 194 O 8 213 L 7 234 U 7 253 M 7 273 E 311 15 <html><font size="+3" face="system" color=rgb(200,100,0)>Abacuss</font></htmL> pan 322 453 true -1.0 1.0 0.0 80 true 351 549 Pan liner 486 427 300 120 1024.0 true Comma false false filton 444 428 On true true 474 459 F 476 475 I 474 491 L 474 508 T 473 524 E 473 540 R ver2:0.1000000015 ver2:0.1000000015 ver2:0.200000003 ver2:0.8898305297 true ver2:2 ver2:11 ver2:12 ver2:13 ver2:14 ver2:3 ver2:4 ver2:5 ver2:6 ver2:7 ver2:8 ver2:9 ver2:10 version=2@_@Cutoff:0.0:2407.4077:0.4548611:2962.9624:0.75:1296.2961:1.0:555.55585@_@Bandwidth:0.0:333.33325:0.45833334:666.66675:0.7673611:444.44443:0.9548611:925.92596:1.0:148.14806@_@Resonance:0.0:0.3703704:0.23958333:1.462963:0.4513889:0.24074078:0.6875:1.074074:1.0:1.0 ver2:0 ver2:0 ver2:0 ver2:0 ver2:0 ver2:0 ver2:0 ver2:0 ver2:0 ver2:0 ver2:0 ver2:0 ver2:0 ver2:0 ver2:0 0.9990001:0.49800003:0.33200002:0.24900001:0.19900002:0.16700001:0.13900001:0.12200001:0.11100001:0.08800001:0.091000006:0.083000004:0.07700001:0.069000006 ver2:0.0501270518 ver2:0.0892306864 ver2:0.2962941229 ver2:0.9735128284 true ver2:2 ver2:1 ver2:1 ver2:1 ver2:1 ver2:2.9966139793 ver2:4 ver2:5.9932279587 ver2:8 ver2:10.0793676376 ver2:11.9864559174 ver2:16 ver2:1 version=2@_@Cutoff:0.0:1111.1117:0.7361111:2592.5923:1.0:555.55585@_@Bandwidth:0.0:185.1852:0.6736111:814.8148:1.0:370.3704@_@Resonance:0.0:0.3703704:0.6805556:0.962963:1.0:0.14814818 ver2:0.021276474 ver2:128.1916046143 ver2:232.0744781494 ver2:0 ver2:0 ver2:0 ver2:0 ver2:78.6940689087 ver2:299.6491088867 ver2:39.81665802 ver2:266.6056213379 ver2:162.6840515137 ver2:225.745010376 ver2:12.6873512268 ver2:0 0.49800003:0.9990001:0.49800003:0.49800003:0.33200002:0.24900001:0.19900002:0.16700001:0.12200001:0.0:0.0:0.0:0.0:0.0 ver2:0.5609869957 ver2:0.3207942843 ver2:0.1108469516 ver2:0.4278305769 true ver2:45.4420623779 ver2:38.4220504761 ver2:120.6250991821 ver2:27.3624725342 ver2:97.6943283081 ver2:78.0919952393 ver2:50.8931427002 ver2:127.0281295776 ver2:41.1762313843 ver2:18.9978675842 ver2:92.4295120239 ver2:78.8407440186 ver2:16.6732711792 version=2@_@Cutoff:0.0:3333.3337:0.28125:8703.704:0.7118056:8148.148:0.8506944:2962.9624:1.0:555.55585@_@Bandwidth:0.0:222.22232:0.2534722:555.5556:0.5277778:333.33325:0.7291667:703.7036:1.0:370.3704@_@Resonance:0.0:0.8703704:0.3784722:0.42592597:0.6736111:0.14814818:0.7881944:0.44444442:1.0:0.0925926 ver2:0.3846106529 ver2:34.4333114624 ver2:153.2687530518 ver2:250.8637542725 ver2:135.1652679443 ver2:39.4296302795 ver2:218.8414001465 ver2:230.6993408203 ver2:5.7430911064 ver2:111.4058151245 ver2:347.573638916 ver2:59.8499641418 ver2:298.9585876465 ver2:37.3772544861 ver2:46.1335029602 0.76000005:0.517:0.508:0.97900003:0.61300004:0.859:0.69000006:0.96300006:0.46100003:0.49800003:0.102000006:0.60400003:0.39400002:0.73200005 ver2:0.0113173472 ver2:0.026534345 ver2:0.9528713822 ver2:0.9735128284 true ver2:2.6624200344 ver2:1 ver2:1 ver2:1 ver2:1 ver2:4.8375701904 ver2:7.5159201622 ver2:10.6401195526 ver2:14.2101898193 ver2:18.1402702332 ver2:1 ver2:1 ver2:1 version=2@_@Cutoff:0.0:3333.3337:1.0:555.55585@_@Bandwidth:0.0:222.22232:1.0:518.51843@_@Resonance:0.0:0.8703704:0.3784722:0.42592597:0.6736111:0.14814818:1.0:0.0925926 ver2:0.021276474 ver2:62.3247261047 ver2:225.7227783203 ver2:0 ver2:0 ver2:0 ver2:0 ver2:245.5445556641 ver2:6.5663733482 ver2:39.81665802 ver2:129.5709381104 ver2:314.927520752 ver2:0 ver2:0 ver2:0 0.9990001:0.37500003:0.20600002:0.13100001:0.09200001:0.069000006:0.055000003:0.0:0.0:0.0:0.0:0.0:0.0:0.0 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