form caption("Toggle Sounds") size(400, 210), colour(58, 110, 182), pluginid("def1")
combobox bounds(0, 110, 100, 30), populate("*.wav", "./Drums1")
soundfiler bounds(2, 6, 396, 100), file("./Drums1/02.wav"), identchannel("soundfiler1")
-n -d -+rtmidi=NULL -M0 -m0d --opcode-lib=filetostr.dll --opcode-lib=strtofile.dll
; Initialize the global variables.
ksmps = 32
nchnls = 2
0dbfs = 1
gSFilename init ""
instr 1
kIndex init 1
if metro(1) == 1 then
gSFilename sprintfk "file(\"./Drums1/%02d.wav\")", kIndex
kIndex +=1
chnsetks gSFilename, "soundfiler1"
event "i", "WRITE_DATA", 0, 0
endif
endin
instr WRITE_DATA
SFilename strcat "\n", gSFilename
iRes strToFile SFilename, "quickTest.txt", 1
endin
;causes Csound to run for about 7000 years...
f0 z
;starts instrument 1 and runs it for a week
i1 0 [60*60*24*7]