sketch 27/06

I have been playing around with a melodic pattern I created the other day and the recent iteration is this very slow version.

Astride the pellucid being
 

The SuperCollider Code
(
SynthDef("beating2", {arg freq = 440, amp = 0.1, gate = 1, dur = 1;
    var env, snd1, snd2, snd3, sig;
    env = Env.adsr(1, 0.3, 1, 1.9, 0.1, -1);
    snd1 = SinOsc.ar(freq);
    snd2 = SinOsc.ar(Line.kr(freq+15, freq, dur));
    snd3 = SinOsc.ar(Line.kr(freq+19, freq, dur));
    sig = Mix([snd1, snd2, snd3]);
    sig = sig * amp * EnvGen.kr(env, gate, doneAction: 2);
    Out.ar(0, Pan2.ar(sig, 0))
}).add;
SynthDef("blips", {
    arg freq = 25, numharm = 25, dur = 1, amp = 0.6, gate = 1;
    var snd, env;
    //env = EnvGen.ar(Env.perc(dur, dur*1.5), doneAction: 2);
    env = Env.adsr(1, 0.3, 1, 1.8, 0.3, -0.8);
    snd = Blip.ar([freq, freq*1.01], numharm, 0.3);
    snd = snd*amp*EnvGen.kr(env, gate, doneAction: 2);
    Out.ar(0, snd);
    }).add;
)
Env.adsr(1, 0.3, 1, 1.4, 0.1, -1).plot;
(
y = 34;
Pbind(
    \instrument, \beating2,
    \midinote, Pseq([55]),
    \dur, y * (Pseq([40],inf)),
    \amp, Pseq([0.03],inf);
).play;

Pbind(
    \instrument, \beating2,
    \midinote, Pseq([74,68,65,59,64,70]),
    \dur, y * (Pseq([4],inf));
).play;

Pbind(
    \instrument, \blips,
    \midinote, Pseq([0,68,65,68, 0,60,63,62, 63,64,60,59, 58,57,56, 58,55,58,59, 60,62,59, 62,68, 71,75]),
    \dur, y * (Pseq([Pseq([1,1,1,1],2),Pseq([1.5,0.5,1,1],1),Pseq([1,1,2],1), Pseq([1,1,1.5,1.5],1), Pseq([0.5,2,2],1), Pseq([2,1],1), Pseq([2,2],1)] ));
).play;
Pbind(
    \instrument, \blips,
    \midinote, Pseq([0,63,60,59, 60,63,60,63,60,63,62,63, 65,67,65,67,60,56,59,55, 58,61,57,60,56,53,56,53, 58,61,58,55,58,61,55,59, 60,62,65,62,58,59, 61,64,62,64,62,64, 62,64,62,55]),
    \dur, y * (Pseq([Pseq([1,1,1,1],1),Pseq([0.5,0.5,0.5,0.5,0.5,0.5,0.75,0.25],1),Pseq([0.5],23), Pseq([1],1),Pseq([0.5,0.5,0.5,0.5,1,0.5],1), Pseq([0.5,1,0.5,0.5,0.5],1), Pseq([1],5)] ));
).play;
)