implement 'note toggle' for toggling selection of single notes

unpunch.pd

@@ -2993,7 +2993,7 @@ num float nvis;
 #X connect 18 0 1 0;
 #X connect 18 1 16 0;
 #X restore 16 67 pd note.change.duration;
-#N canvas 94 99 568 597 note.create/delete 0;
+#N canvas 94 99 688 603 note.create/delete 0;
 #X obj 29 275 del 0;
 #X obj 29 302 f;
 #X msg 68 275 1;
@@ -3026,7 +3026,7 @@ certain period.;
 #X connect 8 1 1 0;
 #X connect 9 0 10 0;
 #X connect 11 0 9 0;
-#X restore 281 305 pd detect_double_click;
+#X restore 281 355 pd detect_double_click;
 #X obj 254 109 unpack s p f;
 #X obj 254 132 sel click;
 #X obj 254 154 t b b;
@@ -3043,7 +3043,7 @@ certain period.;
 #X msg 29 216 \$2 \$1;
 #X obj 254 79 r \$0.note.send;
 #X text 103 358 x y;
-#X obj 281 351 f;
+#X obj 281 401 f;
 #X text 72 467 step pitch;
 #N canvas 0 223 318 251 append.vel.dur.gid 0;
 #X obj 12 18 inlet;
@@ -3066,9 +3066,9 @@ certain period.;
 #X obj 29 519 list prepend note create;
 #X obj 29 542 list trim;
 #X obj 29 565 s \$0.global.send;
-#X obj 281 328 b;
-#X obj 281 282 t a a;
-#X obj 281 449 s \$0.global.send;
+#X obj 281 378 b;
+#X obj 281 332 t a a;
+#X obj 281 499 s \$0.global.send;
 #N canvas 0 99 405 189 x->step 0;
 #X obj 40 63 s \$0.convert.x->step.get;
 #X obj 40 85 r \$0.convert.x->step;
@@ -3113,14 +3113,20 @@ certain period.;
 #X obj 29 47 spigot 1;
 #X obj 107 61 == 0;
 #X obj 281 229 list prepend 0;
-#X obj 281 252 route 0 1, f 24;
 #X text 254 28 Shift+click deletes a note (like double-click);
 #X obj 107 38 r \$0.mod.key;
-#X obj 390 204 r \$0.mod.key;
-#X obj 390 227 == 1;
-#X text 436 249 Shift-Click;
-#X obj 425 228 r \$0.delete.on.click;
-#X msg 281 386 note delete \$1;
+#X obj 430 102 r \$0.mod.key;
+#X obj 465 196 r \$0.delete.on.click;
+#X msg 281 436 note delete \$1;
+#X obj 486 150 r \$0.toggle.selection;
+#X obj 430 125 t a a;
+#X obj 430 195 ==;
+#X obj 457 148 ==;
+#X obj 457 171 * 2;
+#X obj 281 302 route 0 1 2, f 24;
+#X obj 430 218 +;
+#X msg 476 397 note toggle \$1;
+#X obj 476 420 s \$0.global.receive;
 #X connect 0 0 1 0;
 #X connect 1 0 4 0;
 #X connect 2 0 1 1;
@@ -3146,7 +3152,7 @@ certain period.;
 #X connect 18 0 34 0;
 #X connect 19 0 17 0;
 #X connect 20 0 6 0;
-#X connect 22 0 47 0;
+#X connect 22 0 44 0;
 #X connect 24 0 26 0;
 #X connect 26 0 27 0;
 #X connect 27 0 28 0;
@@ -3161,14 +3167,22 @@ certain period.;
 #X connect 36 0 39 0;
 #X connect 37 0 11 0;
 #X connect 38 0 37 1;
-#X connect 39 0 40 0;
-#X connect 40 0 30 0;
-#X connect 40 1 47 0;
-#X connect 42 0 38 0;
-#X connect 43 0 44 0;
-#X connect 44 0 39 1;
-#X connect 46 0 44 1;
-#X connect 47 0 31 0;
+#X connect 39 0 50 0;
+#X connect 41 0 38 0;
+#X connect 42 0 46 0;
+#X connect 43 0 47 1;
+#X connect 44 0 31 0;
+#X connect 45 0 48 1;
+#X connect 46 0 47 0;
+#X connect 46 1 48 0;
+#X connect 47 0 51 0;
+#X connect 48 0 49 0;
+#X connect 49 0 51 1;
+#X connect 50 0 30 0;
+#X connect 50 1 44 0;
+#X connect 50 2 52 0;
+#X connect 51 0 39 1;
+#X connect 52 0 53 0;
 #X restore 16 42 pd note.create/delete;
 #N canvas 0 99 406 517 note.change.velocity 0;
 #X obj 14 19 r \$0.note.send;
@@ -3434,7 +3448,7 @@ by clicking on two coordinates on the grid with Mod-key pressed.;
 #X connect 2 0 0 0;
 #X connect 3 0 2 0;
 #X restore 16 191 pd note.unselect;
-#N canvas 269 367 348 183 delete.selection 0;
+#N canvas 269 466 348 183 delete.selection 0;
 #X obj 11 27 r \$0.delete.selection;
 #N canvas 371 289 393 275 get.selection 0;
 #X obj 20 7 inlet;
@@ -3590,7 +3604,7 @@ by clicking on two coordinates on the grid with Mod-key pressed.;
 #X connect 39 0 40 0;
 #X restore 244 65 pd move.selection;
 #X restore 19 155 pd generate.events;
-#N canvas 0 99 414 276 process.events 0;
+#N canvas 0 99 405 356 process.events 0;
 #N canvas 59 156 654 539 note.create 0;
 #X obj 6 8 r \$0.global.receive;
 #X obj 6 31 route note;
@@ -3935,7 +3949,7 @@ by clicking on two coordinates on the grid with Mod-key pressed.;
 #X connect 41 0 40 0;
 #X connect 41 1 40 1;
 #X restore 19 18 pd note.create;
-#N canvas 166 586 345 548 note.delete 0;
+#N canvas 166 652 345 548 note.delete 0;
 #X obj 6 8 r \$0.global.receive;
 #X obj 6 31 route note;
 #X obj 6 54 route delete;
@@ -4091,7 +4105,7 @@ by clicking on two coordinates on the grid with Mod-key pressed.;
 #X connect 17 1 13 1;
 #X connect 17 2 15 0;
 #X restore 19 64 pd note.change.duration;
-#N canvas 103 348 357 536 note.change.velocity 0;
+#N canvas 103 381 357 536 note.change.velocity 0;
 #X obj 6 8 r \$0.global.receive;
 #X obj 6 31 route note;
 #X obj 6 54 route change;
@@ -4358,7 +4372,7 @@ by clicking on two coordinates on the grid with Mod-key pressed.;
 #X connect 19 0 10 1;
 #X connect 20 0 13 0;
 #X restore 19 110 pd note.change.gid;
-#N canvas 0 396 347 307 note.select 0;
+#N canvas 0 495 347 307 note.select 0;
 #N canvas 73 99 380 620 get.selected.ids 0;
 #X obj 39 309 tabread \$0.step;
 #X msg 39 90 1000;
@@ -4617,7 +4631,7 @@ by clicking on two coordinates on the grid with Mod-key pressed.;
 #X connect 11 0 12 0;
 #X connect 11 1 7 0;
 #X connect 12 0 7 0;
-#X restore 19 228 pd dump;
+#X restore 19 252 pd dump;
 #N canvas 0 289 454 423 note.unselect 0;
 #X obj 17 21 r \$0.global.receive;
 #X obj 17 44 route note;
@@ -4882,6 +4896,59 @@ by clicking on two coordinates on the grid with Mod-key pressed.;
 #X connect 45 1 46 1;
 #X connect 46 0 47 0;
 #X restore 19 133 pd note.change.pos;
+#N canvas 0 289 415 385 note.toggle 0;
+#X obj 17 21 r \$0.global.receive;
+#X obj 17 44 route note;
+#X obj 17 67 route toggle;
+#N canvas 83 99 410 208 id->pointer 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 obj 40 63 s \$0.convert.id->pointer.get;
+#X obj 40 86 r \$0.convert.id->pointer;
+#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 5 0 2 1;
+#X restore 17 119 pd id->pointer;
+#X obj 17 142 route -1;
+#X obj 218 10 t a a;
+#X obj 245 33 tabread \$0.marked;
+#X obj 245 56 == 0;
+#X obj 218 105 s \$0.marked;
+#X obj 218 82 pack f f;
+#X obj 180 181 sel 0 1;
+#X msg 180 208 444;
+#X msg 199 209 808;
+#X obj 180 155 tabread \$0.marked;
+#X obj 17 93 t a a a;
+#X obj 62 321 set \$0.note mrk, f 19;
+#X obj 62 257 t b p, f 19;
+#X obj 62 295 f;
+#X connect 0 0 1 0;
+#X connect 1 0 2 0;
+#X connect 2 0 14 0;
+#X connect 3 0 4 0;
+#X connect 4 1 16 0;
+#X connect 5 0 9 0;
+#X connect 5 1 6 0;
+#X connect 6 0 7 0;
+#X connect 7 0 9 1;
+#X connect 9 0 8 0;
+#X connect 10 0 11 0;
+#X connect 10 1 12 0;
+#X connect 11 0 17 1;
+#X connect 12 0 17 1;
+#X connect 13 0 10 0;
+#X connect 14 0 3 0;
+#X connect 14 1 13 0;
+#X connect 14 2 5 0;
+#X connect 16 0 17 0;
+#X connect 16 1 15 1;
+#X connect 17 0 15 0;
+#X restore 19 202 pd note.toggle;
 #X restore 19 185 pd process.events;
 #X text 13 12 [unpunch] v0.0alpha;
 #X obj 565 443 array define \$0.marked 1000;
@@ -5025,8 +5092,6 @@ by clicking on two coordinates on the grid with Mod-key pressed.;
 #X obj 477 284 s \$0.move.left.selection;
 #X obj 477 310 select Right;
 #X obj 477 334 s \$0.move.right.selection;
-#X msg 24 129 \; \$1.delete.on.click 1 \; \$1.select.range 1 \; \$1.move.notes.octave
-1 \; \$1.move.notes.bar 1 \; \$1.change.notes.duration 2 \;;
 #X obj 24 336 r \$0.delete.on.click;
 #X obj 24 359 r \$0.select.range;
 #X obj 24 381 r \$0.move.notes.octave;
@@ -5034,9 +5099,13 @@ by clicking on two coordinates on the grid with Mod-key pressed.;
 #X obj 25 424 r \$0.change.notes.duration;
 #X obj 57 109 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
 -1;
+#X obj 25 445 r \$0.toggle.selection;
+#X msg 24 129 \; \$1.delete.on.click 2 \; \$1.select.range 1 \; \$1.move.notes.octave
+1 \; \$1.move.notes.bar 1 \; \$1.change.notes.duration 2 \; \$1.toggle.selection
+1 \;;
 #X connect 1 0 2 0;
 #X connect 3 0 4 0;
-#X connect 4 0 34 0;
+#X connect 4 0 41 0;
 #X connect 9 0 10 0;
 #X connect 9 1 10 1;
 #X connect 10 0 11 0;
@@ -5056,7 +5125,7 @@ by clicking on two coordinates on the grid with Mod-key pressed.;
 #X connect 26 0 27 0;
 #X connect 30 0 31 0;
 #X connect 32 0 33 0;
-#X connect 40 0 4 0;
+#X connect 39 0 4 0;
 #X restore 19 125 pd key.commands;
 #X connect 0 0 22 0;
 #X connect 1 0 2 0;