Commit 16bd58b7 authored by Roman Haefeli's avatar Roman Haefeli
Browse files

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

parent cfa58a14
......@@ -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;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment