Fork Code: Eternal sunrise

name
code content
(
	// INIT take time
	~t = 185/4/60; TempoClock.default.tempo = ~t; // now with tempo !

	33.do { arg x;
		( "creating babass "++x ).postln;

		SynthDef(( \babass++x ).asSymbol, { arg out=0, amp=0.1, gate=1, pan=0, freq=200;
			var sig;
			var voices = 8; // CPU control
			sig = SinOsc.ar(freq);
			sig = voices.collect({
				[SinOsc, LFSaw, LFCub, LFPulse].choose.ar(freq * [1,2,1 + rrand(0,0.01)].choose * ( 1 + ( SinOsc.ar(exprand(4,100) * ( 1 + ( SinOsc.ar(exprand(0.1,100)) * 1 ))) * rrand(0,1) )), rrand(0.0,pi))
			});
			sig = sig.collect({ arg sig;
				sig + [SinOsc, LFSaw, LFCub, LFPulse].choose.ar(freq * [1,2,1 + rrand(0,0.01)].choose * ( 1 + ( SinOsc.ar(exprand(4,100) * ( 1 + ( SinOsc.ar(exprand(0.1,100)) * 1 ))) * rrand(0,1) )), rrand(0.0,pi));
			});
			sig = ( sig*\distamp.kr(10) * (1..voices)/4 ).tanh * \distpostamp.kr(1/2);
			sig = sig.collect({ arg sig;
				var line = [
					XLine.kr(0.1,2,exprand(0.02,4)),
					XLine.kr(2,0.1,exprand(0.02,4)),
				];
				RLPF.ar(sig, rrand(100,1000) * line.choose, rrand(0.1,0.5) * line.choose);
			});
			sig = HPF.ar(sig, 50);
			sig = LPF.ar(sig, 2500);
			sig = sig * EnvGen.ar(Env.adsr(0.01,0.1,0.8,0.1),gate,doneAction:2);
			pan = pan + SinOsc.kr((1..voices)/21, mul:0.01);
			sig = sig * 2;
			sig = sig * \modamp.kr(1).lag(0.1);
			sig = DelayC.ar(sig, 0.01,0.001) + sig;
			sig = Pan2.ar(sig, pan, amp).mean;
			Out.ar(out, sig);
		}).add;
	};

SynthDef(\kobass, { arg out=0, amp=0.1, gate=1, pan=0, freq=200;
	var sig;
	freq = freq.lag(\freqlag.kr(0.4));
	sig = LFSaw.ar(freq * [1/2,1,2] *.t [1,1.00001], 0.7);
	sig = RLPF.ar(sig, \lpfratio.kr(1.7)* freq * SinOsc.kr(1/18 * (1..8)).range(0.5,2), \rq.kr(0.5));
	sig = sig * EnvGen.ar(Env.adsr(0.01,0.01,0.8,0.1,1,-4),gate,doneAction:2);
	sig = sig * SelectX.kr(\ammix.kr(1),[1,SinOsc.ar(\amf.kr(1*~t)).unipolar]); 
	sig = SelectX.ar(LFNoise1.kr(1/62.1).unipolar, [sig, sig.fold( LFNoise1.kr(1/53).range(0.5,2) )]);
	sig = sig.mean;
	sig = sig * AmpComp.kr(freq);
	sig = sig * 3;
	sig = sig * amp;
	sig = sig * \modamp.kr(1).lag(0.1);
	Out.ar(out, sig);
}).add;
);


(
	// PLAY!
	Pdef(\chord1, Pmono(\kobass,
		\degree, Pseq([
			[0,4],
			[0,5],
		],inf),
		\lpfratio, 1,
		\amf, Ptuple(Prand(2**(0..5),inf)/4!2).stutter(Prand([2,3,4,6,8],inf))*~t,
		\ammix, Ptuple(Prand(( 0..10 ),inf)/10!2).stutter(Prand([2,3,4,6,8],inf)),
		\octave, Ptuple(Prand([4,3,5,6],inf).stutter(Prand([Prand([2,3,4,6,8]),4,6,8],inf))!2),
		\dur, 4,
		\modamp, Pseq([
			Pn(1,32*3),
			Pn(0,32*1),
		],inf),
		\amp, 0.1/2 * 0.5,
	));

	Pdef(\chord2, Pmono(\kobass,
		\degree, Pseq([
			9, 9, 8, 8,
		],inf)+Pseq([0,1,0,3],inf).stutter(Prand([8,8,8,4,2],inf).stutter(4)),
		\lpfratio, 1,
		\amf, Ptuple(Prand(2**(0..5),inf)/4!2).stutter(3)*~t,
		\ammix, Ptuple(Prand(( 0..10 ),inf)/10!2).stutter(2),
		\modamp, Prand([1,0,0,0],inf).stutter(Prand([8,16,32],inf)),
		\octave, Ptuple(Prand([4,3,5,6],inf).stutter(Prand([Prand([2,3,4,6,8]),4,6,8],inf))!2),
		\dur, 4,
		\amp, 0.1/2 * 0.5,
	));

	Pdef(\far, 
		Plazy({
			Ppar([
				Plazy({
					Pfindur([64,32].choose, Ppar([
						rrand(1,8).collect({ arg idx;
							PmonoArtic(( \babass++rrand(0,32) ).asSymbol,
							\degree, Pstep(Pseq([
								9, 9, 8, 8,
							],inf),4)+Pseq([0,1,0,3],inf),
							\modamp, Pseq([
								Pseq([
									Pseq({[
										1,0,
										0,1,
										1,1,
										0,0,
									].clump(2).choose}.dup([2,4,8,16].choose).flat,[2,4,8,16].choose).dup([2,4,8,16].choose)
								].flat,1) * Pstep(Pseq([[1,0].choose],inf),[1,3].choose)
							],inf),
							\legato, Pseq([{ [rrand(0.1,0.8),1].choose }!( 2**rrand(0,3) )].flat,inf),
							\lpfratio, 1,
							\octave, [3,4,5,6].choose,
							\dur, [[1/4,1/16].choose,1/8,1/4,1/2,1,2].choose,
							\amp, 0.1 * [0.8,0.5,Pseq([0.8,0.5],inf)].choose * 0.5,
						)
					}),
				].flat))
			}).loop,
			Plazy({
				Pfindur([64,32,16,8].choose, Ppar([
					rrand(1,8).collect({ arg idx;
						PmonoArtic(( \babass++rrand(0,32) ).asSymbol,
						\degree, Pstep(Pseq([
							9, 9, 8, 8,
						],inf),4)+Pseq([0,1,0,3],inf),
						\modamp, Pseq([
							Pseq([
								Pseq({[
									1,0,
									0,1,
									1,1,
									0,0,
								].clump(2).choose}.dup([2,4,8,16].choose).flat,[2,4,8,16].choose).dup([2,4,8,16].choose)
							].flat,1) * Pstep(Pseq([1,0],inf),Pseq([1,3].scramble,inf) * [1,2,4,8,16].choose)
						],inf),
						\legato, Pseq([{ [rrand(0.1,0.8),1].choose }!( 2**rrand(0,3) )].flat,inf),
						\lpfratio, 1,
						\octave, [3,4,5,6].choose,
						\dur, [1/2,1/4,1/8,1/4,1/2,1,2].choose,
						\amp, 0.1 * [0.8,0.5,Pseq([0.8,0.5],inf)].choose * 0.5,
					)
				}),
			].flat));
		}).loop,
	],inf);
})
);

Pdef(\main, Ptpar([
	0,Pdef(\chord1),
	16,Pdef(\far),
	64,Pdef(\chord2),
])).play;
)
code description use markdown for formating
category tags comma separated, i.g. "wild, siren" (do not enter default SC class names, please)
ancestor(s) comma separated identificators, i.g. "1-C,1-1,1-4M,1-x"
Private? the code will be accessible by direct url and not visible in public activity
comment of change