bounds(0, 0, 0, 0)
form caption("Untitled") size(800, 500), colour(255, 255, 255), pluginid("def1")
keyboard bounds(100, 405, 600, 95)
rslider bounds(15, 30, 75, 75) range(0, 20000, 10000, 1, 1000), text("L O W C U T"), channel("lp"), textcolour(0, 0, 0, 255) trackercolour(0, 0, 0, 255) markercolour(0, 0, 0, 255) outlinecolour(0, 0, 0, 255)
rslider bounds(95, 30, 75, 75) range(0, 0.5, 0.25, 1, 0.001), text("P K . R E S"), channel("res"), textcolour(0, 0, 0, 255) trackercolour(0, 0, 0, 255) markercolour(0, 0, 0, 255) outlinecolour(0, 0, 0, 255)
rslider bounds(186, 30, 75, 75) range(1, 25, 0, 1, 1), text("S P E E D"), channel("rate"), textcolour(0, 0, 0, 255) trackercolour(0, 0, 0, 255) markercolour(0, 0, 0, 255) outlinecolour(0, 0, 0, 255)
rslider bounds(276, 30, 75, 75) range(0, 1, 1, 1, 0.001), text("C E I L I N G"), channel("int"), textcolour(0, 0, 0, 255) trackercolour(0, 0, 0, 255) markercolour(0, 0, 0, 255) outlinecolour(0, 0, 0, 255)
groupbox bounds(4, 4, 175, 100) colour(35, 35, 35, 0) fontcolour(0, 0, 0, 255) outlinecolour(0, 0, 0, 255) text("L O W P A S S")
groupbox bounds(184, 4, 175, 220) colour(35, 35, 35, 0) fontcolour(0, 0, 0, 255) outlinecolour(0, 0, 0, 255) text("L F O")
button bounds(193, 110, 156, 25) fontcolour:1(0, 0, 0, 255) colour:1(255, 255, 255, 255) text("O F F", "O N"), channel("lfoctf")
rslider bounds(231, 150, 75, 75) rzange(1, 5, 0, 1, 1), text("S H A P E"), channel("lfoshape"), textcolour(0, 0, 0, 255) trackercolour(0, 0, 0, 255) markercolour(0, 0, 0, 255) outlinecolour(0, 0, 0, 255)
-n -d -+rtmidi=NULL -M0 -m0d --midi-key-cps=4 --midi-velocity-amp=5
; Initialize the global variables.
ksmps = 32
nchnls = 2
0dbfs = 1
;instrument will be triggered by keyboard widget
instr 1
iFreq = p4
kEnv madsr .1, .2, .6, .4
kLFO lfo chnget:k("int"), chnget:k("rate"), 5
if chnget:k("lfoctf") == 1 then
aVco vco2 p5*kEnv, iFreq
alp moogladder aVco, chnget:k("lp")*kLFO, chnget:k("res")
else
aVco vco2 p5*kEnv, iFreq
alp moogladder aVco, chnget:k("lp"), chnget:k("res")
endif
outs alp, alp
endin
;causes Csound to run for about 7000 years...
f0 z