From: Eugene Petkevich <nasedil.genio.code@gmail.com>
Date: Tue, 14 Mar 2023 21:57:23 +0000 (+0100)
Subject: в синтах и ревербах пшаф сделать такой же длины как и сами мелодии
X-Git-Url: https://git.zuelum.org/?a=commitdiff_plain;h=2ae0d5211cb2708e98646068e2e649b185808785;p=scprojects.git

в синтах и ревербах пшаф сделать такой же длины как и сами мелодии
---

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 dab9c0b..8a42c37 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"
@@ -30,7 +30,7 @@
         );
         sig = sig + partial;
       });
-      distort = 1 + (1.1 * ampEnv);
+      distort = 1 + (0.3 * ampEnv);
       sig = (sig * distort).clip(-1, 1);
       sig = Pan2.ar(sig, pan, amp);
       Out.ar(out, sig);
@@ -129,24 +129,29 @@ Pdef(\liwarypo, Pbind(*[
 
 (
 ~reverbSynths.do{|item|
-  item.set(\mix, 0.2.rand);
+  item.set(\mix, 0.5.rand);
 };
 )
 
 ////
 TempoClock.tempo = 1;
 
+~emergingVals = {|n, c, arr| Pseq(n.collect{|i| Pn(Pshuf(arr.wrapExtend(i+1), c), c)}, 1)};
 ~emergingNotes = {|n, c| Pseq(n.collect{|i| Pn(Pshuf((0..i), c), c)}, 1)};
-~emergingNotes.(5, 1).asStream.all.size/60/2
+
+~emergingNotes.(5, 1).asStream.all.size/60/1
 ~emergingNotes.(11, 2).asStream.all.size/60/2
 ~emergingNotes.(13, 3).asStream.all.size/60/3
 ~emergingNotes.(15, 4).asStream.all.size/60/4
 ~emergingNotes.(11, 5).asStream.all.size/60/5
 
+~emergingVals.(5, 1, ~reverbBusses).asStream.all.size
+~emergingNotes.(5, 1).asStream.all.size
+
 (
 ~tenydedi = Pbind(*[
-  out: Pshuf(~reverbBusses.wrapExtend(15), inf),
-  instrument: Pshuf(~synthNames.wrapExtend(15), inf),
+  out: ~emergingVals.(5, 1, ~reverbBusses),
+  instrument: ~emergingVals.(5, 1, ~synthNames),
   db: -3,
   pan: Pwhite(-0.2, 0.2!4),
   dur: 1,
@@ -155,12 +160,13 @@ TempoClock.tempo = 1;
   scale: Pn(~scale),
   octave: 1,
   degree: ~emergingNotes.(5, 1),
+  timingOffset: Plprand(0, 0.003!4),
 ]);
 Pdef(\tenydedi, ~tenydedi).quant_(1).stop;
 
 ~nohagygu = Pbind(*[
-  out: Pshuf(~reverbBusses.wrapExtend(15), inf),
-  instrument: Pshuf(~synthNames.wrapExtend(15), inf),
+  out: ~emergingVals.(10, 2, ~reverbBusses),
+  instrument: ~emergingVals.(10, 2, ~synthNames),
   db: -9,
   pan: Pwhite(-0.2, 0.2!4),
   dur: 1/2,
@@ -169,12 +175,13 @@ Pdef(\tenydedi, ~tenydedi).quant_(1).stop;
   scale: Pn(~scale),
   octave: 2,
   degree: ~emergingNotes.(10, 2),
+  timingOffset: Plprand(0, 0.003!4),
 ]);
 Pdef(\nohagygu, ~nohagygu).quant_(1).stop;
 
 ~hahuqefy = Pbind(*[
-  out: Pshuf(~reverbBusses.wrapExtend(15), inf),
-  instrument: Pshuf(~synthNames.wrapExtend(15), inf),
+  out: ~emergingVals.(9, 3, ~reverbBusses),
+  instrument: ~emergingVals.(9, 3, ~synthNames),
   db: -18,
   pan: Pwhite(-0.4, 0.4!4),
   dur: 1/3,
@@ -183,12 +190,13 @@ Pdef(\nohagygu, ~nohagygu).quant_(1).stop;
   scale: Pn(~scale),
   octave: 3,
   degree: ~emergingNotes.(9, 3),
+  timingOffset: Plprand(0, 0.003!4),
 ]);
 Pdef(\hahuqefy, ~hahuqefy).quant_(1).stop;
 
 ~tymaroso = Pbind(*[
-  out: Pshuf(~reverbBusses.wrapExtend(15), inf),
-  instrument: Pshuf(~synthNames.wrapExtend(15), inf),
+  out: ~emergingVals.(15, 4, ~reverbBusses),
+  instrument: ~emergingVals.(15, 4, ~synthNames),
   db: -28,
   pan: Pwhite(-0.6, 0.6!4),
   dur: 1/4,
@@ -197,12 +205,13 @@ Pdef(\hahuqefy, ~hahuqefy).quant_(1).stop;
   scale: Pn(~scale),
   octave: 5,
   degree: ~emergingNotes.(15, 4),
+  timingOffset: Plprand(0, 0.003!4),
 ]);
 Pdef(\tymaroso, ~tymaroso).quant_(1).stop;
 
 ~rekyhabe = Pbind(*[
-  out: Pshuf(~reverbBusses.wrapExtend(15), inf),
-  instrument: Pshuf(~synthNames.wrapExtend(15), inf),
+  out: ~emergingVals.(11, 5, ~reverbBusses),
+  instrument: ~emergingVals.(11, 5, ~synthNames),
   db: -45,
   pan: Pwhite(-0.7, 0.7!4),
   dur: 1/5,
@@ -210,16 +219,17 @@ Pdef(\tymaroso, ~tymaroso).quant_(1).stop;
   release: Pwhite(0.3, 0.5),
   scale: Pn(~scale),
   octave: 7,
-  degree: ~emergingNotes.(15, 4),
+  degree: ~emergingNotes.(11, 5),
+  timingOffset: Plprand(0, 0.003!4),
 ]);
 Pdef(\rekyhabe, ~rekyhabe).quant_(1).stop;
 
 ~nyhoweni = Ptpar([
   0, ~tenydedi,
-  20, ~nohagygu,
-  40, ~hahuqefy,
-  60, ~tymaroso,
-  80, ~rekyhabe,
+  6, ~nohagygu,
+  20, ~hahuqefy,
+  32, ~tymaroso,
+  62, ~rekyhabe,
 ], 1);
 Pdef(\test, ~nyhoweni).quant_(1).play;
 )