bounds(0, 0, 0, 0)
form caption("Synth X5") size(903, 478), colour("black"), pluginid("Sx5")
keyboard bounds(42, 388, 816, 91)
#define PlantBoxAppearance # shape("sharp"),image bounds(500, 166, 196, 186)/*, file("paper.jpg")*/, colour( 76,20,20), outlinecolour(10,500,110), outlinethickness(2) #
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; OSCIL A ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;groupbox bounds(16, 0, 710, 176) text("Presets"), plant("preset"),colour(150,10,10,20){
image bounds(170, 4, 562, 117), plant("Main"), $PlantBoxAppearance
label bounds(384, 12, 132, 18), text("Oscillator A1")
rslider bounds(178, 32, 69, 59),channel("level"),text("Level"),range(1,100,50,1,.01), valuetextbox(1), textbox(1), popuptext("level1"), alpha(1)
rslider bounds(246, 32, 69, 59),channel("octave"),text("octave"),range(-2,5,0,1,1), valuetextbox(1), textbox(1), popuptext("octave for x2 freq")
rslider bounds(382, 32, 69, 59),channel("Lfod1"),text("Lfo I"),range(1,100,50,1,.01), valuetextbox(1), textbox(1), popuptext("LFO Dep 1")
rslider bounds(450, 32, 69, 59),channel("Lfod2"),text("Lfo II"),range(1,100,50,1,.01), valuetextbox(1), textbox(1), popuptext("LFO Dep 1")
rslider bounds(518, 32, 69, 59),channel("LENV1"),text("ENV Mod I"),range(1,100,50,1,.01), valuetextbox(1), textbox(1), popuptext("ENVL 1")
rslider bounds(586, 32, 69, 59),channel("LENV2"),text("ENV Mod II"),range(1,100,0,1,.01), valuetextbox(1), textbox(1), popuptext("ENVL 2")
;;; distort
rslider bounds(654, 32, 69, 59),channel("distortA"),valuetextbox(1),text("Gain"),range(0,100,0,1,.01), textbox(1), popuptext("LFO Dep 1")
combobox bounds(642, 96, 81, 15),colour(300,100,100,100),items("Sine,Saw,Square,Pulse"), channel("Gainwave"), value(1)
label bounds(564, 96, 79, 14),text("Dist Type")
checkbox bounds(498, 96, 67, 14), text("Distort"), channel("Ondist"), value(0),active(1)
;;;;;;;;;;;
rslider bounds(314, 32, 69, 59),channel("pan"),text("pan"),range(1,100,50,1,1), valuetextbox(1), textbox(1), popuptext("pan audio")
checkbox bounds(178, 96, 66, 14), text("On/Off"), channel("FOnOff"), value(1),active(1)
label bounds(244, 96, 77, 14),text("Waveform")
combobox bounds(322, 96, 77, 14),colour(300,100,100,100),items("sine,saw wave,square wave,traingle wave"), channel("Boxinstrwave"), value(1)
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; OSCIL B ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;groupbox bounds(620, 0, 340, 200), text("Presets"), plant("preset"),colour(150,10,10,20){
image bounds(170, 120, 562, 117), plant("Main2"), $PlantBoxAppearance
label bounds(384, 128, 132, 18), text("Oscillator A2")
rslider bounds(178, 152, 69, 59),channel("levelB"),text("Level"),range(1,100,50,1,.01), valuetextbox(1), textbox(1), popuptext("levelB"), alpha(1)
rslider bounds(246, 152, 69, 59),channel("octaveB"),text("octave"),range(-2,5,0,1,1), valuetextbox(1), textbox(1), popuptext("octave for x2 freqB")
rslider bounds(314, 152, 69, 59),channel("panB"),text("pan"),range(1,100,50,1,1), valuetextbox(1), textbox(1), popuptext("pan audioB")
rslider bounds(382, 152, 69, 59),channel("Lfod1B"),text("Lfo I"),range(1,100,50,1,.01), valuetextbox(1), textbox(1), popuptext("LFO Dep 1")
rslider bounds(450, 152, 69, 59),channel("Lfod2B"),text("Lfo II"),range(1,100,50,1,.01), valuetextbox(1), textbox(1), popuptext("LFO Dep 1")
rslider bounds(518, 152, 69, 59),channel("LENV1B"),text("ENV Mod I"),range(1,100,50,1,.01), valuetextbox(1), textbox(1), popuptext("ENVL 1")
rslider bounds(586, 152, 69, 59),channel("LENV2B"),text("ENV Mod II"),range(1,100,50,1,.01), valuetextbox(1), textbox(1), popuptext("ENVL 2")
;;; distort
rslider bounds(654, 152, 69, 59),channel("distortB"),valuetextbox(1),text("Gain"),range(0,100,0,1,.01), textbox(1), popuptext("LFO Dep 1")
combobox bounds(322, 214, 76, 14),colour(300,100,100,100),items("Sine,Saw,Square,Pulse"), channel("GainwaveB"), value(1)
label bounds(570, 216, 67, 14),text("Dist Type")
checkbox bounds(498, 216, 68, 14), text("Distort"), channel("OndistB"), value(0),active(1)
label bounds(244, 214, 77, 14),text("Waveform")
checkbox bounds(178, 214, 66, 15), text("On/Off"), channel("FOnOffB"), value(1),active(1)
combobox bounds(642, 218, 81, 14),colour(300,100,100,100),items("sine,saw wave,square wave,traingle wave"), channel("BoxinstrwaveB"), value(1)
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ADSR AMP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;image bounds( 100, 50,400,130), plant("Main"), $PlantBoxAppearance {
image bounds(364, 236, 176, 85), plant("ADSR"), identchannel("ADSRID"), $PlantBoxAppearance outlinecolour(10, 244, 110, 255) outlinethickness(2)
label bounds(384, 240, 135, 17), text("Envolope Amp")
rslider bounds(370, 256, 42, 59),channel("rsAttack"),text("Attack"),range(1e-05, 100, 1e-05, 1, 0.01), valuetextbox(2), , popuptext("Attack") increment(0.01) value(1e-05)
rslider bounds(410, 256, 42, 59),channel("rsDecay"),text("Decay"),range(0, 10, 1, 1, 0.01), increment(0.01) value(1) popuptext("Decay") valuetextbox(1)
rslider bounds(450, 256, 42, 59),channel("rsSustain"),text("Sustain"),range(0,10,.0,1,.01), valuetextbox(1), textbox(1), popuptext("Sustain")
rslider bounds(490, 258, 42, 57),channel("rsRelease"),text("Release"),range(0, 10, 1, 1, 0.01), increment(0.01) value(1) popuptext("Release") valuetextbox(1)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;--------------------------------------MOD ENV 1--------------------------------------------------;
image bounds(170, 236, 195, 152), plant("ADSR"), $PlantBoxAppearance
label bounds(204, 242, 129, 16), text("Mod Envolope I")
vslider bounds(170, 258, 48, 100),channel("rsAttackM"),text("Att"),range(.000001,10,.00001,1,.01), valuetextbox(1), textbox(1), popuptext("AttackMA")
vslider bounds(218, 258, 48, 100),text("Dec"),range(0,10,1,1,.01), valuetextbox(1), textbox(1), popuptext("DecayMA")
vslider bounds(266, 258, 48, 100),channel("rsSustainM"),text("Sus"),range(0,10,0,1,.01), valuetextbox(1), textbox(1), popuptext("SustainMA")
vslider bounds(314, 258, 49, 100),channel("rsReleaseM"),text("Rel"),range(0,10,1,1,.01), valuetextbox(1), textbox(1), popuptext("ReleaseMA")
combobox bounds(226, 360, 80, 18),colour(300,100,100,100), channel("ENV MODU 1"),items("---,Volume A,Volume B,Pitch A,Pitch B,Cutoff A,Cutoff B,Rosonance A,Rosonance B,LFO I(Rate),LFO II(Rate),LFO I(Gain),LFO II(Gain)")
;--------------------------------------MOD ENV 2--------------------------------------------------;
image bounds(540, 236, 194, 152), plant("ADSR"), $PlantBoxAppearance outlinecolour(10, 244, 110, 255) outlinethickness(2)
label bounds(574, 240, 128, 16), text("Mod Envolope II")
vslider bounds(540, 258, 49, 101),channel("rsAttackM2"),text("Att"),range(.000001,10,1,1,.01), valuetextbox(1), textbox(1), popuptext("AttackM2x")
vslider bounds(588, 258, 49, 101),channel("rsDecayM2"),text("Dec"),range(0,10,1,1,.01), valuetextbox(1), textbox(1), popuptext("DecayM2x")
vslider bounds(636, 258, 49, 101),channel("rsSustainM2"),text("Sus"),range(0,10,0,1,.01), valuetextbox(1), textbox(1), popuptext("SustainM2x")
vslider bounds(684, 258, 50, 101),channel("rsReleaseM2"),text("Rel"),range(0,10,1,1,.01), valuetextbox(1), textbox(1), popuptext("ReleaseM2x")
combobox bounds(596, 362, 80, 18),colour(300,100,100,100),channel("ENV MODU 2"),items("---,Volume A,Volume B,Pitch A,Pitch B,Cutoff A,Cutoff B,Rosonance A,Rosonance B,LFO I(Rate),LFO II(Rate),LFO I(Gain),LFO II(Gain)")
;---------------------------------------LFO 1--------------------------------------------------;
image bounds(0, 236, 170, 76), plant("ADSR"), $PlantBoxAppearance
label bounds(46, 238, 74, 16),text("LFO I")
;label bounds (510,468,390,15),text("Waves")
;label bounds (466,512,390,16),text("Mark")
rslider bounds(94, 256, 58, 54),channel("LFOrate"),text("Rate"),range(-20,20,0,1,.01), valuetextbox(1), textbox(1), popuptext("LFO Ir")
;rslider bounds(784,480,110,90),channel("LFOgain"),text("Gain"),range(1,100,50,1,.01), valuetextbox(1), textbox(1), popuptext("LFO Ig")
combobox bounds(8, 262, 80, 16),colour(300,100,100,100),items("Sine,Saw,Square,Pulse"), channel("LFOWAVES")
combobox bounds(8, 288, 80, 16),colour(300,100,100,100),items("---,Volume A,Volume B,Pitch A,Pitch B,Cutoff A,Cutoff B, Resonance A,Resonance B"),channel("LFOMARK")
;---------------------------------------LFO 2--------------------------------------------------;
image bounds(0, 312, 170, 76), plant("ADSR"), $PlantBoxAppearance
label bounds(46, 314, 74, 16),text("LFO II")
;label bounds (634,484,390,16),text("Waves")
;label bounds (634,512,390,16),text("Mark")
rslider bounds(94, 332, 58, 53),channel("LFOII1"),text("Rate"),range(-20, 20, 0, 1, 0.01), increment(0.01) popuptext("LFO Ir2") valuetextbox(1)
;rslider bounds(976,480,110,90),channel("LFOII2"),text("Gain"),range(0,100,50,1,.01), valuetextbox(1), textbox(1), popuptext("LFO Ig2")
combobox bounds(10, 338, 80, 16),colour(300,100,100,100),items("Sine,Saw,Square,Pulse"), channel("LFOWAVES2")
combobox bounds(10, 364, 80, 16),colour(300,100,100,100),items("---,Volume A,Volume B,Pitch A,Pitch B,Cutoff A,Cutoff B, Resonance A,Resonance B"), channel("LFOMARK2")
;--------------------------------------- Reverb --------------------------------------------------;
image bounds(732, 146, 170, 91), plant("ADSR"), $PlantBoxAppearance
label bounds(782, 146, 70, 16),text("Reverb")
rslider bounds(730, 170, 59, 55),channel("Se1"),text("Feedback"),range(0,100,0,1,.01), valuetextbox(1), textbox(1), popuptext("LFO S")
rslider bounds(788, 170, 59, 55),channel("levelreverb"),text("Level"),range(0,100,50,1,.01), valuetextbox(1), textbox(1), popuptext("LFO SI")
rslider bounds(846, 170, 60, 55),channel("Cutreverb"),text("Cutoff"),range(1,100,50,1,.01), valuetextbox(1), textbox(1), popuptext("LFO DP")
checkbox bounds(736, 148, 20, 11), channel("FOnOff"), text(""), value(1)
;--------------------------------------- Fold --------------------------------------------------;
image bounds(0, 146, 170, 91), plant("ADSR"), $PlantBoxAppearance
label bounds(52, 154, 63, 14),text("Fold")
;rslider bounds(614,285,110,55),channel("Dry/Wet"),text("Dry/Wet"),range(1,100,50,1,.01), valuetextbox(1), textbox(1), popuptext("Tim1")
rslider bounds(30, 164, 110, 61),channel("Fold-over"),text("Fold-over"),range(0,100,0,1,.01), valuetextbox(1), textbox(1), popuptext("Fed1")
;rslider bounds(706,285,110,55),channel("leveldelay"),text("Deep"),range(1,100,50,1,.01), valuetextbox(1), textbox(1), popuptext("De1")
checkbox bounds(4, 154, 25, 12), channel("FOnOff"), text(""), value(1)
;--------------------------------------- MAIN VOL --------------------------------------------------;
image bounds(732, 236, 85, 152), plant("ADSR"), $PlantBoxAppearance
vslider bounds(740, 236, 69, 136),channel("VolMain"),text("Main Volume"),range(0,100,50,1,.01), valuetextbox(1), textbox(1), popuptext("Vol main")
;--------------------------------------- Check MAIN VOL --------------------------------------------------;
image bounds(816, 236, 86, 152), plant("ADSR"), $PlantBoxAppearance
label bounds(830, 242, 53, 12),text("Meter")
vmeter bounds(848, 264, 20, 86)
;--------------------------------------- Noise --------------------------------------------------;
image bounds(732, 4, 170, 143), plant("ADSR"), $PlantBoxAppearance
label bounds(830, 6, 66, 20),text("Noise")
rslider bounds(736, 34, 80, 100),channel("Levelnoies"),text("Level"),range(1,100,50,1,.01), valuetextbox(1), textbox(1), popuptext("Levels noise")
rslider bounds(812, 54, 80, 80),channel("filternoies"),text("Filter/Rate"),range(0,100,0,1,1), valuetextbox(1), textbox(1), popuptext("Levels noise")
checkbox bounds(750, 12, 80, 12), text("On/Off"), channel("FOnOff Noise");, value(1),active(1)
combobox bounds(820, 32, 70, 16),colour(300,100,100,100),items("Noise,Dust,Gaussian"), channel("BoxNoise"), value(1)
;--------------------------------------- Filter --------------------------------------------------;
image bounds(0, 4, 170, 142), plant("ADSR"), $PlantBoxAppearance
label bounds(14, 6, 144, 20),text("Filter")
rslider bounds(8, 74, 80, 60),channel("CutoffF1"),text("Cutoff"),range(1,9999,5000,1,1), valuetextbox(1), textbox(1), popuptext("Levels noise")
rslider bounds(80, 74, 80, 60),channel("ResonanceF1"),text("Res"),range(.1,10,1,1,.01), valuetextbox(1), textbox(1), popuptext("Levels noise")
;rslider bounds(266,270,80,60),channel("Drive"),text("Drive"),range(1,100,50,1,.01), valuetextbox(1), textbox(1), popuptext("Levels noise")
combobox bounds(38, 54, 96, 16),colour(300,100,100,100),items("Bypass,High filter,Low filter,Band-pass filter"), channel("secfilter")
combobox bounds(38, 32, 96, 16),colour(300,100,100,100), channel("Filter Send"),items("---,Oscillator A1,Oscillator A2,Oscillator A1+A2")
;--------------------------------------- Instru Select --------------------------------------------------;
image bounds(958, 546, 280, 90), plant("ADSR"), $PlantBoxAppearance
;image bounds(500, 166, 196, 186), file("123s.jpg"), identchannel("knob0Ident")
button bounds(970, 560, 50, 24),text ("Bass"),fontcolour:0("red"),fontcolour:1(700,460,300,500),colour:0("gray"),colour:1("green"),alpha(1)
button bounds(1040, 560, 50, 24),text ("Lead"),fontcolour:0("red"),fontcolour:1(700,460,300,500),colour:0("gray"),colour:1("green"),alpha(1)
button bounds(1110, 560, 50, 24),text ("Pad"),fontcolour:0("red"),fontcolour:1(700,460,300,500),colour:0("gray"),colour:1("green"),alpha(1)
button bounds(1180, 560, 50, 24),text ("Pluck"),fontcolour:0("red"),fontcolour:1(700,460,300,500),colour:0("gray"),colour:1("green"),alpha(1)
combobox bounds(970, 602, 259, 20),colour(300,100,100,100),items("Bass,1,2,3,4,5,6,7,8,9,10,Pluck,12,13,14,15,16,17,18,19,20,21,Pad&E.Piano,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40"), channel("secinstr")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
image bounds(1054, 444, 140, 95), plant("amp"), $PlantBoxAppearance
rslider bounds(1044, 480, 110, 52),channel("distortABack"),text("Gain"),range(1,100,0,1,.01)/*, valuetextbox(1)*/, textbox(1), popuptext("Gain")
label bounds(1142, 518, 28, 10),text("Type")
combobox bounds(1142, 488, 28, 18),colour(300,100,100,100),items("Sine,Saw,Square,Pulse"), channel("GainwaveABack"), value(1)
checkbox bounds(1068, 452, 125, 14), text("Distortion Back A"), channel("OndistABack"), value(0),active(1)
image bounds(1364, 438, 140, 95), plant("amp"), $PlantBoxAppearance
rslider bounds(1354, 474, 110, 52),channel("distortBBack"),text("Gain"),range(1,100,0,1,.01)/*, valuetextbox(1)*/, textbox(1), popuptext("Gain")
label bounds(1452, 512, 28, 10),text("Type")
combobox bounds(1452, 482, 28, 18),colour(300,100,100,100),items("Sine,Saw,Square,Pulse"), channel("GainwaveBBack"), value(1)
checkbox bounds(1378, 446, 125, 14), text("Distortion Back B"), channel("OndistBBack"), value(0),active(1)
image bounds(364, 320, 175, 68), plant("amp"), $PlantBoxAppearance
groupbox bounds(370, 324, 163, 62) text("Presets"), plant("preset"),colour(150,10,10,20){
filebutton bounds(9, 25, 54, 25), text("Save"), populate("*.snaps"), mode("snapshot")
combobox bounds(64, 25, 90, 25), populate("*.snaps")
}
-n -d -+rtmidi=NULL -M0 -m0d --midi-key-cps=4 --midi-velocity-amp=5 --displays
; Initialize the global variables.
ksmps = 4
nchnls = 2
0dbfs = 1
massign 0, 3
cpuprc 3, .01
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;waveforms;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
gisine ftgen 1,0,128,10,1 ; Sine ;
gisaw ftgen 2,0,128,10,1,0.5, 0.3, 0.25 ,0.2 ,0.167 ,0.14, 0.125 ,.111 ; Sawtooth ;
gisqua ftgen 3, 0 ,128, 10 ,1, 0 , 0.3 ,0 , 0.2, 0 , 0.14, 0 , .111 ; Square ;
gipulse ftgen 4, 0 ,128 ,10 ,1 ,1 , 1 , 1 , 0.7 ,0.5 , 0.3 , 0.1 ; Pulse ;
print gisine, gisaw, gisqua, gipulse ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;givcosine vco2init gisine
gksine = gisine
gklevel init 1
gkdetune init 50
gkoctave init 1
gkdub init 1
gkpan init 50
gkwave init 1
gksave init 0
gkDetuneLevel init 0.3
gkDetuneWidth init 40
gkDetuneWidthB init 40
gkDetuneLevelB init 0.3
;;;;;;;;;;; LFO INIT ;;;;;;;;
gkLFO1 init 0
gkLFO1OSC1 init 1
gkLFO2 init 0
gkLFO1OSC2 init 1
gkLfowaves init 1
gkLforate init 0
gkLfodepth init 100
gkLFOWAVES2 init 1
gkLFORate2 init 0
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
gkwavel init 0
gkcheck1 init 0
gkcheck1B init 0
gkSe1 init 0
ga1 init 0
ga2 init 0
gares1 init 0
gares2 init 0
gkFOnOffNoise init 1
;;;;;;;;; Env Modu init;;;;;;;;;;;
gkboxENVMODU1 init 1
gkboxENVMODU2 init 1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;; reverb init ;;;;;
gkrev init 0
;;;;; Delay init ;;;;;
gkTim init 0
gas init 0
;;;;; noise knob ;;;;;
gkfilternoies init 0
gkLevelnoies init 0
gkBoxNoise init 1
;;;;;; Distort ;;;;;;;;
gkdistortA init 0
gkGainwave init 0
gkdistortB init 0
gkGainwaveB init 0
;;; Back distortion A ;;;
gkdistortABack init 0
gkGainwaveABack init 0
;;; Back distortion B ;;;
gkdistortBBack init 0
gkGainwaveBBack init 0
gkLENV1 init 0
gkLENV2 init 0
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
instr 2 ;;; set knob
;;;;;;;;;;;;;; Oscillator A ;;;;;;;;;;;;;;
gklevel chnget "level"
gkDetuneLevel chnget "detune"
gkDetuneWidth chnget "DetuneWidth"
gkoctave chnget "octave"
gkdub chnget "dub"
gkpan chnget "pan"
gkwave chnget "Boxinstrwave"
gkcheck1 chnget "FOnOff"
gkdistortA chnget "distortA"
gkGainwave chnget "Gainwave"
gkOndist chnget "Ondist"
gkLfod1 chnget "Lfod1"
gkLfod2 chnget "Lfod2"
gkLENV1 chnget "LENV1"
gkLENV2 chnget "LENV2"
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;; Oscillator B ;;;;;;;;;;;;;;;
gklevelB chnget "levelB"
gkDetuneLevelB chnget "detuneB"
gkDetuneWidthB chnget "DetuneWidthB"
gkoctaveB chnget "octaveB"
gkdubB chnget "dubB"
gkpanB chnget "panB"
gkBoxinstrB chnget "BoxinstrB"
gkwaveB chnget "BoxinstrwaveB"
gkcheck1B chnget "FOnOffB"
gkdistortB chnget "distortB"
gkGainwaveB chnget "GainwaveB"
gkOndistB chnget "OndistB"
gkLfod1B chnget "Lfod1B"
gkLfod2B chnget "Lfod2B"
gkLENV1B chnget "LENV1B"
gkLENV2B chnget "LENV2B"
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
gkAttack chnget "rsAttack"
gkDecay chnget "rsDecay"
gkSustain chnget "rsSustain"
gkRelease chnget "rsRelease"
;;;;;;;;;;;;;Env Modulate 1;;;;;;;;;;;;;;
;
gkAttackM chnget "rsAttackM" ;
gkDecayM chnget "rsDecayM" ;
gkSustainM chnget "rsSustainM" ;
gkReleaseM chnget "rsReleaseM" ;
gkboxENVMODU1 chnget "ENV MODU 1" ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;Env Modulate 2;;;;;;;;;;;;;;
;
gkAttackM2 chnget "rsAttackM2" ;
gkDecayM2 chnget "rsDecayM2" ;
gkSustainM2 chnget "rsSustainM2" ;
gkReleaseM2 chnget "rsReleaseM2"
gkboxENVMODU2 chnget "ENV MODU 2" ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;LFO 1 Chnget;;;;;;;
gkLforate chnget "LFOrate" ;
gkLfogain chnget "LFOgain" ;
gkLfowaves chnget "LFOWAVES" ;
gkLFOMARK chnget "LFOMARK" ;
;;;;;;;;;;;;;LFO 2 Chnget;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; LFO CHNGET
gkLFORate2 chnget "LFOII1" ;
gkLFOGain2 chnget "LFOII2" ;
gkLFOWAVES2 chnget "LFOWAVES2" ;
gkLFOMARK2 chnget "LFOMARK2" ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Back distortion A ;;;
gkdistortABack chnget "distortABack"
gkGainwaveABack chnget "GainwaveABack"
gkOndistABack chnget "OndistABack"
;;; Back distortion B ;;;
gkdistortBBack chnget "distortBBack"
gkGainwaveBBack chnget "GainwaveBBack"
gkOndistBBack chnget "OndistBBack"
;;;;;;;;; reverb ;;;;;;;;;;
gkSe1 chnget "Se1"
gklevelreverb chnget "levelreverb"
gkCutreverb chnget "Cutreverb"
;gksine = 1
;;;;;;;;;; Fold ;;;;;;;;;;
gkdryfold chnget "Dry/Wet"
gkratefold chnget "Fold-over"
;;;;;;;; Filter ;;;;;;;;;
gkCutoffF1 chnget "CutoffF1"
gkResonanceF1 chnget "ResonanceF1"
gksecfilter chnget "secfilter"
gkleveldelay chnget "leveldelay"
gkFilterSend chnget "Filter Send"
;;;;;;; Noise ;;;;;;;;;;
gkfilternoies chnget "filternoies"
gkLevelnoies chnget "Levelnoies"
gkFOnOffNoise chnget "FOnOff Noise"
gkBoxNoise chnget "BoxNoise"
;;;;;;; Main vol ;;;;;;;;;;;;;
gkVolMain chnget "VolMain"
;;;;;;;; Set waves LFO ;;;;;;;;;
if gkLfowaves == 1 then
gkwavel = 1
elseif gkLfowaves == 2 then
gkwavel = 2
elseif gkLfowaves == 3 then
gkwavel = 3
elseif gkLfowaves == 4 then
gkwavel = 4
endif
;;;;;;;; Set waves oscillatorA ;;;;;;;;;
if gkwave == 1 then
gksavex = gisine
elseif gkwave == 2 then
gksave = 0
elseif gkwave == 3 then
gksave = 2
elseif gkwave == 4 then
gksave = 12
/*
elseif gkwave == 4 then
gksave = givcosine
*/
endif
;;;;;;;; Set waves oscillatorB ;;;;;;;;;
if gkwaveB == 1 then
gkwavex2 = gisine
elseif gkwaveB == 2 then
gkwaves = 0
elseif gkwaveB == 3 then
gkwaves = 2
elseif gkwaveB == 4 then
gkwaves = 12
endif
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
/*
if gkcheck1 == 0 kgoto contin then
turnoff
contin:
endif
*/
endin
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
instr 3 ;;;;; Oscil Main Station ;;;;;
;#define gkmix #gkcheck1,gkboxENVMODU1#
print p4, p5 ;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;Kill The Noise;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;; ;
if gkcheck1== 0 then ;
gkFOnOffNoise = 0 ;
endif ;
if gkBoxNoise == 1 then ;
anoise noise gkFOnOffNoise== 1 ? 1 : 0,gkfilternoies*0.002-.1 ;
elseif gkBoxNoise == 2 then ;
anoise dust gkFOnOffNoise== 1 ? 1 : 0,gkfilternoies*200 ;
elseif gkBoxNoise == 3 then ;
anoise gauss gkfilternoies*.02 ;
;
endif ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;
;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Envolope;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
aEnv1 madsr i(gkAttack), i(gkDecay), i(gkSustain), i(gkRelease) ;
aEnv1M madsr i(gkAttackM), i(gkDecayM), i(gkSustainM), i(gkReleaseM)
kEnv1M2 linseg i(gkAttackM), i(gkDecayM), i(gkSustainM), i(gkReleaseM),1
aEnv1Sec2 madsr i(gkAttackM2), i(gkDecayM2), i(gkSustainM2), i(gkReleaseM2)
gaEnv1M = aEnv1M
gaEnv1Sec2 = aEnv1Sec2
;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;; Main Oscil A ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;; Header Vco team ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
kasigPITCH = p4
kasigPITCH = kasigPITCH * octave(gkoctave+1)
kasigPITCH = kasigPITCH * semitone(gkLFO1*gkLFO1OSC1*(gkLFOMARK == 4 ? 1 : 0))
kasigPITCH = kasigPITCH * semitone(gkLFO2*gkLFO1OSC1*(gkLFOMARK2== 4 ? 1 : 0))
kasigPITCH = kasigPITCH * (gkboxENVMODU1== 4 ? aEnv1M : 1)
kasigPITCH = kasigPITCH * (gkboxENVMODU2== 4 ? aEnv1Sec2 : 1) ;
asigx vco2 gkcheck1== 1 ? 1 : 0, kasigPITCH, i(gksave),.5
;;;;;;;;;;;;;;;;;;;;;;; Header Oscili Team ;;;;;;;;;;;;;;;;;;;;;;;;;
asig oscili gkcheck1== 1 ? 1 : 0, kasigPITCH, gisine
if gkcheck1== 0 then ;
;akb48 vco2 gkboxENVMODU1== 5 ? 1 : 0, p4 * octave(gkoctaveB+1)*semitone(gkLFO1 * gkLFO1OSC1)*k(aEnv1M), i(gkwaves),.5
elseif gkboxENVMODU1== 7 then
gkCutoffF1 = gkCutoffF1*aEnv1M
elseif gkboxENVMODU1== 9 then
gkResonanceF1 = gkResonanceF1*aEnv1M
elseif gkcheck1== 0 then
; READ ENV 2 ; ;
; akb48 vco2 gkboxENVMODU2== 5 ? 1 : 0, p4 * octave(gkoctaveB+1)*semitone(gkLFO1 * gkLFO1OSC1)*k(aEnv1Sec2), i(gkwaves),.5
elseif gkboxENVMODU2== 7 then
gkCutoffF1 = gkCutoffF1*aEnv1Sec2
elseif gkboxENVMODU2== 9 then
gkResonanceF1 = gkResonanceF1*aEnv1Sec2 ;
;
endif
; ;
if gkwave == 1 then
asigx vco2 0, kasigPITCH, i(gksave),.5 ;
endif
if gkwave == 2||gkwave == 3||gkwave == 4 then
asig oscili 0, kasigPITCH,gisine ;
endif
;
;;;;; control Filter Modu 1 ;
if gkboxENVMODU1== 6 then ;
gkCutoffF1 = gkCutoffF1*aEnv1M+.01 ;
endif ;
if gkboxENVMODU1== 8 then ;
gkResonanceF1 = gkResonanceF1*aEnv1M+.01 ;
endif ;
;;;;; control Filter Modu 2 ;
if gkboxENVMODU2== 6 then ;
gkCutoffF1 = gkCutoffF1*aEnv1Sec2+.01 ;
endif ;
if gkboxENVMODU2== 8 then ;
gkResonanceF1 = gkResonanceF1*aEnv1Sec2+.01 ;
endif ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Mix Detune A ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;aDetune = aDetune1 + aDetune2 + aDetune3 + aDetune4 +aDetune5 + aDetune6 + aDetune7 + aDetune8 +aDetune9 + aDetune10 + aDetune11 + aDetune12 +aDetune1x + aDetune2x + aDetune3x + aDetune4x +aDetune5x + aDetune6x + aDetune7x + aDetune8x +aDetune9x + aDetune10x + aDetune11x + aDetune12x ;
asig = asig+asigx
if gkOndist == 0 then
gkGainwave = 0
endif
if gkGainwave == 1 then
asig distort asig,gkdistortA*.01,gisine
elseif gkGainwave == 2 then
asig distort asig,gkdistortA*.01,gisaw
elseif gkGainwave == 3 then
asig distort asig,gkdistortA*.01,gisqua
elseif gkGainwave == 4 then
asig distort asig,gkdistortA*.01,gipulse
endif
ares fold asig,gkratefold
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Mix Asig + Detune;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
asig = asig* gklevel * 0.0025 +(anoise*.5*gkLevelnoies*.01) + ares*gklevel*.0025 ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Oscillator B ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
kasigPITCH2 = p4
kasigPITCH2 = kasigPITCH2 * octave(gkoctaveB+1)
kasigPITCH2 = kasigPITCH2 * semitone(gkLFO1*gkLFO1OSC1*(gkLFOMARK == 5 ? 1 : 0))
kasigPITCH2 = kasigPITCH2 * semitone(gkLFO2*gkLFO1OSC1*(gkLFOMARK2== 5 ? 1 : 0))
kasigPITCH2 = kasigPITCH2 * (gkboxENVMODU1== 5 ? aEnv1M : 1)
kasigPITCH2 = kasigPITCH2 * (gkboxENVMODU2== 5 ? aEnv1Sec2 : 1)
akb48 vco2 gkcheck1B== 1 ? 1 : 0, kasigPITCH2,i(gkwaves),.5
asigosB oscili gkcheck1B== 1 ? 1 : 0,kasigPITCH2,gisine
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; LFO CONTROL PITCH OSCILLATOR B ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
if gkwaveB == 1 then
akb48 vco2 0,kasigPITCH2, i(gkwaves),.5 ;
endif
if gkwaveB == 2 || gkwaveB == 3 || gkwaveB == 4 then
asigosB oscili 0, kasigPITCH2,gisine ;
endif
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ENV 2 control Pitch B ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
if gkboxENVMODU1== 7 then
gkCutoffF1 = gkCutoffF1*aEnv1M
endif
if gkboxENVMODU2== 7 then
gkCutoffF1 = gkCutoffF1*aEnv1Sec2
endif
if gkboxENVMODU1== 9 then
gkResonanceF1 = gkResonanceF1*aEnv1M
endif
if gkboxENVMODU2== 9 then
gkResonanceF1 = gkResonanceF1*aEnv1Sec2
endif
;;;; mix;;;;; ;
;aDetuneB = aDetune1B + aDetune2B + aDetune3B + aDetune4B +aDetune5B + aDetune6B + aDetune7B + aDetune8B +aDetune9B + aDetune10B + aDetune11B + aDetune12B + aDetune1os + aDetune2os +aDetune3os +aDetune4os+aDetune5os+aDetune6os+aDetune7os+aDetune8os+aDetune9os+aDetune10os+aDetune11os+aDetune12os
;;;;;;;;;;;;;
akb48 = akb48+asigosB
if gkOndistB == 0 then
gkGainwaveB = 0
endif
if gkGainwaveB == 1 then
akb48 distort akb48,gkdistortB*.01,gisine
elseif gkGainwaveB == 2 then
akb48 distort akb48,gkdistortB*.01,gisaw
elseif gkGainwaveB == 3 then
akb48 distort akb48,gkdistortB*.01,gisqua
elseif gkGainwaveB == 4 then
akb48 distort akb48,gkdistortB*.01,gipulse
endif
ares48 fold akb48,gkratefold ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Mix Asig + Detune;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;
akb48 = akb48* gklevelB * 0.0025 +(anoise*.5*gkLevelnoies*.01)+ ares48*gklevelB*.0025
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Filter team ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;; Define Number Type A ;;;;;;;;;;;;;;;;;;;;;;;;
if gksecfilter==1 then
afil1 = asig
elseif gksecfilter==2 then
afil1 buthp asig,gkCutoffF1
elseif gksecfilter==3 then
afil1 lowpass2 asig,gkCutoffF1,gkResonanceF1
elseif gksecfilter==4 then
afil1 butterbp asig,gkCutoffF1,gkResonanceF1*2000
/*
elseif gksecfilter==5 then
afil1 butterbp asig,gkCutoffF1,gkCutoffF1
afil1 lowpass2 asig,gkCutoffF1,gkResonanceF1
*/
endif
if gkOndistABack == 0 then
afil1 = afil1
endif
if gksecfilter = 1 then
gkGainwaveABack = 0
gkGainwaveBBack = 0
endif
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;; Define Number Type B ;;;;;;;;;;;;;;;;;;;;;;;
if gksecfilter==1 then
afil2 = akb48
elseif gksecfilter==2 then
afil2 buthp akb48,gkCutoffF1
elseif gksecfilter==3 then
afil2 lowpass2 akb48,gkCutoffF1,gkResonanceF1
elseif gksecfilter==4 then
afil2 butterbp akb48,gkCutoffF1,gkResonanceF1*2000
endif
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;; Define Bank type ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
if gksecfilter == 1 then
afil1 = asig
afil2 = akb48
endif
;;;;;;;;;;;;;;;;;;;;;;;;; Lfo Filter ;;;;;;;;;;;;;;;;;;;;;;;;;;
if gkFilterSend == 1 then
afil1 = asig
afil2 = akb48
elseif gkFilterSend == 2 then
afil1 = afil1
afil2 = akb48
elseif gkFilterSend == 3 then
afil1 = asig
afil2 = afil2
elseif gkFilterSend == 4 then
afil1 = afil1
afil2 = afil2
endif
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;; LFO LEVEL B :::::::::::::::::::;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;::
if gkLFOMARK == 3 then
afil2 = afil2*gkLFO1
endif
if gkLFOMARK2 == 3 then
afil2 = afil2*gkLFO2
endif
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;; LFO LEVEL A;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
if gkLFOMARK == 2 then
afil1 = afil1*gkLFO1
endif
if gkLFOMARK2 == 2 then
afil1 = afil1*gkLFO2
endif
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;; Dist A back filter ;;;;;;;;;;;;;;;;;;;;;;;;;;
if gkOndistABack == 0 then
gkGainwaveABack = 0
endif
gkdistortABack = gkdistortABack*.01
if gkGainwaveABack = 1 then
afil1 distort afil1,gkdistortABack,gisine
elseif gkGainwaveABack = 2 then
afil1 distort afil1,gkdistortABack,gisaw
elseif gkGainwaveABack = 3 then
afil1 distort afil1,gkdistortABack,gisqua
elseif gkGainwaveABack = 4 then
afil1 distort afil1,gkdistortABack,gipulse
endif
;;;;;;;;;;;;; Dist B back filter ;;;;;;;;;;;;;;;;;;
if gkOndistBBack == 0 then
gkGainwaveBBack = 0
endif
gkdistortBBack = gkdistortBBack*.01
if gkGainwaveBBack = 1 then
afil2 distort afil2,gkdistortBBack,gisine
elseif gkGainwaveBBack = 2 then
afil2 distort afil2,gkdistortBBack,gisaw
elseif gkGainwaveBBack = 3 then
afil2 distort afil2,gkdistortBBack,gisqua
elseif gkGainwaveBBack = 4 then
afil2 distort afil2,gkdistortBBack,gipulse
endif
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
afil1 = (afil1)*.5*gkVolMain*.01*aEnv1
afil2 = (afil2)*.5*gkVolMain*.01*aEnv1
; display afil1, .5
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Main Vco for outs ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;asick = ((afil1+(anoise*gkLevelnoies*.01))+akb48)*aEnv1 ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
a1,a2 pan2 afil1,0.01*gkpan
a3,a4 pan2 afil2,0.01*gkpanB
ax = a2+a4
aw = a1+a3
display ax, .05, 1
outs ax,aw
;;;;;;;;;;;;;;;; Send ;;;;;;;;;;;;;;;;;;;
gares1 += ax*gklevelreverb*.01 ;
gares2 += aw*gklevelreverb*.01
;
/* ;
gas += ax*gkleveldelay*.01 ;
gas += aw*gkleveldelay*.01 ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
*/
;
;;
;;;
;;;;;;;;;;;;;;;;;;;;;
endin ;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;
;;;
;;
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
instr 4 ;;;;;;;; Lfo Station 1 ;;;;;;;;;
if gkboxENVMODU1 == 10 then
gkLforate = gkLforate*gaEnv1M
endif
if gkboxENVMODU2 == 10 then
gkLforate = gkLforate*gaEnv1Sec2
endif
if gkboxENVMODU1 == 12 then
gkLfod1 = gkLfod1*gaEnv1M
endif
if gkboxENVMODU2 == 12 then
gkLfod1 = gkLfod1*gaEnv1Sec2
endif
aSine1 lfo gkLfowaves == 1 ? 1 : 0, gkLforate+.01, 0
aTriangle1 lfo gkLfowaves == 2 ? 1 : 0, gkLforate+.01, 1
aSaw1 lfo gkLfowaves == 3 ? 1 : 0, gkLforate+.01, 4
aSquare1 lfo gkLfowaves == 4 ? 1 : 0, gkLforate+.01, 2
if gkLFOMARK == 2 || gkLFOMARK == 4 || gkLFOMARK == 6 || gkLFOMARK == 8 then
gkLFO1 = (aSine1 + aTriangle1 + aSaw1 + aSquare1)*.01*gkLfod1
elseif gkLFOMARK == 3 || gkLFOMARK == 5 || gkLFOMARK == 7 || gkLFOMARK == 9 then
gkLFO1 = (aSine1 + aTriangle1 + aSaw1 + aSquare1)*.01*gkLfod1B
endif
endin
instr 5 ;;;;;;;; Lfo Station 2 ;;;;;;;;;
if gkboxENVMODU1 == 11 then
gkLFORate2 = gkLFORate2*gaEnv1M
endif
if gkboxENVMODU2 == 11 then
gkLFORate2 = gkLFORate2*gaEnv1Sec2
endif
if gkboxENVMODU1 == 13 then
gkLfod2 = gkLfod2*gaEnv1M
endif
if gkboxENVMODU2 == 13 then
gkLfod2 = gkLfod2*gaEnv1Sec2
endif
aSine1 lfo gkLFOWAVES2 == 1 ? 1 : 0, gkLFORate2+.01, 0
aTriangle1 lfo gkLFOWAVES2 == 2 ? 1 : 0, gkLFORate2+.01, 1
aSaw1 lfo gkLFOWAVES2 == 3 ? 1 : 0, gkLFORate2+.01, 4
aSquare1 lfo gkLFOWAVES2 == 4 ? 1 : 0, gkLFORate2+.01, 2
if gkLFOMARK2 == 2 || gkLFOMARK2 == 4 || gkLFOMARK2 == 6 || gkLFOMARK2 == 8 then
gkLFO2 = (aSine1 + aTriangle1 + aSaw1 + aSquare1)*.01*gkLfod2
elseif gkLFOMARK2 == 3 || gkLFOMARK2 == 5 || gkLFOMARK2 == 7 || gkLFOMARK2 == 9 then
gkLFO2 = (aSine1 + aTriangle1 + aSaw1 + aSquare1)*.01*gkLfod2B
endif
endin
instr 6 ;;;;;;;;; Reverb Station ;;;;;;;;;;
aresL,aresR reverbsc gares1,gares2, gkSe1*.01,gkCutreverb*200
outs aresL,aresR
gares1= 0
gares2= 0
endin
/*
instr 7 ;;;;;;;; Delay Station ;;;;;;;;;;
adelay deltapi i(gkTim)
outs adelay,adelay
adelay = 0
endin
*/
instr 1000
gkpreset chnget "secinstr"
ktrig changed gkpreset
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Oscil A ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;&;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Oscil B;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#define SET_PRESET(N'OnoffA'LevelA'OctaveA'PanA'EnvmodIA'EnvmodIIA'LFOIA'LFOIIA'WaveA'OnDistA'GainDistA'TypeGainDistA 'OnoffB'LevelB'OctaveB'PanB'EnvmodIB'EnvmodIIB'LFOIB'LFOIIB'WaveB'OnDistB'GainDistB'TypeGainDistB'OnOffNoise'Boxnoise'LevelNoise'filternoise'filterSend'secfilter'filterCutoffF1'filterResonanceF1'levelreverb'feedbackreverb'Cutreverb'BoxEnv1'AttackEnv1'DecayEnv1'SusEnv1'ReleaseEnv1'BoxEnv2'AttackEnv2'DecayEnv2'SusEnv2'ReleaseEnv2'OndistABack'GainwaveABack'distortABack'OndistBBack'GainwaveBBack'distortBBack'LFOMARK'Lfowaves'Lforate'LFOMARK2'LFOWAVES2'LFORate2'rsAttack'rsDecay'rsSustain'rsRelease'folds)
#
if i(gkpreset)==$N then
chnset $OnoffA ,"FOnOff"
chnset $LevelA ,"level"
chnset $OctaveA ,"octave"
chnset $PanA ,"pan"
chnset $EnvmodIA ,"gkLENV1"
chnset $EnvmodIIA ,"gkLENV2"
chnset $LFOIA ,"Lfod1"
chnset $LFOIIA ,"Lfod2"
chnset $WaveA ,"Boxinstrwave"
chnset $OnDistA ,"Ondist"
chnset $GainDistA ,"gkdistortA"
chnset $TypeGainDistA ,"gkGainwave"
chnset $OnoffB ,"FOnOffB"
chnset $LevelB ,"levelB"
chnset $OctaveB ,"octaveB"
chnset $PanB ,"panB"
chnset $EnvmodIB ,"gkLENV1B"
chnset $EnvmodIIB ,"gkLENV2B"
chnset $LFOIB ,"Lfod1B"
chnset $LFOIIB ,"Lfod2B"
chnset $WaveB ,"BoxinstrwaveB"
chnset $OnDistB ,"OndistB"
chnset $GainDistB ,"distortB"
chnset $TypeGainDistB ,"GainwaveB"
chnset $OnOffNoise ,"FOnOff Noise"
chnset $Boxnoise ,"BoxNoise"
chnset $LevelNoise ,"Levelnoies"
chnset $filternoise ,"filternoies"
chnset $filterSend ,"Filter Send"
chnset $secfilter ,"secfilter"
chnset $filterCutoffF1 ,"CutoffF1"
chnset $filterResonanceF1 ,"ResonanceF1"
chnset $levelreverb ,"levelreverb"
chnset $feedbackreverb ,"Se1"
chnset $Cutreverb ,"Cutreverb"
chnset $BoxEnv1 ,"ENV MODU 1"
chnset $AttackEnv1 ,"rsAttackM"
chnset $DecayEnv1 ,"rsDecayM"
chnset $SusEnv1 ,"rsSustainM"
chnset $ReleaseEnv1 ,"rsReleaseM"
chnset $BoxEnv2 ,"ENV MODU 2"
chnset $AttackEnv2 ,"rsAttackM2"
chnset $DecayEnv2 ,"rsDecayM2"
chnset $SusEnv2 ,"rsSustainM2"
chnset $ReleaseEnv2 ,"rsReleaseM2"
chnset $OndistABack ,"OndistABack"
chnset $GainwaveABack ,"GainwaveABack"
chnset $distortABack ,"distortABack"
chnset $OndistBBack ,"OndistBBack"
chnset $GainwaveBBack ,"GainwaveBBack"
chnset $distortBBack ,"distortBBack"
chnset $LFOMARK ,"LFOMARK"
chnset $Lfowaves ,"LFOWAVES"
chnset $Lforate ,"LFOrate"
chnset $LFOMARK2 ,"LFOMARK2"
chnset $LFOWAVES2 ,"LFOWAVES2"
chnset $LFORate2 ,"LFOII1"
chnset $rsAttack ,"rsAttack"
chnset $rsDecay ,"rsDecay"
chnset $rsSustain ,"rsSustain"
chnset $rsRelease ,"rsRelease"
chnset $folds ,"Fold-over"
endif
#
if ktrig==1 then
reinit SEND_PRESET
endif
SEND_PRESET:
;Num ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Oscil A ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; & ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Oscil B ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; N OnoffA LevelA OctaveA PanA EnvmodIA EnvmodIIA LFOIA LFOIIA WaveA OnDistA GainDistA TypeGainDistA OnoffB LevelB OctaveB PanB EnvmodIB EnvmodIIB LFOIB LFOIIB WaveB OnDistB GainDistB TypeGainDistB OnOffNoise Boxnoise LevelNoise filternoise filterSend secfilter filterCutoffF1 filterResonanceF1 levelreverb feedbackreverb Cutreverb BoxEnv1 AttackEnv1 DecayEnv1 SusEnv1 ReleaseEnv1 BoxEnv2 AttackEnv2 DecayEnv2 SusEnv2 ReleaseEnv2 OndistABack GainwaveABack distortABack OndistBBack GainwaveBBack distortBBack LFOMARK Lfowaves Lforate LFOMARK2 LFOWAVES2 LFORate2 Att Decay Sus Release fold
$SET_PRESET(999 ' 1 ' 0 ' 1 ' 2.29 ' 01.00 ' 00.00 ' 00.00 ' 01.00 ' 1.5 ' 16 ' 1 ' 1000 ' 0.001' 0 ' 3 ' 0 ' 0.5 ' 0.01 ' 0.3 ' 0.55 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' .02 ' 2.75 ' 2.45 ' .2 ' 0 )
$SET_PRESET(2 ' 1 ' 50.00' -1 ' 50.00 ' 00.00 ' 00.00 ' 00.00 ' 00.00 ' 2 ' 1 ' 00.00 ' 1 ' 1 ' 81.32 ' -2 ' 47 '00.00 ' 00.00 '00.00' 00.00 ' 1 ' 1 ' 23.00 ' 3 ' 0 ' 1 ' 50.00 ' 0 ' 2 ' 3 ' 206 ' 1 ' 50 ' 0 ' 50 ' 1 ' 0 ' 0 ' 0 ' 0 ' 1 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 1 ' 1 ' 0 ' 1 ' 1 ' 0 ' .02 ' 5.75 ' 2.45 ' .45 ' 0 )
$SET_PRESET(3 ' 1 ' 60.16' -1 ' 50.00 ' 50.00 ' 01.00 ' 50.00 ' 50.00 ' 1 ' 1 ' 42.24 ' 1 ' 1 ' 35.80 ' 0 ' 50 '50.00 ' 50.00 '50.00' 50.00 ' 1 ' 1 ' 10.56 ' 1 ' 0 ' 0 ' 00.00 ' 0 ' 4 ' 2 ' 50 ' 1 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' .02 ' .35 ' 1.13 ' .40 ' 0 )
$SET_PRESET(4 ' 1 ' 50.00' -1 ' 50.00 ' 50.00 ' 01.00 ' 50.00 ' 50.00 ' 1 ' 1 ' 24.64 ' 1 ' 1 ' 18.68 ' 0 ' 50 '50.00 ' 50.00 '50.00' 50.00 ' 1 ' 1 ' 10.56 ' 1 ' 0 ' 0 ' 00.00 ' 0 ' 4 ' 2 ' 50 ' 1 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 4 ' 1 ' 04.23 ' 0 ' 0 ' 0 ' .001 ' 1.00 ' 1.05 ' .30 ' 0 )
$SET_PRESET(5 ' 1 ' 79.12' -1 ' 50.00 ' 50.00 ' 01.00 ' 50.00 ' 50.00 ' 1 ' 1 ' 42.24 ' 1 ' 1 ' 98.72 ' 0 ' 50 '50.00 ' 50.00 '50.00' 50.00 ' 1 ' 1 ' 00.32 ' 1 ' 0 ' 0 ' 00.00 ' 0 ' 3 ' 3 ' 2809 ' 2.40 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' .01 ' .70 ' 1.05 ' .48 ' 0 )
$SET_PRESET(6 ' 1 ' 40.84' -1 ' 50.00 ' 50.00 ' 01.00 ' 50.00 ' 50.00 ' 1 ' 1 ' 08.64 ' 3 ' 1 ' 63.92 ' 0 ' 50 '50.00 ' 50.00 '50.00' 50.00 ' 1 ' 1 ' 00.00 ' 1 ' 0 ' 0 ' 00.00 ' 0 ' 1 ' 1 ' 50 ' 1 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' .01 ' .20 ' 1.40 ' .20 ' 0 )
$SET_PRESET(7 ' 1 ' 40.84' -1 ' 50.00 ' 50.00 ' 01.00 ' 50.00 ' 50.00 ' 1 ' 1 ' 05.12 ' 3 ' 1 ' 63.92 ' -2 ' 50 '50.00 ' 50.00 '50.00' 50.00 ' 1 ' 1 ' 21.12 ' 3 ' 0 ' 0 ' 00.00 ' 0 ' 1 ' 1 ' 50 ' 1 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' .01 ' .30 ' 1.40 ' .20 ' 0 )
$SET_PRESET(8 ' 1 ' 40.84' -2 ' 50.00 ' 50.00 ' 01.00 ' 50.00 ' 50.00 ' 1 ' 1 ' 22.56 ' 3 ' 1 ' 45.62 ' -1 ' 50 '50.00 ' 50.00 '50.00' 50.00 ' 1 ' 1 ' 07.04 ' 3 ' 0 ' 0 ' 00.00 ' 0 ' 1 ' 1 ' 50 ' 1 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 4 ' 1 ' 05.64 ' 4 ' 1 '16.92 ' .01 ' .30 ' 1.40 ' .20 ' 0 )
$SET_PRESET(9 ' 1 ' 75.64' -1 ' 50.00 ' 50.00 ' 01.00 ' 50.00 ' 50.00 ' 1 ' 1 ' 17.04 ' 3 ' 1 ' 60.44 ' -1 ' 50 '50.00 ' 50.00 '50.00' 50.00 ' 1 ' 1 ' 23.36 ' 2 ' 0 ' 0 ' 00.00 ' 0 ' 4 ' 2 ' 77 ' 1 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' .01 ' .30 ' 1.40 ' .35 ' 0 )
$SET_PRESET(10 ' 1 ' 30.40' -2 ' 50.00 ' 50.00 ' 01.00 ' 50.00 ' 50.00 ' 2 ' 1 ' 06.48 ' 3 ' 1 ' 91.76 ' -2 ' 50 '50.00 ' 50.00 '50.00' 50.00 ' 1 ' 1 ' 63.36 ' 1 ' 0 ' 0 ' 00.00 ' 0 ' 4 ' 3 ' 730 ' 1 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' .01 ' .30 ' 1.40 ' .10 ' 0 )
$SET_PRESET(11 ' 1 ' 37.36' -1 ' 50.00 ' 50.00 ' 01.00 ' 08.24 ' 50.00 ' 2 ' 1 ' 08.49 ' 1 ' 1 ' 46.52 ' -2 ' 50 '50.00 ' 50.00 '50.00' 50.00 ' 1 ' 1 ' 14.08 ' 3 ' 0 ' 0 ' 00.00 ' 0 ' 4 ' 3 ' 352 ' 2.40 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' .01 ' 2.75 ' 1.40 ' .30 ' 0 )
$SET_PRESET(13 ' 1 ' 50.00' 2 ' 50.00 ' 50.00 ' 01.00 ' 08.24 ' 50.00 ' 1 ' 0 ' 08.49 ' 1 ' 1 ' 50.00 ' 1 ' 50 '50.00 ' 50.00 '50.00' 50.00 ' 1 ' 0 ' 14.08 ' 3 ' 0 ' 0 ' 00.00 ' 0 ' 1 ' 1 ' 352 ' 2.40 ' 0 ' 28.16 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' .001 ' 0.10 ' 0.05 ' .08 ' 0 )
$SET_PRESET(14 ' 1 ' 50.00' 2 ' 50.00 ' 50.00 ' 01.00 ' 08.24 ' 50.00 ' 1 ' 1 ' 31.68 ' 1 ' 1 ' 50.00 ' 1 ' 50 '50.00 ' 50.00 '50.00' 50.00 ' 1 ' 0 ' 14.08 ' 3 ' 0 ' 0 ' 00.00 ' 0 ' 1 ' 1 ' 352 ' 2.40 ' 0 ' 28.16 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' .001 ' 0.10 ' 0.05 ' .08 ' 0 )
$SET_PRESET(15 ' 1 ' 50.00' 2 ' 50.00 ' 50.00 ' 01.00 ' 08.24 ' 50.00 ' 1 ' 1 ' 63.36 ' 1 ' 1 ' 50.00 ' 1 ' 50 '50.00 ' 50.00 '50.00' 50.00 ' 1 ' 1 ' 63.36 ' 1 ' 0 ' 0 ' 00.00 ' 0 ' 1 ' 1 ' 352 ' 2.40 ' 0 ' 28.16 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' .001 ' 0.10 ' 0.05 ' .08 ' 0 )
$SET_PRESET(16 ' 1 ' 50.00' 2 ' 50.00 ' 50.00 ' 01.00 ' 08.24 ' 50.00 ' 1 ' 1 ' 07.63 ' 3 ' 1 ' 50.00 ' 1 ' 50 '50.00 ' 50.00 '50.00' 50.00 ' 1 ' 1 ' 21.14 ' 1 ' 0 ' 0 ' 00.00 ' 0 ' 1 ' 1 ' 352 ' 2.40 ' 0 ' 28.16 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' .001 ' 0.10 ' 0.05 ' .08 ' 23.54 )
$SET_PRESET(17 ' 1 ' 50.00' 2 ' 50.00 ' 50.00 ' 01.00 ' 08.24 ' 50.00 ' 1 ' 1 ' 35.26 ' 3 ' 1 ' 50.00 ' 1 ' 50 '50.00 ' 50.00 '50.00' 50.00 ' 1 ' 1 ' 14.08 ' 1 ' 0 ' 0 ' 00.00 ' 0 ' 1 ' 1 ' 352 ' 2.40 ' 0 ' 28.16 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' .001 ' 0.10 ' 0.05 ' .08 ' 3.54 )
$SET_PRESET(18 ' 1 ' 36.08' -1 ' 50.00 ' 50.00 ' 01.00 ' 08.24 ' 50.00 ' 1 ' 1 ' 31.72 ' 3 ' 1 ' 50.00 ' 1 ' 50 '50.00 ' 50.00 '50.00' 50.00 ' 1 ' 1 ' 14.08 ' 1 ' 0 ' 0 ' 00.00 ' 0 ' 1 ' 1 ' 352 ' 2.40 ' 0 ' 28.16 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' .001 ' 0.10 ' 0.05 ' .08 ' 1.52 )
$SET_PRESET(19 ' 1 ' 36.08' 0 ' 50.00 ' 50.00 ' 01.00 ' 08.24 ' 50.00 ' 2 ' 1 ' 31.72 ' 3 ' 1 ' 50.00 ' 0 ' 50 '50.00 ' 50.00 '50.00' 50.00 ' 1 ' 1 ' 14.08 ' 1 ' 0 ' 0 ' 00.00 ' 0 ' 1 ' 1 ' 352 ' 2.40 ' 0 ' 28.16 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 4 ' 1 ' 04.22 ' 0 ' 0 ' 0 ' .001 ' 0.10 ' 0.05 ' .08 ' 1.52 )
$SET_PRESET(20 ' 1 ' 43.04' 1 ' 50.00 ' 50.00 ' 01.00 ' 08.24 ' 50.00 ' 2 ' 1 ' 21.21 ' 3 ' 1 ' 50.00 ' 1 ' 50 '50.00 ' 50.00 '50.00' 50.00 ' 1 ' 1 ' 14.08 ' 1 ' 0 ' 0 ' 00.00 ' 0 ' 1 ' 1 ' 352 ' 2.40 ' 0 ' 28.16 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' .001 ' 0.10 ' 0.05 ' .08 '78.94 )
$SET_PRESET(21 ' 1 ' 43.04' 1 ' 50.00 ' 50.00 ' 01.00 ' 08.24 ' 50.00 ' 2 ' 0 ' 35.26 ' 3 ' 1 ' 50.00 ' 1 ' 50 '50.00 ' 50.00 '50.00' 50.00 ' 1 ' 1 ' 14.08 ' 1 ' 1 ' 1 ' 05.65 ' 81.00 ' 1 ' 1 ' 352 ' 2.40 ' 0 ' 28.16 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' .001 ' 0.10 ' 0.05 ' .08 ' 0 )
$SET_PRESET(22 ' 1 ' 43.04' 1 ' 50.00 ' 50.00 ' 01.00 ' 08.24 ' 50.00 ' 3 ' 0 ' 35.26 ' 3 ' 1 ' 50.00 ' 1 ' 50 '50.00 ' 50.00 '50.00' 50.00 ' 2 ' 1 ' 73.08 ' 2 ' 0 ' 0 ' 00.00 ' 0 ' 1 ' 1 ' 352 ' 2.40 ' 0 ' 28.16 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' .001 ' 0.10 ' 0.05 ' .08 ' 3.54 )
; N OnoffA LevelA OctaveA PanA EnvmodIA EnvmodIIA LFOIA LFOIIA WaveA OnDistA GainDistA TypeGainDistA OnoffB LevelB OctaveB PanB EnvmodIB EnvmodIIB LFOIB LFOIIB WaveB OnDistB GainDistB TypeGainDistB OnOffNoise Boxnoise LevelNoise filternoise filterSend secfilter filterCutoffF1 filterResonanceF1 levelreverb feedbackreverb Cutreverb BoxEnv1 AttackEnv1 DecayEnv1 SusEnv1 ReleaseEnv1 BoxEnv2 AttackEnv2 DecayEnv2 SusEnv2 ReleaseEnv2 OndistABack GainwaveABack distortABack OndistBBack GainwaveBBack distortBBack LFOMARK Lfowaves Lforate LFOMARK2 LFOWAVES2 LFORate2 Att Decay Sus Release fold
$SET_PRESET(24 ' 1 ' 50.00' 0 ' 50.00 ' 50.00 ' 01.00 ' 08.24 ' 50.00 ' 1 ' 0 ' 35.26 ' 3 ' 1 ' 29.12 ' 1 ' 50 '50.00 ' 50.00 '50.00' 50.00 ' 1 ' 1 ' 73.08 ' 2 ' 0 ' 0 ' 00.00 ' 0 ' 1 ' 1 ' 352 ' 2.40 ' 0 ' 52.76 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' .01 ' 0.30 ' 0.43 ' .30 ' 0 )
$SET_PRESET(25 ' 1 ' 50.00' 0 ' 50.00 ' 50.00 ' 01.00 ' 08.24 ' 50.00 ' 1 ' 1 ' 42.23 ' 1 ' 0 ' 29.12 ' 1 ' 50 '50.00 ' 50.00 '50.00' 50.00 ' 1 ' 1 ' 73.08 ' 2 ' 0 ' 0 ' 00.00 ' 0 ' 1 ' 1 ' 352 ' 2.40 ' 0 ' 52.76 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' .01 ' 0.30 ' 0.43 ' .30 ' 0 )
$SET_PRESET(26 ' 1 ' 50.00' 0 ' 50.00 ' 50.00 ' 01.00 ' 08.24 ' 50.00 ' 1 ' 1 ' 77.42 ' 1 ' 0 ' 29.12 ' 1 ' 50 '50.00 ' 50.00 '50.00' 50.00 ' 1 ' 1 ' 73.08 ' 2 ' 0 ' 0 ' 00.00 ' 0 ' 2 ' 3 ' 1490 ' 1.00 ' 0 ' 66.84 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' .01 ' 0.30 ' 0.00 ' .22 ' 0 )
$SET_PRESET(27 ' 1 ' 50.00' 1 ' 50.00 ' 50.00 ' 01.00 ' 08.24 ' 50.00 ' 1 ' 1 ' 96.15 ' 1 ' 0 ' 29.12 ' 1 ' 50 '50.00 ' 50.00 '50.00' 50.00 ' 1 ' 1 ' 73.08 ' 2 ' 0 ' 0 ' 00.00 ' 0 ' 2 ' 3 ' 190 ' 1.00 ' 0 ' 10.53 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' .01 ' 1.30 ' 0.35 ' .22 ' 0 )
$SET_PRESET(28 ' 1 ' 50.00' 0 ' 50.00 ' 50.00 ' 01.00 ' 08.24 ' 50.00 ' 1 ' 1 ' 77.43 ' 1 ' 1 ' 29.12 ' 1 ' 50 '50.00 ' 50.00 '50.00' 50.00 ' 1 ' 1 ' 73.08 ' 2 ' 0 ' 0 ' 00.00 ' 0 ' 2 ' 3 ' 1490 ' 1.00 ' 0 ' 56.29 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 4 ' 1 ' 04.23 ' 0 ' 0 ' 0 ' .01 ' 3.80 ' 0.05 ' .22 ' 0 )
$SET_PRESET(29 ' 1 ' 50.00' 0 ' 50.00 ' 50.00 ' 01.00 ' 08.24 ' 50.00 ' 1 ' 1 ' 63.67 ' 1 ' 0 ' 29.12 ' 1 ' 50 '50.00 ' 50.00 '50.00' 50.00 ' 1 ' 1 ' 73.08 ' 2 ' 0 ' 0 ' 00.00 ' 0 ' 2 ' 3 ' 1490 ' 1.00 ' 0 ' 00.00 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 4 ' 1 ' 4.23 ' 0 ' 0 ' 0 ' .02 ' 1.80 ' 0.35 ' .30 ' 0 )
$SET_PRESET(30 ' 1 ' 50.00' 0 ' 50.00 ' 50.00 ' 01.00 ' 04.59 ' 50.00 ' 1 ' 1 ' 95.35 ' 3 ' 1 ' 46.52 ' 0 ' 50 '50.00 ' 50.00 '04.76' 50.00 ' 1 ' 1 ' 77.42 ' 1 ' 0 ' 0 ' 00.00 ' 0 ' 2 ' 3 ' 1490 ' 1.00 ' 0 ' 52.76 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 4 ' 1 ' 3.09 ' 5 ' 1 ' 05.64 ' .01 ' 0.35 ' 0.35 ' .30 ' 0 )
$SET_PRESET(31 ' 1 ' 50.00' 0 ' 50.00 ' 50.00 ' 01.00 ' 01.00 ' 50.00 ' 1 ' 1 ' 57.76 ' 1 ' 1 ' 46.52 ' 1 ' 50 '50.00 ' 50.00 '50.00' 50.00 ' 1 ' 1 ' 31.66 ' 1 ' 0 ' 0 ' 00.00 ' 0 ' 2 ' 3 ' 1490 ' 1.00 ' 0 ' 00.00 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 4 ' 1 ' 5.64 ' .01 ' 0.13 ' 0.35 ' .30 ' 0 )
$SET_PRESET(32 ' 1 ' 50.00' 2 ' 50.00 ' 50.00 ' 01.00 ' 01.00 ' 50.00 ' 2 ' 1 ' 61.28 ' 3 ' 0 ' 29.12 ' 1 ' 50 '50.00 ' 50.00 '50.00' 50.00 ' 1 ' 1 ' 73.08 ' 2 ' 0 ' 0 ' 00.00 ' 0 ' 2 ' 3 ' 2192 ' 2.40 ' 0 ' 84.45 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 4 ' 1 ' -5.64 ' .01 ' 1.88 ' 1.75 ' .30 ' 0 )
$SET_PRESET(33 ' 1 ' 50.00' 0 ' 50.00 ' 50.00 ' 01.00 ' 08.24 ' 50.00 ' 2 ' 1 ' 61.28 ' 3 ' 0 ' 29.12 ' 1 ' 50 '50.00 ' 50.00 '50.00' 50.00 ' 1 ' 1 ' 80.87 ' 2 ' 0 ' 0 ' 00.00 ' 0 ' 2 ' 3 ' 2192 ' 4.50 ' 53.52 ' 84.45 ' 43.04 ' 4 ' 0.001 ' 1.41 ' 2 ' 1 ' 6 ' 3.45 ' 1.00 ' 1 ' .65 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 4 ' 1 ' -5.64 ' .01 ' 0.30 ' 0.43 ' .30 ' 0 )
endin
;causes Csound to run for about 7000 years...
f0 z
i2 0 [60*60*24*7]
i4 0 [60*60*24*7]
i5 0 [60*60*24*7]
i6 0 [60*60*24*7]
;i7 0 [60*60*24*7]
i1000 0 [3600*24*7] ; presets