Plambda create a  scope (namespace) for enclosed streams


superclass: FilterPattern



Plambda(pattern, scope)

pattern: an event stream

scope: an event with default bindings (can be nil)





// Plet, Pget and Plambda.

// Plet(key, stream, return)

// Pget(key, default, repeats)


(

SynthDef(\sine, 

{ arg out=0, freq=440, sustain=0.05, pan=0, amp=0.1;

var env;

env = EnvGen.kr(Env.perc(Rand(0.001, 0.02), sustain, AmpCompA.kr(freq)*amp), doneAction:2);

Out.ar(out, Pan2.ar(SinOsc.ar(freq), pan, env))

}).add;

)


(

a = Plambda(

Pseq([

Pfindur(5,

Ppar([

Pbind(\note, Plet(\x, Prand([1, 5, 1, [10, 14]], inf)), \dur, 8/3, \pan, -1),

Pbind(\note, Plet(\y, Pseq([5, 3, 2, 0, [0, 5, 6, 9]], inf)), \dur, 0.5, \pan,1),

Pbind(\note, Pseq([Pget(\x), Pget(\y)], inf) + 12, \pan, 0, \dur, 2/3)

])

),

Pbind(\note, Pget(\x, 0, 6) + [0, 5], \dur, Pstutter(inf, Prand([2/3, 1/6])))

], inf).trace(\eventScope) // internally, the values are shared via \eventScope

);

b = Pbindf(a, \instrument, \sine, \legato, 0.1);

b.play

)


// this structure remains parallelizable


Ppar([b, Pbindf(b, \ctranspose, 24, \dur, Pkey(\dur) * 0.25)]).play;