Live on 33.7.3.2

diff --git a/test2.scd b/test2.scd
index a4dd2fd..c1606f8 100644 (file)
--- a/test2.scd
+++ b/test2.scd
@@ -200,4 +200,67 @@ TempoClock.tempo = 160 / 60;
 
 ~se4.shiftPos(-0.05);
 ~se4.duration = ~se4.duration - 1;
-~se4.playSample;
\ No newline at end of file
+~se4.playSample;
+
+//====
+
+(
+SynthDef(\eoau, { |out=0, amp=1, freq=440, gate=1|
+  var modFreq, sig, env;
+  env = EnvGen.ar(Env.adsr(releaseTime: 0.2), gate, doneAction: 2);
+  modFreq = Pulse.ar((freq**(1/2))*env, mul: env*freq/4, add: freq);
+  sig = Saw.ar(modFreq) * Pulse.ar(modFreq) * SinOsc.ar(freq) * amp;
+  sig = sig * env;
+  sig = Pan2.ar(sig, Rand(-0.5, 0.5));
+  Out.ar(out, sig);
+}).add;
+)
+
+TempoClock.tempo = 90 / 60;
+
+(
+Pdef(\asui, Pbind(
+  \instrument, \eoau,
+  \dur, Pseq([1, 1].normalizeSum / 4, inf),
+  \db, -1,
+  \octave, 2,
+  \note, 0,
+  \legato, Pwhite(0.1, 0.2),
+)).quant_(4).stop;
+)
+
+(
+Pdef(\sodi, Pbind(
+  \instrument, \eoau,
+  \dur, Pseq([1, 1, 1].normalizeSum * 4, inf),
+  \db, -22,
+  \octave, Prand([5, 6], inf),
+  \note, Prand([
+    Pseq([9, 7, 19, 12, 7, 4, 2], 1),
+    Pseq([7, 4, 7, 2], 1),
+  ], inf),
+  \legato, Pwhite(2.8, 4.2),
+)).quant_(4).stop;
+)
+
+(
+Pdef(\osud, Pbind(
+  \instrument, \eoau,
+  \dur, Pseq((1!7).normalizeSum/4, inf),
+  \db, -55,
+  \octave, 7,
+  \note, Prand([9, 7, 16, 12, 7, 4], inf),
+  \legato, 0.5,
+)).quant_(4).stop;
+)
+
+(
+Pdef(\saau, Pbind(
+  \instrument, \eoau,
+  \dur, Pgeom(1, 0.9, 50),
+  \db, -25,
+  \octave, 4,
+  \note, Prand([2, 5, 9, 12], inf),
+  \legato, 1,
+)).quant_(4).stop;
+)