some livecoding

diff --git a/Ка/Камыр-Хыпёдё/Хыпёдё-песня.scd b/Ка/Камыр-Хыпёдё/Хыпёдё-песня.scd
index f32bc57..885e1d4 100644 (file)
--- a/Ка/Камыр-Хыпёдё/Хыпёдё-песня.scd
+++ b/Ка/Камыр-Хыпёдё/Хыпёдё-песня.scd
@@ -2,15 +2,121 @@
 
 // instrument
 
-~hahomoInstruments = ~makeSampleSynths.(~hahomo.name, ~hahomo.params);
+~hahomoInstruments = ~makeSampleSynths.(
+  ~hahomo.name,
+  ~hahomo.params
+);
 
 // test
 
 (
-Pdef(\test, Pbind(*[
-  instrument: Prand(~hahomoInstruments, inf),
+Pdef(\buben, Pbind(*[
+  instrument: Prand([\bu, \bo, \be, \by], inf),
   db: -6,
-  dur: Prand([1, 2, 3, 4]/4, inf),
+  dur: Pn(Pseq(2.split(3)++2.split(4), 4), inf),
+  pan: Pwhite(-0.4, 0.4),
   out: a.h,
-])).quant_(1).play;
-)
\ No newline at end of file
+])).quant_(4).stop;
+)
+
+(
+Pdef(\plate, Pbind(*[
+  instrument: Prand([\me, \mo, \ma, \my], inf),
+  db: -12,
+  dur: Pn(Pseq(2.split(4)++2.split(5), 4), 1),
+  pan: Pwhite(-0.7, 0.7),
+  out: a.h,
+])).quant_(4).play;
+)
+
+(
+Pdef(\bass, Pbind(*[
+  instrument: Prand([\da, \da], inf),
+  db: -12,
+  dur: Pn(Pseq(2.split(2)++2.split(3), 4), 1),
+  pan: Pwhite(-0.5, 0.5),
+  out: a.h,
+])).quant_(4).play;
+)
+
+(
+Pdef(\extra, Pbind(*[
+  instrument: Prand([\tu, \nu], inf),
+  db: -15,
+  dur: Pn(Pseq(4.split(5), 4), 1),
+  pan: Pwhite(-0.5, 0.5),
+  out: a.h,
+])).quant_(4).play;
+)
+
+(
+Pdef(\melody, Pbind(*[
+  instrument: \dyti,
+  db: -17,
+  octave: Prand([4, 5, 6], inf)+[0, 2],
+  degree: Pseq([0, 2, 4, 2, 1, 5], inf),
+  dur: Pseq([3, 3, 2].split(4)/2, 1),
+  release: TempoClock.tempo.reciprocal*2,
+  legato: 0.2,
+  cut: Pexprand(400, 800),
+  rez: Pwhite(0.6, 0.9),
+  pan: Pwhite(-0.2, 0.2) * [-1, 1],
+  out: a.h,
+])).quant_(4).play;
+)
+
+(
+Pdef(\pad, Pbind(*[
+  instrument: \neta,
+  db: -17,
+  octave: 3,
+  degree: Pseq([0, 2, 4, 2, 1, 5], inf),
+  dur: Pseq([3, 3, 2].split(2)/2, 1),
+  legato: 0.8,
+  pan: Pwhite(-0.2, 0.2) * [-1, 1],
+  out: a.h,
+])).quant_(4).play;
+)
+
+(
+Pdef(\metal, Pbind(*[
+  instrument: \leto,
+  db: -11,
+  octave: Prand([6, 7, 8, 9], inf),
+  degree: Pseq([0, 2, 4, 2, 1, 5], inf),
+  dur: Pseq([3, 3, 2].split(3)/2, 1),
+  legato: Pwhite(0.8, 1.2),
+  pan: Pwhite(-0.7, 0.7) * [-1, 1],
+  out: a.h,
+])).quant_(4).play;
+)
+
+(
+Pdef(\baseight, Pmono(\qoba, *[
+  trig: 1,
+  accent: 0.5,
+  freq: Pexprand(40, 80),
+  tone: 0.5,
+  decay: 0.9,
+  attackfm: 0.3,
+  selffm: 0.75,
+  dur: Pseq(1.split(1)++1.split(2)++2.split(3), 1),
+  db: Pwhite(5, 8),
+  out: a.h,
+])).quant_(4).play;
+)
+
+(
+Pdef(\memb, Pmono(\liwe, *[
+  trig: 1,
+  tension: Pexprand(0.02, 0.03),
+  loss: Pexprand(0.9999, 0.99999),
+  impact: 0.1,
+  dur: Pseq(1.split(1)++1.split(2)++2.split(3), 1),
+  db: -9,
+  out: a.h,
+])).quant_(4).play;
+)
+
+s.record(bus: a.h);
+s.stopRecording;
\ No newline at end of file