form caption("Untitled") size(600, 300), colour(58, 110, 182), pluginid("def2") //pluginID("def1")
rslider bounds(484, 114, 100, 100), channel("gain"), range(0, 1, 0, 1, 0.01), text("Gain Wet"), trackercolour(0, 255, 0, 255), outlinecolour(0, 0, 0, 50), textcolour(0, 0, 0, 255) increment(0.01)
rslider bounds(372, 114, 100, 100), channel("gainbb"), range(0, 1, 0.25, 1, 0.01), text("Gain Stutter"), trackercolour(0, 255, 0, 255), outlinecolour(0, 0, 0, 50), textcolour(0, 0, 0, 255) increment(0.01)
rslider bounds(132, 186, 99, 102), channel("bps"), range(0, 300, 125, 1, 1), text("BPM"), trackercolour(0, 255, 0, 255), outlinecolour(0, 0, 0, 50), textcolour(0, 0, 0, 255)
rslider bounds(28, 134, 100, 100), channel("subdiv"), range(1, 64, 0, 1, 1), text("Subdiv"), trackercolour(0, 255, 0, 255), outlinecolour(0, 0, 0, 50), textcolour(0, 0, 0, 255)
rslider bounds(234, 134, 100, 100), channel("barlength"), range(1, 8, 0, 1, 1), text("Bar Length"), trackercolour(0, 255, 0, 255), outlinecolour(0, 0, 0, 50), textcolour(0, 0, 0, 255)
rslider bounds(192, 28, 100, 100), channel("phrasebar"), range(1, 8, 0, 1, 1), text("Phrase Bar"), trackercolour(0, 255, 0, 255), outlinecolour(0, 0, 0, 50), textcolour(0, 0, 0, 255)
rslider bounds(74, 28, 100, 100), channel("numrepeats"), range(0, 8, 0, 1, 1), text("Numrepeats"), trackercolour(0, 255, 0, 255), outlinecolour(0, 0, 0, 50), textcolour(0, 0, 0, 255)
-n -d -+rtmidi=NULL -M0 -m0d
//-n -dm0
; Initialize the global variables.
sr = 44100
ksmps = 32
nchnls = 2
0dbfs = 1
instr 1
gkGain chnget "gain"
gkGainBB chnget "gainbb"
gkBPM chnget "bps"
gksubdiv chnget "subdiv"
gkbarlength chnget "barlength"
gkphrasebar chnget "phrasebar"
gknumrepeats chnget "numrepeats"
endin
instr 2
/* INPUT */
a1 inch 1
a2 inch 2
kmetro metro 4
kSwitch init 0
prints "working"
if kmetro==1 then
kSwitch changed gkBPM, gkphrasebar, gknumrepeats, gkbarlength, gksubdiv//, gkstutspd
endif
if kSwitch==1 then ;IF I-RATE VARIABLE CHANGE TRIGGER IS '1'...
reinit UPDATE ;BEGIN A REINITIALISATION PASS FROM LABEL 'UPDATE'
endif
UPDATE:
iBPS = i(gkBPM)/60
;OUTPUT OPCODE INPUT BPM SUBDIVISION BAR_LENGTH PHRASE_LENGTH NUM.OF_REPEATS STUTTER_SPEED STUTTER_CHANCE
aout1,aout2 bbcuts a1,a2, i(gkBPM)/60, i(gksubdiv), i(gkbarlength), i(gkphrasebar), i(gknumrepeats) //, i(gkstutspd), i(gkstutchnc), 1, i(gklayers)
rireturn
outs (a1*gkGain)+aout1*gkGainBB, (a2*gkGain)+aout2*gkGainBB
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]
i2 0 [60*60*24*7]