form size(400, 400), caption("Toggling Plants"), pluginID("plu1"), guirefresh(10)
button bounds(12, 12, 60, 25), channel("but1"), text("Select")
keyboard bounds(10, 284, 381, 95)
groupbox bounds(80, 10, 200, 160), text("ENV"), visible(1), identchannel("sliders1"){
hslider bounds(0, 30, 200, 30), channel("att"), range(0, 1, 0.3), colour("white")
hslider bounds(0, 60, 200, 30), channel("dec"), range(0, 1, 0.6), colour("white")
hslider bounds(0, 90, 200, 30), channel("sus"), range(0, 1, 0.8), colour("white")
hslider bounds(0, 120, 200, 30), channel("rel"), range(0, 1, 0.01), colour("white")
}
groupbox bounds(80, 10, 200, 160), text("Red Sliders"), visible(0), identchannel("sliders2"){
hslider bounds(0, 30, 200, 30), channel("hslider5"), range(0, 100, 25), colour("red")
hslider bounds(0, 60, 200, 30), channel("hslider6"), range(0, 100, 63), colour("red")
hslider bounds(0, 90, 200, 30), channel("hslider7"), range(0, 100, 15), colour("red")
hslider bounds(0, 120, 200, 30), channel("hslider8"), range(0, 100, 16), colour("red")
}
-n -d -+rtmidi=NULL -M0 -m0d --midi-key-cps=4 --midi-velocity-amp=5
sr = 44100
ksmps = 64
nchnls = 2
0dbfs=1
instr 1
kCnt init 0
kTrig changed chnget:k("but1")
if kTrig==1 then
Smessage sprintfk "visible(%d)", kCnt==1 ? 1 : 0
chnset Smessage, "sliders1"
Smessage sprintfk "visible(%d)", kCnt==2 ? 1 : 0
chnset Smessage, "sliders2"
kCnt = (kCnt>1 ? 1 : kCnt+1)
printk2 kCnt
endif
iAtt chnget "att"
iDec chnget "dec"
iSus chnget "sus"
iRel chnget "rel"
kEnv madsr iAtt, iDec, iSus, iRel
aOut vco2 p5, p4
outs aOut*kEnv, aOut*kEnv
endin
f1 0 2048 10 1
i1 0 1000