Fork Code: more glitch

name

code content

// this was going to be drum and bass but I got carried away

(
fork{
	// this is going to be a convoluted step seq
	var i = 0;
	
	loop{ 
		var tempo, step;
		tempo = [
			(3,5..21).reciprocal.choose,
			1/11,
			1/7,
			1/5,
			1
		].wchoose([0.1,17,0.4,0.3,0.25].normalizeSum);
		
		i = i + 1;
		step = i % 16;
				
		play{
			// not sure I used all of these.
			var scale, bdm, hh, sd, bd, bda, sda, hha, bdseq, sdseq, hhseq, reva, revb, rev,
				mix;
						
			scale = Scale.harmonicMinor.degrees+26;
			
			// bd sequence
			bdseq =[ {2.rand}.dup(16), 
				[1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0]
			].choose;
			
			// bd amp env
			bda = EnvGen.kr(Env.perc(0.01,tempo*6.0.rand,bdseq[step]), doneAction: 2);
			
			// bass freq modulation
			bdm = {LFNoise2.kr(tempo.rand,0.25,1)}.dup;
			
			// bd
			bd = LPF.ar(Pulse.ar(scale.choose.midicps,0.5).distort*bdm,1e4.rand).sum * bda; 
			bd = bd.tanh;
			5.do{bd = CombC.ar(bd, 0.5, 0.1.rand, 5.0.rand)+bd};
			5.do{bd = AllpassC.ar(bd, 0.5, 0.1.rand, 5.0.rand)+bd};
			
			// sd seq
			sdseq = [ [0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0], 
				{2.rand}.dup(16) 
			].choose;
			
			// sd amp env
			sda = EnvGen.kr(Env.perc(0.01,0.1,sdseq[step]));

			// sd
			sd = PinkNoise.ar(2).distort * sda.lag(0.1.rand);
			5.do{sd = AllpassC.ar(sd, 0.5, [0.25.rand,0.05.rand].choose, 1.5.rand)+sd};
					
			// hh seq
			hhseq = [{2.rand}.dup(16),
				[0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1]
			].choose;
			
			// hh amp env
			hha = EnvGen.kr(Env.perc(0.01,0.01,hhseq[step]));

			// hh
			hh = HPF.ar(WhiteNoise.ar(0.7),8000) * hha;
	
			// drums together
			mix = bd + sd + hh;
						
			// rev
			reva = GVerb.ar(mix,1.0.rand.max(0.1),1.0.rand).sum;
			revb = GVerb.ar(mix,1.0.rand.max(1),3.0.rand).sum;
			rev = XFade2.ar(reva,revb,LFNoise0.kr(tempo));
			
			// pannnn
			mix = PanAz.ar(5,rev,LFNoise0.kr(tempo*2));
			mix = Limiter.ar(mix);
			
			// raussssss
			Out.ar(0,mix.clip);
		};
	tempo.wait;
	};	
}
)

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