«smooth arpeggio, updated envelope» by hems.inlet

on 26 Oct'16 11:32 in arpeggiopseq
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
(
s.boot;
)

(
SynthDef(\bass, { |freq = 440, sustain = 1, amp = 0.5|
    var sig;
    sig = SinOsc.ar(freq, 0, amp) * EnvGen.kr(Env.perc(0.2), doneAction: 2);
    Out.ar(0, sig ! 2)
}).add;
);

(

(
p = Pbind(
        // the name of the SynthDef to use for each note
    \instrument, \smooth,
        // MIDI note numbers -- converted automatically to Hz
    \midinote, Pseq([36 + 0,  36 + 7, 36 + 12], inf),
        // rhythmic values
    \dur, Pseq([0.5, 0.5, 0.5], inf)
).play;
);


(
p = Pbind(
        // the name of the SynthDef to use for each note
    \instrument, \smooth,
        // MIDI note numbers -- converted automatically to Hz
    \midinote, Pseq([60+0,  60+5,  60+7,  60+8,  60+7, 60+5], inf),
        // rhythmic values
    \dur, Pseq([0.5, 0.5, 0.5, 0.5, 0.5, 0.5], inf)
).play;
)

)
raw 841 chars (focus & ctrl+a+c to copy)
reception
comments