p= ProxySpace.push(s.boot)
p.makeTempoClock(2.2)
c= p.clock

//--
(SynthDef("fm", {|out= 0, t_trig= 0, amp= 0.1, dur= 0.1|
	Out.ar(out, EnvGen.ar(Env.perc(0.01, dur), t_trig, doneAction:2)*SinOsc.ar(SinOsc.ar(Rand(500, 900), 0, 10, Rand(400, 900)), 0, amp));
}).store)

Pdef(\fm).play(c)
Pdef(\fm, Pbind(\instrument, \fm))
Pdef(\fm, Pbind(\instrument, \fm, \dur, Pseq([0.1, 1], inf)))
Pdef(\fm, Pbind(\instrument, \fm, \dur, Pseq([0.01, 0.02, 1], inf)))
(SynthDef("fm", {|out= 0, t_trig= 0, amp= 0.1, dur= 0.1, freq= 400|
	Out.ar(out, EnvGen.ar(Env.perc(0.01, dur), t_trig, doneAction:2)*SinOsc.ar(SinOsc.ar(Lag.kr(freq, 0.2), 0, 10, Rand(400, 900)), 0, amp));
}).store)

(SynthDef("fm", {|out= 0, t_trig= 0, amp= 0.1, dur= 0.1, freq= 400, pan= 0|
	Out.ar(out, Pan2.ar(EnvGen.ar(Env.perc(0.01, dur), t_trig, doneAction:2)*SinOsc.ar(SinOsc.ar(Lag.kr(freq, 0.2), 0, 10, Rand(400, 900)), 0, amp), pan));
}).store)

(SynthDef("fm", {|out= 0, t_trig= 0, amp= 0.1, dur= 0.1, freq= 400, pan= 0|
	Out.ar(out, Pan2.ar(EnvGen.ar(Env.perc(0.01, dur), t_trig, doneAction:2)*SinOsc.ar(SinOsc.ar(Lag.kr(freq, 0.2), 0, 40, Rand(400, 900).round(100)), 0, amp), pan));
}).store)
Pdef(\fm, Pbind(\instrument, \fm, \dur, Pseq([0.01, 0.02, 0.03, 1], inf), \freq, Pseq([400, 450, 400, 600], inf)))
Pdef(\fm, Pbind(\instrument, \fm, \dur, Pseq([0.01, 0.02, 0.03, 0.04, 0.05, 1], inf), \freq, Pseq([400, 450, 400, 440, 400, 600], inf)))

(SynthDef("fm", {|out= 0, t_trig= 0, amp= 0.1, dur= 0.1, freq= 400, pan= 0, freq2= 600|
	Out.ar(out, Pan2.ar(EnvGen.ar(Env.perc(0.01, dur), t_trig, doneAction:2)*SinOsc.ar(SinOsc.ar(Lag.kr(freq, 0.2), 0, 40, freq2), 0, amp), pan));
}).store)
Pdef(\fm, Pbind(\instrument, \fm, \dur, Pseq([0.01, 0.02, 0.03, 0.04, 0.05, 1], inf), \freq, Pseq([400, 450, 400, 440, 400, 600], inf), \freq2, Pseq([600, 500, 400, 600, 500], inf)))
Pdef(\fm, Pbind(\instrument, \fm, \dur, Pseq([0.01, 0.02, 0.03, 0.04, 0.05, 1], inf), \freq, Pseq([400, 450, 400, 440, 400, 600], inf), \freq2, Pseq([600, 500, 400, 600, 500], inf), \pan, Pseq([-0.5, 0.5, -0.4, 0.4, -0.3, 0], inf)))

Pdef(\fm, Pbind(\instrument, \fm, \dur, Pseq([0.01, 0.02, 0.03, 0.04, 0.05, 1], inf), \freq, Pseq([400, 450, 400, 440, 400, 600], inf), \freq2, Pseq([600, 500, 400, 600, 500, 800, 800], inf), \pan, Pseq([-0.5, 0.5, -0.4, 0.4, -0.3, 0], inf)))

Pdef(\fm, Pbind(\instrument, \fm, \dur, Pseq([Pseries(0.01, 0.01, 6), 1], inf), \freq, Pseq([400, 450, 400, 440, 400, 600], inf), \freq2, Pseq([600, 500, 400, 600, 500, 800, 800], inf), \pan, Pseq([-0.5, 0.5, -0.4, 0.4, -0.3, 0], inf)))

Pdef(\fm, Pbind(\instrument, \fm, \dur, Pseq([Pseries(0.01, 0.01, 6), 1], inf), \freq, Pseq([[400, 880], 450, [400, 880], 440, [400, 880], 600], inf), \freq2, Pseq([600, 500, 400, 600, 500, 800, 800], inf), \pan, Pseq([Pseries(-0.8, 0.1, 6), 0], inf)))

Pdef(\fm, Pbind(\instrument, \fm, \dur, Pseq([Pseries(0.01, 0.01, 6), 1], inf), \freq, Pseq([[400, 880], 450, [400, 880], 440, [400, 880], 600], inf), \freq2, Pseq([[600, 500], [500, 400], [400, 300], [600, 700], [500, 600], [800, 900], [800, 700]], inf), \pan, Pseq([Pseries(-0.8, 0.1, 6), 0], inf)))

Pdef(\fm, Pbind(\instrument, \fm, \dur, Pseq([Pseries(0.01, 0.01, 8), 1], inf), \freq, Pseq([[400, 880], 450, [400, 880], 440, [400, 880], 600], inf), \freq2, Pseq([[600, 500], [500, 400], [400, 300], [600, 700], [500, 600], [800, 900], [800, 700]], inf), \pan, Pseq([Pseries(-0.8, 0.1, 8), 0], inf)))

Pdef(\fm, Pbind(\instrument, \fm, \dur, Pseq([Pseries(0.01, 0.02, 8), 1], inf), \freq, Pseq([[400, 880], 450, [400, 880], 440, [400, 880], 600], inf), \freq2, Pseq([[600, 500], [500, 400], [400, 300], [600, 700], [500, 600], [800, 900], [800, 700]], inf), \pan, Pseq([Pseries(-0.8, 0.1, 8), 0], inf)))

Pdef(\fm, Pbind(\instrument, \fm, \dur, Pseq([Pseries(0.01, 0.02, 16), 1], inf), \freq, Pseq([[400, 880], 450, [400, 880], 440, [400, 880], 600], inf), \freq2, Pseq([[600, 500], [500, 400], [400, 300], [600, 700], [500, 600], [800, 900], [800, 700]], inf), \pan, Pseq([Pseries(-0.8, 0.1, 8), 0], inf)))

Pdef(\fm, Pbind(\instrument, \fm, \dur, Pseq([Prand([Pseries(0.01, 0.02, 16), Pseries(0.01, 0.01, 8), Pseries(0.01, 0.01, 16)], 1), 1], inf), \freq, Pseq([[400, 880], 450, [400, 880], 440, [400, 880], 600], inf), \freq2, Pseq([[600, 500], [500, 400], [400, 300], [600, 700], [500, 600], [800, 900], [800, 700]], inf), \pan, Pseq([Pseries(-0.8, 0.1, 8), 0], inf)))

Pdef(\fm, Pbind(\instrument, \fm, \dur, Pseq([Prand([Pseries(0.01, 0.02, 16), Pseries(0.01, 0.01, 8), Pseries(0.01, 0.01, 16), Pseries(0.02, 0.03, 6)], 1), 1], inf), \freq, Pseq([[400, 880], 450, [400, 880], 440, [400, 880], 600], inf), \freq2, Pseq([[1600, 500], [500, 400], [400, 300], [600, 700], [500, 600], [800, 900], [800, 700]], inf), \pan, Pseq([Pseries(-0.8, 0.1, 8), 0], inf)))

Pdef(\fm, Pbind(\instrument, \fm, \dur, Pseq([Prand([Pseries(0.01, 0.02, 16), Pseries(0.01, 0.01, 8), Pseries(0.01, 0.01, 16), Pseries(0.02, 0.03, 6)], 1), 1], inf), \freq, Pseq([[400, 880], 450, [400, 880], 440, [400, 880], 600], inf), \freq2, Pseq([[1600, 500], [500, 400], [1400, 300], [600, 700], [500, 600], [800, 900], [800, 700]], inf), \pan, Pseq([Pseries(-0.8, 0.1, 8), 0], inf)))

Pdef(\fm, Pbind(\instrument, \fm, \dur, Pseq([Prand([Pseries(0.01, 0.02, 16), Pseries(0.01, 0.01, 8), Pseries(0.01, 0.01, 16), Pseries(0.02, 0.03, 6)], 1), 1], inf), \freq, Pseq([[400, 880], 450, [400, 880], 440, [400, 880], 600], inf), \freq2, Pseq([[1600, 500], [500, 400], [1400, 300], [600, 700], [1500, 600], [800, 1900], [800, 700]], inf), \pan, Pseq([Pseries(-0.8, 0.1, 8), 0], inf)))

Pdef(\fm, Pbind(\instrument, \fm, \dur, Pseq([Prand([Pseries(0.01, 0.02, 16), Pseries(0.01, 0.01, 8), Pseries(0.01, 0.01, 16), Pseries(0.02, 0.03, 6)], 1), 1], inf), \freq, Pseq([[400, 880], 450, [400, 880], 440, [400, 880], 600], inf), \freq2, Pseq([[1600, 500], [500, 400], [1400, 300], [600, 700], [1500, 600], [800, 1900], [800, 700]], inf), \pan, Pseq([Pseries(-0.8, 0.1, 8), 0], inf), \strum, Pseq([0, 0.05, 0, 0.1], inf)))

Pdef(\fm, Pbind(\instrument, \fm, \dur, Pseq([Prand([Pseries(0.01, 0.02, 16), Pseries(0.01, 0.01, 8), Pseries(0.01, 0.01, 16), Pseries(0.02, 0.03, 6)], 1), 1], inf), \freq, Pseq([[400, 880], 450, [400, 880], 440, [400, 880], 600], inf), \freq2, Pseq([[1600, 500], [500, 400], [1400, 300], [600, 700], [1500, 600], [800, 1900], [800, 700]], inf), \pan, Pseq([Pseries(-0.8, 0.1, 8), 0], inf), \strum, Pseq([0, 0.05, 0, 0.1], inf), \legato, Prand([0.8, 0.8, 0.5, 0.95], inf)))

Pdef(\fm, Pbind(\instrument, \fm, \dur, Pseq([Prand([Pseries(0.01, 0.02, 16), Pseries(0.01, 0.01, 8), Pseries(0.01, 0.01, 16), Pseries(0.02, 0.03, 6)], 1), 1], inf), \freq, Pseq([[400, 880], 450, [400, 880], 440, [400, 880], 600], inf)*2, \freq2, Pseq([[1600, 500], [500, 400], [1400, 300], [600, 700], [1500, 600], [800, 1900], [800, 700]], inf), \pan, Pseq([Pseries(-0.8, 0.1, 8), 0], inf), \strum, Pseq([0, 0.05, 0, 0.1], inf), \legato, Prand([0.8, 0.8, 0.5, 0.95], inf)))

Pdef(\fm, Pbind(\instrument, \fm, \dur, Pseq([Prand([Pseries(0.01, 0.02, 16), Pseries(0.01, 0.01, 8), Pseries(0.01, 0.01, 16), Pseries(0.02, 0.03, 6)], 1), 1], inf), \freq, Pseq([[400, 880], 450, [400, 880], 440, [400, 880], 600], inf)*2, \freq2, Pseq([[1600, 500], [500, 400], [1400, 300], [600, 700], [1500, 600], [800, 1900], [800, 700]], inf)/2, \pan, Pseq([Pseries(-0.8, 0.1, 8), 0], inf), \strum, Pseq([0, 0.05, 0, 0.1], inf), \legato, Prand([0.8, 0.8, 0.5, 0.95], inf)))

Pdef(\fm, Pbind(\instrument, \fm, \dur, Pseq([Prand([Pseries(0.01, 0.02, 16), Pseries(0.01, 0.01, 8), Pseries(0.01, 0.01, 16), Pseries(0.02, 0.03, 6)], 1), 1], inf), \freq, Pseq([[400, 880], 450, [400, 880], 440, [400, 880], 600], inf)*Pseq([3, 2], inf), \freq2, Pseq([[1600, 500], [500, 400], [1400, 300], [600, 700], [1500, 600], [800, 1900], [800, 700]], inf)/Pseq([3, 2], inf), \pan, Pseq([Pseries(-0.8, 0.1, 8), 0], inf), \strum, Pseq([0, 0.05, 0, 0.1], inf), \legato, Prand([0.8, 0.8, 0.5, 0.95], inf)))

a= 2
Pdef(\fm, Pbind(\instrument, \fm, \dur, Pseq([Prand([Pseries(0.01, 0.02, 16), Pseries(0.01, 0.01, 8), Pseries(0.01, 0.01, 16), Pseries(0.02, 0.03, 6)], 1), 1], inf), \freq, Pseq([[400, 880], 450, [400, 880], 440, [400, 880], 600], inf)*Pfunc({a.value}), \freq2, Pseq([[1600, 500], [500, 400], [1400, 300], [600, 700], [1500, 600], [800, 1900], [800, 700]], inf)/Pfunc({a.value}), \pan, Pseq([Pseries(-0.8, 0.1, 8), 0], inf), \strum, Pseq([0, 0.05, 0, 0.1], inf), \legato, Prand([0.8, 0.8, 0.5, 0.95], inf)))

Tdef(\a).play(c)
Tdef(\a, {inf.do{|i| if(i%4==0, {a= 3}); if(i%5==0, {a= 2}); 1.wait}})
Tdef(\a, {inf.do{|i| if(i%4==0, {a= 3}); if(i%5==0, {a= 2}); if(i%6==0, {i= 1}); 2.wait}})
Tdef(\a, {inf.do{|i| if(i%4==0, {a= 3}); if(i%5==0, {a= 2}); if(i%6==0, {i= 1}); if(i%7==0, {i= 4}); 2.wait}})

Pdef(\reg).play(c)
Pdef(\reg, Pbind(\instrument, \fm, \freq2, 100, \legato, 1.1))
Pdef(\reg, Pbind(\instrument, \fm, \freq2, [100, 150], \legato, 1.1))
Pdef(\reg, Pbind(\instrument, \fm, \freq2, [100, 150, 200], \legato, 1.1))
Pdef(\reg, Pbind(\instrument, \fm, \freq2, [100, 150, 200], \legato, 1.1, \dur, 0.5, \amp, Pseq([Pseries(0.1, 0.02, 5), Pseries(0.05, 0.02, 5)], inf)))
Pdef(\reg, Pbind(\instrument, \fm, \freq2, [100, 150, 200], \legato, 1.1, \dur, 0.5, \amp, Pseq([Pseries(0.1, 0.05, 5), Pseries(0.05, 0.05, 5)], inf)))
Pdef(\reg, Pbind(\instrument, \fm, \freq2, [100, 150, 200], \legato, 1.1, \dur, Pseq([0.5, 0.25, 0.25], inf), \amp, Pseq([Pseq([Pseries(0.1, 0.05, 5), Pseries(0.05, 0.05, 5)], 1), 0.01, 0.01], inf)))

Pdef(\reg, Pbind(\instrument, \fm, \freq2, [100, 150, 200]*Pseq([Pn(1, 12), Pn(2, 4)], inf), \legato, 1.1, \dur, Pseq([0.5, 0.25, 0.25], inf), \amp, Pseq([Pseq([Pseries(0.1, 0.05, 5), Pseries(0.05, 0.05, 5)], 1), 0.01, 0.01], inf)))

Pdef(\reg, Pbind(\instrument, \fm, \freq2, [100, 150, 200]*Pseq([Pn(1, 8), Pn(2, 4)], inf), \legato, 1.1, \dur, Pseq([0.5, 0.25, 0.25], inf), \amp, Pseq([Pseq([Pseries(0.1, 0.05, 5), Pseries(0.05, 0.05, 5)], 1), 0.01, 0.01], inf)))
Pdef(\reg, Pbind(\instrument, \fm, \freq2, [100, 150, 200]*Pseq([Pn(1, 8), Pn(1.33333, 4), Pn(1, 4), Pn(2, 4)], inf), \legato, 1.1, \dur, Pseq([0.5, 0.25, 0.25], inf), \amp, Pseq([Pseq([Pseries(0.1, 0.05, 5), Pseries(0.05, 0.05, 5)], 1), 0.01, 0.01], inf)))

Pdef(\fm, Pbind(\instrument, \fm, \dur, Pseq([Prand([Pseries(0.01, 0.02, 16), Pseries(0.01, 0.01, 8), Pseries(0.01, 0.01, 16), Pseries(0.02, 0.03, 6)], 1), 1], inf), \freq, Pseq([[400/2, 880], 450, [400, 880], 440, [400, 880/4], 600], inf)*Pfunc({a.value}), \freq2, Pseq([[1600, 500], [500, 1400], [1400, 300], [600, 1700], [1500, 600], [800, 1900], [800, 700]], inf)/Pfunc({a.value}), \pan, Pseq([Pseries(-0.8, 0.1, 8), 0], inf), \strum, Pseq([0, 0.05, 0, 0.1], inf), \legato, Prand([0.8, 0.8, 0.5, 0.95], inf)))

Tdef(\a, {inf.do{|i| if(i%4==0, {a= 3}); if(i%5==0, {a= 2}); if(i%6==0, {i= 0.5}); if(i%7==0, {i= 4}); 2.wait}})

Pdef(\reg, Pbind(\instrument, \fm, \freq2, [100, 150, 400]*Pseq([Pn(1, 8), Pn(1.33333, 4), Pn(1, 4), Pn(2, 4)], inf), \legato, 0.6, \dur, Pseq([0.5, 0.125, 0.75], inf), \amp, Pseq([Pseq([Pseries(0.1, 0.05, 5), Pseries(0.05, 0.05, 5)], 1), 0.01, 0.01], inf)))

Pdef(\reg, Pbind(\instrument, \fm, \freq2, [100, 150, 400]*Pseq([Pn(1, 8), Pn(1.33333, 4), Pn(1, 4), Pn(2, 4)], inf), \legato, 0.6, \dur, Pseq([0.5, 0.125, 0.75], inf), \amp, Pseq([Pseq([Pseries(0.1, 0.025, 10), Pseries(0.05, 0.025, 10)], 1), 0.01, 0.01], inf)))

Pdef(\slow).play(c)
Pdef(\slow, Pbind(\instrument, \fm, \legato, 1, \freq2, 3000, \dur, 4, \amp, 0.02))
Pdef(\slow, Pbind(\instrument, \fm, \legato, 1, \freq2, 2200, \dur, 4, \amp, 0.02))
Pdef(\slow, Pbind(\instrument, \fm, \legato, 1, \freq2, Pseq([3000, 2200], inf), \dur, 4, \amp, 0.02))
Pdef(\slow, Pbind(\instrument, \fm, \legato, 1.2, \freq2, Pseq([3000, 2200], inf), \dur, 4, \amp, 0.01))
Pdef(\slow, Pbind(\instrument, \fm, \legato, 1.2, \freq2, Pseq([Pseq([3000, 2200], 3), 2200, 2600], inf), \dur, 4, \amp, 0.01))
Pdef(\slow2).play(c)
Pdef(\slow2, Pbind(\instrument, \fm, \legato, 1.2, \freq2, Pseq([Pseq([3000, 2200], 3), 2200, 2600], inf)*1.5, \dur, 3.5, \amp, 0.01, \freq, 10))
Pdef(\slow, Pbind(\instrument, \fm, \legato, 1.2, \freq2, Pseq([Pseq([3000, 2200], 3), 2200, 2600], inf), \dur, 4, \amp, 0.01, \freq, 6))
Pdef(\slow2, Pbind(\instrument, \fm, \legato, 1.2, \freq2, Pseq([Pseq([2200, 3000], 2), 2600, 2200], inf)*1.5, \dur, 3.5, \amp, 0.01, \freq, 8))

Pdef(\reg, Pbind(\instrument, \fm, \freq2, [100, 150, 400]*Pseq([Pn(1, 8), Pn(1.33333, 4), Pn(1, 4), Pn(2, 4)], inf), \legato, 0.1, \dur, Pseq([0.5, 0.125, 0.75], inf), \amp, Pseq([Pseq([Pseries(0.1, 0.025, 10), Pseries(0.05, 0.025, 10)], 1), 0.01, 0.01], inf)))

Pdef(\reg, Pbind(\instrument, \fm, \freq2, [100, 150, 800]*Pseq([Pn(1, 8), Pn(1.33333, 4), Pn(1, 4), Pn(2, 4)], inf), \legato, 0.1, \dur, Pseq([0.5, 0.125, 0.75], inf), \amp, Pseq([Pseq([Pseries(0.08, 0.025, 10), Pseries(0.05, 0.025, 5)], 1), 0.01, 0.01], inf)))

Pdef(\fm, Pbind(\instrument, \fm, \dur, 2*Pseq([Prand([Pseries(0.01, 0.02, 16), Pseries(0.01, 0.01, 8), Pseries(0.01, 0.01, 16), Pseries(0.02, 0.03, 6)], 1), 1], inf), \freq, Pseq([[400/2, 880], 450, [400, 880], 440, [400, 880/4], 600], inf)*Pfunc({a.value}), \freq2, Pseq([[1600, 500], [500, 1400], [1400, 300], [600, 1700], [1500, 600], [800, 1900], [800, 700]], inf)/Pfunc({a.value}), \pan, Pseq([Pseries(-0.8, 0.1, 8), 0], inf), \strum, Pseq([0, 0.05, 0, 0.1], inf), \legato, Prand([0.8, 0.8, 0.5, 0.95], inf)))

Pdef(\fm, Pbind(\instrument, \fm, \dur, 3*Pseq([Prand([Pseries(0.01, 0.02, 16), Pseries(0.01, 0.01, 8), Pseries(0.01, 0.01, 16), Pseries(0.02, 0.03, 6)], 1), 1], inf), \freq, Pseq([[400/2, 880], 450, [400, 880], 440, [400, 880/4], 600], inf)*Pfunc({a.value}), \freq2, Pseq([[1600, 500], [500, 1400], [1400, 300], [600, 1700], [1500, 600], [800, 1900], [800, 700]], inf)/Pfunc({a.value}), \pan, Pseq([Pseries(-0.8, 0.1, 8), 0], inf), \strum, Pseq([0, 0.05, 0, 0.1], inf), \legato, Prand([0.8, 0.8, 0.5, 0.95], inf)))

Pdef(\fm, Pbind(\instrument, \fm, \dur, 4*Pseq([Prand([Pseries(0.01, 0.02, 16), Pseries(0.01, 0.01, 8), Pseries(0.01, 0.01, 16), Pseries(0.02, 0.03, 6)], 1), 1], inf), \freq, Pseq([[400/2, 880], 450, [400, 880], 440, [400, 880/4], 600], inf)*Pfunc({a.value}), \freq2, Pseq([[1600, 500], [500, 1400], [1400, 300], [600, 1700], [1500, 600], [800, 1900], [800, 700]], inf)/Pfunc({a.value}), \pan, Pseq([Pseries(-0.8, 0.1, 8), 0], inf), \strum, Pseq([0, 0.05, 0, 0.1], inf), \legato, Prand([0.8, 0.8, 0.5, 0.95], inf)))

Pdef(\slow2, Pbind(\instrument, \fm, \legato, 0.8, \freq2, Pseq([Pseq([2200, 3000], 2), 2600, 2200], inf)*1.5, \dur, 3.5, \amp, 0.01, \freq, 3))
Pdef(\slow, Pbind(\instrument, \fm, \legato, 0.8, \freq2, Pseq([Pseq([3000, 2200], 3), 2200, 2600], inf), \dur, 4, \amp, 0.01, \freq, 4))

Pdef(\slow2, Pbind(\instrument, \fm, \legato, 0.1, \freq2, Pseq([Pseq([1200, 3000], 2), 2600, 2200], inf)*1.5, \dur, 3.5, \amp, 0.01, \freq, 3))
Pdef(\slow, Pbind(\instrument, \fm, \legato, 0.1, \freq2, Pseq([Pseq([3000, 1200], 3), 2200, 2600], inf), \dur, 4, \amp, 0.01, \freq, 4))

Pdef(\reg, Pbind(\instrument, \fm, \freq2, [100, 150, 800]*Pseq([Pn(1, 8), Pn(1.33333, 4), Pn(1, 4), Pn(2, 4)], inf), \legato, 0.01, \dur, Pseq([0.5, 0.125, 0.75], inf), \amp, Pseq([Pseq([Pseries(0.08, 0.025, 10), Pseries(0.05, 0.025, 5)], 1), 0.01, 0.01], inf), \stretch, 1.25))

Pdef(\reg, Pbind(\instrument, \fm, \freq2, [100, 150, 800]*Pseq([Pn(1, 8), Pn(1.33333, 4), Pn(1, 4), Pn(2, 4)], inf), \legato, 0.01, \dur, Pseq([0.5, 0.125, 0.75], inf), \amp, Pseq([Pseq([Pseries(0.08, 0.025, 10), Pseries(0.05, 0.025, 5)], 1), 0.01, 0.01], inf), \stretch, 1.5))

Pdef(\reg, Pbind(\instrument, \fm, \freq2, [100, 150, 800]*Pseq([Pn(1, 8), Pn(1.33333, 4), Pn(1, 4), Pn(2, 4)], inf), \legato, 0.01, \dur, Pseq([0.5, 0.125, 0.75], inf), \amp, 0.5*Pseq([Pseq([Pseries(0.08, 0.025, 10), Pseries(0.05, 0.025, 5)], 1), 0.01, 0.01], inf), \stretch, 1.66667))

Pdef(\reg, Pbind(\instrument, \fm, \freq2, [100, 150, 800]*Pseq([Pn(1, 8), Pn(1.33333, 4), Pn(1, 4), Pn(2, 4)], inf), \legato, 0.01, \dur, Pseq([0.5, 0.125, 0.75], inf), \amp, 0.3*Pseq([Pseq([Pseries(0.08, 0.025, 10), Pseries(0.05, 0.025, 5)], 1), 0.01, 0.01], inf), \stretch, 2))

Pdef(\reg, Pbind(\instrument, \fm, \freq2, [50, 150, 800]*Pseq([Pn(1, 8), Pn(1.33333, 4), Pn(1, 4), Pn(2, 4)], inf), \legato, 0.01, \dur, Pseq([0.5, 0.125, 0.75], inf), \amp, 0.3*Pseq([Pseq([Pseries(0.08, 0.025, 10), Pseries(0.05, 0.025, 5)], 1), 0.01, 0.01], inf), \stretch, 2))

Pdef(\reg).stop
Pdef(\slow2).stop
c.tempo= c.tempo*0.9
c.tempo= c.tempo*0.9
c.tempo= c.tempo*0.9
Pdef(\slow).stop
c.tempo= c.tempo*0.9
c.tempo= c.tempo*0.9
c.tempo
c.tempo= c.tempo*0.9
Pdef(\fm).stop
p.clear
p.pop