b64Xtended _v3.0 b64Xtended version 3.0 score example: i5 0 2 100 1 where P4 = frequency in Hertz. Pitch-class units can be used if pitch < 15. and P5 = amplitude This instrument is inspired by the SID chip of the Commodore 64 and the b64 instrument by Steven Yi. The instrument has some significant changes compared to version 2.2. Some presets are added. A nice feature is that for every one of the 3 oscillators a "swell" is implemented. That means that, within a tone of one oscillator, an extra amount - positive or negative - of amplitude ( or swell ) can be given. Thus the 3 oscillators together can be fine modulated by different subtle peaks or falls in amplitude within the note, making it more lively and expressive. Another feature is the stereo/mono switch: in stereo the 3 oscillators are divided over 2 channels. The Base Frequency (as set with p4) is in the middle of the stereo image. The other 2 timbres are placed left and right. In mono mode you can treat the sounds of the 3 oscillators more as one sound with a certain timbre. You can use the Panning knob to set this mono sound in the stereo image. It is possible to switch to and from stereo while the note is playing. version 3.0, December 2018: - the Arpeggio section has been extended to 3 separate subsections, allowing for complex Arpeggios. - revamped GUI to modern layout and colours - replaced Amplitude Envelope with a highly configurable envelope, with a switch for linear or exponential. version 2.2: 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 ======================================================== 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 ;=========================initialize============================================ if <exp_amplitude> == 1 then ; amplitude envelope linear/exponential ienv_amplitude ftgen 0, 0, 1024, -7, <envelope_amplitude envelope> else ienv_amplitude ftgen 0, 0, 1024, -5, <envelope_amplitude envelope> endif ipch getFrequency p4 kpch = ipch kvol init p5 ;=======Arpeggio============== if <ArpOn> == 1 then kArp k_Arpeggio <Arpeggio>, <arpdpth>, <arpspd>, i(<arptypeLFO>), <OnDirt>, <randomdepth> kArp1 k_Arpeggio <Arpeggio1>, <arpdpth1>, <arpspd1>, i(<arptypeLFO1>), <OnDirt>, <randomdepth> kArp2 k_Arpeggio <Arpeggio2>, <arpdpth2>, <arpspd2>, i(<arptypeLFO2>), <OnDirt>, <randomdepth> korp maxabs kArp2,kArp1,kArp else korp = 1 endif ;printk2 korp ;========Vibrato============== kvib k_Vibrato <Vibrato>, <vibdpth>, <vibspd>, i(<vibtypeLFO>), <jitterdepth> , <jitspd> ;=======OSC=================== ;koarse = <coarse> aout1 k_multiOscil <waveform1>, <freqMultiply1> * kpch * korp, <pulseWidth1>, i(<sinePW_on1>), <sinePW1>, i(<OnSwell1>), i(<SwellPosition1>), i(<swellamp1>) ; * (kpch + korp) aout2 k_multiOscil <waveform2>, <freqMultiply2> * (kpch * korp) + kvib, <pulseWidth2>, i(<sinePW_on2>), <sinePW2>, i(<OnSwell2>), i(<SwellPosition2>), i(<swellamp2>) aout3 k_multiOscil <waveform3>, <freqMultiply3> * (kpch * korp) + 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 *= ktrem1 aout2 *= ktrem2 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 aenv oscili 1, 1/p3, ienv_amplitude ;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 0 0 Group 0x00000033 0x000000ff 0xffffffff true 20 20 1610 380 System Regular 12.0 1340 10 Global 0x669966ff 0x000000ff 0xffffffff true 20 274 stereo 20 150 true true true Vibrato 10 10 true true true 150 40 System Regular 12.0 20 40 System Regular 12.0 jitterdepth 200 40 true 0.0 5.0 1.8758567475 50 true true true System Regular 12.0 space 20 180 true 0.0 1.0 0.173673316 50 true false true System Regular 12.0 vibdpth 10 40 true 0.0 20.0 10.1557581231 50 true true true System Regular 12.0 vibtypeLFO 140 50 true 0.0 5.0 1 3.0 50 true true 80 40 System Regular 12.0 130 140 System Regular 12.0 volume 110 160 true 0.0 1.0 0.6575801261 70 true false true System Regular 12.0 vibspd 70 40 true 0.0 20.0 11.3100686604 50 true true true System Regular 12.0 230 40 System Regular 12.0 jitspd 260 40 true 0.0 20.0 18.4604464607 50 true true true System Regular 12.0 30 250 System Regular 12.0 280 40 System Regular 12.0 1378 351 System Bold 36.0 1450 340 System Bold 36.0 1070 10 Arpeggio 0x669966ff 0x000000ff 0xffffffff true 20 411 randomdepth 210 50 true 0.0 1.0 0.01 0.37 305 true false 150 300 System Regular 12.0 150 40 System Regular 12.0 10 300 System Regular 12.0 Arpeggio 110 10 true false true arpdpth1 10 180 true 1.0 8.0 1 5.0 50 true true Arpeggio2 100 270 true true true Arpeggio1 100 140 true false true OnDirt 210 360 true true true arptypeLFO2 140 310 true 0.0 5.0 1 0.0 50 true true arpdpth 10 50 true 1.0 8.0 1 3.0 50 true true arptypeLFO 140 50 true 0.0 5.0 1 0.0 50 true true arptypeLFO1 140 180 true 0.0 5.0 1 1.0 50 true true 10 170 System Regular 12.0 150 170 System Regular 12.0 arpspd1 70 170 true 0.0 20.0 13.6754104235 50 true true true System Regular 12.0 ArpOn 10 10 true true true arpdpth2 10 310 true 1.0 8.0 1 7.0 50 true true arpspd 70 40 true 0.0 20.0 1.3917334379 50 true true true System Regular 12.0 arpspd2 70 300 true 0.0 20.0 14.9954018656 50 true true true System Regular 12.0 70 40 System Regular 12.0 10 40 System Regular 12.0 680 10 transform 0x669966ff 0x000000ff 0xffffffff true 20 20 170 270 System Regular 12.0 60 320 System Regular 12.0 SwellPosition3 10 320 true 0.05 0.99 0.05 0.7000000000000001 160 true false tremspd2 260 170 true 0.0 20.0 15.394925481 50 true true true System Regular 12.0 tremdpth3 200 310 true 0.0 1.0 0.6402144862 50 true true true System Regular 12.0 10 270 System Regular 12.0 swellamp2 10 210 true -1.0 5.0 0.1 4.1 160 true false tremdpth1 200 30 true 0.0 1.0 0.9350272311 50 true true true System Regular 12.0 60 350 System Regular 12.0 Tremolo1 200 10 true false true 340 310 System Regular 12.0 swellamp1 10 70 true -1.0 5.0 0.1 0.7 160 true false tremtypeLFO2 330 180 true 0.0 5.0 1 4.0 50 true true SwellPosition1 10 40 true 0.05 0.99 0.05 0.1 160 true false tremtypeLFO1 330 40 true 0.0 5.0 1 3.0 50 true true 320 170 System Regular 12.0 tremspd1 260 30 true 0.0 20.0 6.7616502675 50 true true true System Regular 12.0 60 210 System Regular 12.0 OnSwell1 10 10 true true true 170 130 System Regular 12.0 SwellPosition2 10 180 true 0.05 0.99 0.05 0.5 160 true false Tremolo3 200 290 true true true tremdpth2 200 170 true 0.0 1.0 0.5650028619 50 true true true System Regular 12.0 60 40 System Regular 12.0 tremspd3 260 310 true 0.0 20.0 16.7062303938 50 true true true System Regular 12.0 tremtypeLFO3 330 320 true 0.0 5.0 1 1.0 50 true true 330 130 System Regular 12.0 Tremolo2 200 150 true true true 330 270 System Regular 12.0 340 170 System Regular 12.0 10 130 System Regular 12.0 OnSwell2 10 150 true true true OnSwell3 10 290 true false true 60 180 System Regular 12.0 340 30 System Regular 12.0 swellamp3 10 350 true -1.0 5.0 0.1 3.9000000000000004 160 true false 60 70 System Regular 12.0 10 440 Amplitude Envelope 0x669966ff 0x000000ff 0xffffffff true 1060 20 exp_amplitude 920 160 true false true envelope 10 10 1024 150 1024.0 true COMMA false false 10 10 waveforms 0x669966ff 0x000000ff 0xffffffff true 20 20 ringmod1 524 9 true true true freqMultiply3 90 319 true 0.01 8.0 5.5345957074 50 true true true System Regular 12.0 500 270 System Regular 12.0 sinePW_on2 280 180 true freqMultiply2 90 180 true 0.01 8.0 6.8448344372 50 true true true System Regular 12.0 334 39 System Regular 12.0 14 291 System Bold 18.0 ringmod3 524 289 true false true 10 270 System Regular 12.0 sinePW_on1 280 40 true filterFreq2 320 180 true 20.0 10000.0 5420.5995535308 50 true true true System Regular 12.0 10 130 System Regular 12.0 waveform1 68 9 true 4 12 true Triangle 0 Saw 1 Pulse 2 Tri-Saw 3 Tri-Pulse 4 Saw-Pulse 5 Tri-Saw-Pulse 6 Noise 7 pulseWidth3 160 319 true 0.05 0.95 0.5121735861 50 true true true System Regular 12.0 250 130 System Regular 12.0 waveform2 70 152 true 2 12 true Triangle 0 Saw 1 Pulse 2 Tri-Saw 3 Tri-Pulse 4 Saw-Pulse 5 Tri-Saw-Pulse 6 Noise 7 filterType1 319 9 true 3 12 true No Filter -1 Low Pass 0 High Pass 1 Band Pass 2 Band Reject 3 sinePW1 230 40 true 0.05 20.0 19.8914746978 50 true true true System Regular 12.0 amp1 570 40 true 0.0 1.0 0.3262481289 50 true false true System Regular 12.0 pulseWidth1 150 40 true 0.05 0.95 0.6983820036 50 true true true System Regular 12.0 148 39 System Regular 12.0 Q3 460 319 true 1.0 100.0 66.6372838184 50 true true true System Regular 12.0 sinePW_on3 280 319 true 250 270 System Regular 12.0 pulseWidth2 150 180 true 0.05 0.95 0.842202036 50 true true true System Regular 12.0 filterFreq3 320 319 true 20.0 10000.0 3925.4881244059 50 true true true System Regular 12.0 11 152 System Bold 18.0 ringmod2 524 150 true false true amp2 570 180 true 0.0 1.0 0.6452706031 50 true false true System Regular 12.0 224 39 System Regular 12.0 Q1 460 40 true 1.0 100.0 15.3779170863 50 true true true System Regular 12.0 freqMultiply1 4 109 true 0.0 1.0 1.0 620 160 System Regular 12.0 filterBandwidth3 390 319 true 0.01 1500.0 1152.5862136494 50 true true true System Regular 12.0 500 130 System Regular 12.0 filterBandwidth2 390 180 true 0.01 1500.0 561.2158685742 50 true true true System Regular 12.0 filterType2 319 153 true 1 12 true No Filter -1 Low Pass 0 High Pass 1 Band Pass 2 Band Reject 3 waveform3 73 291 true 1 12 true Triangle 0 Saw 1 Pulse 2 Tri-Saw 3 Tri-Pulse 4 Saw-Pulse 5 Tri-Saw-Pulse 6 Noise 7 30 80 System Regular 18.0 10 10 System Bold 18.0 620 299 System Regular 12.0 620 20 System Regular 12.0 filterFreq1 320 40 true 20.0 10000.0 3400.0712961411 50 true true true System Regular 12.0 filterType3 319 291 true 1 12 true No Filter -1 Low Pass 0 High Pass 1 Band Pass 2 Band Reject 3 amp3 570 319 true 0.0 1.0 1.0 50 true false true System Regular 12.0 Q2 460 180 true 1.0 100.0 13.1491058759 50 true true true System Regular 12.0 sinePW2 230 180 true 0.05 20.0 12.8959549521 50 true true true System Regular 12.0 sinePW3 230 319 true 0.05 20.0 2.0410959681 50 true true true System Regular 12.0 60 60 System Regular 18.0 filterBandwidth1 390 40 true 0.01 2000.0 1438.2343776927 50 true true true System Regular 12.0 390 38 System Regular 12.0 true true true true false false false false ver2:4.2433214188 ver2:14.4005780029 ver2:13.7174797058 0.55 0.8500000000000001 0.8 false false false false ver2:1 ver2:0.96 ver2:1 3.0 3.0 4.0 ver2:5.4 ver2:3.6 ver2:11.4 4.0 4.0 1.0 version=2@_@amplitude envelope:0.0:0.001:0.216796875:0.84016:0.5087890625:0.21412000000000003:0.7666015625:0.99334:1.0:0.001 true ver2:1759.0828857422 ver2:503.9074617188 ver2:1411.9418945312 ver2:559.9106445312 ver2:2858.9198242188 ver2:6720.8569335938 id:-275543933 id:-275543918 id:-275543924 1 ver2:1.5 ver2:1.5 ver2:11.9602708817 ver2:0 ver2:0.2527252896 ver2:0.7574689388 ver2:0.5747212768 0.0 false false false ver2:4.060485363 ver2:3.4611882172 ver2:6.1055968637 true true true ver2:0.5240187633 true 3.2 -0.5 3.3 ver2:1 ver2:1 ver2:1 ver2:5.0732009888 ver2:5.8308520317 ver2:2.6199398041 2.0 0.0 0.0 ver2:20 ver2:2.2021753788 2.0 ver2:0.2624927175 id:-275543977 id:-275543988 id:-275543965 false true false true true false false false ver2:89.5177829936 ver2:43.60172278 ver2:95.3097411621 0.3 0.75 0.35 false false false true ver2:0.3325325211 ver2:0.8341627691 ver2:0.3102623228 4.0 1.0 4.0 ver2:16.6709646681 ver2:17.071530606 ver2:13.7383031572 1.0 1.0 4.0 version=2@_@amplitude envelope:0.0:0.001:0.216796875:0.84016:0.5087890625:0.21412000000000003:0.7666015625:0.99334:1.0:0.001 true ver2:952.068602925 ver2:1021.9177532031 ver2:45.5904305627 ver2:9088.3482672901 ver2:3693.4733977526 ver2:3775.0882982304 id:-275543932 id:-275543916 id:-275543923 1 ver2:1.1784195213 ver2:1.8632190209 ver2:15.4282122184 ver2:1.7776262321 ver2:0.4919511094 ver2:0.2931616094 ver2:0.6467546796 0.39 true false true ver2:12.115149444 ver2:15.1796489367 ver2:18.4195899888 false false true ver2:0.3459582815 true -0.30000000000000004 4.8 0.8 ver2:0.0731302575 ver2:0.3743502355 ver2:0.3787453042 ver2:3.5751870966 ver2:6.7378676932 ver2:14.8918989638 4.0 1.0 1.0 ver2:9.3734447342 ver2:13.3163066787 1.0 ver2:0.3945298913 id:-275543976 id:-275543990 id:-275543963 true true true false true true false false ver2:5.7141945584 ver2:59.6090302756 ver2:98.5195027351 0.39999999999999997 0.1 0.9500000000000001 true false true true ver2:0.5251394832 ver2:0.7937203618 ver2:0.2630921773 3.0 3.0 2.0 ver2:15.8658218194 ver2:6.9704374063 ver2:18.7765534792 2.0 1.0 4.0 version=2@_@amplitude envelope:0.0:0.001:0.216796875:0.84016:0.5087890625:0.21412000000000003:0.7666015625:0.99334:1.0:0.001 false ver2:84.1946116747 ver2:956.0421641957 ver2:1049.8594671815 ver2:5280.7820362771 ver2:7223.6939855786 ver2:210.6231767215 id:-275543930 id:-275543919 id:-275543924 1 ver2:1.1973205012 ver2:5.6255357221 ver2:2.980840195 ver2:2.5768361544 ver2:0.1449844335 ver2:0.6388799336 ver2:0.7865381326 0.01 true true false ver2:15.4604595073 ver2:14.8066277511 ver2:1.3110433524 false true false ver2:0.2346429697 false 0.6000000000000001 3.4000000000000004 3.0999999999999996 ver2:0.6283768831 ver2:0.5629423792 ver2:0.1779570834 ver2:10.902394607 ver2:3.9946096358 ver2:19.7946032679 0.0 4.0 2.0 ver2:10.1866797035 ver2:9.5663351869 3.0 ver2:0.2845944932 id:-275543978 id:-275543986 id:-275543959 true false false true true true true false ver2:15.3779170863 ver2:13.1491058759 ver2:66.6372838184 0.1 0.5 0.7000000000000001 false true true true ver2:0.3262481289 ver2:0.6452706031 ver2:1 3.0 5.0 7.0 ver2:1.3917334379 ver2:13.6754104235 ver2:14.9954018656 0.0 1.0 0.0 version=2@_@amplitude envelope:0.0:0.001:0.216796875:0.84016:0.5087890625:0.21412000000000003:0.7666015625:0.99334:1.0:0.001 false ver2:1438.2343776927 ver2:561.2158685742 ver2:1152.5862136494 ver2:3400.0712961411 ver2:5420.5995535308 ver2:3925.4881244059 id:-275543931 id:-275543917 id:-275543927 1 ver2:6.8448344372 ver2:5.5345957074 ver2:18.4604464607 ver2:1.8758567475 ver2:0.6983820036 ver2:0.842202036 ver2:0.5121735861 0.37 true false false ver2:19.8914746978 ver2:12.8959549521 ver2:2.0410959681 false true false ver2:0.173673316 true 0.7 4.1 3.9000000000000004 ver2:0.9350272311 ver2:0.5650028619 ver2:0.6402144862 ver2:6.7616502675 ver2:15.394925481 ver2:16.7062303938 3.0 4.0 1.0 ver2:10.1557581231 ver2:11.3100686604 3.0 ver2:0.6575801261 id:-275543974 id:-275543990 id:-275543965 true false false true true true true false ver2:15.3779170863 ver2:13.1491058759 ver2:66.6372838184 0.1 0.5 0.7000000000000001 false true true true ver2:0.3262481289 ver2:0.6452706031 ver2:1 3.0 5.0 7.0 ver2:1.3917334379 ver2:13.6754104235 ver2:14.9954018656 0.0 1.0 0.0 version=2@_@amplitude envelope:0.0:0.001:0.216796875:0.84016:0.5087890625:0.21412000000000003:0.7666015625:0.99334:1.0:0.001 false ver2:1438.2343776927 ver2:561.2158685742 ver2:1152.5862136494 ver2:3400.0712961411 ver2:5420.5995535308 ver2:3925.4881244059 id:-275543931 id:-275543919 id:-275543926 1 ver2:6.8448344372 ver2:5.5345957074 ver2:18.4604464607 ver2:1.8758567475 ver2:0.6983820036 ver2:0.842202036 ver2:0.5121735861 0.37 true false false ver2:19.8914746978 ver2:12.8959549521 ver2:2.0410959681 false true false ver2:0.173673316 true 0.7 4.1 3.9000000000000004 ver2:0.9350272311 ver2:0.5650028619 ver2:0.6402144862 ver2:6.7616502675 ver2:15.394925481 ver2:16.7062303938 3.0 4.0 1.0 ver2:10.1557581231 ver2:11.3100686604 3.0 ver2:0.6575801261 id:-275543974 id:-275543990 id:-275543965 true true true true true true true false ver2:15.3779170863 ver2:13.1491058759 ver2:66.6372838184 0.1 0.5 0.7000000000000001 false true true true ver2:0.3262481289 ver2:0.6452706031 ver2:1 3.0 5.0 7.0 ver2:1.3917334379 ver2:13.6754104235 ver2:14.9954018656 0.0 1.0 0.0 version=2@_@amplitude envelope:0.0:0.001:0.216796875:0.84016:0.2216796875:0.12088:0.3349609375:0.6803199999999999:0.3896484375:0.12088:0.5087890625:0.21412000000000003:0.61328125:0.8335:0.7666015625:0.99334:1.0:0.001 false ver2:1438.2343776927 ver2:561.2158685742 ver2:1152.5862136494 ver2:3400.0712961411 ver2:5420.5995535308 ver2:3925.4881244059 id:-275543931 id:-275543919 id:-275543926 1 ver2:6.8448344372 ver2:5.5345957074 ver2:18.4604464607 ver2:1.8758567475 ver2:0.6983820036 ver2:0.842202036 ver2:0.5121735861 0.37 true false false ver2:19.8914746978 ver2:12.8959549521 ver2:2.0410959681 false true false ver2:0.173673316 true 0.7 4.1 3.9000000000000004 ver2:0.9350272311 ver2:0.5650028619 ver2:0.6402144862 ver2:6.7616502675 ver2:15.394925481 ver2:16.7062303938 3.0 4.0 1.0 ver2:10.1557581231 ver2:11.3100686604 3.0 ver2:0.6575801261 id:-275543974 id:-275543990 id:-275543965 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