«Close in Counters of the Fourth Mind» by melliott

on 14 Oct'16 13:30 in

Utilizing some Ar's, Kr's, and Pbinds, we can find ourselves in a counter of the fourth mind.

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
(
SynthDef(\closeN, { |out=0, freq=440, gate=1|
    var son = BPF.ar(in: WhiteNoise.ar(20!2),
        freq: freq,
        rq: 0.005,
        mul: 1,
    );
    var env = EnvGen.ar(
        Env.linen(0.1, 0.5, 0.55, 0.8, \welch),
        doneAction:2
    );
	son = FreeVerb2.ar(son, son, mix: 0.7, room: 1.0, damp: 0.3);
    Out.ar(out, son * env);


}).add;
)


(
a = {
	var saw, bpf;
	saw = Saw.ar(
		freq: [200, 250],
		mul: LFPulse.kr(
			freq: [2, 3],
			width: 0.15));
	bpf = LPF.ar(in: saw, freq: SinOsc.kr(1/5).range(200, 4000));
	bpf = FreeVerb2.ar(bpf, bpf, mix: 0.4, room: 0.7);
	Out.ar(0, bpf);
};
s = {
	var saw, bpf;
	saw = Saw.ar(
		freq: [100, 150],
		mul: LFPulse.kr(
			freq: [1, 1.5],
			width: 0.15));
	bpf = LPF.ar(in: saw, freq: SinOsc.kr(1/5).range(200, 4000));
	bpf = FreeVerb2.ar(bpf, bpf, mix: 0.4, room: 0.7);
	Out.ar(0, bpf);
};
d = {
	var saw, bpf;
	saw = Pulse.ar(
		freq: [800, 1000],
		mul: LFPulse.kr(
			freq: [1, 1.5],
			width: 0.15).range(0.0,0.7));
	bpf = LPF.ar(in: saw, freq: SinOsc.kr(1/5).range(200, 4000));
	bpf = FreeVerb2.ar(bpf, bpf, mix: 0.4, room: 0.7);
	Out.ar(0, bpf);
};
f = Pbind(
	\instrument, \closeN,
	\freq, Pseq([800, 1000, 900, 400, 600], inf),
	\dur,  Pseq([1, 1, 1, 1, 4], inf),
	\amp, 1);
g = Pbind(
	\instrument, \closeN,
	\freq, Pseq([1000, 1150, 1200, 1500, 1200], inf),
	\dur,  Pseq([1, 1, 1, 1, 4], inf),
	\amp, 0.5);
{
	a.play;
	3.75.wait;
	f.play();
	4.25.wait;
	s.play;
	8.wait;
	d.play;
	3.75.wait;
	g.play;
}.fork;
)
raw 1560 chars (focus & ctrl+a+c to copy)
reception
comments