added starter

This commit is contained in:
severak 2019-12-03 20:28:16 +01:00
parent dad31899c6
commit 64a81f8e09
1 changed files with 45 additions and 0 deletions

45
cabbages/starter.csd Normal file
View File

@ -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
<Cabbage>
form caption("Starter") size(150, 100), colour(58, 110, 182), pluginid("strt")
button bounds(7, 6, 136, 80) text("START", "STOP") channel("starter")
</Cabbage>
<CsoundSynthesizer>
<CsOptions>
-n -d -+rtmidi=NULL -M0 -Q0 -m0d --midi-key-cps=4 --midi-velocity-amp=5
</CsOptions>
<CsInstruments>
; 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
</CsInstruments>
<CsScore>
;causes Csound to run for about 7000 years...
f0 z
i "GUI" 0 3600
</CsScore>
</CsoundSynthesizer>