«Midterm Q1» by unknown

on 31 Oct'16 07:53 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
(
SynthDef( "pulsey",{arg freq, amp;
	var env, snd;
	env = Env.perc(attackTime: 0.2,
		releaseTime: 4,
		level: amp).kr(doneAction:2);
	snd = Pulse.ar(
		freq: freq*LFNoise2.kr([4, 5, 7]).range(0.988, 1.011),
		mul:env);
	snd = LPF.ar(in: snd, freq: 1000);
	snd = Splay.ar(snd);
	Out.ar(0, snd);


}).add;
)

(
m = [72, 79, 77, 79, 82, 79, 87, 86, 84, 82, 84, 79];


Pbind(
    \instrument, "pulsey",
    \midinote, Pseq(m, inf),
    \dur, Pseq([Pn(0.5, 5),    1.5], inf),
    \amp, Pwhite(0.15, 0.2)
).play;


Pbind(
    \instrument, "pulsey",
    \midinote, Pseq(m.reverse, inf),
    \dur, Pseq([Pn(0.5, 5), 1.5], inf),
    \ctranspose, Pwrand([-12, -7, -24], [0.8, 0.1, 0.1], inf),
    \amp, 0.08,
).play;
)
raw 746 chars (focus & ctrl+a+c to copy)
reception
comments
Bruno Ruviaro ↪ user 31 Oct'16 22:45

good job

1pt