form caption("ResizeTest") identchannel("windowId") size(800, 600) colour(0,0,0) pluginid("def1")
image bounds(0, 0, 400, 300) identchannel("bg") colour(33, 33, 33)
keyboard bounds(8, 150, 380, 95) identchannel("keyboardId") keywidth(16)
rslider bounds(225, 25, 100, 100) identchannel("sizeSliderId") channel("sizeSlider") text("-SIZE-") range(1, 2, 1, 1, 0.01)
rslider bounds(25, 25, 50, 50) identchannel("testSliderId") text("-TEST-") range(1, 2, 1, 1, 0.01)
-n -d -+rtmidi=NULL -M0 -m0d --midi-key-cps=4 --midi-velocity-amp=5
instr 1; UI Control
kBtn chnget "resizeBtn"
kSld chnget "sizeSlider"
SkBg sprintfk "bounds(0,0,%d,%d)",400*kSld, 300*kSld
chnset SkBg, "bg"
SkKey sprintfk "bounds(%d,%d,%d,%d) keywidth(%d)",8*kSld, 150*kSld, 380*kSld, 95*kSld, 16*kSld
chnset SkKey, "keyboardId"
SkTsld sprintfk "bounds(%d,%d,%d,%d)",25*kSld, 25*kSld, 50*kSld, 50*kSld
chnset SkTsld, "testSliderId"
endin
i1 0 10000