// ctrl-enter to run selection
// ctrl-. to stop
// crtl-d for ducumentation of what's under the mouse
// ctrl-shift-? for help window

s.boot;
ServerOptions.outDevices;
s.quit;
{ [SinOsc.ar(440, 0, 0.2), SinOsc.ar(442, 0, 0.2)] }.play;

////////////////////////// stuff from the gentle introduction

{ [SinOsc.ar(440, 0, 0.2), SinOsc.ar(442, 0, 0.2)] }.scope;

(
// A little poem
"Today is Sunday".postln;
"Foot of pipe".postln;
"The pipe is made of gold".postln;
"It can beat the bull".postln
)


Pbind(\degree, Pseries(0,1,30), \dur, 0.05).play;


Pbind(\degree,0).play;

(
Pbind(
	\degree, Prand([0,2,3,5,7], 45),
	\dur, Pseq([0.3, 0.3, 0.15, 0.15], inf),
	\legato, Pseq([0.8, 0.2], inf)
).play;
)
(
Pbind(
	\degree, Pslide([0,2,3,5,7, 8,11,14,16], 20,5,1),
	\dur, Pseq([0.2, 0.1, 0.05, 0.05, 0.05], inf)
).trace.play;
)
(
Pbind(
	\degree, Pseq([0,Pn(2,5),3,5,7], 45),
	\dur, Pgeom(0.1, 1.1, 10)
).trace.play;
)

(
Pbind(
	\degree, Pseq([ [-7,3,7,10], [3,8]], 4),
	\dur, 0.1
).trace.play;
)
Scale.directory;
(
Pbind(
	\scale, Scale.harmonicMinor,
	\degree, Prand([0,2,3,4,6,7,8,9,12], 200),
	\dur, 0.1
).trace.play;
)
s.stop;

( Pbind(\note, Pshuf([0,2,4,5,7,9,11,12], 8),
\dur, 0.15; ).play; )

( Pbind(\note, Pxrand([0,1,2,3,4],inf),
\dur,0.15; ).play; )

Server.killAll


( Pbind( \freq, Pwhite(100,500),
	\dur, Prand([0.15,0.25,0.3], inf),
	\amp, Pwhite(0.2, 0.5),
	\legato, 0.3 ).play; )

Scale.directory;


(
var myDurs = Pseq([Pn(1,5), 3, Pn(1,5), 3, Pn(1,6), 1/2, 1/2, 1, 1, 3, 1, 3], inf) *0.2;
~upperMelody = Pbind(
	\midinote, Pseq([69,74,76,77,79,81,
		          Pseq([81,79,81,82,79,81],2),
		82,81,79,76,74,74], inf),
	\dur, myDurs);
~lowerMelody = Pbind(
	\midinote, Pseq([57,62,61,59,58,57,55,53,52,50,49,50,52,50,55,53,52,53,55,57,58,61,62,62], inf),
	\dur, myDurs);
)

(
~player1 = ~upperMelody.play;
~player2 = ~lowerMelody.play;
)
~player1.stop;

(
{ CombN.ar(
	SinOsc.ar(
		midicps(
			LFNoise1.ar(3,24,
				LFSaw.ar([5,7],0,3,80)
                )
            ),
		0, 0.4),
	1,0.3,2)
}.play;
)