Commit 7e002486 authored by Roman Haefeli's avatar Roman Haefeli
Browse files

implement 'note delete' with shift+click

parent 2a224fc4
......@@ -1574,11 +1574,11 @@ num float nvis;
#X connect 14 1 1 0;
#X restore 19 110 pd note.change.duration;
#N canvas 104 99 631 633 note.create/delete 0;
#X obj 29 235 del 0;
#X obj 29 262 f;
#X msg 72 238 1;
#X obj 29 275 del 0;
#X obj 29 302 f;
#X msg 68 275 1;
#X msg 254 191 0;
#X obj 29 288 sel 1;
#X obj 29 328 sel 1;
#N canvas 0 99 483 432 detect_double_click 0;
#X obj 91 101 -;
#X obj 90 76 t a a;
......@@ -1606,25 +1606,25 @@ certain period.;
#X connect 8 1 1 0;
#X connect 9 0 10 0;
#X connect 11 0 9 0;
#X restore 281 255 pd detect_double_click;
#X restore 281 305 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;
#X obj 281 178 pointer;
#X obj 29 14 r \$0.horizgrid.send;
#X obj 29 37 route click;
#X obj 29 60 get \$0.horizgrid y;
#X obj 74 105 route click;
#X obj 74 82 r \$0.vertgrid.send;
#X obj 29 153 pack f f;
#X obj 74 128 get \$0.vertgrid x;
#X obj 29 202 t b b a;
#X obj 29 315 list append;
#X msg 29 176 \$2 \$1;
#X obj 29 77 route click;
#X obj 29 100 get \$0.horizgrid y;
#X obj 74 145 route click;
#X obj 74 122 r \$0.vertgrid.send;
#X obj 29 193 pack f f;
#X obj 74 168 get \$0.vertgrid x;
#X obj 29 242 t b b a;
#X obj 29 355 list append;
#X msg 29 216 \$2 \$1;
#X obj 254 79 r \$0.note.send;
#X text 103 318 x y;
#X obj 281 301 f;
#X text 72 427 step pitch;
#X text 103 358 x y;
#X obj 281 351 f;
#X text 72 467 step pitch;
#N canvas 0 190 318 251 append.vel.dur.gid 0;
#X obj 12 18 inlet;
#X obj 12 199 outlet;
......@@ -1641,16 +1641,16 @@ certain period.;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 1 0;
#X restore 29 444 pd append.vel.dur.gid;
#X text 33 463 step pitch vel dur gid;
#X obj 29 479 list prepend note create;
#X obj 29 502 list trim;
#X obj 29 525 s \$0.global.send;
#X obj 281 278 b;
#X obj 281 232 t a a;
#X obj 326 458 list trim;
#X obj 326 481 s \$0.global.send;
#X obj 326 435 list prepend note delete;
#X restore 29 484 pd append.vel.dur.gid;
#X text 33 503 step pitch vel dur gid;
#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 326 508 list trim;
#X obj 326 531 s \$0.global.send;
#X obj 326 485 list prepend note delete;
#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;
......@@ -1663,7 +1663,7 @@ certain period.;
#X connect 3 0 4 0;
#X connect 3 1 0 0;
#X connect 4 0 5 0;
#X restore 29 362 pd x->step;
#X restore 29 402 pd x->step;
#N canvas 0 99 405 189 y->pitch 0;
#X obj 13 14 inlet;
#X obj 13 37 t b a;
......@@ -1676,9 +1676,9 @@ certain period.;
#X connect 1 1 4 0;
#X connect 2 0 3 0;
#X connect 5 0 2 1;
#X restore 104 362 pd y->pitch;
#X obj 29 338 unpack f f, f 13;
#X obj 29 392 pack f f, f 13;
#X restore 104 402 pd y->pitch;
#X obj 29 378 unpack f f, f 13;
#X obj 29 432 pack f f, f 13;
#N canvas 83 99 398 214 pointer->id 0;
#X obj 13 14 inlet;
#X obj 13 37 t b a;
......@@ -1704,10 +1704,25 @@ certain period.;
#X connect 1 1 4 0;
#X connect 2 0 3 0;
#X connect 5 0 2 1;
#X restore 281 332 pd id->step|pitch;
#X obj 281 355 route -1;
#X msg 281 380 note delete: inconsistency in note cache detected;
#X obj 281 405 s error;
#X restore 281 382 pd id->step|pitch;
#X obj 281 405 route -1;
#X msg 281 430 note delete: inconsistency in note cache detected;
#X obj 281 455 s error;
#X obj 481 46 keyname;
#X obj 481 68 pack f s;
#X msg 481 90 \$2 \$1;
#X obj 481 114 route Shift_L Shift_R;
#X obj 481 166 ||;
#X obj 542 140 t b a;
#X obj 481 189 change -1;
#X obj 481 212 s \$0.shift.key;
#X obj 29 47 spigot 1;
#X obj 107 38 r \$0.shift.key;
#X obj 107 61 == 0;
#X obj 281 229 list prepend 0;
#X obj 281 252 route 0 1, f 24;
#X obj 376 229 r \$0.shift.key;
#X text 252 8 Shift+click deletes a note (like double-click);
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 2 0 1 1;
......@@ -1720,7 +1735,7 @@ certain period.;
#X connect 8 0 3 0;
#X connect 8 1 9 0;
#X connect 9 0 38 0;
#X connect 10 0 11 0;
#X connect 10 0 51 0;
#X connect 11 0 12 0;
#X connect 12 0 15 0;
#X connect 13 0 16 0;
......@@ -1747,11 +1762,28 @@ certain period.;
#X connect 36 0 34 0;
#X connect 36 1 35 0;
#X connect 37 0 24 0;
#X connect 38 0 30 0;
#X connect 38 0 54 0;
#X connect 39 0 40 0;
#X connect 40 0 41 0;
#X connect 40 1 33 0;
#X connect 41 0 42 0;
#X connect 43 0 44 0;
#X connect 43 1 44 1;
#X connect 44 0 45 0;
#X connect 45 0 46 0;
#X connect 46 0 47 0;
#X connect 46 1 48 0;
#X connect 47 0 49 0;
#X connect 48 0 47 0;
#X connect 48 1 47 1;
#X connect 49 0 50 0;
#X connect 51 0 11 0;
#X connect 52 0 53 0;
#X connect 53 0 51 1;
#X connect 54 0 55 0;
#X connect 55 0 30 0;
#X connect 55 1 39 0;
#X connect 56 0 54 1;
#X restore 19 85 pd note.create/delete;
#N canvas 0 99 406 517 note.change.velocity 0;
#X obj 14 19 r \$0.note.send;
......
Supports Markdown
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