form caption("presettest") size(250, 250), colour(0, 30, 56), pluginid("presettest"), guirefresh(10)
rslider bounds(20, 108, 100, 100), channel("pitch"), range(-500, 500, 0, 1, 1), text("PITCH"), trackercolour(122, 139, 168, 250), outlinecolour(122, 139, 168, 250), textcolour(122, 139, 168, 250), trackerinsideradius(0.15), style("modern")
combobox bounds(124, 52, 90, 30), , , , fontcolour(122, 139, 168, 250), channel("preset"), populate("*.snaps") channeltype("string") value("1") colour(0, 30, 56, 255) fontcolour(122, 139, 168, 250)
filebutton bounds(24, 52, 90, 30), colour:0(0, 30, 56, 255), colour:1(0, 30, 56, 255), fontcolour:0(122, 139, 168, 250), fontcolour:1(122, 139, 168, 250), channel("but1"), text("Save", "Save"), mode("snapshot")
-n -d
;-n -d -+rtmidi=NULL -M0 -m0d
; Initialize the global variables.
ksmps = 256
nchnls = 2
0dbfs = 1
;seed 0
instr 1
kshift chnget "pitch"
a1 inch 1
a2 inch 2
fftin1 pvsanal a1, 1024, 1024/4, 1024, 1; fft-analysis of file
fftin2 pvsanal a2, 1024, 1024/4, 1024, 1; fft-analysis of file
fshift1 pvshift fftin1, kshift, 50, 0; shift frequencies
fshift2 pvshift fftin2, kshift, 50, 0; shift frequencies
ainr1 pvsynth fshift1; resynthesize
ainr2 pvsynth fshift2; resynthesize
outs ainr1, ainr2
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]