«Homopolar generator (head end power for electronic train heating)» by grirgz

on 05 May'15 03:10 in
log fork json 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
(
~t = ~t ? 1;
Ndef(\fx).put(0, { arg amp=0.1;
	var sig;
	var freq;
	var freq2;
	var pan;
	var sig1, sig2, sig3, sig4, sig5, sig6, sig7, sig8;
	var cond = Line.kr(-1,1,64);
	var mix, index;
	var env1;
	env1  = EnvGen.kr(Env([0,2,128,128*10,128*100,128*500,128*7000],[52,8,8,8,8,8]), 1);
	cond = LFTri.ar(( 1/128*env1 ).poll, pi);
	mix = cond.range(0,1);
	index = cond.range(0,1);
	mix = IEnvGen.kr(Env([0,0.001,1,0],[1,1,1].normalizeSum),index);

	freq = 120 * 
	SelectX.kr(mix, [
	//SelectX.kr(0, [
		Duty.kr(1/~t, 0, Dseq([
			[0,3,7,12,-12] ,
		],inf)).midiratio,
		( [0,3,7,12,-12] * 0.1 ).midiratio,
	])
	*.x [1/2,1,2]
	* Duty.kr(4/~t, 0, Dseq([
		0,2,
	],inf)).midiratio
	;

	sig4 = SinOsc.ar(Select.kr(mix**2 * 2, [4,8,32,128])) * 5;
	sig5 = LFSaw.ar(Select.kr(mix**2 + 1* 2, [4,8,32,128])) * 5;
	sig4 = SelectX.ar(mix**4 * 3, [DC.ar(1), sig4,sig5,sig4]);
	sig = SinOsc.ar(freq * sig4 * ( 1 + ( SinOsc.ar(freq) * ( SinOsc.kr(1/7/5 * (1..8)/8).range(0,4) * cond.range(1,10) ) )));
	sig1 = sig;
	sig2 = LFSaw.ar(freq*2 * [1,1/2,2]) + sig;
	sig = SelectX.ar(mix*4, [sig2, sig2, sig2, sig2, sig]);
	sig2 = sig.fold2(1 * SinOsc.kr((1..8)/4/8).range(0.3,1 * cond.range(0,1))) + sig;
	sig = SelectX.ar(mix, [sig, sig2]);
	sig2 = sig.wrap2(1 * SinOsc.kr((1..8)/8*1/5.2).range(0.3,1)) + sig;
	sig = SelectX.ar(mix, [sig, sig2]);
	sig2 = sig & (sig << 1 | LFSaw.ar(1/100 * (1..8)/8).range(0,10000));
	sig = SelectX.ar(mix, [sig, sig2]);
	sig = SelectX.ar( SinOsc.kr(1/7 * (1..8)/8).range(0,1), [sig, sig1]);
	//sig = sig * sig
	sig = sig.collect({ arg isig, x; isig * SinOsc.kr(1/7/5 * x).range(0.2,1) });

	sig = SelectX.ar(mix.lag(32), [
		sig,
		BPF.ar(sig, SinOsc.kr(1/8*~t).range(120,15000))
	]);

	//sig = sig * EnvGen.kr(\iadsr2.kr(Env.adsr(0.001,0.1,0.8,0.1)), Trig.kr(\itrig2.tr(1),\isustain2.kr(1)), doneAction:0);

	pan = 1;
	//sig = Splay.ar(sig, \spread.kr(0.8), amp, \pan.kr(0));
	amp = amp * \gain.kr(1);
	sig = Pan2.ar(sig, {LFNoise1.kr(1/2).range(-1.0,1.0)} ! sig.size * pan, amp).mean;
	sig;
}).play;

)
raw 2080 chars (focus & ctrl+a+c to copy)
reception
comments
lightrate ↪ user 21 Mar'17 05:16

Mad. Skills.