make sequencer understand id based commands, too

85dc6590 · Roman Haefeli · d7bbb8b2 · 85dc6590
Commit 85dc6590 authored Aug 30, 2019 by Roman Haefeli
--- a/unpunch.pd
+++ b/unpunch.pd
@@ -1570,60 +1570,48 @@ num float nvis;
 #X obj 24 109 t a a;
 #X obj 24 62 route change;
 #X obj 24 85 route duration;
-#X msg 186 110 \$1 \$2;
-#X obj 24 173 t a a;
-#X msg 24 196 \$1 \$3;
-#X obj 24 219 +;
-#X msg 52 225 \$2;
+#X msg 86 197 \$2;
 #X obj 258 331 s \$0.sequencer.event.remove;
 #X obj 24 298 s \$0.sequencer.event.add.pre;
-#N canvas 83 99 410 208 step|pitch->id 0;
-#X obj 40 63 s \$0.convert.step|pitch->id.get;
-#X obj 40 86 r \$0.convert.step|pitch->id;
+#X obj 24 270 pack f f 0 f;
+#X msg 258 269 0 \$1;
+#X obj 231 233 t a a;
+#X obj 24 16 r \$0.seq.receive;
+#X msg 231 161 \$1;
+#X msg 24 143 \$1;
+#N canvas 83 99 398 214 id->step|pitch 0;
 #X obj 13 14 inlet;
 #X obj 13 37 t b a;
 #X obj 13 114 list append;
 #X obj 13 137 outlet;
-#X connect 1 0 4 1;
+#X obj 40 63 s \$0.convert.id->step|pitch.get;
+#X obj 40 86 r \$0.convert.id->step|pitch;
+#X connect 0 0 1 0;
+#X connect 1 0 2 0;
+#X connect 1 1 4 0;
 #X connect 2 0 3 0;
-#X connect 3 0 4 0;
-#X connect 3 1 0 0;
-#X connect 4 0 5 0;
-#X restore 186 173 pd step|pitch->id;
-#X obj 186 196 route -1;
-#X obj 483 343 list append;
-#X obj 483 319 b;
-#X msg 483 367 sequencer: note delete: note not found (\$1 \$2);
-#X obj 483 390 s error;
-#X obj 24 270 pack f f 0 f;
-#X obj 186 142 t a a;
-#X msg 258 269 0 \$1;
-#X obj 231 233 t a a;
-#X obj 24 16 r \$0.seq.receive;
+#X connect 5 0 2 1;
+#X restore 24 170 pd id->step|pitch;
+#X obj 24 193 unpack;
+#X obj 24 221 +;
 #X connect 0 0 2 0;
-#X connect 1 0 5 0;
+#X connect 1 0 12 0;
+#X connect 1 1 11 0;
 #X connect 1 1 4 0;
 #X connect 2 0 3 0;
 #X connect 3 0 1 0;
-#X connect 4 0 18 0;
-#X connect 5 0 6 0;
-#X connect 5 1 8 0;
-#X connect 6 0 7 0;
-#X connect 7 0 17 0;
-#X connect 8 0 17 1;
-#X connect 11 0 12 0;
-#X connect 12 0 14 0;
-#X connect 12 1 20 0;
-#X connect 13 0 15 0;
-#X connect 14 0 13 0;
-#X connect 15 0 16 0;
-#X connect 17 0 10 0;
-#X connect 18 0 11 0;
-#X connect 18 1 13 1;
-#X connect 19 0 9 0;
-#X connect 20 0 17 3;
-#X connect 20 1 19 0;
-#X connect 21 0 0 0;
+#X connect 4 0 15 1;
+#X connect 7 0 6 0;
+#X connect 8 0 5 0;
+#X connect 9 0 7 3;
+#X connect 9 1 8 0;
+#X connect 10 0 0 0;
+#X connect 11 0 9 0;
+#X connect 12 0 13 0;
+#X connect 13 0 14 0;
+#X connect 14 0 15 0;
+#X connect 14 1 7 1;
+#X connect 15 0 7 0;
 #X restore 13 66 pd note.change.duration;
 #N canvas 604 608 577 279 event.add 0;
 #X obj 16 37 t a a;
@@ -1659,7 +1647,7 @@ num float nvis;
 #X connect 13 0 9 0;
 #X connect 14 0 13 0;
 #X restore 15 132 pd event.add;
-#N canvas 594 831 359 230 event.remove 0;
+#N canvas 594 864 359 230 event.remove 0;
 #X obj 47 110 text delete \$0.sequence;
 #X obj 14 11 r \$0.sequencer.event.remove;
 #X obj 14 80 sel -1;
@@ -1683,11 +1671,8 @@ num float nvis;
 #N canvas 0 99 572 389 note.change.velocity 0;
 #X obj 24 39 route note;
 #X obj 24 62 route change;
-#X msg 24 135 \$1 \$2;
 #X obj 24 85 route velocity;
-#X obj 24 186 text search \$0.sequence 0 1;
 #X obj 24 108 t a a;
-#X msg 84 152 \$3;
 #X obj 69 316 text set \$0.sequence;
 #X msg 147 284 2;
 #X obj 24 209 route -1;
@@ -1700,27 +1685,30 @@ num float nvis;
 #X obj 69 282 f;
 #X obj 69 252 t b a b, f 13;
 #X obj 24 16 r \$0.seq.receive;
+#X msg 84 152 \$2;
+#X msg 24 135 \$1;
+#X obj 24 186 text search \$0.sequence 3;
 #X connect 0 0 1 0;
-#X connect 1 0 3 0;
-#X connect 2 0 11 0;
-#X connect 3 0 5 0;
-#X connect 4 0 9 0;
-#X connect 5 0 2 0;
-#X connect 5 1 6 0;
-#X connect 6 0 15 1;
-#X connect 8 0 7 2;
+#X connect 1 0 2 0;
+#X connect 2 0 3 0;
+#X connect 3 0 16 0;
+#X connect 3 1 15 0;
+#X connect 5 0 4 2;
+#X connect 6 0 7 0;
+#X connect 6 1 13 0;
+#X connect 7 0 9 0;
+#X connect 8 0 17 0;
+#X connect 8 1 9 1;
 #X connect 9 0 10 0;
-#X connect 9 1 16 0;
-#X connect 10 0 12 0;
-#X connect 11 0 4 0;
-#X connect 11 1 12 1;
-#X connect 12 0 13 0;
-#X connect 13 0 14 0;
-#X connect 15 0 7 0;
-#X connect 16 0 15 0;
-#X connect 16 1 7 1;
-#X connect 16 2 8 0;
-#X connect 17 0 0 0;
+#X connect 10 0 11 0;
+#X connect 12 0 4 0;
+#X connect 13 0 12 0;
+#X connect 13 1 4 1;
+#X connect 13 2 5 0;
+#X connect 14 0 0 0;
+#X connect 15 0 12 1;
+#X connect 16 0 8 0;
+#X connect 17 0 6 0;
 #X restore 13 88 pd note.change.velocity;
 #N canvas 0 99 415 480 play.notes.by.index 0;
 #X obj 18 77 text search \$0.sequence 0;
@@ -4240,6 +4228,7 @@ by clicking on two coordinates on the grid with Ctrl-key pressed.;
 #X connect 21 0 17 0;
 #X connect 23 0 39 0;
 #X connect 34 0 15 0;
+#X connect 34 1 35 0;
 #X connect 34 2 45 0;
 #X connect 37 0 11 0;
 #X connect 39 0 24 0;