Skip to content
GitLab
Commit 2b64a0cb authored by Roman Haefeli's avatar Roman Haefeli
Browse files

implemented 'clear' method (only deletes notes without redrawing)

parent 0acba0cc
Hide whitespace changes
Inline Side-by-side
unpunch.pd
View file @ 2b64a0cb
#N canvas 0 99 799 557 10;
#X msg 524 105 clear;
#X msg 536 105 clear;
#X obj 206 22 loadbang;
#X obj 206 45 \$0;
#X obj 185 21 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
......@@ -128,7 +128,7 @@
#X connect 17 0 18 0;
#X connect 18 0 5 0;
#X connect 20 0 19 0;
#X restore 492 158 pd create_horizgrid;
#X restore 506 158 pd create_horizgrid;
#N canvas 54 126 618 459 horizgrid-template 0;
#X obj 19 18 filledpolygon c c 1 0 0 0 h w h w 0;
#X obj 20 44 struct \$0.horizgrid float x float y float w float h float
......@@ -164,7 +164,7 @@ c;
#X connect 14 0 11 1;
#X connect 15 0 9 1;
#X connect 16 0 12 1;
#X restore 624 158 pd horizgrid-template;
#X restore 644 158 pd horizgrid-template;
#N canvas 60 99 426 427 vertgrid-template 0;
#X obj 19 18 filledpolygon 0 0 1 0 0 0 h w h w 0;
#X obj 19 42 struct \$0.vertgrid float x float y float w float h;
......@@ -199,7 +199,7 @@ c;
#X connect 15 0 14 1;
#X connect 16 0 14 0;
#X connect 16 1 4 0;
#X restore 624 130 pd vertgrid-template;
#X restore 644 130 pd vertgrid-template;
#N canvas 113 111 401 394 create_vertgrid 0;
#X obj 16 86 t a b;
#X obj 16 109 until;
......@@ -294,7 +294,7 @@ c;
#X connect 17 3 9 0;
#X connect 18 0 14 0;
#X connect 19 0 5 1;
#X restore 508 130 pd create_vertgrid;
#X restore 521 130 pd create_vertgrid;
#N canvas 107 99 446 109 vertline-template 0;
#X obj 18 20 drawpolygon c 1 0 0 0 h;
#X obj 19 79 s \$0.vertline.send;
......@@ -302,7 +302,7 @@ c;
n float nvis;
#X obj 165 20 drawnumber -v nvis n -3 -12 c;
#X connect 2 0 1 0;
#X restore 624 186 pd vertline-template;
#X restore 644 186 pd vertline-template;
#N canvas 23 99 400 432 create_vertline 0;
#X obj 16 116 t a b;
#X obj 16 139 until;
......@@ -472,7 +472,7 @@ n float nvis;
#X connect 19 0 9 0;
#X connect 21 0 12 0;
#X connect 22 0 5 1;
#X restore 476 186 pd create_vertline;
#X restore 491 186 pd create_vertline;
#N canvas 36 99 741 470 note-template 0;
#X obj 121 282 min 127;
#X obj 51 166 route click change;
......@@ -633,10 +633,8 @@ id float gid float vel float dur float c float vis;
#X connect 38 0 37 3;
#X connect 39 0 3 0;
#X connect 40 0 14 0;
#X restore 624 101 pd note-template;
#X obj 481 314 r \$0.init;
#X restore 644 101 pd note-template;
#X msg 481 337 const 0;
#X obj 461 78 t b b b b b;
#N canvas 162 155 643 410 create_guis 0;
#X obj 355 32 inlet;
#X obj 408 312 outlet;
......@@ -1275,7 +1273,7 @@ id float gid float vel float dur float c float vis;
#X connect 17 7 7 0;
#X connect 17 8 18 0;
#X connect 18 0 1 0;
#X restore 461 215 pd create_guis;
#X restore 476 215 pd create_guis;
#N canvas 0 99 804 259 gui-templates 0;
#N canvas 0 99 408 150 gid.button-template 0;
#X obj 16 99 s \$0.gid.button.send;
......@@ -1500,7 +1498,7 @@ num float nvis;
#X connect 16 0 18 0;
#X connect 17 0 16 0;
#X connect 18 0 19 0;
#X restore 624 215 pd gui-templates;
#X restore 644 215 pd gui-templates;
#X obj 20 498 r \$0.global.send;
#X obj 20 465 s \$0.global.receive;
#X text 20 63 generate events;
......@@ -2014,7 +2012,6 @@ certain period.;
#X connect 6 0 5 0;
#X connect 7 0 2 0;
#X restore 15 155 pd event.remove;
#X obj 17 207 r \$0.init;
#X msg 17 230 -1;
#X obj 17 253 text delete \$0.sequence;
#N canvas 0 99 572 389 note.change.velocity 0;
......@@ -2286,23 +2283,25 @@ certain period.;
#X connect 24 0 5 1;
#X connect 25 0 2 0;
#X restore 312 144 pd mute.deleted.note;
#X obj 17 207 r \$0.clear;
#X text 286 240 keep track of playing notes;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 8 0 12 0;
#X connect 9 0 13 0;
#X connect 10 0 14 0;
#X connect 13 0 11 0;
#X connect 14 0 9 0;
#X connect 14 1 13 1;
#X connect 14 2 15 0;
#X connect 14 3 12 0;
#X connect 15 0 13 0;
#X connect 12 0 10 0;
#X connect 13 0 8 0;
#X connect 13 1 12 1;
#X connect 13 2 14 0;
#X connect 13 3 11 0;
#X connect 14 0 12 0;
#X connect 15 0 5 0;
#X restore 199 430 pd sequencer;
#X obj 20 521 outlet;
#X obj 20 364 inlet;
#X obj 199 461 outlet;
#X obj 199 367 inlet;
#X text 659 519 2018 \, Roman Haefeli;
#X obj 461 254 s \$1;
#X obj 476 244 s \$1;
#N canvas 0 99 570 525 note.edit.modes 0;
#X obj 14 19 r \$0.note.send;
#X obj 14 435 s \$0.global.send;
......@@ -2410,12 +2409,7 @@ certain period.;
#X connect 14 0 15 0;
#X connect 15 0 1 0;
#X restore 19 184 pd note.edit.modes;
#X obj 564 17 r \$0.redraw;
#X floatatom 292 319 5 0 0 0 - - -;
#X obj 319 370 s \$0.page;
#X obj 292 343 t b a;
#X obj 564 40 t b b;
#X obj 292 392 s \$0.redraw;
#X obj 461 49 r \$0.redraw;
#N canvas 294 116 748 530 redraw.notes 0;
#X obj 11 15 inlet;
#X obj 38 254 r \$0.page;
......@@ -2451,6 +2445,7 @@ certain period.;
#X obj 449 210 pack f f f f f f;
#X text 574 236 id step pitch vel dur gid;
#X obj 449 247 s \$0.redraw.notes;
#X text 449 271 see [pd note.create] (process events);
#X connect 0 0 8 0;
#X connect 1 0 3 0;
#X connect 2 0 3 1;
......@@ -2492,14 +2487,13 @@ certain period.;
#X connect 30 4 25 0;
#X connect 30 5 26 0;
#X connect 31 0 33 0;
#X restore 564 65 pd redraw.notes;
#X restore 461 267 pd redraw.notes;
#X obj 565 306 array define \$0.active 1000;
#X obj 565 328 array define \$0.step 1000;
#X obj 565 351 array define \$0.pitch 1000;
#X obj 565 374 array define \$0.duration 1000;
#X obj 565 397 array define \$0.velocity 1000;
#X obj 565 420 array define \$0.gid 1000;
#X obj 461 13 r \$0.init;
#N canvas 427 111 615 341 converters 0;
#N canvas 83 99 403 258 x->step 0;
#X obj 17 52 -;
......@@ -3655,12 +3649,6 @@ certain period.;
#X obj 15 37 print ERROR:;
#X connect 0 0 1 0;
#X restore 350 497 pd errors;
#X msg 206 69 \; \$1.stepsperpage 64 \; \$1.page 0 \; \$1.pitchrange
48 \; \$1.stepviswidth 15 \; \$1.stepvisheight 14 \; \$1.canvastopmargin
53 \; \$1.canvasleftmargin 30 \; \$1.stepkeycolor1 887 \; \$1.stepkeycolor2
777 \; \$1.griddivision 4 \; \$1.gridsubdivision 4 \; \$1.gidcolorlist
800 840 80 68 408 808 \; \$1.default.vel 64 \; \$1.default.gid 0 \;
\$1.default.dur 4 \; \$1.default.show 0 \; \$1.init bang \;;
#X obj 20 387 t a a a;
#X obj 39 442 s \$0.seq.receive;
#N canvas 0 99 450 300 manaage.id 0;
......@@ -3712,7 +3700,7 @@ certain period.;
#X connect 4 1 5 0;
#X connect 5 0 6 0;
#X restore 59 417 pd manaage.id;
#N canvas 0 99 421 294 parse.config.commands 0;
#N canvas 0 99 495 291 parse.config.commands 0;
#X obj 10 221 s;
#X obj 10 18 r \$0.global.receive;
#X obj 10 64 list split 1;
......@@ -3720,14 +3708,16 @@ certain period.;
#X msg 10 129 symbol \$1.\$2;
#X obj 10 189 list append;
#X obj 10 152 t b a;
#X obj 10 41 route set redraw page, f 54;
#X obj 251 150 s \$0.page;
#X obj 224 71 max 1;
#X obj 117 105 b;
#X obj 117 128 s \$0.redraw;
#X obj 224 94 t b a;
#X obj 251 125 - 1;
#X connect 1 0 7 0;
#X obj 239 180 s \$0.page;
#X obj 212 101 max 1;
#X obj 111 75 b;
#X obj 111 178 s \$0.redraw;
#X obj 212 124 t b a;
#X obj 239 155 - 1;
#X obj 10 41 route set redraw page clear, f 68;
#X obj 313 80 b;
#X obj 313 103 s \$0.clear;
#X connect 1 0 13 0;
#X connect 2 0 3 0;
#X connect 2 1 5 1;
#X connect 3 0 4 0;
......@@ -3735,16 +3725,18 @@ certain period.;
#X connect 5 0 0 0;
#X connect 6 0 5 0;
#X connect 6 1 0 1;
#X connect 7 0 2 0;
#X connect 7 1 10 0;
#X connect 7 2 9 0;
#X connect 9 0 12 0;
#X connect 10 0 11 0;
#X connect 12 0 10 0;
#X connect 12 1 13 0;
#X connect 13 0 8 0;
#X connect 8 0 11 0;
#X connect 9 0 10 0;
#X connect 11 0 10 0;
#X connect 11 1 12 0;
#X connect 12 0 7 0;
#X connect 13 0 2 0;
#X connect 13 1 9 0;
#X connect 13 2 8 0;
#X connect 13 3 14 0;
#X connect 14 0 15 0;
#X restore 290 22 pd parse.config.commands;
#N canvas 1 99 450 300 dump 0;
#N canvas 1 99 452 346 dump 0;
#X obj 15 20 r \$0.global.receive;
#X obj 15 43 route dump;
#X msg 276 104 clear;
......@@ -3820,10 +3812,10 @@ certain period.;
#X obj 189 115 tabread \$0.step;
#X obj 189 138 pack f f f f f, f 47;
#X obj 258 93 tabread \$0.pitch;
#X obj 328 72 tabread \$0.duration;
#X obj 398 115 tabread \$0.velocity;
#X obj 468 95 tabread \$0.gid;
#X msg 189 169 note create \$1 \$2 \$3 \$4 \$5;
#X obj 328 72 tabread \$0.velocity;
#X obj 398 115 tabread \$0.duration;
#X connect 0 0 5 0;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
......@@ -3840,59 +3832,85 @@ certain period.;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 12 1 15 0;
#X connect 12 2 16 0;
#X connect 12 3 17 0;
#X connect 12 4 18 0;
#X connect 12 2 18 0;
#X connect 12 3 19 0;
#X connect 12 4 16 0;
#X connect 13 0 14 0;
#X connect 14 0 19 0;
#X connect 14 0 17 0;
#X connect 15 0 14 1;
#X connect 16 0 14 2;
#X connect 17 0 14 3;
#X connect 18 0 14 4;
#X connect 19 0 1 0;
#X connect 16 0 14 4;
#X connect 17 0 1 0;
#X connect 18 0 14 2;
#X connect 19 0 14 3;
#X restore 102 103 pd restore;
#X obj 15 66 t b b b b, f 44;
#X obj 120 202 print DUMP;
#X obj 135 171 list trim;
#N canvas 0 99 472 349 msg 0;
#X obj 11 24 inlet;
#X obj 8 306 outlet;
#X msg 95 69;
#X connect 0 0 2 0;
#X connect 2 0 1 0;
#X restore 15 256 pd msg;
#X obj 135 148 list prepend add2;
#X obj 135 194 t b a;
#X msg 135 217 addcomma;
#X obj 15 170 t b b;
#X msg 15 196 set;
#X obj 15 292 s \$0.global.send;
#X connect 0 0 1 0;
#X connect 1 0 5 0;
#X connect 2 0 6 0;
#X connect 3 0 6 0;
#X connect 4 0 6 0;
#X connect 2 0 8 0;
#X connect 3 0 8 0;
#X connect 4 0 8 0;
#X connect 5 0 11 0;
#X connect 5 1 4 0;
#X connect 5 2 3 0;
#X connect 5 3 2 0;
#X connect 6 0 9 0;
#X connect 7 0 13 0;
#X connect 8 0 6 0;
#X connect 9 0 10 0;
#X connect 9 1 7 0;
#X connect 10 0 7 0;
#X connect 11 0 12 0;
#X connect 11 1 7 0;
#X connect 12 0 7 0;
#X restore 522 497 pd dump;
#X connect 0 0 31 0;
#X obj 481 304 r \$0.clear;
#X msg 206 69 \; \$1.stepsperpage 64 \; \$1.page 0 \; \$1.pitchrange
48 \; \$1.stepviswidth 15 \; \$1.stepvisheight 14 \; \$1.canvastopmargin
53 \; \$1.canvasleftmargin 30 \; \$1.stepkeycolor1 887 \; \$1.stepkeycolor2
777 \; \$1.griddivision 4 \; \$1.gridsubdivision 4 \; \$1.gidcolorlist
800 840 80 68 408 808 \; \$1.default.vel 64 \; \$1.default.gid 0 \;
\$1.default.dur 4 \; \$1.default.show 0 \; \$1.redraw bang \;;
#X obj 461 78 t b b b b b b;
#X connect 0 0 29 0;
#X connect 1 0 2 0;
#X connect 2 0 56 0;
#X connect 2 0 54 0;
#X connect 3 0 2 0;
#X connect 4 0 31 0;
#X connect 7 0 31 0;
#X connect 9 0 31 0;
#X connect 11 0 12 0;
#X connect 12 0 40 0;
#X connect 12 0 41 0;
#X connect 12 0 42 0;
#X connect 12 0 43 0;
#X connect 12 0 44 0;
#X connect 12 0 45 0;
#X connect 13 0 14 0;
#X connect 13 1 9 0;
#X connect 13 2 4 0;
#X connect 13 3 7 0;
#X connect 13 4 0 0;
#X connect 14 0 31 0;
#X connect 16 0 26 0;
#X connect 25 0 28 0;
#X connect 27 0 57 0;
#X connect 29 0 25 0;
#X connect 33 0 37 0;
#X connect 34 0 36 0;
#X connect 36 0 38 0;
#X connect 36 1 35 0;
#X connect 37 0 39 0;
#X connect 37 1 13 0;
#X connect 46 0 13 0;
#X connect 57 0 17 0;
#X connect 57 1 58 0;
#X connect 57 2 59 0;
#X connect 4 0 29 0;
#X connect 7 0 29 0;
#X connect 9 0 29 0;
#X connect 11 0 33 0;
#X connect 11 0 34 0;
#X connect 11 0 35 0;
#X connect 11 0 36 0;
#X connect 11 0 37 0;
#X connect 11 0 38 0;
#X connect 12 0 29 0;
#X connect 14 0 24 0;
#X connect 23 0 26 0;
#X connect 25 0 48 0;
#X connect 27 0 23 0;
#X connect 31 0 55 0;
#X connect 48 0 15 0;
#X connect 48 1 49 0;
#X connect 48 2 50 0;
#X connect 53 0 11 0;
#X connect 55 0 32 0;
#X connect 55 1 12 0;
#X connect 55 2 9 0;
#X connect 55 3 4 0;
#X connect 55 4 7 0;
#X connect 55 5 0 0;
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