# «Close in Counters of the Fourth Mind» bymelliott

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