Постепенно повысшать количество нот в мелодии

diff --git a/Зясах-Мыҏиӈё.scd b/Зясах-Мыҏиӈё.scd
index 9947d08..0c87aab 100644 (file)
--- a/Зясах-Мыҏиӈё.scd
+++ b/Зясах-Мыҏиӈё.scd
@@ -13,7 +13,7 @@
       out = 0
       |
       var sig = SinOsc.ar(freq, 2pi.rand);
-      var num = 11;
+      var num = 13;
       var partial;
       sig = sig * EnvGen.kr(Env.perc(attack, release), doneAction: 2);
       num.do({
@@ -57,8 +57,10 @@
 }
 )
 
+(
 ~synthNames = ~synthGen.value;
 ~reverbNames = ~reverbGen.value(prefix: \jumisevu);
+)
 
 (
 ~reverbSynths = Array(~reverbNames.size);
@@ -72,14 +74,16 @@
 };
 )
 
+(
 ~tuning = Tuning.et(13);
 ~scale = Scale.new(#[0, 3, 5, 8, 10], 13, ~tuning);
+)
 
 (
 Pdef(\hihymive, Pbind(*[
   out: Pshuf(~reverbBusses.wrapExtend(9), inf),
   instrument: Pshuf(~synthNames.wrapExtend(9), inf),
-  db: -12,
+  db: -9,
   pan: Pwhite(-0.5, 0.5),
   dur: 1/3,
   attack: Pwhite(0.01, 0.02),
@@ -87,7 +91,7 @@ Pdef(\hihymive, Pbind(*[
   scale: Pn(~scale),
   octave: 2,
   degree: Pn(Pshuf((0..8), 3), inf),
-])).quant_(3).play;
+])).quant_(3).stop;
 
 Pdef(\pafajyry, Pbind(*[
   out: Pshuf(~reverbBusses.wrapExtend(15), inf),
@@ -100,7 +104,7 @@ Pdef(\pafajyry, Pbind(*[
   scale: Pn(~scale),
   octave: 4,
   degree: Pn(Pshuf((0..14), 2), inf),
-])).quant_(3).play;
+])).quant_(3).stop;
 
 Pdef(\liwarypo, Pbind(*[
   out: Pshuf(~reverbBusses.wrapExtend(5), inf),
@@ -114,13 +118,79 @@ Pdef(\liwarypo, Pbind(*[
   scale: Pn(~scale),
   octave: 8,
   degree: Pn(Pshuf((0..4), 4), inf),
-])).quant_(3).play;
+])).quant_(3).stop;
 )
 
 (
 ~reverbSynths.do{|item|
-  item.set(\mix, 0.1);
+  item.set(\mix, 0.1.rand);
 };
 )
 
-s.record(bus: a.h);
\ No newline at end of file
+////
+TempoClock.tempo = 1;
+
+~emergingNotes = {|n, c| Pseq(n.collect{|i| Pn(Pshuf((0..i), c), c)}, 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
+
+(
+Pdef(\nohagygu, Pbind(*[
+  out: Pshuf(~reverbBusses.wrapExtend(15), inf),
+  instrument: Pshuf(~synthNames.wrapExtend(15), inf),
+  db: -9,
+  pan: Pwhite(-0.2, 0.2),
+  dur: 1/2,
+  attack: Pwhite(0.01, 0.02),
+  release: Pwhite(0.8, 1.0),
+  scale: Pn(~scale),
+  octave: 2,
+  degree: ~emergingNotes.(10, 2),
+])).quant_(1).play;
+
+Pdef(\hahuqefy, Pbind(*[
+  out: Pshuf(~reverbBusses.wrapExtend(15), inf),
+  instrument: Pshuf(~synthNames.wrapExtend(15), inf),
+  db: -18,
+  pan: Pwhite(-0.4, 0.4),
+  dur: 1/3,
+  attack: Pwhite(0.01, 0.02),
+  release: Pwhite(0.5, 0.9),
+  scale: Pn(~scale),
+  octave: 3,
+  degree: ~emergingNotes.(9, 3),
+])).quant_(1).play;
+
+Pdef(\tymaroso, Pbind(*[
+  out: Pshuf(~reverbBusses.wrapExtend(15), inf),
+  instrument: Pshuf(~synthNames.wrapExtend(15), inf),
+  db: -28,
+  pan: Pwhite(-0.6, 0.6),
+  dur: 1/4,
+  attack: Pwhite(0.01, 0.02),
+  release: Pwhite(0.4, 0.7),
+  scale: Pn(~scale),
+  octave: 5,
+  degree: ~emergingNotes.(15, 4),
+])).quant_(1).play;
+
+Pdef(\rekyhabe, Pbind(*[
+  out: Pshuf(~reverbBusses.wrapExtend(15), inf),
+  instrument: Pshuf(~synthNames.wrapExtend(15), inf),
+  db: -45,
+  pan: Pwhite(-0.7, 0.7),
+  dur: 1/5,
+  attack: Pwhite(0.01, 0.02),
+  release: Pwhite(0.3, 0.5),
+  scale: Pn(~scale),
+  octave: 7,
+  degree: ~emergingNotes.(15, 4),
+])).quant_(1).play;
+)
+
+////
+
+s.record(bus: a.h);
+