// title: Side to Side flip
// author: hwright
// description:
// https://drive.google.com/open?id=0B3bl8mC-wzC1eDhPNXFaTkhxQlE
// code:
// =================================
// HARRISON WRIGHT MSC 115
// FINAL ASSIGNMENT
// =================================
(
e = Buffer.read(s, "/Users/harrisonwright/Desktop/Sample Remix Supercollider/LSE Kick 3 copy.wav");
f = Buffer.read(s, "/Users/harrisonwright/Desktop/Sample Remix Supercollider/Clap_Wonderful.wav");
g = Buffer.read(s, "/Users/harrisonwright/Desktop/Sample Remix Supercollider/Side to side acca.wav");
h = Buffer.read(s, "/Users/harrisonwright/Desktop/Sample Remix Supercollider/Sidetoside aca beginning.wav");
i = Buffer.read(s, "/Users/harrisonwright/Desktop/Sample Remix Supercollider/Kick_Musket copy.wav");
j = Buffer.read(s, "/Users/harrisonwright/Desktop/Sample Remix Supercollider/Vocalchoppattern.wav");
k = Buffer.read(s, "/Users/harrisonwright/Desktop/Sample Remix Supercollider/Subhigh.wav");
l = Buffer.read(s, "/Users/harrisonwright/Desktop/Sample Remix Supercollider/sublow.wav");
m = Buffer.read(s, "/Users/harrisonwright/Desktop/Sample Remix Supercollider/voc1chop.wav");
n = Buffer.read(s, "/Users/harrisonwright/Desktop/Sample Remix Supercollider/voc2chop.wav");
)
j.duration;
/////////////
//SynthDefs
////////////

(
SynthDef("tubebell", { arg freq = 440, amp = 0.5, rel = 2, ffreq = 440, rq = 1, delay = 0.25, decay = 1, panning = 0;

	var ampenv1 = EnvGen.kr(Env.perc(0.00000001, rel, amp * 0.707, -4));
	var ampenv2 = EnvGen.kr(Env.perc(0.0000001, rel, amp, -8), doneAction: 2);
	var ampmod = SinOsc.ar(2, mul: 0.007, add: 0.993);

	var freqdev1 = freq * SinOsc.ar(freq * 1.414 * 0.995, mul: 0.203);
	var freqdev2 = freq * SinOsc.ar(freq * 1.414, mul: 0.144);

	var osc0 = SinOsc.ar(freq * 0.995 + freqdev1, mul: ampenv1);
	var osc2 = SinOsc.ar(freq * 1.005 + freqdev2, mul: ampenv2);

	var snd = (osc0 + osc2) * ampmod;
	 snd = BPF.ar(snd, ffreq, rq);
	snd = CombC.ar(snd, maxdelaytime: 2, delaytime: delay, decaytime: decay);
    snd = Pan2.ar(snd, panning);

	Out.ar(0, [snd, snd]);
}).add;

SynthDef("electric", { arg
	out = 0,
	freq = 300,
	amp = 1,
	gate = 1,
	spread = 0.8,
	noiselevel = 0.2,
	minfreq = 50,
	decaytime = 1,
	ffreq = 500,
	rq = 0.3,
	vibratoSpeed = 0,
	vibratoDepth = 10,
	lpf;
	// adsr as NamedControl;
	// ffreqtab as NamedControl;

	var env, sig;
	env = EnvGen.kr(
		envelope: NamedControl.kr(\adsr, Env.adsr(0.5, 0.1, 0.8, 0.4)),
		gate: gate,
		doneAction: 2);
	sig = WhiteNoise.ar(noiselevel) + ClipNoise.ar(noiselevel);
	sig = sig + AllpassC.ar(
		in: sig,
		maxdelaytime: 1/minfreq,
		delaytime: 1/(freq + SinOsc.kr(vibratoSpeed, mul: vibratoDepth)),
		decaytime: decaytime);
	sig = RLPF.ar(
		in: sig,
		freq: ffreq * NamedControl.kr(\ffreqtab, (1!10)),
		rq: rq);
	sig = LPF.ar( sig, lpf, amp);
	sig = Splay.ar(sig, spread: spread);
	sig = sig * env * amp;
	Out.ar(out, sig);
}).add;

SynthDef("play", {arg rate = 1, amp = 1, buffer, startPos = 0, attack = 0.02, release = 0.5, panning = 0, ffreq, rq, dur;
    var snd, env;
	env = Env.linen(attackTime: 0, sustainTime: dur, releaseTime: 0, level: amp).kr(doneAction: 2);
    snd = PlayBuf.ar(
        numChannels: 2,
        bufnum: buffer,
        rate: rate,
        startPos: startPos.linlin(0, 1, 0, BufFrames.kr(buffer))
    );
	snd = snd;
	snd = BPF.ar(snd, ffreq, rq, env);
    snd = Pan2.ar(snd, panning);
    Out.ar(0, snd);
}).add;


SynthDef("play2", {arg rate = 1, amp = 1, buffer, startPos = 0, attack = 0.02, release = 0.5, panning = 0, ffreq, rq, dur;
    var snd, env;
	env = Env.linen(attackTime: 0, sustainTime: dur, releaseTime: 0, level: amp).kr(doneAction: 2);
    snd = PlayBuf.ar(
        numChannels: 2,
        bufnum: buffer,
        rate: rate,
        startPos: startPos.linlin(0, 1, 0, BufFrames.kr(buffer))
    );
	snd = snd;
	snd = HPF.ar(snd, ffreq, env);
    snd = Pan2.ar(snd, panning);
    Out.ar(0, snd);
}).add;

SynthDef("granny1", {arg rate = 1, amp = 1, buffer, startPos = 0, attack = 0.02, release = 0.5, panning = 0;
    var snd, env;
    env = Env.perc(attackTime: attack, releaseTime: release, level: amp).kr(doneAction: 2);
    snd = PlayBuf.ar(
        numChannels: 2,
        bufnum: buffer,
        rate: rate,
        startPos: startPos.linlin(0, 1, 0, BufFrames.kr(buffer))
    );
    snd = snd * env;
	snd = Pan2.ar(snd, panning);
    Out.ar(0, snd);
}).add;

SynthDef("bass", {arg amp = 0.1, freq = 440, decay = 5, dampen = 0.1;
var env, snd;
env = Env.linen(0, decay, 0).kr(doneAction: 2);
snd = Pluck.ar(
        in: WhiteNoise.ar(amp),
        trig: Impulse.kr(0),
        maxdelaytime: 0.2,
        delaytime: freq.reciprocal,
        decaytime: decay,
        coef: dampen);

	snd = BPF.ar(in: snd, freq: 100, rq: 1);

    Out.ar(0, [snd, snd]);
}).add;

SynthDef("wow", {arg freq = 60, amp = 0.1, gate = 1, wowrelease = 3;
	var chorus, source, filtermod, env, snd;
	chorus = freq.lag(2) * LFNoise2.kr([0.4, 0.5, 0.7, 1, 2, 5, 10]).range(1, 1.02);
	source = LFSaw.ar(chorus) * 0.5;
	filtermod = SinOsc.kr(1/16).range(1, 10);
	env = Env.asr(1, amp, wowrelease).kr(2, gate);
	snd = LPF.ar(in: source, freq: freq * filtermod, mul: env);
Out.ar(0, Splay.ar(snd))
}).add;

SynthDef("bubble", {arg freq, amp, rel, rq, sus;
	var snd, env;
	env = Env.linen(0.01, sus, rel, amp).kr(doneAction: 2, gate: 1);
	snd = (({RHPF.ar(OnePole.ar(BrownNoise.ar, 0.99), LPF.ar(BrownNoise.ar, 14) * 400 + 500, 0.03, 0.003)}!2) + ({RHPF.ar(OnePole.ar(BrownNoise.ar, 0.99), LPF.ar(BrownNoise.ar, 20) * 800 + 1000, 0.03, 0.005)}!2) * 4);
	snd = BPF.ar (snd, freq, rq, env);
	Out.ar(0, snd)

}).add;

SynthDef("saws", {arg freq, amp, gliss = 0.1, gate = 1, rel;

	var snd, env;
	env = Env.perc(0.01, rel, amp).kr(doneAction: 2, gate: gate);
	snd = Saw.ar(freq: Lag.kr(freq, gliss), mul: env);
	Out.ar(0, [snd, snd])
}).add;
)

//////
//Pbinds
///////
(


~introp = Pbind(
	\dur, Pseq([Rest(1), 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1], 1),
	\midinote, Pseq([\rest, [73, 69, 66], [73, 69, 66], [68, 64, 61], [71, 68, 64], [73, 69, 66], [73, 69, 66], [68, 64, 61], [71, 68, 64], [69, 66, 62], [69, 66, 62], [71, 68, 64], [71, 68, 64], [73, 69, 66], [73, 69, 66], [73, 69, 66], [71, 68, 64]], 1),
	\amp, 0.1,
	\legato, 0.4,
);


~introb = Pbind(
	\instrument, "tubebell",
	\dur, Pseq([Rest(1), 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1], 1),
	\midinote, Pseq([\rest, [73, 69, 66], [73, 69, 66], [68, 64, 61], [71, 68, 64], [73, 69, 66], [73, 69, 66], [68, 64, 61], [71, 68, 64], [69, 66, 62], [69, 66, 62], [71, 68, 64], [71, 68, 64], [73, 69, 66], [73, 69, 66], [73, 69, 66], [71, 68, 64]], 1),
	\amp, Pwhite(0.1, 0.2),
	\legato, 0.5,
	\rel, 0.5,
	\delay, Pseq( [\rest, 0.2, 0, 0.2, 0, 0.2, 0, 0.2, 0, 0.2, 0, 0.2, 0, 0.2, 0, 0.2, 0.2], 1),
	\amp, 0.1
);

~introg = Pbind(
	\instrument, "electric",
	\dur, Pseq([Rest(1), 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1], 1),
	\midinote, Pseq([\rest, [73, 69, 66], [73, 69, 66], [68, 64, 61], [71, 68, 64], [73, 69, 66], [73, 69, 66], [68, 64, 61], [71, 68, 64], [69, 66, 62], [69, 66, 62], [71, 68, 64], [71, 68, 64], [73, 69, 66], [73, 69, 66], [73, 69, 66], [71, 68, 64]], 1),
	\detune, 1,
	\legato, 0.4,
	\ffreqtab, [ 3, 4, 5, 10, 8, 1.2, 1.8, 1.1, 2, 1  ],
	\amp, 2.5,
	\adsr, [Env.adsr(0.02, 0.1, 0.5, 0.1, curve: 0.5)],
	\lpf, 400,
);


~introg2 = Pbind(
	\instrument, "electric",
	\dur, Pseq([Rest(1), 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1], 1),
	\midinote, Pseq([\rest, [73, 69, 66], [73, 69, 66], [68, 64, 61], [71, 68, 64], [73, 69, 66], [73, 69, 66], [68, 64, 61], [71, 68, 64], [69, 66, 62], [69, 66, 62], [71, 68, 64], [71, 68, 64], [73, 69, 66], [73, 69, 66], [73, 69, 66], [71, 68, 64]], 1),
	\detune, 1,
	\legato, 0.4,
	\ffreqtab, [ 3, 4, 5, 10, 8, 1.2, 1.8, 1.1, 2, 1  ],
	\amp, 0.75,
	\adsr, [Env.adsr(0.02, 0.1, 0.5, 0.1, curve: 0.5)],
	\lpf, 20000,
);

~kickintro = Pbind(
	\instrument, "play",
	\rate, 1,
	\dur, Pseq([2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2], 1),
	\amp, Pseq([0.25], 17),
	\startPos, 0,
	\buffer, e,
	\panning, 0,
	\ffreq, 200,
	\rq, 0.5
);

~kick = Pbind(
	\instrument, "play2",
	\rate, 1,
	\dur, Pseq([6/4, 2/4, 6/4, 4/4, 4/4, 2/4, 8/4, 6/4, 2/4, 6/4, 4/4, 4/4, 2/4, 8/4, 6/4, 2/4, 6/4, 4/4, 4/4, 2/4, 8/4, 6/4, 2/4, 6/4, 4/4, 4/4, 2/4, 6/4, 1/4, 1/4], 1),
	\amp, Pseq([0.15], 30),
	\startPos, 0,
	\buffer, e,
	\panning, 0,
	\ffreq, 0,

);

~kick2 = Pbind(
	\instrument, "play2",
	\rate, 1,
	\dur, Pseq([6/4, 2/4, 6/4, 4/4, 4/4, 2/4, 8/4, 6/4, 2/4, 6/4, 4/4, 4/4, 2/4, 8/4, 6/4, 2/4, 6/4, 4/4, 4/4, 2/4, 8/4, 6/4, 2/4, 6/4, 4/4, 4/4, 2/4, 6/4, 1/4, 1/4], 1),
	\amp, Pseq([0.25], 30),
	\startPos, 0,
	\buffer, i,
	\panning, 0,
	\ffreq, 0,

);

~kickdrop1 = Pbind(
	\instrument, "play2",
	\rate, 1,
	\dur, Pseq([2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2], 1),
	\amp, Pseq([0.25], 12),
	\startPos, 0,
	\buffer, i,
	\panning, 0,
	\ffreq, 0,
);

~kickdrop2 = Pbind(
	\instrument, "play2",
	\rate, 1,
	\dur, Pseq([Rest(24), 1, 1, 1, 1], 1),
	\amp, Pseq([0.25], 5),
	\startPos, 0,
	\buffer, i,
	\panning, 0,
	\ffreq, 0,
);

~kickdrop3 = Pbind(
	\instrument, "play2",
	\rate, 1,
	\dur, Pseq([Rest(28), 1/2, 1/2, 1/2, 1/2, 1/2, 1/2, 1/2, 1/2], 1),
	\amp, Pseq([0.25], 9),
	\startPos, 0,
	\buffer, i,
	\panning, 0,
	\ffreq, 0,
);

~kickkdrop1 = Pbind(
	\instrument, "play2",
	\rate, 1,
	\dur, Pseq([2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2], 1),
	\amp, Pseq([0.15], 12),
	\startPos, 0,
	\buffer, e,
	\panning, 0,
	\ffreq, 0,
);

~kickkdrop2 = Pbind(
	\instrument, "play2",
	\rate, 1,
	\dur, Pseq([Rest(24), 1, 1, 1, 1], 1),
	\amp, Pseq([0.15], 5),
	\startPos, 0,
	\buffer, e,
	\panning, 0,
	\ffreq, 0,
);

~kickkdrop3 = Pbind(
	\instrument, "play2",
	\rate, 1,
	\dur, Pseq([Rest(28), 1/2, 1/2, 1/2, 1/2, 1/2, 1/2, 1/2, 1/2], 1),
	\amp, Pseq([0.15], 9),
	\startPos, 0,
	\buffer, e,
	\panning, 0,
	\ffreq, 0,
);

~kickrise = Pbind(
	\instrument, "play2",
	\rate, 1,
	\dur, Pseq([6/4, 2/4, 6/4, 4/4, 4/4, 2/4, 8/4, 6/4, 2/4, 6/4, 4/4, 4/4, 2/4, 8/4, 6/4, 2/4, 6/4, 4/4, 4/4, 2/4], 1),
	\amp, Pseq([0.15], 30),
	\startPos, 0,
	\buffer, e,
	\panning, 0,
	\ffreq, 0,

);

~kick2rise = Pbind(
	\instrument, "play2",
	\rate, 1,
	\dur, Pseq([6/4, 2/4, 6/4, 4/4, 4/4, 2/4, 8/4, 6/4, 2/4, 6/4, 4/4, 4/4, 2/4, 8/4, 6/4, 2/4, 6/4, 4/4, 4/4, 2/4], 1),
	\amp, Pseq([0.25], 30),
	\startPos, 0,
	\buffer, i,
	\panning, 0,
	\ffreq, 0,

);

~subh = Pbind(
	\instrument, "play2",
	\rate, 1,
	\dur, Pseq([4, Rest(4)], 4),
	\amp, Pseq([0.45], 8),
	\startPos, 0,
	\buffer, k,
	\panning, 0,
	\ffreq, 0,
);

~subl = Pbind(
	\instrument, "play2",
	\rate, 1,
	\dur, Pseq([Rest(4), 4 ], 4),
	\amp, Pseq([0.45], 8),
	\startPos, 0,
	\buffer, l,
	\panning, 0,
	\ffreq, 0,
);

~clap = Pbind(
	\instrument, "play2",
	\rate, 1,
	\dur, Pseq([Rest(2), 4, 4, 4, 4, 4, 4, 4, 2], 1),
	\amp, Pseq([0.35], 9),
	\startPos, 0,
	\buffer, f,
	\panning, 0,
	\ffreq, 0,
);

~one = Pbind(
    \instrument, "granny1",
	\rate, Pseq([ 1], inf),
    \amp, 1,
	\startPos, Pseq([0.5, 0.5, 0.5, 0.519, 0.25, 0.52, 0.25, 0.52, 0.25, 0.519, 0.25, 0.52, 0.25, 0.5, 0.75, \rest, 0.5, 0.75, 0.75, \rest, 0.75, 0.5], 1),
    \attack, 0.01,
    \release, 0.3,
    \buffer, g,
	\dur, Pseq([2/4, 2/4, 2/4, 4/4, 4/4, 26/4, 2/4, 2/4, 1/4, 1/4, 2/4, 2/4, 2/4, 2/4, 4/4, 2/4, 2/4, 2/4, 2/4, 4/4, 4/4, 32/4], 1),
);

~vocals = Pbind(
	\instrument, "play2",
	\dur, Pseq([12.079410430839], 1),
	\amp, 0.2,
	\startPos, 0,
	\buffer, h,
	\panning, 0,
	\ffreq, 100,
);

~vocalchops = Pbind(
	\instrument, "play2",
	\dur, Pseq([12.079410430839], 1),
	\amp, 0.35,
	\startPos, 0,
	\buffer, j,
	\panning, 0,
	\ffreq, 100,
);

~bass = Pbind(
	\instrument, "bass",
	\midinote, Pseq([\rest, 54, 54, 54, 54, 54, 54, 50, 50, 54, 54, 54], 1),
	\ctranspose, [-12, -12],
	\dur, Pseq([Rest(2), 6/4, 10/4, 16/4, 6/4, 10/4, 16/4, 6/4, 26/4, 6/4, 10/4, 8/4], 1),
	\rel, Pseq([Rest(2), 6/4, 10/4, 16/4, 6/4, 10/4, 16/4, 6/4, 26/4, 6/4, 10/4, 8/4], 1),
	\amp, 1.5,
    \dampen, 0.9
);

~pad = Pbind(
	\instrument, "wow",
	\midinote, Pseq([ 42, 37, 40, 42, 37, 40, 38, 40, 42], 1),
	\dur, Pseq([4, 2, 2, 4, 2, 2, 4, 4, 8], 1),
	\amp, 0.15
);

~bubble = Pbind(
	\instrument, "bubble",
	\dur, Pseq([10], 1),
	\sus, 1,
	\freq, 440,
	\amp, 75,
	\rq, 0.01,
	\rel, 10
);

~bubbleend = Pbind(
	\instrument, "bubble",
	\dur, Pseq([Rest(10), 10], 1),
	\sus, 1,
	\freq, 440,
	\amp, 75,
	\rq, 0.01,
	\rel, 10
);

~introp2 = Pbind(
	\dur, Pseq([4/8, 4/8, 2, 1, 1, 1, 1, 1, 4/8, 4/8, 2, 1, 1, 1, 1, 1, 4/8, 4/8, 2, 1, 1, 1, 1, 1, 4/8, 4/8, 2, 1, 1, 1, 1, 1], 1),
	\midinote, Pseq([ [73, 69, 66], [71, 68, 64], [73, 69, 66], [73, 69, 66], [73, 69, 66], [68, 64, 61], [73, 69, 66], [71, 68, 64], [73, 69, 66], [71, 68, 64], [73, 69, 66], [73, 69, 66], [73, 69, 66], [68, 64, 61], [73, 69, 66], [71, 68, 64], [73, 69, 66], [71, 68, 64], [73, 69, 66], [69, 66, 62], [69, 66, 62], [71, 68, 64], [73, 69, 66], [71, 68, 64], [73, 69, 66], [71, 68, 64], [73, 69, 66], [73, 69, 66], [73, 69, 66], [73, 69, 66], [71, 68, 64], [71, 68, 64]], 1),
	\amp, 0.1,
	\legato, 0.4,
);

~introb2 = Pbind(
	\instrument, "tubebell",
	\dur, Pseq([4/8, 4/8, 2, 1, 1, 1, 1, 1, 4/8, 4/8, 2, 1, 1, 1, 1, 1, 4/8, 4/8, 2, 1, 1, 1, 1, 1, 4/8, 4/8, 2, 1, 1, 1, 1, 1], 1),
	\midinote, Pseq([ [73, 69, 66], [71, 68, 64], [73, 69, 66], [73, 69, 66], [73, 69, 66], [68, 64, 61], [73, 69, 66], [71, 68, 64], [73, 69, 66], [71, 68, 64], [73, 69, 66], [73, 69, 66], [73, 69, 66], [68, 64, 61], [73, 69, 66], [71, 68, 64], [73, 69, 66], [71, 68, 64], [73, 69, 66], [69, 66, 62], [69, 66, 62], [71, 68, 64], [73, 69, 66], [71, 68, 64], [73, 69, 66], [71, 68, 64], [73, 69, 66], [73, 69, 66], [73, 69, 66], [73, 69, 66], [71, 68, 64], [71, 68, 64]], 1),
	\amp, Pwhite(0.1, 0.2),
	\legato, 0.5,
	\rel, 0.5,
	\delay, 0,
	\amp, 0.1
);

~introg22 = Pbind(
	\instrument, "electric",
	\dur, Pseq([4/8, 4/8, 2, 1, 1, 1, 1, 1, 4/8, 4/8, 2, 1, 1, 1, 1, 1, 4/8, 4/8, 2, 1, 1, 1, 1, 1, 4/8, 4/8, 2, 1, 1, 1, 1, 1], 1),
	\midinote, Pseq([ [73, 69, 66], [71, 68, 64], [73, 69, 66], [73, 69, 66], [73, 69, 66], [68, 64, 61], [73, 69, 66], [71, 68, 64], [73, 69, 66], [71, 68, 64], [73, 69, 66], [73, 69, 66], [73, 69, 66], [68, 64, 61], [73, 69, 66], [71, 68, 64], [73, 69, 66], [71, 68, 64], [73, 69, 66], [69, 66, 62], [69, 66, 62], [71, 68, 64], [73, 69, 66], [71, 68, 64], [73, 69, 66], [71, 68, 64], [73, 69, 66], [73, 69, 66], [73, 69, 66], [73, 69, 66], [71, 68, 64], [71, 68, 64]], 1),
	\detune, 1,
	\legato, 0.4,
	\ffreqtab, [ 3, 4, 5, 10, 8, 1.2, 1.8, 1.1, 2, 1  ],
	\amp, 2.5,
	\adsr, [Env.adsr(0.02, 0.1, 0.5, 0.1, curve: 0.5)],
	\lpf, 400,
);


~introg222 = Pbind(
	\instrument, "electric",
	\dur, Pseq([4/8, 4/8, 2, 1, 1, 1, 1, 1, 4/8, 4/8, 2, 1, 1, 1, 1, 1, 4/8, 4/8, 2, 1, 1, 1, 1, 1, 4/8, 4/8, 2, 1, 1, 1, 1, 1], 1),
	\midinote, Pseq([ [73, 69, 66], [71, 68, 64], [73, 69, 66], [73, 69, 66], [73, 69, 66], [68, 64, 61], [73, 69, 66], [71, 68, 64], [73, 69, 66], [71, 68, 64], [73, 69, 66], [73, 69, 66], [73, 69, 66], [68, 64, 61], [73, 69, 66], [71, 68, 64], [73, 69, 66], [71, 68, 64], [73, 69, 66], [69, 66, 62], [69, 66, 62], [71, 68, 64], [73, 69, 66], [71, 68, 64], [73, 69, 66], [71, 68, 64], [73, 69, 66], [73, 69, 66], [73, 69, 66], [73, 69, 66], [71, 68, 64], [71, 68, 64]], 1),
	\detune, 1,
	\legato, 0.4,
	\ffreqtab, [ 3, 4, 5, 10, 8, 1.2, 1.8, 1.1, 2, 1  ],
	\amp, 0.75,
	\adsr, [Env.adsr(0.02, 0.1, 0.5, 0.1, curve: 0.5)],
	\lpf, 20000,
);

~sawz = Pbind(
	\instrument, "saws",
	\dur, Pseq([4/8, 4/8, 2, 1, 1, 1, 1, 1, 4/8, 4/8, 2, 1, 1, 1, 1, 1, 4/8, 4/8, 2, 1, 1, 1, 1, 1, 4/8, 4/8, 2, 1, 1, 1, 1, 1], 1),
	\midinote, Pseq([ [73, 69, 66], [71, 68, 64], [73, 69, 66], [73, 69, 66], [73, 69, 66], [68, 64, 61], [73, 69, 66], [71, 68, 64], [73, 69, 66], [71, 68, 64], [73, 69, 66], [73, 69, 66], [73, 69, 66], [68, 64, 61], [73, 69, 66], [71, 68, 64], [73, 69, 66], [71, 68, 64], [73, 69, 66], [69, 66, 62], [69, 66, 62], [71, 68, 64], [73, 69, 66], [71, 68, 64], [73, 69, 66], [71, 68, 64], [73, 69, 66], [73, 69, 66], [73, 69, 66], [73, 69, 66], [71, 68, 64], [71, 68, 64]], 1),
	\amp, 0.09,
	\rel, 0.75
);

~a1 =Pbind(
	\instrument, "play2",
	\dur, Pseq([ 1, Rest(1), 1, Rest(1), 1, Rest(3), 1, Rest(3), 1, Rest(3), 1, Rest(3), 1, Rest(1), 1, Rest(1), 1, Rest(1), 1, Rest(1), 1, Rest(1), 1, Rest(1)], 1),
	\amp, 0.20,
	\startPos, 0,
	\buffer, m,
	\panning, 0,
	\ffreq, 0,
);

~a2 =Pbind(
	\instrument, "play2",
	\dur, Pseq([Rest(6), 1, Rest(3), 1, Rest(3), 1, Rest(3), 1, Rest(13)], 1),
	\amp, 0.20,
	\startPos, 0,
	\buffer, n,
	\panning, 0,
	\ffreq, 0,
);
)

// =================================
// Putting stuff together with Pspawner
// =================================

(
Pspawner({ arg maestro;

	maestro.seq( Ppar([ ~bubble, ~introp, ~introb, ~introg, ~clap, ~kickintro, ~pad ], 1));
	maestro.seq( Ppar([ ~introp, ~introb, ~introg2, ~introg, ~bass, ~clap, ~kick, ~kick2 ], 1));
	maestro.seq( Ppar([ ~introp, ~introb, ~introg2, ~introg, ~clap, ~bass, ~kick, ~kick2, ~vocals ], 1));
	maestro.seq( Ppar([ ~introp, ~introb, ~introg2, ~introg, ~clap, ~bass, ~kick2rise, ~kickrise, ~kickdrop2, ~kickdrop3, ~vocals ], 1));
	maestro.seq( Ppar([  ~introp, ~introb, ~introg2, ~introg, ~clap, ~kickdrop1, ~kickdrop2, ~kickdrop3, ~kickkdrop1, ~kickkdrop2, ~kickkdrop3, ~vocalchops, ~subh, ~subl ], 1));
	maestro.seq( Ppar([ ~introp, ~introb, ~introg2, ~introg, ~clap, ~kickdrop1, ~kickdrop2,~kickdrop3, ~kickkdrop1, ~kickkdrop2, ~kickkdrop3, ~vocalchops, ~subh, ~subl, ~a1, ~a2 ], 1));
	maestro.seq( Ppar([~sawz,  ~introp2, ~introb2, ~introg222, ~introg22, ~clap, ~bass, ~kick, ~kick2,  ~vocals ], 1));
	maestro.seq( Ppar([~sawz,  ~introp2, ~introb2, ~introg222, ~introg22, ~clap, ~bass, ~kick2rise, ~kickrise, ~kickdrop2, ~kickdrop3, ~vocals ], 1));
	maestro.seq( Ppar([ ~sawz,  ~introp2, ~introb2, ~introg222, ~introg22, ~clap, ~kickdrop1, ~kickdrop2, ~kickdrop3, ~kickkdrop1, ~kickkdrop2, ~kickkdrop3, ~vocalchops, ~subh, ~subl ], 1));
	maestro.seq( Ppar([~sawz,  ~introp2, ~introb2, ~introg222, ~introg22, ~clap, ~kickdrop1, ~kickdrop2,~kickdrop3, ~kickkdrop1, ~kickkdrop2, ~kickkdrop3, ~vocalchops, ~subh, ~subl, ~a1, ~a2 ], 1));
	maestro.seq( Ppar([ ~introp, ~introb, ~introg, ~clap, ~kick, ~kick2, ~pad, ~bubbleend ], 1));

}).play(TempoClock(159/60)));
)