implement 'copy while moving' (behaves somewhat similar to photoshop stamp tool)

unpunch.pd

@@ -3556,7 +3556,6 @@ by clicking on two coordinates on the grid with Mod-key pressed.;
 #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;
@@ -3565,24 +3564,58 @@ by clicking on two coordinates on the grid with Mod-key pressed.;
 #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 411 210 sel 0 1;
+#X msg 411 233 1;
+#X msg 442 233 12;
+#X obj 411 260 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 obj 89 410 tabread \$0.step;
+#X obj 130 366 tabread \$0.pitch;
+#X obj 89 433 +;
+#X obj 130 389 +;
+#X obj 106 285 unpack;
+#X obj 48 466 pack f f f, f 14;
 #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 obj 411 162 &;
+#X obj 308 42 &;
+#X obj 308 68 > 0;
+#X obj 411 187 > 0;
+#X obj 353 339 r \$0.copy.and.move;
+#X obj 325 316 r \$0.mod.key;
+#X obj 325 339 &;
+#X obj 325 365 > 0;
+#X obj 48 337 t a a a a, f 21;
+#X obj 292 394 spigot;
+#N canvas 0 99 418 242 get.note.params 0;
+#X obj 24 141 tabread \$0.step;
+#X obj 39 121 tabread \$0.pitch;
+#X obj 55 101 tabread \$0.velocity;
+#X obj 71 81 tabread \$0.duration;
+#X obj 87 61 tabread \$0.gid;
+#X obj 24 167 pack f f f f f;
+#X obj 24 33 t a a a a a;
+#X obj 24 10 inlet;
+#X obj 24 190 outlet;
+#X connect 0 0 5 0;
+#X connect 1 0 5 1;
+#X connect 2 0 5 2;
+#X connect 3 0 5 3;
+#X connect 4 0 5 4;
+#X connect 5 0 8 0;
+#X connect 6 0 0 0;
+#X connect 6 1 1 0;
+#X connect 6 2 2 0;
+#X connect 6 3 3 0;
+#X connect 6 4 4 0;
+#X connect 7 0 6 0;
+#X restore 292 421 pd get.note.params;
+#X obj 292 444 list prepend note create;
+#X obj 292 467 list trim;
+#X obj 292 490 s \$0.global.send;
+#X connect 0 0 46 0;
 #X connect 1 0 9 0;
 #X connect 2 0 10 0;
 #X connect 3 0 11 0;
@@ -3592,44 +3625,55 @@ by clicking on two coordinates on the grid with Mod-key pressed.;
 #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 9 0 18 0;
+#X connect 10 0 18 0;
+#X connect 11 0 18 0;
+#X connect 12 0 18 0;
+#X connect 13 0 20 0;
+#X connect 14 0 39 0;
+#X connect 15 0 39 1;
+#X connect 16 0 17 0;
+#X connect 16 1 13 0;
+#X connect 17 0 20 0;
+#X connect 18 0 19 0;
+#X connect 18 1 27 0;
+#X connect 19 0 28 0;
+#X connect 20 0 19 1;
+#X connect 21 0 38 1;
+#X connect 22 0 38 0;
 #X connect 23 0 24 0;
-#X connect 24 0 25 0;
+#X connect 23 1 25 0;
+#X connect 24 0 26 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 26 0 27 1;
+#X connect 27 0 28 1;
+#X connect 28 0 29 0;
+#X connect 29 0 0 0;
+#X connect 29 1 34 0;
+#X connect 30 0 32 0;
+#X connect 31 0 33 0;
+#X connect 32 0 35 1;
+#X connect 33 0 35 2;
+#X connect 34 0 32 1;
+#X connect 34 1 33 1;
+#X connect 35 0 36 0;
+#X connect 36 0 37 0;
+#X connect 38 0 41 0;
 #X connect 39 0 40 0;
+#X connect 40 0 16 0;
+#X connect 41 0 23 0;
+#X connect 42 0 44 1;
+#X connect 43 0 44 0;
+#X connect 44 0 45 0;
+#X connect 45 0 47 1;
+#X connect 46 0 35 0;
+#X connect 46 1 30 0;
+#X connect 46 2 31 0;
+#X connect 46 3 47 0;
+#X connect 47 0 48 0;
+#X connect 48 0 49 0;
+#X connect 49 0 50 0;
+#X connect 50 0 51 0;
 #X restore 244 65 pd move.selection;
 #X restore 19 155 pd generate.events;
 #N canvas 0 99 405 356 process.events 0;
@@ -5039,7 +5083,7 @@ by clicking on two coordinates on the grid with Mod-key pressed.;
 #X obj 333 508 s \$0.global.receive;
 #X msg 333 485 note change duration 0 \$1;
 #X floatatom 333 460 5 0 0 0 - - -;
-#N canvas 25 99 703 479 key.commands 0;
+#N canvas 25 99 707 490 key.commands 0;
 #N canvas 0 99 397 411 mod.keys 0;
 #X obj 25 15 keyname;
 #X obj 25 37 pack f s;
@@ -5123,16 +5167,16 @@ by clicking on two coordinates on the grid with Mod-key pressed.;
 #X obj 24 359 r \$0.select.range;
 #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 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 \; \$1.move.notes.bar 1 \; \$1.copy.and.move 2 \; \$1.toggle.selection
 1 \;;
+#X obj 25 424 r \$0.copy.and.move;
 #X connect 1 0 2 0;
 #X connect 3 0 4 0;
-#X connect 4 0 41 0;
+#X connect 4 0 40 0;
 #X connect 9 0 10 0;
 #X connect 9 1 10 1;
 #X connect 10 0 11 0;
@@ -5152,7 +5196,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 39 0 4 0;
+#X connect 38 0 4 0;
 #X restore 19 125 pd key.commands;
 #X connect 0 0 22 0;
 #X connect 1 0 2 0;