form caption("Untitled") size(400, 300), guiMode("queue") pluginId("def1")
soundfiler bounds(20, 20, 166, 100), channel("wave1"), colour(147, 210, 0), tableBackgroundColour(0, 0, 0, 80), file("corsaEngine.wav")
-n -d
; Initialize the global variables.
ksmps = 32
nchnls = 2
0dbfs = 1
// instruments
instr 1000
SFile1 chngetks "LAST_FILE_DROPPED"
if changed(SFile1) == 1 then
event "i", 2000, 0, 1
endif
endin
instr 2000
SFile chnget "LAST_FILE_DROPPED"
SWave sprintf "colour(%d, 210, 100), file(%s)", 0, SFile
cabbageSet "wave1", SWave
iX chnget "MOUSE_X"
iY chnget "MOUSE_Y"
gi1 ftgen 1, 0, 0, 1, SFile, 0, 0, 0
endin
;causes Csound to run for about 7000 years...
f0 z
;starts instrument 1 and runs it for a week
i1000 0 z