«Creepy plinking» by badnumbersmusic

on 05 Oct'19 15:43 in

Just rediscovered this thing I made a couple of months ago. I love it.

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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
(
TempoClock.default.tempo = 2.5;
b = b ?? ();
f = f ?? ();
b.reverb = Bus.audio(s,2);
b.delay = Bus.audio(s,2);
)

(
SynthDef(\sine,
	{
		|freq=200,amp=0.1,harmonics=1,pan=0,cutoff=1000,out=0|
		var audio, env;
		freq = freq + (freq * LFNoise1.kr(0.2,0.01));
		env = EnvGen.kr(Env.perc,1,amp,doneAction:2);
		audio = Blip.ar(freq,harmonics,env);
		audio = MoogFF.ar(audio,cutoff);
		audio = Pan2.ar(audio,pan);
		Out.ar(out,audio);
	}
).add;
SynthDef(\reverb,
	{
		|in,out,roomsize=10, revtime=3, damping=0.5, inputbw=0.5, spread=15, drylevel=1|
		var audio;
		audio = In.ar(in, 2);
		audio = GVerb.ar(audio, roomsize, revtime, damping, inputbw, spread, drylevel);
		Out.ar(out,audio);
	}
).add;
SynthDef(\hiss,
	{
		|out=0,pan=0,amp=0.01,hpffreq=8000|
		var audio = PinkNoise.ar(amp);
		audio = HPF.ar(audio,hpffreq) * LFNoise0.kr(24,0.2,1.8);
		audio = audio * LFNoise0.kr(0.2).range(0.5,1.2);
		audio = Pan2.ar(audio,pan);
		Out.ar(out,audio);
	}
).add;
SynthDef(\delay,
	{
		|in,out=0|
		var audio = DelayC.ar(In.ar(in,2), 0.3, LFNoise2.kr(0.2).range(0.0,0.2));
		Out.ar(out,audio);
	}
).add;
)

(
f.delay.free;
f.delay = Synth(\delay,[\in,b.delay]);
)

(
Pdef(\sine,
	Ppar([
		Pbind(
			\instrument, \sine,
			\scale, Scale.harmonicMinor,
			\degree, Ppatlace([
				Pseq([0,2,4,6],inf),
				Pseq([0,2,4,6],inf)+7
			],inf),
			\harmonics, Pbrown(-20,6,3,inf).clip(1,6) + 10,
			\pan, Pbrown(-1.0,1.0,0.03,inf),
			\dur, 0.25,
			\cutoff, Pbrown(0,100,5,inf).linexp(0,100,200,2000),
			\highamp, Pbrown(-1.0,1.0,0.3,inf),
			\amp, Ppatlace([
				Pseq([0.13,0.05,0.07,0.12],inf),
				Pseq([0.13,0.05,0.07,0.12],inf) * Pkey(\highamp)
			],inf) * Pgauss(1, 0.3,inf),
			\type, Pif(Pkey(\amp) > 0, \note, \rest),
			\mtranspose, Pstutter(Pwhite(1,5)*8,Pwhite(0,7,inf)),
			\shifttempo, Pstutter(8,Pbrown(1.8,3.1,1.0,inf)),
			\shifttempo, Pfunc({|e|TempoClock.default.tempo = e.shifttempo}),
			\out, b.reverb
		),
		Pmono(
			\reverb,
			\in, b.reverb,
			\roomsize,10,
			\revtime,3,
			\damping,0.5,
			\inputbw,0.5,
			\spread,15,
			\drylevel,1,
			\out, b.delay
		),
		Pmono(
			\hiss,
			\amp, [0.02,0.03],
			\hppffreq, [20,40],
			\pan, [-1,1],
			\out,b.delay
		)
	])
).play
)
Pdef(\sine).stop;
raw 2305 chars (focus & ctrl+a+c to copy)
reception
comments
user user 15 Oct'19 04:57

This is awesome. Congrats.