b64Xtended _v2.2 This instrument is inspired by the SID chip of the Commodore 64 and b64 by Steven Yi. A nice feature is that for every one of the 3 oscillators a "swell" is implemented. That means tht within a tone of one oscillator an extra amount - positive or negative - of amplitude ( or swell ) can be given. Thus the 3 oscillators can be fine modulated by different subtle peaks or falls of amplitude within one note, making it more lively. Another nice one is the stereo/mono switch. In stereo the 3 oscillators are divided over 2 channels. In mono mode you can treat the sounds of the 3 oscillators more as one sound with a certain timbre. It is possible to switch to and from stereo while the note is playing RE UDO k_MultiOscil - MultiOscilx has 2 extra parameters, 1 for switch and 1 for sinefreq - added schwitch for PWM and a sine LFO for PWM to work with pulse - changed PW to 0.05 and 0.95 (according to manual the right specs) - kcount is a tric to divide a too large amp when waves are added together - atemp is used to be able to add waves together - added UDO k_Zwel, so 3 extra parameters RE UDO k_MultiFilter - low and high pass have a Q, bandpass has Bandwith and no Q - added band reject - uses svfilter for lowpass and highpass with Q, uses butter filter for band pass and band reject - Band pass/reject value up to 1500 Hz Q: in udo, why all the K instead of k? Because K works at i-time and k-rate, so it works all the time? Q: what is the advantage of having kpch instead of ipch in my instrument? Is there one? Q: why does the setting of PW an influence on the PW sine? Q: i see no other way to put k_Zwel UDO but inside k_MultiOscil. Can you think of a way? Q: is ringmod functional in this sterosetting? ======================================================== THE FOLLOWING UDO'S HAVE ON / OFF SWITCHES: RE UDO k_Zwel - one per voice - udo Zwel (= for each note give an extra accent (positive or negative) to achieve fine modulation in the composite sound) using adapted code from The Csound Book page 179 RE UDO Tremolo - one per voice - setksmps 1 to be able to set a shorter port time to filter sharp edges of square and saw RE UDO Vibrato - has standard LFO types, but also can add some jitter. Vibrato is global for all voices. ======================================================== RE Envelope - i have choosen for transeg, because i think it approaches better the feeling of the Commodore 64 envelope - curve of decay and release can be varied between convex and concave RE Ringmodulator - = responsable for mixing the 3 oscilators to the output - added info on which RM is influencing which - added extra variable aringx, for later use in stereo/mono setting RE stereo/mono - conditions to check if ringmodulated or not, and if stereo or not. - added coarse tuning that effects tuning of all oscillators WHAT NEEDS TO DONE: 1. tied note UDO's : tieStatus and tiePitchAmp ipch getFrequency p4 kpch = ipch kvol init p5 ;=======Arpeggio============== kArp k_Arpeggio <Arpeggio>, <arpdpth>, <arpspd>, i(<arptypeLFO>), <OnDirt>, <randomdepth> ;========Vibrato============== kvib k_Vibrato <Vibrato>, <vibdpth>, <vibspd>, i(<vibtypeLFO>), <jitterdepth> , <jitspd> ;=======OSC=================== koarse = <coarse> aout1 k_multiOscil <waveform1>, <freqMultiply1> * koarse * (kpch * kArp) + kvib, <pulseWidth1>, i(<sinePW_on1>), <sinePW1>, i(<OnSwell1>), i(<SwellPosition1>), i(<swellamp1>) aout2 k_multiOscil <waveform2>, <freqMultiply2> * koarse * (kpch * kArp) + kvib, <pulseWidth2>, i(<sinePW_on2>), <sinePW2>, i(<OnSwell2>), i(<SwellPosition2>), i(<swellamp2>) aout3 k_multiOscil <waveform3>, <freqMultiply3> * koarse * (kpch * kArp) + kvib, <pulseWidth3>, i(<sinePW_on3>), <sinePW3>, i(<OnSwell3>), i(<SwellPosition3>), i(<swellamp3>) ;=========Filters============= aout1 k_MultiFilter aout1 * <amp1>, <filterType1>, <filterFreq1>, <filterBandwidth1>, <Q1> aout2 k_MultiFilter aout2 * <amp2>, <filterType2>, <filterFreq2>, <filterBandwidth2>, <Q2> aout3 k_MultiFilter aout3 * <amp3>, <filterType3>, <filterFreq3>, <filterBandwidth3>, <Q3> ;========Tremolo============== ktrem1 k_Tremolo <Tremolo1>, <tremdpth1>, <tremspd1>, i(<tremtypeLFO1>) ; LFO 0-5 ktrem2 k_Tremolo <Tremolo2>, <tremdpth2>, <tremspd2>, i(<tremtypeLFO2>) ktrem3 k_Tremolo <Tremolo3>, <tremdpth3>, <tremspd3>, i(<tremtypeLFO3>) aout1 = aout1 * ktrem1 aout2 = aout2 * ktrem2 aout3 = aout3 * ktrem3 ;==========AM================= aout = 0 aring1 = 0 aring2 = 0 aring3 = 0 if (<ringmod1> == 1) then atemp = aout1 * aout3 aout = atemp aring1 = aout ; make aout independent for stereo/mono mixing else aout = aout1 ; mix OSC1 in aout endif if (<ringmod2> == 1) then atemp = aout2 * aout1 aout = aout + atemp aring2 = aout ; make aout independent for stereo/mono mixing else aout = aout + aout2 ; mix OSC2 in aout endif if (<ringmod3> == 1) then atemp = aout3 * aout2 aout = aout + atemp aring3 = aout ; make aout independent for stereo/mono mixing else aout = aout + aout3 ; mix OSC3 in aout endif ;==========ENVELOPE============= aenv transegr 0, i(<attack>), 0, 1, i(<decay>), i(<deccurve>), i(<sustain>), i(<release>), i(<relcurve>), 0;;;kout transegr 0, iattack, 0, 1, idecay, -2, isustain, irelease, -2, 0 ;kenv yi_env_orch ienvType, iattack, idecay, isus, irel, iOldAmp, iNewAmp if <stereo> == 1 then ; IF STEREO aringtotal sum aring1, aring2, aring3 ; add ringmods together kringtotal = aringtotal ; convert to k-rate, so ; that it can be a condition if kringtotal = 0 then ; when no ringmodulation aLeft = (aout2 + aout1*.5) * aenv * <volume> * kvol ; create Left and Right aRight = (aout3 + aout1*.5) * aenv * <volume> * kvol ; from 3 Oscilators else ; if ringmod is present then aLeft = (aring2 + aring1*.5) * aenv * <volume> * kvol ; divide ringmodsignals aRight = (aring3 + aring1*.5) * aenv * <volume> * kvol ; over 2 channels too. endif else ; IF MONO aringtotal sum aring1, aring2, aring3 ; add ringmods together kringtotal = aringtotal ; convert to k-rate, so if kringtotal = 0 then ; that it can be a condition aoutotal = aout * aenv * <volume> * kvol ; use already summed 3 oscil when no ringmod is present else aoutotal = aringtotal * aenv * <volume> * kvol ; output ringmods endif aLeft, aRight pan2 aoutotal, <space> ; pan the mono signal endif blueMixerOut aLeft, aRight 10 10 DOT true waveform1 74 60 true Triangle 0 Saw 1 Pulse 2 Tri-Saw 3 Tri-Pulse 4 Saw-Pulse 5 Tri-Saw-Pulse 6 Noise 7 1 true filterType1 325 60 true No Filter -1 Low Pass 0 High Pass 1 Band Pass 2 Band Reject 3 1 true waveform2 76 202 true Triangle 0 Saw 1 Pulse 2 Tri-Saw 3 Tri-Pulse 4 Saw-Pulse 5 Tri-Saw-Pulse 6 Noise 7 2 true ringmod1 530 60 true false true 16 61 17 202 20 352 waveform3 79 352 true Triangle 0 Saw 1 Pulse 2 Tri-Saw 3 Tri-Pulse 4 Saw-Pulse 5 Tri-Saw-Pulse 6 Noise 7 3 true ringmod2 530 200 true false true ringmod3 530 350 true false true freqMultiply3 90 400 true 0.01 8.0 0.16811612 55 true freqMultiply2 85 250 true 0.01 8.0 0.31495613 55 true freqMultiply1 87 110 true 0.01 8.0 0.22249694 55 true filterType2 325 203 true No Filter -1 Low Pass 0 High Pass 1 Band Pass 2 Band Reject 3 1 true filterType3 325 352 true No Filter -1 Low Pass 0 High Pass 1 Band Pass 2 Band Reject 3 1 true 85 90 85 230 90 380 filterFreq1 329 111 true 20.0 10000.0 3066.1846 55 true filterBandwidth1 400 110 true 0.01 2000.0 243.66365 55 true filterFreq2 327 259 true 20.0 10000.0 4596.7427 55 true filterBandwidth2 398 258 true 0.01 1500.0 1243.3502 55 true filterFreq3 330 400 true 20.0 10000.0 8606.396 55 true filterBandwidth3 397 400 true 0.01 1500.0 600.59375 55 true 342 381 397 380 338 240 394 239 340 90 396 89 decay 680 580 true 0.0 1.0 0.9883621 60 true sustain 817 579 true 0.0 1.0 0.431651 60 true release 887 579 true 0.0 10.0 7.6430864 60 true attack 607 579 true 0.001 10.0 1.7698656 60 true 611 560 684 561 818 560 888 560 amp2 570 265 true 0.0 1.0 0.1561542 50 true 582 249 amp1 570 110 true 0.0 1.0 0.30106544 50 true 580 97 amp3 570 405 true 0.0 1.0 0.24582435 50 true 581 392 13 11 154 90 pulseWidth1 160 110 true 0.05 0.95 0.08734535 55 true pulseWidth2 159 250 true 0.05 0.95 0.4300903 55 true 152 229 pulseWidth3 160 400 true 0.05 0.95 0.8126973 55 true 155 380 space 1040 600 true 0.0 1.0 0.48082164 60 true 85 0 Q1 470 110 true 1.0 100.0 10.214703 55 true 490 90 Q2 470 260 true 1.0 100.0 6.650843 55 true 490 240 Q3 470 400 true 1.0 100.0 43.86028 55 true 490 380 volume 1120 590 true 0.0 1.0 0.25124317 90 true 1140 570 sinePW_on1 275 105 true sinePW1 230 110 true 0.05 20.0 10.194896 55 true 230 90 sinePW_on2 275 245 true sinePW2 230 250 true 0.05 20.0 2.8381786 55 true 230 230 sinePW_on3 275 395 true sinePW3 230 400 true 0.05 20.0 4.954743 55 true 230 380 SwellPosition1 700 100 true 0.05 0.99 0.05 0.35000476 200 true swellamp1 700 140 true -1.0 5.0 0.1 2.7000353 200 true OnSwell1 680 60 true true true 820 120 820 160 SwellPosition2 700 240 true 0.05 0.99 0.05 0.8499959 200 true swellamp2 700 280 true -1.0 5.0 0.1 1.1999562 200 true OnSwell2 680 200 true false true 820 260 820 300 SwellPosition3 700 400 true 0.05 0.99 0.05 0.44999552 200 true swellamp3 700 440 true -1.0 5.0 0.1 0.39995086 200 true OnSwell3 680 360 true true true 820 420 820 460 tremdpth1 980 100 true 0.0 1.0 0.21518447 55 true tremspd1 1060 100 true 0.0 20.0 11.783718 55 true tremtypeLFO1 1140 100 true 0.0 5.0 1.0 2.0 50 true 990 90 1050 90 tremdpth2 980 260 true 0.0 1.0 0.9530847 55 true tremspd2 1060 260 true 0.0 20.0 16.888237 55 true tremtypeLFO2 1140 260 true 0.0 5.0 1.0 1.9999653 50 true Tremolo2 980 220 true false true 990 250 1050 250 1150 250 tremdpth3 980 420 true 0.0 1.0 0.1792397 55 true tremspd3 1060 420 true 0.0 20.0 4.630459 55 true tremtypeLFO3 1140 420 true 0.0 5.0 1.0 2.9999857 50 true Tremolo3 980 380 true false true 990 410 1050 410 1150 410 Vibrato 80 500 true false true vibdpth 80 540 true 0.0 20.0 18.079027 55 true vibspd 160 540 true 0.0 20.0 4.4449325 55 true vibtypeLFO 230 540 true 0.0 5.0 1.0 2.0000067 50 true 90 530 150 530 240 530 jitterdepth 290 540 true 0.0 5.0 2.2002006 55 true 300 530 jitspd 360 540 true 0.0 20.0 14.310586 55 true 350 530 Arpeggio 80 630 true true true arpspd 160 670 true 0.0 20.0 15.053653 55 true arptypeLFO 230 670 true 0.0 5.0 1.0 5.0 50 true 90 660 150 660 240 660 randomdepth 290 670 true 0.0 1.0 0.87647426 55 true 300 660 OnDirt 330 660 true 677 709 577 709 20 500 deccurve 577 689 true -20.0 20.0 0.1 -10.599999 150 true 547 539 887 709 787 709 relcurve 787 689 true -20.0 20.0 0.1 1.4004402 150 true 627 729 827 729 1038 682 630 80 630 220 630 370 Tremolo1 980 60 true true true arpdpth 90 670 true 1.0 8.0 1.0 4.0 50 true stereo 1030 580 true true true coarse 1260 100 true 0.001 3.0 1.0E-4 0.1108 370 true 1150 90 1240 90 true false false false false ver2:96.5244216919 ver2:25.7316741943 ver2:61.1984901428 0.34999517 0.49999797 0.19999658 true false true true ver2:0.6758089066 ver2:0.6747898459 ver2:0.919111073 1.0000039 ver2:5.6474256516 0.99997526 ver2:0.5491230488 ver2:0.7372118831 -6.4999332 ver2:562.0098266602 ver2:842.7455444336 ver2:487.2628173828 ver2:1744.3822021484 ver2:1388.9124755859 ver2:5297.6489257812 id:-2120469993 id:-2120469975 id:-2120469970 ver2:4.1200318336 ver2:3.4361600876 ver2:7.8114552498 ver2:13.0320549011 ver2:3.3978593349 ver2:0.9129474759 ver2:0.1986360997 ver2:0.496824801 ver2:0.0725679472 9.800291 ver2:0.721195817 false false true ver2:10.3082675934 ver2:12.9357748032 ver2:11.9770822525 false false false ver2:0.1493181139 ver2:0.4367986917 -0.40000087 4.0999694 1.5999503 ver2:0.246502772 ver2:0.7315325141 ver2:0.3419242501 ver2:11.1078176498 ver2:3.6526408195 ver2:13.6138896942 5.0 3.9999957 5.0 ver2:3.2241830826 ver2:12.9127569199 3.9999664 ver2:0.0504178293 id:-2120469997 id:-2120469987 id:-2120469980 true true false true true ver2:16.5692481995 ver2:76.8072967529 ver2:20.3042545319 0.75000453 0.30000386 0.8499973 false false false true ver2:1 ver2:0.7863274813 ver2:0.8470534682 0.99999905 ver2:17.1420078278 5.0 ver2:3.9924294949 ver2:0.8180274963 13.000378 ver2:695.3403320312 ver2:638.4312744141 ver2:1022.1564941406 ver2:9211.9140625 ver2:2166.2119140625 ver2:3188.4453125 id:106741580 id:527589294 id:-1965179349 ver2:5.5687475204 ver2:1.1101465225 ver2:1.1420501471 ver2:15.2742853165 ver2:1.5062873363 ver2:0.9113631248 ver2:0.2751351893 ver2:0.8094343543 ver2:0.186727494 -1.2997704 ver2:1.3335262537 false true false ver2:5.2994675636 ver2:14.5253543854 ver2:13.5351400375 false false true ver2:0.380373925 ver2:0.4309391975 -0.90000165 1.6000013 4.0000052 ver2:0.7485322952 ver2:0.3858267963 ver2:0.0840560123 ver2:5.1168646812 ver2:15.7117080688 ver2:1.37279284 1.1174584E-6 4.000003 3.9999754 ver2:17.7969665527 ver2:13.6021995544 1.5660858E-7 ver2:0.3000000119 id:-2120469998 id:-2120469991 id:-2120469978 false false true false false ver2:99.6377105713 ver2:53.3792915344 ver2:35.4960212708 0.8499968 0.0499996 0.950003 false false true true ver2:0.6059045792 ver2:0.8699530363 ver2:0.6905748844 3.000014 ver2:11.0172538757 2.9999986 ver2:0.6872074604 ver2:0.3317535818 18.299637 ver2:1491.6951904297 ver2:899.518371582 ver2:639.6830444336 ver2:7087.0537109375 ver2:4852.4345703125 ver2:9515.8251953125 id:106741580 id:-2120469975 id:-2120469971 ver2:1.6348170042 ver2:1.1370668411 ver2:7.2778482437 ver2:5.0570106506 ver2:4.0668411255 ver2:0.2713371515 ver2:0.1459334046 ver2:0.2926238775 ver2:0.4306924641 5.500458 ver2:1.9258267879 false true false ver2:2.7752130032 ver2:9.2083730698 ver2:5.4990572929 true false false ver2:0.4466288686 ver2:0.8024853468 -0.4000008 0.90000284 4.899957 ver2:0.2152117342 ver2:0.3369201124 ver2:0.119927071 ver2:10.1936244965 ver2:4.1292243004 ver2:2.3085799217 4.000006 5.0 0.99995476 ver2:8.363196373 ver2:18.6319293976 -3.6689662E-6 ver2:0.059282016 id:-2120470001 id:-2120469985 id:-2120469977 false false true true true ver2:4.2433214188 ver2:61.9205780029 ver2:13.7174797058 0.5499975 0.8500047 0.80000144 false false false false ver2:1 ver2:0.9902125001 ver2:1 7.0 ver2:1.4690899849 1.0 ver2:4.6159391403 ver2:0.623044908 -1.2998714 ver2:1759.0828857422 ver2:758.9057617188 ver2:1411.9418945312 ver2:559.9106445312 ver2:7649.3198242188 ver2:6720.8569335938 id:-2120469996 id:-2120469975 id:527589295 ver2:3.6211659908 ver2:2.3073413372 ver2:6.122739315 ver2:11.9602708817 ver2:0 ver2:0.1357252896 ver2:0.7574689388 ver2:0.5747212768 ver2:0.8633279204 3.7001858 ver2:1.8166723251 false false false ver2:4.060485363 ver2:16.8276882172 ver2:0.9185968637 true true false ver2:0.4940187633 true ver2:0.2381019145 3.1999588 -0.5000018 3.3000321 ver2:0.9749272466 ver2:0.7758467793 ver2:0.3754140735 ver2:6.2732009888 ver2:5.8308520317 ver2:2.6199398041 1.9999676 -2.82732E-6 2.1620751E-6 ver2:7.9071092606 ver2:2.2021753788 2.0 ver2:0.2924927175 id:-2120470004 id:-2120469992 id:-2120469984 true false false false false ver2:3.5186924934 ver2:88.011138916 ver2:28.8736610413 0.44999534 0.049999863 0.7500032 true false true true ver2:0.6873624325 ver2:0.2918615937 ver2:0.0584567264 1.0000001 ver2:6.6849861145 1.9999833 ver2:2.5856785774 ver2:0.0923906863 -17.799997 ver2:1692.7924804688 ver2:1246.1112060547 ver2:143.8982543945 ver2:8286.76953125 ver2:8534.9755859375 ver2:9570.134765625 id:-2120469993 id:-2120469974 id:-1965179349 ver2:6.0137524605 ver2:4.0587496758 ver2:5.68045187 ver2:5.6390748024 ver2:3.1150188446 ver2:0.7318357229 ver2:0.1913216561 ver2:0.4442099333 ver2:0.9143023491 4.5001583 ver2:4.5835461617 false true true ver2:3.9522469044 ver2:1.1059343815 ver2:10.1505680084 false false false ver2:0.2212704271 true ver2:0.4087020755 3.5999756 0.7999718 2.3000286 ver2:0.8572137952 ver2:0.8962569237 ver2:0.6417629123 ver2:3.6263070107 ver2:1.7748618126 ver2:10.1695261002 5.0 5.0 2.9999545 ver2:1.7239093781 ver2:0.6773759127 2.999977 ver2:0.6147009134 id:-2120470004 id:-2120469992 id:-2120469979 false ver2:36.5157585144 ver2:1 ver2:40.9594345093 ver2:0.5889578462 ver2:0.5967905521 ver2:0.4366694391 ver2:0.00001 ver2:0.3883122802 0.21875 ver2:281.7218933105 ver2:607.1567382812 ver2:783.0682373047 ver2:67.6986846924 ver2:6064.5478515625 ver2:2028.4074707031 id:-2120469995 id:-2120469975 id:-2120469971 -0.008899987 ver2:3.5445694923 ver2:1.8355686665 ver2:1.9437601566 ver2:5.4379682541 ver2:1.8431537151 0.0 ver2:0.9037187099 ver2:0.3219486773 ver2:0.5002267957 1.0 ver2:4.4904489517 true false true ver2:0.5081945062 ver2:2.9955203533 ver2:0.832107842 ver2:0 ver2:0 ver2:0 ver2:2.5755386353 ver2:8.4628314972 ver2:5.4527873993 0.0 5.0 2.0 3.0 ver2:1.5007885695 ver2:3.2040219307 0.0 ver2:0.5647313595 id:-2120469999 id:-2120469991 id:-2120469983 true false ver2:82.2568511963 ver2:28.2944278717 ver2:10.966835022 0.009999872 ver2:0.0061666165 ver2:0.127996698 ver2:0.500567019 ver2:9.29388237 ver2:0.2210181206 -9.943408E-9 ver2:380.3094482422 ver2:506.583404541 ver2:699.6131591797 ver2:382.8069152832 ver2:7893.6030273438 ver2:2864.2255859375 id:-2120469996 id:-2120469973 id:-1965179349 0.91399443 ver2:1.7621064186 ver2:3.9415991306 ver2:5.9650921822 ver2:8.3507614136 ver2:9.5302200317 3.0000272 ver2:0.5264940858 ver2:0.3934952617 ver2:0.4001853466 9.699996 ver2:2.1901721954 false false false ver2:0.694372654 ver2:20.9817867279 ver2:0.3833663464 -0.34489697 ver2:0.7626319528 ver2:0.975356698 ver2:0.479616642 ver2:6.8800158501 ver2:11.7419605255 ver2:10.1536216736 2.0000062 1.9999653 0.99996597 2.0000079 ver2:0.7958472967 ver2:2.193120718 2.0000463 ver2:0.7012137771 id:-2120470004 id:-2120469990 id:-2120469979 false true false true ver2:100.5164794922 ver2:49.5980415344 ver2:111.7840652466 0.9999 0.110001005 0.40999588 ver2:0.7190325856 ver2:0.945125699 ver2:0.4410515726 ver2:8.8390808105 ver2:0.2912157178 0.66999745 ver2:640.5057983398 ver2:720.4647216797 ver2:633.9193115234 ver2:4985.9697265625 ver2:1239.3265380859 ver2:8172.2387695312 id:-2120469993 id:-2120469975 id:-2120469972 -0.050695717 ver2:1.6891154051 ver2:0.6126602292 ver2:1.7181812525 ver2:8.2687492371 ver2:7.0029211044 1.9999626 ver2:0.2995343804 ver2:0.1915730536 ver2:0.280010432 1.1999967 ver2:8.4301595688 false false false ver2:0.2943755388 ver2:8.3908138275 ver2:0.6844248772 22.024239 -11.972763 -66.666695 ver2:0.67173177 ver2:0.6573896408 ver2:0.812513113 ver2:8.0196228027 ver2:19.09882164 ver2:7.9627299309 3.9999886 3.0000422 4.0000257 3.9999907 ver2:0.1343659759 ver2:9.6915092468 2.999963 ver2:0.1267372072 id:-2120470000 id:-2120469989 id:-2120469984 false true true true false ver2:69.2821350098 ver2:66.5565185547 ver2:22.2094764709 0.6999963 0.34999654 0.39999735 false false true true ver2:0.6419081688 ver2:0.4539734721 ver2:0.516471982 6.999987 ver2:18.1919288635 1.000019 ver2:3.3085939884 ver2:0.1535717994 14.700043 ver2:308.8589172363 ver2:120.3519744873 ver2:1178.5964355469 ver2:6093.306640625 ver2:5821.4208984375 ver2:4417.8090820312 id:-2120469994 id:527589294 id:-2120469970 ver2:5.5743975639 ver2:2.8462040424 ver2:6.4484477043 ver2:19.1665439606 ver2:0.3455935717 ver2:0.9423220754 ver2:0.3142183423 ver2:0.9113407135 ver2:0.2530509531 -7.099868 ver2:3.3460857868 true false false ver2:2.1856694221 ver2:13.4371805191 ver2:19.7256336212 true false true ver2:0.5067484379 ver2:0.1281773299 0.5000125 -0.49999988 2.8999658 ver2:0.2183430493 ver2:0.1889847368 ver2:0.6808568835 ver2:1.7451404333 ver2:7.2672138214 ver2:18.6510066986 0.9999555 4.000039 -3.1212807E-7 ver2:16.9219017029 ver2:13.3089170456 5.0 ver2:0.2489482164 id:-2120469998 id:-2120469987 id:-2120469980 false true false false false ver2:65.3953857422 ver2:44.7839241028 ver2:65.5601730347 0.149996 0.15000425 0.50000453 false false false false ver2:0.7748502493 ver2:0.9529126883 ver2:0.8890174627 4.000004 ver2:13.579416275 -1.0943318E-6 ver2:8.5081100464 ver2:0.4694491029 -13.199956 ver2:917.9431152344 ver2:1005.3721313477 ver2:1316.9224853516 ver2:335.1483459473 ver2:3560.6740722656 ver2:6840.1108398438 id:-2120469993 id:527589294 id:-1965179349 ver2:6.0994310379 ver2:4.2426691055 ver2:0.467033267 ver2:9.5800123215 ver2:4.6517972946 ver2:0.2765445709 ver2:0.7584248781 ver2:0.6164366603 ver2:0.1744618267 3.2996407 ver2:1.2084707022 false true true ver2:11.435336113 ver2:2.3226108551 ver2:14.0848703384 false false false ver2:0.517847836 ver2:0.5722398162 5.0 -0.20000058 0.10004532 ver2:0.8738703728 ver2:0.9247159958 ver2:0.3099490404 ver2:11.9115276337 ver2:18.2337017059 ver2:7.9680290222 2.9999855 5.0 2.0000107 ver2:19.6392421722 ver2:16.7282409668 3.0000253 ver2:0.2970146835 id:-2120470002 id:-2120469990 id:-2120469984 true true true false true ver2:84.3572463989 ver2:91.407623291 ver2:46.2277297974 0.3999961 0.64999664 0.5499953 false false false true ver2:0.8626852632 ver2:0.5014874935 ver2:0.6546992064 1.9999825 ver2:0 5.0 ver2:8.8397817612 ver2:0.3849292099 12.400162 ver2:1264.6075439453 ver2:16.0860385895 ver2:1018.9681396484 ver2:4572.9174804688 ver2:7926.5190429688 ver2:2341.2385253906 id:106741580 id:-2120469975 id:-2120469970 ver2:5.5708050728 ver2:1.9301214218 ver2:2.5314126015 ver2:18.7240066528 ver2:0.9646192789 ver2:0.3785531521 ver2:0.3856168389 ver2:0.4345426857 ver2:0.6379842758 -15.099967 ver2:3.5773639679 false false true ver2:11.6767721176 ver2:19.0011367798 ver2:3.9070048332 true true false ver2:0.3386683166 ver2:0.6958320141 1.8000269 2.2999616 0.8999579 ver2:0.9747285247 ver2:0.5427730083 ver2:0.115380168 ver2:7.1488742828 ver2:2.3338208199 ver2:10.1029901505 1.0000311 2.999958 2.0000367 ver2:4.1183304787 ver2:5.5971055031 4.000025 ver2:0.3000000119 id:-2120469999 id:-2120469992 id:-2120469984 ver2:1 ver2:0.4015600979 ver2:0.0932200998 ver2:0.0250000004 ver2:0.0250000004 ver2:87.6385192871 ver2:333.7062683105 ver2:259.0687561035 ver2:1715.2629394531 ver2:982.1233520508 ver2:1829.2126464844 id:-2120469995 id:-2120469973 id:-2120469971 ver2:1 ver2:1.5 ver2:4 ver2:0.0110424133 ver2:0.2187798321 ver2:0.4284873307 ver2:0.150000006 false false false ver2:0.4616867006 ver2:0.9320918918 id:-2120469999 id:-2120469989 id:-2120469978 ver2:1 ver2:0.4548087418 ver2:0.3885397315 ver2:0.0250000004 ver2:0.1011357531 ver2:87.6385192871 ver2:127.5178756714 ver2:259.0687561035 ver2:924.2854003906 ver2:418.2322998047 ver2:1829.2126464844 id:-2120469995 id:-2120469975 id:-2120469971 ver2:1 ver2:2 ver2:3 ver2:0.1094344035 ver2:0.2187798321 ver2:0.4284873307 ver2:0.150000006 false false false ver2:0.4616867006 ver2:0.9409708977 id:-2120470003 id:-2120469989 id:-2120469982 ver2:1 ver2:0.2979246378 ver2:0.2079724371 ver2:0.0250000004 ver2:0.1011357531 ver2:87.6385192871 ver2:127.5178756714 ver2:130.5656433105 ver2:924.2854003906 ver2:3676.7016601562 ver2:2286.6469726562 id:-2120469995 id:-2120469975 id:-2120469971 ver2:1 ver2:2 ver2:3 ver2:0.3367043436 ver2:0.2187798321 ver2:0.1479236335 ver2:0.150000006 false false false ver2:0.4616867006 ver2:0.9409708977 id:-2120470004 id:-2120469989 id:-2120469982 getFrequency i i ipch xin iout = (ipch < 15 ? cpspch(ipch) : ipch) xout iout getFrequency - Returns frequency whether being passed in pch or frequency DESCRIPTION Returns frequency whether being passed in PCH notation or frequency. This code is commonly found in instruments designed to take in either pch or frequency values. Assumes that values lower than 15 are pch, and those higher than that are frequency. SYNTAX ifreq getFrequency ival INITIALIZATION ival - input value, either pch or frequency ifreq - output frequency PERFORMANCE null CREDITS Steven Yi k_Arpeggio k KKKiKK kOnArpeggio, koct, kspeed, itype, kOnDirt, kmaxrandom xin kpitch = 1 if kOnArpeggio == 1 then ;switch Arpeggio on/off klfo lfo koct, kspeed, itype ; klfo lfo <oct>, <spd>, i(<typeLFO>) koc = int(klfo) ; produce only whole numbers kres random -(kmaxrandom), kmaxrandom ; kres random 1, <random> kfactor = octave(koc) ; create octave number if kOnDirt == 1 then kpitch = kfactor * kpitch + kres ; add dirt else kpitch = kfactor * kpitch endif kpitch = abs(kpitch) else kpitch = 1 ; no change in frequency endif xout kpitch k_Zwel K KKK kOnSwell,kposition, ksw xin if kOnSwell == 1 then ; switch Swell on/off irise = p3 * i(kposition) ; relative position 0 > position < 1 inside note ifall = p3 - irise kswell linseg 0, irise, i(ksw) , ifall, 0 else kswell = 0 ; if switch = OFF, no effect endif xout kswell k_multiOscil a KKKKKKKK kwaveform, kpch, kpulsewidth, kOnSine, ksinefreq, kOn, kposition, kswellamp xin ; input = waveform, pitch, pulsewith, switch for PW, frequency for PW, switch for Swell, where Swell, amount Swell aout = 0 kcount = 0 ; volume trick kswell k_Zwel kOn, kposition, kswellamp ; UDO k_Zwel if (kwaveform == 7) then ; make some noise! aout noise 1 + kswell, 0 kcount = 1 endif if (kwaveform == 0 || kwaveform == 3 || kwaveform == 4 || kwaveform == 6) then ; used for all waves but pulse and saw aout vco2 1 + kswell , kpch, 12 kcount = 1 endif if (kwaveform == 1 || kwaveform == 3 || kwaveform == 6) then ; used for saw atemp vco2 1 + kswell , kpch;, itie aout = aout + atemp kcount = kcount + 1 endif if (kwaveform == 2 || kwaveform == 4 || kwaveform == 5 || kwaveform == 6) then ; used for pulse atemp vco2 1 + kswell , kpch, 2, kpulsewidth ; one value for PW aout = aout + atemp kcount = kcount + 1 if kOnSine == 1 then ; if switch is set, use sine to modulate PW kpw lfo .95, ksinefreq, 0 atemp vco2 1 + kswell , kpch, 2, (kpw + 1)*.5 aout = aout + atemp kcount = kcount + 1 endif endif aout = aout / kcount ; kcount is volume control because of added waves xout aout k_MultiFilter a aKKKK ain, ktype, kfreq, kbandwidth, kQ xin ktypeAdj = ktype - 1 if (ktypeAdj < 0) then ; no filter aout = ain elseif (ktypeAdj == 0) then ; low pass ahigh init 0 aband init 0 aout, ahigh, aband svfilter ain, kfreq, kQ elseif (ktypeAdj == 1) then ; high pass alow init 0 aband init 0 alow, aout, aband svfilter ain, kfreq, kQ elseif (ktypeAdj == 2) then ; band pass aout butterbp ain, kfreq, kbandwidth elseif (ktypeAdj == 3) then ; band reject aout butterbr ain, kfreq, kbandwidth endif xout aout k_Tremolo k KKKi kOnTremolo, kdepth, kspeed, itype xin setksmps 1 ; avoid clicks (together with port) if kOnTremolo == 1 then ; if switch = ON, apply tremolo ktrem lfo kdepth, kspeed, itype ; LFO 0-5 kport port ktrem, 0.007 ; filter sharp edges of square ktremolo = (1 + kport) *.5 ; add tremoloes else ktremolo = 1 ; if switch = OFF, there is no tremolo endif xout ktremolo k_Vibrato k KKKiKK kOnVibrato, kdepth, kspeed, itype, kjitdepth, kjitfreq xin if kOnVibrato == 1 then ; if switch = ON, add vibrato to sall voices kvb lfo kdepth, kspeed, itype ; LFO 0-5 kjit randi kjitdepth, kjitfreq ; create some jitter kvibrato = kvb + kjit ; add jitter and LFO else kvibrato = 0 ; if switch = OFF, there is no vibrato endif xout kvibrato