form caption("Untitled") size(400, 300), colour(58, 110, 182), pluginid("def1")
image bounds(212, 74, 52, 101) file("lcdchars.png") identchannel("pos1")
combobox bounds(46, 108, 92, 31) channel("test") text("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
-n -d -+rtmidi=NULL -M0 -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 updateGUI
ktrig changed chnget:k("test")
if ktrig == 1 then
kdeb chnget "test"
Sletter sprintfk "crop(%d,0,52,101)", (kdeb - 1) * 51
chnset Sletter, "pos1"
endif
endin
;causes Csound to run for about 7000 years...
f0 z
i 1 0 [3600*24*7] ;read var stored in instr1