«simple smooth arp» by hems.inlet

on 26 Oct'16 17:23 in arpeggiopseq

plays an arpeggio on the "left hand" and an arpeggio on the "right hand"

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
(
s.boot;
)

(
SynthDef(\smooth, { |freq = 440, sustain = 1, amp = 0.5|
    var sig;
    sig = SinOsc.ar(freq, 0, amp) * EnvGen.kr(Env.linen(0.05, sustain, 0.1), 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 857 chars (focus & ctrl+a+c to copy)
reception
comments