added starter
This commit is contained in:
parent
dad31899c6
commit
64a81f8e09
|
@ -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>
|
Loading…
Reference in New Issue