///////////////////////////////////////////////////
// History, as it was on Thu Aug 10 09:41:33 2006.
///////////////////////////////////////////////////

// - 0:0:0 -  
"using the thinkpad beep sound"

// - 0:0:1.64 -  
SynthDef("ibm", { |out=0, freq=440, amp=0.1, pan= -1, sustain=0.01, attack=0|
		var env;
		env = EnvGen.ar(Env.linen(attack, sustain, 0, amp), doneAction:2);
		OffsetOut.ar(out,
			Pan2.ar(
				Pulse.ar(freq, 0.5, env),
				pan
			)
		)

}).store

// - 0:0:5.11 -  
Pdef(\think,
	Pbind(\instrument, \ibm, \dur, Pwhite(0.3, 7, inf), \sustain, 0.01).trace
).play;

// - 0:0:15.71 -  
Pdef(\think,
	Pbind(\instrument, \ibm, \dur, Pwhite(0.3, 7, inf), \sustain, 0.02).trace
).play;

// - 0:1:10.22 -  
SynthDef("ibm", { |out=0, freq=1000, amp=0.1, pan= -1, sustain=0.01, attack=0|
		var env;
		env = EnvGen.ar(Env.linen(attack, sustain, 0, amp), doneAction:2);
		OffsetOut.ar(out,
			Pan2.ar(
				Pulse.ar(freq, 0.5, env),
				pan
			)
		)

}).store

// - 0:1:20.55 -  
Pdef(\think,
	Ppar([
		Pbind(\instrument, \ibm, \dur, Pwhite(0.3, 7, inf), \sustain, 0.02, \freq, 440),
		Pbind(\instrument, \ibm, \dur, Pwhite(0.3, 7, inf), \sustain, 0.02, \freq, 1000)
	])
)

// - 0:2:26.07 -  
Pdef(\walk,
	Ppar([
		Pbind(\instrument, \ibm, \dur, Pseq([1, 0.5, 0.5], inf), \sustain, 0.08, \freq, 80),
		Pbind(\instrument, \ibm, \dur, Pwhite(0.3, 7, inf), \sustain, 0.01, \freq, 3000)
	])
).play;

// - 0:3:9.71 -  
Pdef(\walk,
	Ppar([
		Pbind(\instrument, \ibm, \dur, Pseq([1, 0.5, 0.5], inf), \sustain, 0.08, \freq, 80, \amp, Prand([0, 0.5, 1], inf) * 0.1),
		Pbind(\instrument, \ibm, \dur, Pwhite(0.3, 7, inf), \sustain, 0.01, \freq, 3000)
	])
).play;

// - 0:3:51.01 -  
Pdefn(\me, 3000);

// - 0:3:52.52 -  
Pdef(\walk,
	Ppar([
		Pbind(\instrument, \ibm, \dur, Pseq([1, 0.5, 0.5], inf), \sustain, 0.08, \freq, 80, \amp, Prand([0, 0.5, 1], inf) * 0.1),
		Pbind(\instrument, \ibm, \dur, 0.25, \sustain, 0.01, \freq, Pdefn(\me), \amp, 0.05)
	])
).play;

// - 0:4:20.88 -  
Pdef(\me, Pseq([300, 5092, 3526, 4038, 2453, 12341, 283, 456], inf));

// - 0:4:26.88 -  
Pdefn(\me, Pseq([300, 5092, 3526, 4038, 2453, 12341, 283, 456], inf));

// - 0:4:38.82 -  
Pdef(\walk,
	Ppar([
		Pbind(\instrument, \ibm, \dur, Pseq([1, 0.5, 0.5], inf), \sustain, 0.03, \freq, 80, \amp, Prand([0, 0.5, 1], inf) * 0.1),
		Pbind(\instrument, \ibm, \dur, 0.25, \sustain, 0.01, \freq, Pdefn(\me), \amp, 0.05)
	])
).play;

// - 0:5:9.13 -  
Pdefn(\me, Pseq([300, 5092, 3526, 4038,  2453, 12341, 283, 456] * 0.5, inf));

// - 0:5:23.94 -  
Pdef(\think,
	Ppar([
		Pbind(\instrument, \ibm, \dur, Pwhite(0.3, 7, inf), \sustain, 0.02, \freq, 1440),
		Pbind(\instrument, \ibm, \dur, Pwhite(0.3, 7, inf), \sustain, 0.02, \freq, 1000)
	])
)

// - 0:5:39.06 -  
Pdef(\think,
	Ppar([
		Pbind(\instrument, \ibm, \dur, Pwhite(0.3, 7, inf), \sustain, 0.02, \freq, 11440),
		Pbind(\instrument, \ibm, \dur, Pwhite(0.3, 7, inf), \sustain, 0.01, \freq, 2900)
	])
)

// - 0:5:49.08 -  
Pdef(\think,
	Ppar([
		Pbind(\instrument, \ibm, \dur, Pwhite(0.3, 7, inf), \sustain, 0.02, \freq, 11440),
		Pbind(\instrument, \ibm, \dur, Pwhite(0.3, 7, inf), \sustain, 0.01, \freq, 12900)
	])
)

// - 0:6:1.24 -  
Pdefn(\me, Pseq([1300, 5092, 3526, 4038,  2453, 12341, 283, 456] * 0.5, inf));

// - 0:6:13.21 -  
Pdefn(\me, Pseq([1300, 5092, 3526, 4038,  2453, 2341, 283, 456] * 0.5, inf));

// - 0:6:23.33 -  
Pdef(\think,
	Ppar([
		Pbind(\instrument, \ibm, \dur, Pwhite(0.3, 7, inf), \sustain, 0.02, \freq, 4440),
		Pbind(\instrument, \ibm, \dur, Pwhite(0.3, 7, inf), \sustain, 0.01, \freq, 8900)
	])
)

// - 0:6:45.99 -  
Pdef(\think,
	Ppar([
		Pbind(\instrument, \ibm, \dur, 2/3, \sustain, 0.02, \freq, 4440),
		Pbind(\instrument, \ibm, \dur, 7 / 6, \sustain, 0.01, \freq, 8900)
	])
)

// - 0:7:7.37 -  
Pdef(\walk,
	Ppar([
		Pbind(\instrument, \default, \dur, Pseq([1, 0.5, 0.5], inf), \sustain, 0.03, \freq, 30, \amp, Prand([0, 0.5, 1], inf) * 0.1),
		Pbind(\instrument, \ibm, \dur, 0.25, \sustain, 0.01, \freq, Pdefn(\me), \amp, 0.05)
	])
).play;

// - 0:7:20.86 -  
Pdef(\walk,
	Ppar([
		Pbind(\instrument, \default, \dur, Pseq([1, 0.5, 0.5], inf), \sustain, 0.03, \freq, 30, \amp, Prand([0, 0.5, 1], inf) * 0.2),
		Pbind(\instrument, \ibm, \dur, 0.25, \sustain, 0.01, \freq, Pdefn(\me), \amp, 0.05)
	])
).play;

// - 0:7:34.61 -  
Pdefn(\me, Pseq([1300, 5092, 356, 438,  2453, 2341, 283, 456] * 0.5, inf));

// - 0:7:36.8 -  
Pdefn(\me, Pseq([1300, 5092, 356, 438,  2453, 2341, 283, 456] * 0.5, inf));

// - 0:7:44.12 -  
Pdefn(\me, Pseq([1300, 5092, 356, 438, 2453, 2341, 283, 456] * 0.5, inf));

// - 0:8:25.22 -  
{ Pan2.ar(SinOsc.ar(440) * 0.04, SinOsc.kr(0.2)) * Line.kr(0, 1, 4) }.play;

// - 0:8:36.88 -  
{ Pan2.ar(SinOsc.ar(220) * 0.04, SinOsc.kr(0.2)) * Line.kr(0, 1, 4) }.play;

// - 0:9:2.84 -  
Pdefn(\me, Pseq([0, 4, 0, 6, -3, 4].midicps, inf));

// - 0:9:12.63 -  
Pdefn(\me, Pseq(([0, 4, 0, 6, -3, 4] + 60).midicps, inf));

// - 0:9:23.39 -  
Pdefn(\me, Pseq(([0, 4, 0, 6, -3, 4] + 60 -12).midicps, inf));

// - 0:9:28.74 -  
{ Pan2.ar(SinOsc.ar(110) * 0.04, SinOsc.kr(0.2)) * Line.kr(0, 1, 4) }.play;

// - 0:9:31.94 -  
Pdefn(\me, Pseq([1300, 5092, 356, 438, 2453, 2341, 283, 456] * 0.5, inf));

// - 0:9:36.67 -  
Pdef(\think,
	Ppar([
		Pbind(\instrument, \ibm, \dur, Pwhite(0.3, 7, inf), \sustain, 0.02, \freq, 440),
		Pbind(\instrument, \ibm, \dur, Pwhite(0.3, 7, inf), \sustain, 0.02, \freq, 1000)
	])
)

// - 0:9:50.61 -  
Pdef(\walk,
	Ppar([
		Pbind(\instrument, \default, \dur, Pseq([1, 0.5, 0.5], inf), \sustain, 0.03, \freq, 30, \amp, Prand([0, 0.5, 1], inf) * 0.2),
		Pbind(\instrument, \ibm, \dur, 0.25, \sustain, 0.01, \freq, Pdefn(\me), \amp, 0.05)
	])
).play;

// - 0:10:12.58 -  
Pdef(\think).fadeTime = 30;

// - 0:10:15.22 -  
Pdef(\think,
	Ppar([
		Pbind(\instrument, \ibm, \dur, Pwhite(0.3, 7, inf), \sustain, 0.02, \freq, 440),
		Pbind(\instrument, \ibm, \dur, Pwhite(0.3, 7, inf), \sustain, 0.02, \freq, 1000)
	])
)

// - 0:10:31.99 -  
{ Pan2.ar(SinOsc.ar(55) * 0.04, SinOsc.kr(0.2)) * Line.kr(0, 1, 4) }.play;

// - 0:10:59.04 -  
s.freeAll;

// - 0:11:5.96 -  
Pdef(\walk,
	Ppar([
		Pbind(\instrument, \default, \dur, Pseq([1, 0.5, 0.5], inf), \sustain, 0.03, \freq, 30, \amp, Prand([0, 0.5, 1], inf) * 0.2),
		Pbind(\instrument, \ibm, \dur, 0.25, \sustain, 0.01, \freq, Pdefn(\me), \amp, 0.05)
	])
).play;

// - 0:11:30.33 -  
TempoClock.default.tempo = 0.8;

// - 0:11:33.96 -  
TempoClock.default.tempo = 0.5;

// - 0:11:35.91 -  
TempoClock.default.tempo = 0.3;

// - 0:11:38.39 -  
TempoClock.default.tempo = 0.2;

// - 0:11:40.64 -  
TempoClock.default.tempo = 0.1;