diff --git a/cabbages/starter.csd b/cabbages/starter.csd new file mode 100644 index 0000000..fd840d6 --- /dev/null +++ b/cabbages/starter.csd @@ -0,0 +1,45 @@ +; STARTER +; +; a BIG button to start Sequenc-Air (https://www.fullbucket.de/music/sequencair.html) +; +; (s) Severák 2019 +; licensed with MIT license + +form caption("Starter") size(150, 100), colour(58, 110, 182), pluginid("strt") + +button bounds(7, 6, 136, 80) text("START", "STOP") channel("starter") + + + +-n -d -+rtmidi=NULL -M0 -Q0 -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 GUI + kStart chnget "starter" + if changed:k(kStart) == 1 then + if kStart == 1 then + midiout 144, 1, 60, 60 + + elseif kStart == 0 then + midiout 128, 1, 60, 0 + endif + printks "%d\n", 0, kStart + endif + + +endin + + + +;causes Csound to run for about 7000 years... +f0 z + +i "GUI" 0 3600 + +