// title: Midterm Q1
// author: unknown
// description:

// code:
(
SynthDef( "pulsey",{arg freq, amp;
	var env, snd;
	env = Env.perc(attackTime: 0.2,
		releaseTime: 4,
		level: amp).kr(doneAction:2);
	snd = Pulse.ar(
		freq: freq*LFNoise2.kr([4, 5, 7]).range(0.988, 1.011),
		mul:env);
	snd = LPF.ar(in: snd, freq: 1000);
	snd = Splay.ar(snd);
	Out.ar(0, snd);


}).add;
)

(
m = [72, 79, 77, 79, 82, 79, 87, 86, 84, 82, 84, 79];


Pbind(
    \instrument, "pulsey",
    \midinote, Pseq(m, inf),
    \dur, Pseq([Pn(0.5, 5),    1.5], inf),
    \amp, Pwhite(0.15, 0.2)
).play;


Pbind(
    \instrument, "pulsey",
    \midinote, Pseq(m.reverse, inf),
    \dur, Pseq([Pn(0.5, 5), 1.5], inf),
    \ctranspose, Pwrand([-12, -7, -24], [0.8, 0.1, 0.1], inf),
    \amp, 0.08,
).play;
)