«blaplop» by grirgz

on 09 Jul'13 21:37 in bassrandom
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
38
(
SynthDef(\bla, { arg out=0, amp=0.1, gate=1, pan=0, freq=200;
    var sig;
    var tab;
    tab = \tab.kr(1 ! 15);
    sig = LFSaw.ar(freq * tab.abs);
    sig = sig.sum;
    sig = RLPF.ar(sig, Rand(10,freq*2) + 100 * SinOsc.ar(tab.abs).range(0.01,Rand(2,7)));
    sig = sig.sum;
    sig = sig / 100;
    sig = sig.tanh;
    sig = sig * EnvGen.ar(Env.adsr(0.01,0.1,0.8,0.1+ExpRand(0.001,0.2)),gate,doneAction:2);
    sig = Pan2.ar(sig, pan, amp);
    Out.ar(out, sig);
}).add;
)

(
Pdef(\plop, Pbind(
    \instrument, \bla,
    \degree, Pstep(Pseq([
        Pseq([0,2,4],4),
        Pseq([0,12,6],4),
        Pseq([0,12,6]+7,1),
    ],inf), 1),
    \octave, 3,
    \tab, Pfunc {
        var tab;
        [
            //tab = { arg n; (n + 1.asFloat.rand + 1).tanh / (n.rand+1) } ! 15;
            tab = { arg n; (n + 2.asFloat.rand + 1) / (n+1) } ! 15;
            tab.postln;
        ]
    },
    \dur, PdurStutter( Prand([1,2,4],inf), Pseq([1,2,3]/2,inf)),
    \amp, 0.4
)).play;
);
raw 1023 chars (focus & ctrl+a+c to copy)
reception
comments