form caption("Untitled") size(400, 300), pluginID("def1"), colour(0,0,0)
rslider bounds(-6, -6, 114, 104), channel("rslider"), range(0, 1, 0), colour(20,20,20), outlinecolour(0,0,0,0), trackercolour(0,0,0,0), identchannel("sliderIdent"), svgfile("background", "on0.svg")
checkbox bounds(16, 68, 10, 10), channel("led1"), text(""), shape("round") colour(0, 45, 0)
checkbox bounds(8, 52, 10, 10), channel("led2"), text(""), shape("round") colour(0, 60, 0)
checkbox bounds(7, 32, 10, 10), channel("led3"), text(""), shape("round") colour(0, 75, 0)
checkbox bounds(17, 13, 10, 10), channel("led4"), text(""), shape("round") colour(0, 100, 0)
checkbox bounds(34, 4, 10, 10), channel("led5"), text(""), shape("round") colour(0, 125, 0)
checkbox bounds(56, 4, 10, 10), channel("led6"), text(""), shape("round") colour(0, 150, 0)
checkbox bounds(74, 13, 10, 10), channel("led7"), text(""), shape("round") colour(0, 175, 0)
checkbox bounds(85, 32, 10, 10), channel("led8"), text(""), shape("round") colour(0, 200, 0)
checkbox bounds(85, 52, 10, 10), channel("led9"), text(""), shape("round") colour(0, 225, 0)
checkbox bounds(76, 68, 10, 10), channel("led10"), text(""), shape("round") colour(0, 255, 0)
-n -d -+rtmidi=NULL -M0 -m0d
; Initialize the global variables.
sr = 44100
ksmps = 32
nchnls = 2
0dbfs = 1
instr 1
kSlider chnget "rslider"
if changed(kSlider)==1 then
chnset kSlider>0 ? k(1) : k(0), "led1"
chnset kSlider>0.1 ? k(1) : k(0), "led2"
chnset kSlider>0.2 ? k(1) : k(0), "led3"
chnset kSlider>0.3 ? k(1) : k(0), "led4"
chnset kSlider>0.4 ? k(1) : k(0), "led5"
chnset kSlider>0.5 ? k(1) : k(0), "led6"
chnset kSlider>0.6 ? k(1) : k(0), "led7"
chnset kSlider>0.7 ? k(1) : k(0), "led8"
chnset kSlider>0.8 ? k(1) : k(0), "led9"
chnset kSlider>0.9 ? k(1) : k(0), "led10"
endif
endin
;causes Csound to run for about 7000 years...
f0 z
;starts instrument 1 and runs it for a week
i1 0 [60*60*24*7]