From 7dbca261b5e65e609eda4c3e1a76d56b7419a023 Mon Sep 17 00:00:00 2001
From: Eugene Petkevich <nasedil.genio.code@gmail.com>
Date: Mon, 14 Aug 2023 21:15:30 +0200
Subject: [PATCH] =?utf8?q?Add=20=D0=A6=D0=B8=D0=B3=D0=BE=D1=84=D1=91?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 ...\221-\320\270\320\275\320\270\321\202.scd" | 17 ++++++++++
 ...0\277\320\265\321\201\320\275\321\217.scd" | 34 +++++++++++++++++++
 ...1\201\320\270\320\275\321\202\321\213.scd" | 21 ++++++++++++
 3 files changed, 72 insertions(+)
 create mode 100644 "\320\232\320\260/\320\232\320\260\320\262\321\216\321\206-\320\246\320\270\320\263\320\276\321\204\321\221/\320\246\320\270\320\263\320\276\321\204\321\221-\320\270\320\275\320\270\321\202.scd"
 create mode 100644 "\320\232\320\260/\320\232\320\260\320\262\321\216\321\206-\320\246\320\270\320\263\320\276\321\204\321\221/\320\246\320\270\320\263\320\276\321\204\321\221-\320\277\320\265\321\201\320\275\321\217.scd"
 create mode 100644 "\320\232\320\260/\320\232\320\260\320\262\321\216\321\206-\320\246\320\270\320\263\320\276\321\204\321\221/\320\246\320\270\320\263\320\276\321\204\321\221-\321\201\320\270\320\275\321\202\321\213.scd"

diff --git "a/\320\232\320\260/\320\232\320\260\320\262\321\216\321\206-\320\246\320\270\320\263\320\276\321\204\321\221/\320\246\320\270\320\263\320\276\321\204\321\221-\320\270\320\275\320\270\321\202.scd" "b/\320\232\320\260/\320\232\320\260\320\262\321\216\321\206-\320\246\320\270\320\263\320\276\321\204\321\221/\320\246\320\270\320\263\320\276\321\204\321\221-\320\270\320\275\320\270\321\202.scd"
new file mode 100644
index 0000000..0d384f5
--- /dev/null
+++ "b/\320\232\320\260/\320\232\320\260\320\262\321\216\321\206-\320\246\320\270\320\263\320\276\321\204\321\221/\320\246\320\270\320\263\320\276\321\204\321\221-\320\270\320\275\320\270\321\202.scd"
@@ -0,0 +1,17 @@
+(
+// initialization
+ServerTree.removeAll;
+
+~tempo = 94;
+~bpb = 4;
+
+ServerTree.add({
+  "Init vars:".postln;
+  (
+    tempo: TempoClock.tempo_(~tempo / 60).tempo,
+    beatsPerBar: TempoClock.schedAbs(TempoClock.nextBar, {
+      thisThread.clock.beatsPerBar_(~bpb)
+    }).beatsPerBar
+  ).postln;
+});
+)
diff --git "a/\320\232\320\260/\320\232\320\260\320\262\321\216\321\206-\320\246\320\270\320\263\320\276\321\204\321\221/\320\246\320\270\320\263\320\276\321\204\321\221-\320\277\320\265\321\201\320\275\321\217.scd" "b/\320\232\320\260/\320\232\320\260\320\262\321\216\321\206-\320\246\320\270\320\263\320\276\321\204\321\221/\320\246\320\270\320\263\320\276\321\204\321\221-\320\277\320\265\321\201\320\275\321\217.scd"
new file mode 100644
index 0000000..eac08f3
--- /dev/null
+++ "b/\320\232\320\260/\320\232\320\260\320\262\321\216\321\206-\320\246\320\270\320\263\320\276\321\204\321\221/\320\246\320\270\320\263\320\276\321\204\321\221-\320\277\320\265\321\201\320\275\321\217.scd"
@@ -0,0 +1,34 @@
+(
+~loop = Pbind(*[
+  instrument:
+]);
+
+~song = Ptpar([
+  0, ~loop,
+], inf);
+
+Pdef(\song, ~song).quant_(~bpb).play;
+)
+// send to ableton
+~ableton.allNotesOff(0);
+~ableton = MIDIOut.newByName("IAC Driver", "Bus 2").latency_(s.latency);
+
+
+(
+~gamma = [0, 2, 4, 5, 7, 9, 11, 12].scramble;
+~drums = (36..51).scramble;
+~beat = ~makeBeat.(7, dur: 8, db: 0);
+Pdef(\pobitopy, Pbind(*[
+  type: \midi,
+  midiout: ~ableton,
+  chan: 0,
+  midicmd: \noteOn,
+  midinote: Pshuf(~gamma.wrapExtend(~beat.size)+24, inf),
+  #[\dur, \dummy3, \db, \dummy1, \dummy2]: Pseq(
+    ~beat, inf,
+  ),
+  hasGate: true,
+])).quant_(4).play;
+)
+
+Pdef(\pobitopy).stop;
\ No newline at end of file
diff --git "a/\320\232\320\260/\320\232\320\260\320\262\321\216\321\206-\320\246\320\270\320\263\320\276\321\204\321\221/\320\246\320\270\320\263\320\276\321\204\321\221-\321\201\320\270\320\275\321\202\321\213.scd" "b/\320\232\320\260/\320\232\320\260\320\262\321\216\321\206-\320\246\320\270\320\263\320\276\321\204\321\221/\320\246\320\270\320\263\320\276\321\204\321\221-\321\201\320\270\320\275\321\202\321\213.scd"
new file mode 100644
index 0000000..5023ba2
--- /dev/null
+++ "b/\320\232\320\260/\320\232\320\260\320\262\321\216\321\206-\320\246\320\270\320\263\320\276\321\204\321\221/\320\246\320\270\320\263\320\276\321\204\321\221-\321\201\320\270\320\275\321\202\321\213.scd"
@@ -0,0 +1,21 @@
+(
+SynthDef(\zuqufucu, {|
+  out = 0,
+  sustain = 0.5,
+  freq = 440,
+  amp = 1,
+  cut = 800,
+  rez = 0.8,
+  modFreqMin = 7,
+  modFreqMax = 12,
+  modAmp = 0.01
+  |
+  var sig = 0;
+  var modFreq = SinOsc.kr(Rand(modFreqMin, modFreqMax), 0, modAmp, 1);
+  sig = sig + Pulse.ar(freq * modFreq);
+  sig = RLPF.ar(sig, cut.lag(0.01), rez.lag(0.01));
+  sig = sig * EnvGen.ar(Env.perc(sustain*0.1, releaseTime: sustain*0.9), doneAction: 2);
+  sig = Pan2.ar(sig, Rand(-0.3, 0.3));
+  Out.ar(out, sig * amp);
+}).add;
+)
\ No newline at end of file
-- 
2.17.1