From e5c991c089aec1a0e529b55e20eef4f48437662a Mon Sep 17 00:00:00 2001
From: Eugene Petkevich <nasedil.genio.code@gmail.com>
Date: Sat, 1 Apr 2023 19:22:26 +0200
Subject: [PATCH] make infinite song

---
 ...1\213\322\217\320\270\323\210\321\221.scd" | 41 ++++++++++++++-----
 1 file changed, 31 insertions(+), 10 deletions(-)

diff --git "a/\320\227\321\217\321\201\320\260\321\205-\320\234\321\213\322\217\320\270\323\210\321\221.scd" "b/\320\227\321\217\321\201\320\260\321\205-\320\234\321\213\322\217\320\270\323\210\321\221.scd"
index 326138b..5d735cd 100644
--- "a/\320\227\321\217\321\201\320\260\321\205-\320\234\321\213\322\217\320\270\323\210\321\221.scd"
+++ "b/\320\227\321\217\321\201\320\260\321\205-\320\234\321\213\322\217\320\270\323\210\321\221.scd"
@@ -89,7 +89,7 @@
 
 (
 ~reverbSynths.do{|item|
-  item.set(\mix, 0.2.rand);
+  item.set(\mix, 0.4.rand);
 };
 )
 
@@ -464,14 +464,35 @@ Pdef.all.do{|i| i.stop};
 )
 
 (
-TempoClock.tempo = 1/8;
-thisThread.randSeed = 2001;
-Pdef(2, ~makeBeatPat.(0.1, 2, -3-100)).quant_(4).play;
-Pdef(3, ~makeBeatPat.(0.2, 3, -5-100)).quant_(4).play;
-Pdef(4, ~makeBeatPat.(0.35, 4, -12-100)).quant_(4).play;
-Pdef(5, ~makeBeatPat.(0.5, 5, -18-100)).quant_(4).play;
-Pdef(6, ~makeBeatPat.(0.75, 6, -30-100)).quant_(4).play;
-Pdef(7, ~makeBeatPat.(0.9, 7, -39-100)).quant_(4).play;
+thisThread.randSeed = 10300;
+Pdef(2, ~makeBeatPat.(0.1, 2, -3)).quant_(4).play;
+Pdef(3, ~makeBeatPat.(0.2, 3, -5)).quant_(4).play;
+Pdef(4, ~makeBeatPat.(0.35, 4, -12)).quant_(4).play;
+Pdef(5, ~makeBeatPat.(0.5, 5, -18)).quant_(4).play;
+Pdef(6, ~makeBeatPat.(0.75, 6, -30)).quant_(4).play;
+Pdef(7, ~makeBeatPat.(0.9, 7, -39)).quant_(4).play;
+)
+
+(
+~task.stop;
+TempoClock.tempo = 1/4;
+~bar = 0;
+~task = Task({{
+  thisThread.randSeed = 10300 + ~bar;
+  ~bar = ~bar + 1;
+  ~bar.postln;
+  thisThread.clock.beats.postln;
+  ~song = Ppar([
+    ~makeBeatPat.(0.1, 2, -3),
+    ~makeBeatPat.(0.2, 3, -5),
+    ~makeBeatPat.(0.35, 4, -12),
+    ~makeBeatPat.(0.5, 5, -18),
+    ~makeBeatPat.(0.75, 6, -30),
+    ~makeBeatPat.(0.9, 7, -39),
+  ], 1);
+  Pdef(\song, ~song).quant_(4).play;
+  4.wait;
+}.loop}, TempoClock.default).start;
 )
 
 //// testing synth and scale on keyboard
@@ -501,7 +522,7 @@ Pdef(7, ~makeBeatPat.(0.9, 7, -39-100)).quant_(4).play;
   ];
 };
 )
-
+s.meter
 (
 ~keys = KeySynth(~kedifu, ~synthChooser, 12/13, true, {|f,v|~keyParams.(f,v)}, 0.3,
   onlyWhite: true, scale: ~scale);
-- 
2.17.1