form caption("Untitled") size(324, 216), colour(58, 110, 182), pluginid("def1")
#define rsliderstyle trackercolour(53, 153, 219, 255) colour(255, 255, 255, 225) textcolour(255, 255, 255, 255) popuptext("0")
groupbox bounds(0, 0, 324, 216) visible(1) identchannel("GROUP_FILALL"){
groupbox bounds(0, 0, 324, 216) visible(1) identchannel("GROUP_FIL1"){
rslider bounds(4, 112, 50, 70) range(0, 22000, 22000, 1, 0.001) text("cutoff") channel("filcutoff1") $rsliderstyle
rslider bounds(54, 112, 50, 70) range(0, 1, 0, 1, 0.001) text("Resonance") channel("filreso1") $rsliderstyle
rslider bounds(104, 112, 50, 70) range(0, 1, 0, 1, 0.001) text("Key Track") channel("kytrk1") $rsliderstyle
rslider bounds(154, 112, 50, 70) range(0, 1, 0, 1, 0.001) text("Mix") channel("filmx1") $rsliderstyle
checkbox bounds(229, 114, 125, 19) colour:1(53, 153, 219, 255) text("Osc 1") channel("osc1fil1") radiogroup(401)
checkbox bounds(229, 139, 125, 19) colour:1(53, 153, 219, 255) text("Osc 2") channel("osc2fil1") radiogroup(402)
checkbox bounds(229, 164, 125, 19) colour:1(53, 153, 219, 255) text("Osc 3") channel("osc3fil1") radiogroup(403)
checkbox bounds(229, 189, 125, 19) colour:1(53, 153, 219, 255) text("Osc 4") channel("osc4fil1") radiogroup(404)
; It works if I have the buttons displayed here
; checkbox bounds(259, 114, 125, 19) colour:1(53, 153, 219, 255) text("Osc 1") channel("osc1fil2") radiogroup(401)
; checkbox bounds(259, 139, 125, 19) colour:1(53, 153, 219, 255) text("Osc 2") channel("osc2fil2") radiogroup(402)
; checkbox bounds(259, 164, 125, 19) colour:1(53, 153, 219, 255) text("Osc 3") channel("osc3fil2") radiogroup(403)
; checkbox bounds(259, 189, 125, 19) colour:1(53, 153, 219, 255) text("Osc 4") channel("osc4fil2") radiogroup(404)
combobox bounds(29, 182, 50, 30) text("12", "24"), channel("fil1steep1")
combobox bounds(129, 182, 50, 30) text("Lp", "Hp", "Bp"), channel("fil1type1")
}
groupbox bounds(0, 0, 324, 216) visible(0) identchannel("GROUP_FIL2"){
rslider bounds(4, 112, 50, 70) range(0, 22000, 22000, 1, 0.001) text("cutoff") channel("filcutoff2") $rsliderstyle
rslider bounds(54, 112, 50, 70) range(0, 1, 0, 1, 0.001) text("Resonance") channel("filreso2") $rsliderstyle
rslider bounds(104, 112, 50, 70) range(0, 1, 0, 1, 0.001) text("Key Track") channel("kytrk2") $rsliderstyle
rslider bounds(154, 112, 50, 70) range(0, 1, 0, 1, 0.001) text("Mix") channel("filmx2") $rsliderstyle
; But not if the buttons are displayed here?
checkbox bounds(229, 114, 125, 19) colour:1(53, 153, 219, 255) text("Osc 1") channel("osc1fil2") radiogroup(401)
checkbox bounds(229, 139, 125, 19) colour:1(53, 153, 219, 255) text("Osc 2") channel("osc2fil2") radiogroup(402)
checkbox bounds(229, 164, 125, 19) colour:1(53, 153, 219, 255) text("Osc 3") channel("osc3fil2") radiogroup(403)
checkbox bounds(229, 189, 125, 19) colour:1(53, 153, 219, 255) text("Osc 4") channel("osc4fil2") radiogroup(404)
combobox bounds(29, 182, 50, 30) text("12", "24"), channel("fil1steep2")
combobox bounds(129, 182, 50, 30) text("Lp", "Hp", "Bp"), channel("fil1type2")
}
checkbox bounds(2, 4, 160, 27) channel("fil1vis") radiogroup(412) value(1)
checkbox bounds(164, 4, 160, 27) channel("fil2vis") radiogroup(412)
}
-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
kFiltrig changed chnget:k("fil1vis"), chnget:k("fil2vis")
if kFiltrig==1 then
Smessage sprintfk "visible(%d)", chnget:k("fil1vis")==1 ? 1 : 0
chnset Smessage, "GROUP_FIL1"
Smessage sprintfk "visible(%d)", chnget:k("fil2vis")==1 ? 1 : 0
chnset Smessage, "GROUP_FIL2"
endif
endin
;causes Csound to run for about 7000 years...
f0 z
i1 0 3600