form caption("Untitled") size(400, 300), guiMode("queue"), pluginId("def1")
keyboard bounds(6, 210, 381, 85)
button bounds(2, 2, 100, 100) channel("pad1") corners(10), latched(0)
button bounds(2, 104, 100, 100) channel("pad2") corners(10), latched(0)
-n -d -+rtmidi=NULL -M0 --midi-key-cps=4 --midi-velocity-amp=5
; Initialize the global variables.
ksmps = 32
nchnls = 2
0dbfs = 1
instr 99
kPad1, kTrig1 cabbageGet "pad1"
kPad2, kTrig2 cabbageGet "pad2"
if kTrig1 == 1 then
if kPad1 == 1 then
event "i", 1, 0, -1, 200, 1
else
event "i", -1, 0, 0
endif
elseif kTrig2 == 1 then
if kPad2 == 1 then
event "i", 1, 0, -1, 300, 1
else
event "i", -1, 0, 0
endif
endif
endin
;instrument will be triggered by keyboard widget
instr 1
kEnv madsr .1, 0, 1, .1
aOut vco2 p5, p4
outs aOut*kEnv, aOut*kEnv
endin
;causes Csound to run for about 7000 years...
f0 z
i99 0 z