Add improvisation

diff --git a/Хэзифу/etude-33.7.4.2.scd b/Хэзифу/etude-33.7.4.2.scd
new file mode 100644 (file)
index 0000000..021fafa
--- /dev/null
+++ b/Хэзифу/etude-33.7.4.2.scd
@@ -0,0 +1,43 @@
+
+
+~sekick = Sampler(\kik);
+
+~sekick.startRec;
+~sekick.stopRec;
+
+~sekick.playSample;
+~sekick.shiftPos(0.05);
+
+~procBus = Bus.audio(s, 2);
+
+(
+Pdef(\kik, ~sekick.makeSynthBind <> Pbind(*[
+  dur: 1,
+  octave: 4,
+  db: -15,
+  legato: 5,
+  sendGate: false,
+  out: ~procBus,
+])).quant_(4).stop;
+)
+
+(
+SynthDef(\sexi, {| in, out=0 |
+  var sig;
+  sig = In.ar(in, 2);
+  //sig = sig + CombC.ar(sig, 5.0, 1/6, 2.1);
+  //sig = sig * 0.7;
+  //sig = sig * Pulse.ar(Pulse.ar(Pulse.ar(171).range(2, 401)).range(0, 6703));
+  //sig = sig + DelayC.ar(CombC.ar(sig, 5.0, 1/13, 1.0), 0.1, LFNoise2.ar(151).range(0, 0.09));
+  //sig = sig*0.5 + Pulse.ar(LFNoise2.ar(32).range(400, 800), mul: LFNoise2.ar(16).range(0.01, 0.02));
+  sig = LPF.ar(sig, LFNoise2.ar(16).range(2000, 16000));
+  Out.ar(out, sig);
+}).add;
+
+{
+  ~procSynth.free;
+  ~procSynth = Synth(\sexi, [
+    in: ~procBus,
+  ], s, \addToTail);
+}.defer(0.1);
+)
\ No newline at end of file