form caption("SyncYSynth") size(615, 310), colour(58, 110, 182), pluginID("def1")
image bounds(0, 0, 593, 168), colour(58, 110, 182), plant("keyboardPlant"), identchannel("keyboard") {
checkbox bounds(10, 6, 68, 157), channel("key1"), corners(5) colour:0("white"), colour:1(49, 155, 0, 255)
checkbox bounds(81, 6, 68, 157), channel("key3"), corners(5) colour:0("white"), colour:1(49, 155, 0, 255)
checkbox bounds(154, 6, 68, 157), channel("key5"), corners(5) colour:0("white"), colour:1(49, 155, 0, 255)
checkbox bounds(227, 6, 68, 157), channel("key6"), corners(5) colour:0("white"), colour:1(49, 155, 0, 255)
checkbox bounds(299, 6, 68, 157), channel("key8"), corners(5) colour:0("white"), colour:1(49, 155, 0, 255)
checkbox bounds(372, 6, 68, 157), channel("key10"), corners(5) colour:0("white"), colour:1(49, 155, 0, 255)
checkbox bounds(445, 6, 68, 157), channel("key12"), corners(5) colour:0("white"), colour:1(49, 155, 0, 255)
checkbox bounds(518, 6, 68, 157), channel("key13"), corners(5) colour:0("white"), colour:1(49, 155, 0, 255)
checkbox bounds(55, 6, 50, 91), channel("key2"), corners(5), colour:0(0, 0, 0, 255), colour:1(49, 155, 0, 255)
checkbox bounds(129, 6, 50, 91), channel("key4"), corners(5), colour:0(0, 0, 0, 255), colour:1(49, 155, 0, 255)
checkbox bounds(272, 6, 50, 91), channel("key7"), corners(5), colour:0(0, 0, 0, 255), colour:1(49, 155, 0, 255)
checkbox bounds(345, 6, 50, 91), channel("key9"), corners(5), colour:0(0, 0, 0, 255), colour:1(49, 155, 0, 255)
checkbox bounds(419, 6, 50, 91), channel("key11"), corners(5), colour:0(0, 0, 0, 255), colour:1(49, 155, 0, 255)
}
;image bounds(22, 0, 554, 44), colour(58, 110, 182), plant("accents") {
;rslider bounds(0, 0, 42, 58), channel("accent1"), range(0, 1, .4, 1, 0.001), colour(49, 155, 0, 255), trackercolour("white"),
;rslider bounds(43, 13, 31, 43), channel("accent2"), range(0, 1, .3, 1, 0.001), colour(49, 155, 0, 255), trackercolour(255, 255, 255, 255),
;rslider bounds(75, 0, 42, 58), channel("accent3"), range(0, 1, .1, 1, 0.001), colour(49, 155, 0, 255), trackercolour(255, 255, 255, 255),
;rslider bounds(116, 13, 31, 43), channel("accent4"), range(0, 1, .1, 1, .001), colour(49, 155, 0, 255), trackercolour(255, 255, 255, 255),
;rslider bounds(148, 0, 42, 58), channel("accent5"), range(0, 1, .4, 1, .001), colour(49, 155, 0, 255), trackercolour(255, 255, 255, 255),
;rslider bounds(211, 0, 42, 58), channel("accent6"), range(0, 1, .7, 1, .001), colour(49, 155, 0, 255), trackercolour(255, 255, 255, 255),
;rslider bounds(254, 13, 31, 43), channel("accent7"), range(0, 1, .6, 1, .001), colour(49, 155, 0, 255), trackercolour(255, 255, 255, 255),
;rslider bounds(284, 0, 42, 58), channel("accent8"), range(0, 1, .4, 1, .001), colour(49, 155, 0, 255), trackercolour(255, 255, 255, 255),
;rslider bounds(325, 13, 31, 43), channel("accent9"), range(0, 1, .2, 1, .001), colour(49, 155, 0, 255), trackercolour(255, 255, 255, 255),
;rslider bounds(357, 0, 42, 58), channel("accent10"), range(0, 1, .4, 1, .001), colour(49, 155, 0, 255), trackercolour(255, 255, 255, 255),
;rslider bounds(400, 13, 31, 43), channel("accent11"), range(0, 1, .6, 1, .001), colour(49, 155, 0, 255), trackercolour(255, 255, 255, 255),
;rslider bounds(430, 0, 42, 58), channel("accent12"), range(0, 1, .5, 1, .001), colour(49, 155, 0, 255), trackercolour(255, 255, 255, 255),
;rslider bounds(495, 0, 42, 58), channel("accent13"), range(0, 1, .6, 1, .001), colour(49, 155, 0, 255), trackercolour(255, 255, 255, 255),
;}
;image bounds(8, 184, 520, 84), colour("white")
groupbox bounds(6, 158, 512, 74), text("Steps") fontcolour("black"), colour(58, 110, 182), plant("steps") {
button bounds(8, 26, 35, 35), channel("step1") colour:0(55, 110, 182), value(1), identchannel("step1_ident"), text(""),
button bounds(50, 26, 35, 35), channel("step2") colour:0(55, 110, 182) identchannel("step2_ident"), text(""),
button bounds(91, 26, 35, 35), channel("step3") colour:0(55, 110, 182) identchannel("step3_ident"), text(""),
button bounds(133, 26, 35, 35), channel("step4") colour:0(55, 110, 182) identchannel("step4_ident"), text(""),
button bounds(173, 26, 35, 35), channel("step5") colour:0(55, 110, 182) identchannel("step5_ident"), text(""),
button bounds(215, 26, 35, 35), channel("step6") colour:0(55, 110, 182) identchannel("step6_ident"), text(""),
button bounds(257, 26, 35, 35), channel("step7") colour:0(55, 110, 182) identchannel("step7_ident"), text(""),
button bounds(298, 26, 35, 35), channel("step8") colour:0(55, 110, 182) identchannel("step8_ident"), text(""),
button bounds(342, 26, 35, 35), channel("step9") colour:0(55, 110, 182) identchannel("step9_ident"), text(""),
button bounds(382, 26, 35, 35), channel("step10") colour:0(55, 110, 182) identchannel("step10_ident"), text(""),
button bounds(424, 26, 35, 35), channel("step11") colour:0(55, 110, 182) identchannel("step11_ident"), text(""),
button bounds(465, 26, 35, 35), channel("step12") colour:0(55, 110, 182) identchannel("step12_ident"), text(""),
checkbox bounds(8, 60, 35, 10), channel("stepPos1") colour:0(55, 110, 182), active(0)
checkbox bounds(50, 60, 35, 10), channel("stepPos2") colour:0(55, 110, 182) active(0)
checkbox bounds(91, 60, 35, 10), channel("stepPos3") colour:0(55, 110, 182) active(0)
checkbox bounds(133, 60, 35, 10), channel("stepPos4") colour:0(55, 110, 182) active(0)
checkbox bounds(173, 60, 35, 10), channel("stepPos5") colour:0(55, 110, 182) active(0)
checkbox bounds(215, 60, 35, 10), channel("stepPos6") colour:0(55, 110, 182) active(0)
checkbox bounds(257, 60, 35, 10), channel("stepPos7") colour:0(55, 110, 182) active(0)
checkbox bounds(298, 60, 35, 10), channel("stepPos8") colour:0(55, 110, 182) active(0)
checkbox bounds(342, 60, 35, 10), channel("stepPos9") colour:0(55, 110, 182) active(0)
checkbox bounds(382, 60, 35, 10), channel("stepPos10") colour:0(55, 110, 182) active(0)
checkbox bounds(424, 60, 35, 10), channel("stepPos11") colour:0(55, 110, 182) active(0)
checkbox bounds(465, 60, 35, 10), channel("stepPos12") colour:0(55, 110, 182) active(0)
}
;vslider bounds(6, 14, 30, 284), channel("tempo"), range(1, 10, , 1, 0.0010000000000000000208),
numberbox bounds(516, 174, 75, 24), channel("tempo"), range(1, 10, 4, 1, 0.001) trackercolour(255, 255, 255),
button bounds(516, 198, 75, 28), channel("resetButton"), text("Reset Step", "Reset Step")
button bounds(66, 236, 60, 35), channel("showDelays"), text("Delays"), radiogroup(99), colour:0(55, 110, 182)
;button bounds(66, 238, 60, 35), channel("showSynth"), text("Synth"), radiogroup(99), colour:0(55, 110, 182)
button bounds(6, 236, 60, 35), channel("showKeyboard"), text("Keyboard"), value(1), radiogroup(99), colour:0(55, 110, 182)
groupbox bounds(8, 30, 563, 109), text("Delay Lines"), fontcolour("Black"), colour(55, 110, 182), plant("delayPlant"), identchannel("delays"){
rslider bounds(11, 29, 70, 76), channel("del1"), range(0, 1, 0, 1, 0.001), colour(49, 155, 0, 255), text("D1"), trackercolour("white")
rslider bounds(81, 29, 70, 76), channel("del2"), range(0, 1, 0, 1, 0.001), colour(49, 155, 0, 255), text("D2"), trackercolour("white")
rslider bounds(152, 29, 70, 76), channel("del3"), range(0, 1, 0, 1, 0.001), colour(49, 155, 0, 255), text("D3"), trackercolour("white")
rslider bounds(221, 29, 70, 76), channel("del4"), range(0, 1, 0, 1, 0.001), colour(49, 155, 0, 255), text("D4"), trackercolour("white")
rslider bounds(292, 29, 70, 76), channel("del5"), range(0, 1, 0, 1, 0.001), colour(49, 155, 0, 255), text("D5"), trackercolour("white")
rslider bounds(360, 29, 70, 76), channel("del6"), range(0, 1, 0, 1, 0.001), colour(49, 155, 0, 255), text("D6"), trackercolour("white")
rslider bounds(427, 29, 70, 76), channel("del7"), range(0, 1, 0, 1, 0.001), colour(49, 155, 0, 255), text("D7"), trackercolour("white")
rslider bounds(495, 29, 70, 76), channel("del8"), range(0, 1, 0, 1, 0.001), colour(49, 155, 0, 255), text("D8"), trackercolour("white")
}
label bounds(526, 158, 50, 15), text("Tempo"), colour("black")
hslider bounds(134, 238, 321, 30), channel("duration"), range(.2, 15, 5), text("Note Dur.")
button bounds(456, 240, 60, 25), channel("octup"), text("Oct. Up")
button bounds(516, 240, 60, 25), channel("octdown"), text("Oct. Dn")
-n -d -+rtmidi=NULL -M0 -m0d
; Initialize the global variables.
sr = 41000
ksmps = 32
nchnls = 2
0dbfs = 1
giStep1 ftgen 101, 0, 16, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
giStep1 ftgen 102, 0, 16, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
giStep1 ftgen 103, 0, 16, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
giStep1 ftgen 104, 0, 16, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
giStep1 ftgen 105, 0, 16, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
giStep1 ftgen 106, 0, 16, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
giStep1 ftgen 107, 0, 16, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
giStep1 ftgen 108, 0, 16, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
giStep1 ftgen 109, 0, 16, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
giStep1 ftgen 110, 0, 16, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
giStep1 ftgen 111, 0, 16, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
giStep1 ftgen 112, 0, 16, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
;==================================================
opcode colourSteps, k, Sk
SChannel, kReset xin
SIdentChannl sprintfk "%s_ident", SChannel
kOut init 0
if kReset == 0 then
printf "Activeding a step:%s\n", 1, SIdentChannl
chnset "colour:0(0,0,0), colour:1(0,0,0)", SIdentChannl
;chnset "colour:0(58, 110, 182)", SIdentChannl
else
printf "DeActiveding a step:%s\n", 1, SIdentChannl
event "i", "ResetKeys", 0, .01
chnset "colour:0(58, 110, 182), colour:1(58, 110, 182)", SIdentChannl
endif
xout kOut
endop
gkRecording init 0
gkOctave init 0
;==================================================
instr 1
;set the current table/step
kStepPos init 1
kTable init 101
if changed:k(chnget:k("step1"))==1 then
kTable=101
kStep1 colourSteps "step1", 0
elseif changed:k(chnget:k("step2"))==1 then
kTable=102
kStep1 colourSteps "step2", 0
elseif changed:k(chnget:k("step3"))==1 then
kTable=103
kStep1 colourSteps "step3", 0
elseif changed:k(chnget:k("step4"))==1 then
kTable=104
kStep1 colourSteps "step4", 0
elseif changed:k(chnget:k("step5"))==1 then
kTable=105
kStep1 colourSteps "step5", 0
elseif changed:k(chnget:k("step6"))==1 then
kTable=106
kStep1 colourSteps "step6", 0
elseif changed:k(chnget:k("step7"))==1 then
kTable=107
kStep1 colourSteps "step7", 0
elseif changed:k(chnget:k("step8"))==1 then
kTable=108
kStep1 colourSteps "step8", 0
elseif changed:k(chnget:k("step9"))==1 then
kTable=109
kStep1 colourSteps "step9", 0
elseif changed:k(chnget:k("step10"))==1 then
kTable=110
kStep1 colourSteps "step10", 0
elseif changed:k(chnget:k("step11"))==1 then
kTable=111
kStep1 colourSteps "step11", 0
elseif changed:k(chnget:k("step12"))==1 then
kTable=112
kStep1 colourSteps "step12", 0
endif
kUpdateView changed chnget:k("showEffect"), chnget:k("showKeyboard"), chnget:k("showSynth")
if kUpdateView==1 then
if chnget:k("showDelays")==1 then
chnset "visible(0)", "keyboard"
chnset "visible(1)", "delays"
elseif chnget:k("showKeyboard")==1 then
chnset "visible(1)", "keyboard"
chnset "visible(0)", "delays"
endif
endif
if changed:k(chnget:k("octup"))==1 then
gkOctave = gkOctave+12
elseif changed:k(chnget:k("octdown"))==1 then
gkOctave = gkOctave-12
endif
if changed:k(chnget:k("resetButton"))==1 then
kStep = kTable-100
SMessage sprintfk "step%d", kStep
kStep1 colourSteps SMessage, 1
endif
kStepPos=0
kKeyChange changed chnget:k("key1"), chnget:k("key2"), chnget:k("key3"), chnget:k("key4"), \
chnget:k("key5"), chnget:k("key6"), chnget:k("key7"), chnget:k("key8"), \
chnget:k("key9"), chnget:k("key10"), chnget:k("key11"), chnget:k("key12"), chnget:k("key13")
if changed:k(kKeyChange)==1 then
event "i", "SetColours", 0, .1, kTable
endif
kStepChange changed chnget:k("step1"), chnget:k("step2"), chnget:k("step3"), chnget:k("step4"), \
chnget:k("step5"), chnget:k("step6"), chnget:k("step7"), chnget:k("step8"), \
chnget:k("step9"), chnget:k("step10"), chnget:k("step11"), chnget:k("step12")
if changed(kStepChange)==1 then
event "i", "ChangePattern", 0.1, 1, kTable
chnset "visible(1)", "keyboard"
chnset "visible(0)", "delays"
;event "i", "PrintTableValues", 0, 1, kTable
endif
endin
;==================================================
instr PrintTableValues
prints "\n%d %d %d %d %d %d %d %d %d %d %d %d\n", tab:k(0, p4), tab:k(1, p4), tab:k(2, p4), tab:k(3, p4), \
tab:k(4, p4), tab:k(5, p4), tab:k(6, p4), tab:k(7, p4), \
tab:k(8, p4), tab:k(9, p4), tab:k(10, p4), tab:k(11, p4)
endin
;==================================================
;trigger instrument
instr Trigger
iTable = p4
iVol tab_i 0, p4
if iVol>0 then
;prints "Key1:%d\n", p4
event_i "i", "Synth", 0, chnget:i("duration"), 60, p4
endif
iVol tab_i 1, p4
if iVol>0 then
;prints "Key2:%d\n", p4
event_i "i", "Synth", 0, chnget:i("duration"), 61, p4
endif
iVol tab_i 2, p4
if iVol>0 then
;prints "Key3:%d\n", p4
event_i "i", "Synth", 0, chnget:i("duration"), 62, p4
endif
iVol tab_i 3, p4
if iVol>0 then
;prints "Key4:%d\n", p4
event_i "i", "Synth", 0, chnget:i("duration"), 63, p4
endif
iVol tab_i 4, p4
if iVol>0 then
;prints "Key5:%d\n", p4
event_i "i", "Synth", 0, chnget:i("duration"), 64, p4
endif
iVol tab_i 5, p4
if iVol>0 then
;prints "Key6:%d\n", p4
event_i "i", "Synth", 0, chnget:i("duration"), 65, p4
endif
iVol tab_i 6, p4
if iVol>0 then
;prints "Key7:%d\n", p4
event_i "i", "Synth", 0, chnget:i("duration"), 66, p4
endif
iVol tab_i 7, p4
if iVol>0 then
;prints "Key8:%d\n", p4
event_i "i", "Synth", 0, chnget:i("duration"), 67, p4
endif
iVol tab_i 8, p4
if iVol>0 then
;prints "Key9:%d\n", p4
event_i "i", "Synth", 0, chnget:i("duration"), 68, p4
endif
iVol tab_i 9, p4
if iVol>0 then
;prints "Key9:%d\n", p4
event_i "i", "Synth", 0, chnget:i("duration"), 69, p4
endif
iVol tab_i 10, p4
if iVol>0 then
;prints "Key10:%d\n", p4
event_i "i", "Synth", 0, chnget:i("dec"), 70, p4
endif
iVol tab_i 11, p4
if iVol>0 then
;prints "Key11:%d\n", p4
event_i "i", "Synth", 0, chnget:i("duration"), 71, p4
endif
iVol tab_i 12, p4
if iVol>0 then
;prints "Key12:%d\n", p4
event_i "i", "Synth", 0, chnget:i("duration"), 72, p4
endif
endin
;==================================================
instr Synth
iFreq = cpsmidinn(p4+i(gkOctave))
;print iFreq
;kEnv expseg 0.01, chnget:i("attack"), 1/5, p3, 0.0001
;a1 vco2 kEnv, iFreq;buzz aEnv, iFreq, chnget:i("hrms"), 1
;aFilter moogladder a1, chnget:i("cutoff"), chnget:i("res")
a1 expon .5, p3, .001
a2 oscili a1, iFreq
SChannel sprintf "output_%d", p5
chnmix a2, SChannel
endin
;==================================================
instr ChangePattern
;prints "Changing colours"
chnset tab:k(0, p4), "key1"
chnset tab:k(1, p4), "key2"
chnset tab:k(2, p4), "key3"
chnset tab:k(3, p4), "key4"
chnset tab:k(4, p4), "key5"
chnset tab:k(5, p4), "key6"
chnset tab:k(6, p4), "key7"
chnset tab:k(7, p4), "key8"
chnset tab:k(8, p4), "key9"
chnset tab:k(9, p4), "key10"
chnset tab:k(10, p4), "key11"
chnset tab:k(11, p4), "key12"
chnset tab:k(11, p4), "key13"
endin
instr SetColours
;prints "Set colours"
k1 chnget "key1"
tabw k1, 0, p4
k2 chnget "key2"
tabw k2, 1, p4
k3 chnget "key3"
tabw k3, 2, p4
k4 chnget "key4"
tabw k4, 3, p4
k5 chnget "key5"
tabw k5, 4, p4
k6 chnget "key6"
tabw k6, 5, p4
k7 chnget "key7"
tabw k7, 6, p4
k8 chnget "key8"
tabw k8, 7, p4
k9 chnget "key9"
tabw k9, 8, p4
k10 chnget "key10"
tabw k10, 9, p4
k11 chnget "key11"
tabw k11, 10, p4
k12 chnget "key12"
tabw k12, 11, p4
k12 chnget "key13"
tabw k12, 12, p4
endin
;==================================================
instr Transport
SColour1 = "colour:0(0,0,0)"
SColour2 = "colour:1(50,50,50)"
kCanStartRecording init 0
#ifdef ANDROID
kIndex init 0
#else
kIndex init 1
#endif
kTempo metro chnget:k("tempo")
kTableNumber init 101
if changed:k(chnget:k("loop"))==1 then
if chnget:k("loop")==1 then
;kCanStartRecording=1
endif
endif
if kTempo==1 then
event "i", "Trigger", 0, .1, kTableNumber
kTableNumber = kTableNumber<112 ? kTableNumber+1 : 101
;printk2 kTableNumber
chnset kIndex==1 ? 1 : 0, "stepPos1"
chnset kIndex==2 ? 1 : 0, "stepPos2"
chnset kIndex==3 ? 1 : 0, "stepPos3"
chnset kIndex==4 ? 1 : 0, "stepPos4"
chnset kIndex==5 ? 1 : 0, "stepPos5"
chnset kIndex==6 ? 1 : 0, "stepPos6"
chnset kIndex==7 ? 1 : 0, "stepPos7"
chnset kIndex==8 ? 1 : 0, "stepPos8"
chnset kIndex==9 ? 1 : 0, "stepPos9"
chnset kIndex==10 ? 1 : 0, "stepPos10"
chnset kIndex==11 ? 1 : 0, "stepPos11"
chnset kIndex==12 ? 1 : 0, "stepPos12"
kIndex = kIndex==12 ? 1 : kIndex+1
if kIndex==1 && kCanStartRecording==1 then
event "i", "Loop", 0, -1
kCanStartRecording=0
endif
endif
endin
;==================================================
instr ResetKeys
chnset 0, "key1"
chnset 0, "key2"
chnset 0, "key3"
chnset 0, "key4"
chnset 0, "key5"
chnset 0, "key6"
chnset 0, "key7"
chnset 0, "key8"
chnset 0, "key9"
chnset 0, "key10"
chnset 0, "key12"
chnset 0, "key12"
chnset 0, "key13"
endin
instr ResetSteps
kStep1 colourSteps "step1", 1
kStep1 colourSteps "step2", 1
kStep1 colourSteps "step3", 1
kStep1 colourSteps "step4", 1
kStep1 colourSteps "step5", 1
kStep1 colourSteps "step6", 1
kStep1 colourSteps "step7", 1
kStep1 colourSteps "step8", 1
kStep1 colourSteps "step9", 1
kStep1 colourSteps "step10", 1
kStep1 colourSteps "step11", 1
kStep1 colourSteps "step12", 1
endin
instr CreateMix
endin
instr GlobalDelay
a1 chnget "output_101"
a2 chnget "output_102"
a3 chnget "output_103"
a4 chnget "output_104"
a5 chnget "output_105"
a6 chnget "output_106"
a7 chnget "output_107"
a8 chnget "output_108"
a9 chnget "output_109"
a10 chnget "output_110"
a11 chnget "output_111"
a12 chnget "output_112"
aMix = (a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12)
kTempo chnget "tempo"
chnset aMix, "mixer"
aDelay1 comb aMix, 4, .25
aDelay2 comb aMix, 4, .57
aDelay3 comb aMix, 4, .75
aDelay4 comb aMix, 4, .86
aDelay5 comb aMix, 4, .05
aDelay6 comb aMix, 4, .1
aDelay7 comb aMix, 4, .15
aDelay8 comb aMix, 8, .20
aMixL = aDelay1*chnget:k("del1")+aDelay3*chnget:k("del2")+aDelay1*chnget:k("del5")+aDelay3*chnget:k("del6")
aMixR = aDelay2*chnget:k("del3")+aDelay4*chnget:k("del4")+aDelay1*chnget:k("del7")+aDelay3*chnget:k("del8")
outs (aMix+aMixL)/2, (aMix+aMixR)/2
endin
instr Loop
; kRec init 0
; aOut init 0
; setksmps 1
; iDur = (12/chnget:i("tempo"))
; aMix chnget "mixer"
; aSig, kRec sndloop aMix, 1, 1, iDur, .1
; outs aSig, aSig
;
; if changed:k(kRec)==1 && kRec==0 then
; printks "hello", 1
; event "i", "ResetSteps", 0, .1
; event "i", "ResetKeys", 0, .1
; endif
endin
instr ClearALlChannels
chnclear "output_101"
chnclear "output_102"
chnclear "output_103"
chnclear "output_104"
chnclear "output_105"
chnclear "output_106"
chnclear "output_107"
chnclear "output_108"
chnclear "output_109"
chnclear "output_110"
chnclear "output_111"
chnclear "output_112"
endin
f1 0 4096 10 1
f10 0 [2^18] 7 0 [2^18] 0
f11 0 [2^18] 7 0 [2^18] 0
f12 0 [2^18] 7 0 [2^18] 0
f13 0 [2^18] 7 0 [2^18] 0
;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]
i"ResetKeys" 1 1
i"Transport" 0 [60*60*24*7]
i"CreateMix" 0 [60*60*24*7]
i"GlobalDelay" 0 [60*60*24*7]
i"ClearALlChannels" 0 [60*60*24*7]
i"Loop" 0 [60*60*24*7]