implement 'move selection' with key commands

unpunch.pd

@@ -3310,7 +3310,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 301 348 183 delete.selection 0;
+#N canvas 269 334 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;
@@ -3347,6 +3347,124 @@ by clicking on two coordinates on the grid with Mod-key pressed.;
 #X connect 2 0 3 0;
 #X restore 243 40 pd delete.selection;
 #X text 244 17 KEY COMMANDS;
+#N canvas 463 447 599 558 move.selection 0;
+#N canvas 371 289 393 275 get.selection 0;
+#X obj 20 7 inlet;
+#X msg 20 64 1000;
+#X obj 20 87 until;
+#X obj 20 30 t b b;
+#X msg 75 62 0;
+#X obj 20 110 f;
+#X obj 100 119 + 1;
+#X obj 20 156 tabread \$0.marked;
+#X obj 20 229 outlet;
+#X obj 20 179 pack f f;
+#X obj 20 133 t a a a;
+#X obj 20 202 route 1;
+#X connect 0 0 3 0;
+#X connect 1 0 2 0;
+#X connect 2 0 5 0;
+#X connect 3 0 1 0;
+#X connect 3 1 4 0;
+#X connect 4 0 5 1;
+#X connect 5 0 10 0;
+#X connect 6 0 5 1;
+#X connect 7 0 9 0;
+#X connect 9 0 11 0;
+#X connect 10 0 7 0;
+#X connect 10 1 9 1;
+#X connect 10 2 6 0;
+#X connect 11 0 8 0;
+#X restore 48 314 pd get.selection;
+#X obj 17 19 r \$0.move.up.selection;
+#X obj 51 41 r \$0.move.down.selection;
+#X obj 88 66 r \$0.move.left.selection;
+#X obj 125 88 r \$0.move.right.selection;
+#X obj 359 67 r \$0.griddivision;
+#X obj 385 90 r \$0.gridsubdivision;
+#X obj 385 113 t b a;
+#X obj 359 138 *;
+#X msg 17 42 0 1;
+#X msg 51 64 0 -1;
+#X msg 88 89 -1 0;
+#X msg 125 111 1 0;
+#X obj 344 166 f;
+#X obj 308 19 r \$0.mod.key;
+#X obj 308 42 == 1;
+#X obj 340 42 r \$0.move.notes.bar;
+#X obj 308 141 sel 0 1;
+#X msg 308 164 1;
+#X obj 48 141 unpack f f;
+#X obj 48 175 *;
+#X obj 308 193 t a;
+#X obj 445 163 r \$0.move.notes.octave;
+#X obj 411 139 r \$0.mod.key;
+#X obj 411 162 == 1;
+#X obj 411 187 sel 0 1;
+#X msg 411 210 1;
+#X msg 442 210 12;
+#X obj 411 237 t a;
+#X obj 105 203 *;
+#X obj 48 233 pack f f;
+#X obj 48 256 t b a;
+#X obj 48 337 t a a a;
+#X obj 67 412 tabread \$0.step;
+#X obj 87 360 tabread \$0.pitch;
+#X obj 67 435 +;
+#X obj 87 383 +;
+#X obj 83 281 unpack;
+#X obj 48 466 pack f f f;
+#X msg 48 489 note change pos \$1 \$2 \$3;
+#X obj 48 512 s \$0.global.send;
+#X connect 0 0 32 0;
+#X connect 1 0 9 0;
+#X connect 2 0 10 0;
+#X connect 3 0 11 0;
+#X connect 4 0 12 0;
+#X connect 5 0 8 0;
+#X connect 6 0 7 0;
+#X connect 7 0 8 0;
+#X connect 7 1 8 1;
+#X connect 8 0 13 1;
+#X connect 9 0 19 0;
+#X connect 10 0 19 0;
+#X connect 11 0 19 0;
+#X connect 12 0 19 0;
+#X connect 13 0 21 0;
+#X connect 14 0 15 0;
+#X connect 15 0 17 0;
+#X connect 16 0 15 1;
+#X connect 17 0 18 0;
+#X connect 17 1 13 0;
+#X connect 18 0 21 0;
+#X connect 19 0 20 0;
+#X connect 19 1 29 0;
+#X connect 20 0 30 0;
+#X connect 21 0 20 1;
+#X connect 22 0 24 1;
+#X connect 23 0 24 0;
+#X connect 24 0 25 0;
+#X connect 25 0 26 0;
+#X connect 25 1 27 0;
+#X connect 26 0 28 0;
+#X connect 27 0 28 0;
+#X connect 28 0 29 1;
+#X connect 29 0 30 1;
+#X connect 30 0 31 0;
+#X connect 31 0 0 0;
+#X connect 31 1 37 0;
+#X connect 32 0 38 0;
+#X connect 32 1 33 0;
+#X connect 32 2 34 0;
+#X connect 33 0 35 0;
+#X connect 34 0 36 0;
+#X connect 35 0 38 1;
+#X connect 36 0 38 2;
+#X connect 37 0 35 1;
+#X connect 37 1 36 1;
+#X connect 38 0 39 0;
+#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 59 156 682 563 note.create 0;
@@ -4640,6 +4758,8 @@ by clicking on two coordinates on the grid with Mod-key pressed.;
 #X obj 24 381 r \$0.move.notes.octave;
 #X obj 24 402 r \$0.move.notes.bar;
 #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 connect 1 0 2 0;
 #X connect 3 0 4 0;
 #X connect 4 0 34 0;
@@ -4662,6 +4782,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 restore 19 125 pd key.commands;
 #X connect 0 0 22 0;
 #X connect 1 0 2 0;