Emmaus

s.record;
s.stopRecording;

~synth = ~firstChord.play;

(
t = TempoClock(40/60);
{
~synth.play(t);
}.fork(t);
)

(
SynthDef("emmaus", {arg freq = 60, amp = 0.9, gate = 1, wowrelease = 5;
var chorus, source, filtermod, env, snd;
chorus = Lag.kr(freq, 2) * LFNoise2.kr([0.4, 0.5, 0.7, 1, 2, 5]).range
(1, 1.02);
source = LFSaw.ar(chorus) * 0.9;
filtermod = SinOsc.kr(1/32).range(1, 5);
env = Env.asr(1, amp, wowrelease).kr(2, gate);
snd = LPF.ar(in: source, freq: freq * filtermod, mul: env);
Out.ar(0, Splay.ar(snd))
}).add;
)

(
var myDurs = Pseq([Pn(1/16, 7), 3, Pn(1/4, 3), 3, Pn(1, 6), 4, 4, 3, 4, 3], inf) * 0.4;
~firstChord = Pbind(
\instrument, "emmaus",
\scale, Pstutter(8, Pseq([Scale.lydian], inf)),
\degree, Prand((0..9), inf),
\dur, myDurs,
\amp, Prand((0.3..0.7), inf),
\wowrelease, 3,
\legato, 0.01
);
)