Pclutch : FilterPattern : Pattern : AbstractFunction : Object

Pclutch(Pseq([1, 2, 3, 4, 5], 3), Pseq([0, 0, 1, 0, 0, 0, 1, 1])).asStream.nextN(10);

​

// sound example

(

SynthDef(\help_sinegrain,

    { arg out=0, freq=440, sustain=0.05;

        var env;

        env = EnvGen.kr(Env.perc(0.01, sustain, 0.2), doneAction: Done.freeSelf);

        Out.ar(out, SinOsc.ar(freq, 0, env))

    }).add;

)

​

(

var a;

a = Pclutch(

        Pseq([1, 2, 3, 4, 5], inf),

        Pseq([0, 0, 1, 0, Pn(0, {30.rand}), 0, 1, 1], inf)

    ).asStream;

{

    loop {

        Synth(\help_sinegrain, [\freq, a.next * 200 + 200]);

        0.02.wait;

    }

}.fork;

)