Add log drum connection and sequencing

diff --git a/Ка/Камем-Писесю/Писесю.scd b/Ка/Камем-Писесю/Писесю.scd
new file mode 100644 (file)
index 0000000..a57043c
--- /dev/null
+++ b/Ка/Камем-Писесю/Писесю.scd
@@ -0,0 +1,18 @@
+(
+~beat = 1.split(3);
+)
+(
+Pdef(\pobitopy, Pbind(*[
+  type: \midi,
+  midiout: m.arout1,
+  chan: 0,
+  midicmd: \noteOn,
+  midinote: Pshuf([0, 0, 2, 5, 7, 7].wrapExtend(~beat.size)+36, inf),
+  dur: Pseq(~beat, inf),
+  db: Pseq([-3], inf),
+  legato: 0.9,
+  hasGate: true,
+])).quant_(4).play;
+)
+
+Pdef(\pobitopy).stop;
\ No newline at end of file

diff --git a/Ка/Камем-Ԋаԉяԃо/Ԋаԉяԃо.scd b/Ка/Камем-Ԋаԉяԃо/Ԋаԉяԃо.scd
new file mode 100644 (file)
index 0000000..0a6cd04
--- /dev/null
+++ b/Ка/Камем-Ԋаԉяԃо/Ԋаԉяԃо.scd
@@ -0,0 +1,40 @@
+(
+~beat = 1.split(3);
+)
+
+(
+~melody = [0, 0, 2, 5, 7, 7];
+Pdef(\pobitopy, Pbind(*[
+  type: \midi,
+  midiout: m.arout1,
+  chan: 0,
+  midicmd: \noteOn,
+  midinote: Pshuf(~melody.wrapExtend(~beat.size)+36, inf),
+  dur: Pseq(~beat, inf),
+  db: Pwhite(-2, 0, inf),
+  legato: 0.9,
+  hasGate: true,
+])).quant_(1).play;
+)
+
+Pdef(\pobitopy).stop;
+
+(
+~melodyBeat = 4.split(7);
+)
+(
+~melodyPad = [0, 2, 4, 5, 7, 9, 11].scramble;
+Pdef(\dytesexu, Pbind(*[
+  type: \midi,
+  midiout: m.arout2,
+  chan: 0,
+  midicmd: \noteOn,
+  midinote: Pshuf(~melodyPad.wrapExtend(~melodyBeat.size)+60, inf),
+  dur: Pseq(~melodyBeat, inf),
+  db: Pwhite(-2, 0, inf),
+  legato: 0.9,
+  hasGate: true,
+])).quant_(1).play;
+)
+
+Pdef(\dytesexu).stop;
\ No newline at end of file