bounds(0, 0, 0, 0)
form caption("GroupSlider") size(500, 300), colour(58, 110, 182), pluginid("def1")
image bounds(0, 0, 450, 400), identchannel("groupPlant"){
nslider bounds(0, 0, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(50, 0, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(100, 0, 50,50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(150, 0, 50,50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(200, 0, 50,50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(250, 0, 50,50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(300, 0, 50,50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(350, 0, 50,50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(400, 0, 50,50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(0, 50, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(50, 50, 50,50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(100, 50, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(150, 50, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(200, 50, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(250, 50, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(300, 50, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(350, 50, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(400, 50, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(0, 100, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(50, 100, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(100, 100, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(150, 100, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(200, 100, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(250, 100, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(300, 100, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(350, 100, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(400, 100, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(0, 150, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(50, 150, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(100, 150, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(150, 150, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(200, 150, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(250, 150, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(300, 150, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(350, 150, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(400, 150, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(0, 200, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(50, 200, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(100, 200, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(150, 200, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(200, 200, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(250, 200, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(300, 200, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(350, 200, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(400, 200, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(0, 250, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(50, 250, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(100, 250, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(150, 250, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(200, 250, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(250, 250, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(300, 250, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(350, 250, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(400, 250, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(0, 300, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(50, 300, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(100, 300, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(150, 300, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(200, 300, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(250, 300, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(300, 300, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(350, 300, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(400, 300, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(0, 350, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(50, 350, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(100, 350, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(150, 350, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(200, 350, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(250, 350, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(300, 350, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(350, 350, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(400, 350, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(0, 400, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(50, 400, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(100, 400, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(150, 400, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(200, 400, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(250, 400, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(300, 400, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(350, 400, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
nslider bounds(400, 400, 50, 50) range(0, 100, 0, 1, 0.01) velocity(50)
}
vslider bounds(450, 0, 50, 300) range(0, 1, 1, 1, 0.001), channel("slider1")
-n -d -+rtmidi=NULL -M0 -m0d --midi-key-cps=4 --midi-velocity-amp=5
; Initialize the global variables.
ksmps = 32
nchnls = 2
0dbfs = 1
instr 1
iHeight = 300
kPos chnget "slider1"
if changed(kPos) == 1 then
SMessage sprintfk "pos(0, -%d)", (1-kPos)*iHeight
chnset SMessage, "groupPlant"
endif
endin
;causes Csound to run for about 7000 years...
f0 z
i1 0 z