form caption("MultiIOTest") size(400, 150)pluginid("def1")
rslider bounds(4, 20, 100, 100), channel("gain1"), range(0, 1, 1, 1, .01), text("Gain1"),
rslider bounds(100, 20, 100, 100), channel("gain2"), range(0, 1, .75, 1, .01), text("Gain2")
rslider bounds(200, 20, 100, 100), channel("gain3"), range(0, 1, .5, 1, .01), text("Gain3")
rslider bounds(300, 20, 100, 100), channel("gain4"), range(0, 1, .25, 1, .01), text("Gain4")
-n -d -+rtmidi=NULL -M0 -m0d
; Initialize the global variables.
ksmps = 32
nchnls = 4
0dbfs = 1
instr 1
a1 inch 1
a2 inch 2
a3 inch 3
a4 inch 4
outch 1, a1*chnget:k("gain1")
outch 2, a2*chnget:k("gain2")
outch 3, a3*chnget:k("gain3")
outch 4, a4*chnget:k("gain4")
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]