ComputerMusic_21-22/scd/cool_song.scd

s.boot;

(
t = Task{
	var hz = 4;
	var i = 0;
	var n = 0.25;
	var chipsize = 10;

	// allocate a disk i/o buffer
	p = Buffer.alloc(s, 65536, 2);

	// create an output file for this buffer, leave it open
	p.write("Output.wav", "wav", "int16", 0, 0, true);
	// start recording
	d = Synth.tail(nil, "help-Diskout", ["bufnum", p.bufnum]);

	//buffer for granular synthesis sample
	b = Buffer.read(s,"/usr/share/SuperCollider/sounds/a11wlk01-44_1.aiff");

	1.do{

		x = Synth(\SinPulser);
		1.wait;
		x.free;
	};

	2.do{
		hz = 4;
		a = Scale.choose;
		chipsize.do {
			x = Synth(\chiptune, [\fund,a.cents[i % a.size] + 1, \hz, hz]);
			i = i + 1;
			n.wait;
			x.free;
		};

		Synth(\eightbitSnare);
		y.free;
		i = 0;
		hz = hz * 2;
		//new speed
		n = 0.15;
		a = Scale.choose;
		chipsize.do {
			x = Synth(\chiptune, [\fund,a.cents[i % a.size] + 1, \hz, hz]);
			i = i + 1;
			n.wait;
			x.free;
		};

		Synth(\eightbitSnare);
		i=0;
		hz = hz * 1.5;
		//new speed
		n = 0.2;
		a = Scale.choose;
		chipsize.do {
			x = Synth(\chiptune, [\fund,a.cents[i % a.size] + 1, \hz, hz]);
			i = i + 1;
			n.wait;
			x.free;
		};
	};

	5.do{
		x = Synth.new(\ambientBackground);
		4.wait;
		x.free;
	};

	2.do{
		a = Scale.choose;
		x =  Synth.new(\ambientBackground);
		2.wait;
		y = Synth(\SinPulser);
		4.wait;
		Synth(\eightbitSnare);
		i = 0;
		hz = hz * 1.5;
		n = 0.4;
		chipsize.do {
			Synth(\chiptune, [\fund,a.cents[i % a.size] + 1, \hz, hz]);
			i = i + 1;
			n.wait;
		};
		x.free;
		y.free;
	};

	1.do{
		hz = 1;
	 	30.do{
	 		x = Synth.new(\granularSynth, [\sndbuf, b, \hz, hz, \dur, 1]);
	 		hz.wait;
	 		hz = hz * 0.95;
	 		x.free;
		};
	};

	1.do{
		x = Synth.new(\SawPulser);
		5.wait;
		x.free;
	};
	1.do{
		x = Synth.new(\moogPulser);
		y = Synth.new(\SawPulser);
		10.wait;
		x.free;
		y.free;
	};
	2.do{
		x = Synth.new(\moogPulser);
		hz = 4;
		n=0.33;
		Synth(\eightbitSnare);
		a = Scale.choose;
		chipsize.do {
			Synth(\chiptune, [\fund,a.cents[i % a.size] + 1, \hz, hz]);
			i = i + 1;
			n.wait;
		};

		Synth(\eightbitSnare);
		i = 0;
		hz = hz * 2;
		//new speed
		n = 0.15;
		a = Scale.choose;
		chipsize.do {
			Synth(\chiptune, [\fund,a.cents[i % a.size] + 1, \hz, hz]);
			i = i + 1;
			n.wait;
		};

		Synth(\eightbitSnare);
		i=0;
		hz = hz * 1.5;
		//new speed
		n = 0.2;
		a = Scale.choose;
		chipsize.do {
			Synth(\chiptune, [\fund,a.cents[i % a.size] + 1, \hz, hz]);
			i = i + 1;
			n.wait;
		};
		x.free;
	};

	// stop recording
	d.free;
	p.close;
	p.free;
};
t.start;



SynthDef(\eightbitSnare, {
	var sig, freq, amp, env;

	env = EnvGen.ar(Env.perc(0.005, 0.5, 6, -8), doneAction: 2);
	sig = WhiteNoise.ar(1) * env;
	sig = FreeVerb.ar(sig, 0.4, 0.1, 0.9);


	Out.ar(0,sig * 0.7);
	Out.ar(1,sig * 0.7);
}).writeDefFile.load(s);

SynthDef(\chiptune, {
	arg fund = 120, hz = 5;
	var env, sig, amp, freq;

	amp = LFPulse.ar(hz, 0, 0.5);
	env = EnvGen.ar(Env.perc);
	sig = Pulse.ar(fund, 0.5, amp);
	sig = env * FreeVerb.ar(sig, 0.7, 0.8, 0.25);
	Out.ar(0, sig * 0.8);
	Out.ar(1, sig * 0.8);
}).writeDefFile.load(s);

SynthDef(\ambientBackground, {
	var env, freq, sig;

	freq = LFNoise2.ar(1, 100, LFDNoise0.ar(1, 100, 220));
	sig = LFSaw.ar(freq, 2, 0.1);
	sig = FreeVerb.ar(sig, 0.5, 0.5, 0.3);

	freq = LFDNoise0.ar(PinkNoise.kr(10), 100, 220);
	sig = sig + SinOsc.ar(freq, 0.5 , 0.5);

	freq = LFDNoise0.ar(PinkNoise.kr(10), 100, 220);
	sig = sig + Pulse.ar(freq, 0.5, 0.3);
	sig = FreeVerb.ar(sig, 0.9, 0.9, 0.3, 0.8);

	Out.ar(0, sig);
	Out.ar(1, sig);
}).writeDefFile.load(s);

SynthDef(\SawPulser, {
	var pitchRand, env, freq, sig;


	freq = LFDNoise1.kr(5, 350, 450);
	sig = Saw.ar(freq) * (HenonN.ar(5)*0.5);

	Out.ar(0, sig);
	Out.ar(1, sig);
}).writeDefFile.load(s);

SynthDef(\moogPulser, {
	var sig;

	sig = MoogFF.ar(
        Pulse.ar([40,121], [0.3,0.7]),
        SinOsc.kr(LFNoise0.kr(0.42).range(0.001, 2.2)).range(30, 4200),
        0.83 * 4);

	Out.ar(0,sig);
}).writeDefFile.load(s);

SynthDef(\SinPulser, {
	var pitchRand, env, freq, sig;

	pitchRand = LFDNoise0.ar(1, 0, 5);
	freq = LFDNoise0.ar(pitchRand, 300, 450);
	freq = freq + LFDNoise3.ar(1, 350, 450);
	sig = SinOsc.ar(freq * 0.5);
	sig = FreeVerb.ar(sig, 0.525, 0.915, 0.5);

	Out.ar(0, sig * 0.8);
	Out.ar(1, sig * 0.8);
}).writeDefFile.load(s);

SynthDef(\granularSynth, {
	arg  sndbuf, hz = 100, dur=0.1;

	var winenv, sig;
	// a custom envelope
	winenv = Env([0, 1, 0], [0.5, 0.5], [8, -8]);
	z = Buffer.sendCollection(s, winenv.discretize, 1);

	sig =  GrainBuf.ar(2, Impulse.kr(hz), dur, sndbuf, LFNoise1.kr.range(0.5, 2), LFNoise2.kr(0.1).range(0, 1), 2, 0, -1);
	// use mouse x to control panning
    Out.ar(0,sig);
}).writeDefFile.load(s);
)