Commit c2b7c8e7 authored by Roman Haefeli's avatar Roman Haefeli
Browse files

support redrawing of notes

parent c7482b98
#N canvas 0 99 842 511 10;
#X msg 524 85 clear;
#X msg 524 105 clear;
#X obj 206 22 loadbang;
#X obj 206 45 \$0;
#X obj 461 18 r \$0.init;
......@@ -129,7 +129,7 @@
#X connect 17 0 18 0;
#X connect 18 0 5 0;
#X connect 20 0 19 0;
#X restore 492 138 pd create_horizgrid;
#X restore 492 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
......@@ -165,7 +165,7 @@ c;
#X connect 14 0 11 1;
#X connect 15 0 9 1;
#X connect 16 0 12 1;
#X restore 624 138 pd horizgrid-template;
#X restore 624 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;
......@@ -200,8 +200,8 @@ c;
#X connect 15 0 14 1;
#X connect 16 0 14 0;
#X connect 16 1 4 0;
#X restore 624 110 pd vertgrid-template;
#N canvas 123 119 401 394 create_vertgrid 0;
#X restore 624 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;
#X obj 16 132 f;
......@@ -295,7 +295,7 @@ c;
#X connect 17 3 9 0;
#X connect 18 0 14 0;
#X connect 19 0 5 1;
#X restore 508 110 pd create_vertgrid;
#X restore 508 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;
......@@ -303,7 +303,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 166 pd vertline-template;
#X restore 624 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;
......@@ -455,7 +455,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 166 pd create_vertline;
#X restore 476 186 pd create_vertline;
#N canvas 36 99 741 470 note-template 0;
#X obj 121 259 max 0;
#X obj 121 282 min 127;
......@@ -610,10 +610,10 @@ id float gid float vel float c float vis;
#X connect 35 0 36 0;
#X connect 36 0 14 0;
#X connect 37 0 35 1;
#X restore 624 81 pd note-template;
#X restore 624 101 pd note-template;
#X obj 481 314 r \$0.init;
#X msg 481 337 const 0;
#X obj 461 58 t b b b b b;
#X obj 461 78 t b b b b b;
#N canvas 148 155 640 399 create_guis 0;
#X obj 355 32 inlet;
#X obj 404 294 outlet;
......@@ -1007,7 +1007,7 @@ id float gid float vel float c float vis;
#X connect 16 4 9 0;
#X connect 16 5 8 0;
#X connect 16 6 7 0;
#X restore 461 195 pd create_guis;
#X restore 461 215 pd create_guis;
#N canvas 0 99 804 221 gui-templates 0;
#N canvas 0 99 408 150 gid.button-template 0;
#X obj 16 99 s \$0.gid.button.send;
......@@ -1155,8 +1155,8 @@ symbol param;
#X connect 16 0 18 0;
#X connect 17 0 16 0;
#X connect 18 0 19 0;
#X restore 624 195 pd gui-templates;
#N canvas 179 380 602 507 note.create 0;
#X restore 624 215 pd gui-templates;
#N canvas 149 356 602 507 note.create 0;
#X obj 6 8 r \$0.global.receive;
#X obj 6 31 route note;
#X obj 6 54 route create;
......@@ -1371,6 +1371,7 @@ symbol param;
#X obj 6 252 t a a a a a a a a a, f 57;
#X obj 6 355 pack f f f f f f f f f, f 57;
#X obj 6 473 s \$1;
#X obj 17 214 r \$0.redraw.notes;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 10 0;
......@@ -1409,6 +1410,7 @@ symbol param;
#X connect 30 7 26 0;
#X connect 30 8 27 0;
#X connect 31 0 19 0;
#X connect 33 0 30 0;
#X restore 23 244 pd note.create;
#X obj 20 438 r \$0.global.send;
#X obj 20 395 s \$0.global.receive;
......@@ -1510,7 +1512,7 @@ symbol param;
#X connect 17 1 18 0;
#X connect 18 0 15 0;
#X restore 18 68 pd note.change.duration;
#N canvas 134 99 590 523 note.create/delete 0;
#N canvas 114 99 590 523 note.create/delete 0;
#X obj 29 235 del 0;
#X obj 29 262 f;
#X msg 72 238 1;
......@@ -1561,7 +1563,7 @@ certain period.;
#X obj 254 79 r \$0.note.send;
#X text 103 318 x y;
#X obj 281 301 f;
#N canvas 93 100 413 278 convert.to.step.pitch 0;
#N canvas 83 99 413 278 convert.to.step.pitch 0;
#X obj 17 17 inlet;
#X obj 17 230 outlet;
#X obj 17 44 unpack f f;
......@@ -1592,7 +1594,7 @@ certain period.;
#X connect 13 0 1 0;
#X restore 29 338 pd convert.to.step.pitch;
#X text 72 357 step pitch;
#N canvas 0 132 318 251 append.vel.dur.gid 0;
#N canvas 0 157 318 251 append.vel.dur.gid 0;
#X obj 12 18 inlet;
#X obj 12 199 outlet;
#X obj 95 55 r \$0.default.vel;
......@@ -2472,7 +2474,7 @@ to the note (or prints a 'not found' error);
#X obj 199 461 outlet;
#X obj 199 367 inlet;
#X text 663 475 2018 \, Roman Haefeli;
#X obj 461 234 s \$1;
#X obj 461 254 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;
......@@ -2580,33 +2582,116 @@ to the note (or prints a 'not found' error);
#X connect 14 0 15 0;
#X connect 15 0 1 0;
#X restore 18 142 pd note.edit.modes;
#X obj 565 306 array define \$0.active 2000;
#X obj 565 328 array define \$0.step 2000;
#X obj 565 351 array define \$0.pitch 2000;
#X obj 565 374 array define \$0.duration 2000;
#X obj 565 397 array define \$0.velocity 2000;
#X obj 566 420 array define \$0.gid 2000;
#X msg 206 68 \; \$1.stepsperpage 64 \; \$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 88 8 808
\; \$1.default.vel 64 \; \$1.default.gid 0 \; \$1.default.dur 4 \;
\$1.default.show 0 \; \$1.init bang \;;
#X obj 564 17 r \$0.redraw;
#X floatatom 291 309 5 0 0 0 - - -, f 5;
#X obj 318 359 s \$0.page;
#X obj 291 332 t b a;
#X obj 564 40 t b b;
#X obj 291 381 s \$0.redraw;
#N canvas 294 116 748 530 redraw.notes 0;
#X obj 11 15 inlet;
#X obj 38 254 r \$0.page;
#X obj 80 282 r \$0.stepsperpage;
#X obj 38 307 *;
#X obj 38 330 t a a;
#X obj 65 356 +;
#X obj 11 386 moses;
#X obj 38 414 moses;
#X msg 11 41 1000;
#X obj 11 87 until;
#X obj 11 110 f;
#X obj 116 129 + 1;
#X obj 11 64 t a b;
#X msg 62 87 0;
#X obj 30 158 tabread \$0.active;
#X obj 11 133 t a a a;
#X obj 11 180 spigot;
#X obj 11 203 t a a;
#X obj 11 228 tabread \$0.step;
#X obj 38 437 b;
#X obj 38 460 f;
#X obj 216 287 t a;
#X obj 464 184 tabread \$0.step;
#X obj 479 164 tabread \$0.pitch;
#X obj 494 144 tabread \$0.velocity;
#X obj 509 124 tabread \$0.duration;
#X obj 524 104 tabread \$0.gid;
#X text 58 181 <- only active notes;
#X text 77 410 only notes that fit into current page;
#X obj 355 478 t a;
#X obj 449 76 t a a a a a a;
#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 connect 0 0 8 0;
#X connect 1 0 3 0;
#X connect 2 0 3 1;
#X connect 2 0 5 1;
#X connect 3 0 4 0;
#X connect 4 0 6 1;
#X connect 4 1 5 0;
#X connect 5 0 7 1;
#X connect 6 1 7 0;
#X connect 7 0 19 0;
#X connect 8 0 12 0;
#X connect 9 0 10 0;
#X connect 10 0 15 0;
#X connect 11 0 10 1;
#X connect 12 0 9 0;
#X connect 12 1 13 0;
#X connect 13 0 10 1;
#X connect 14 0 16 1;
#X connect 15 0 16 0;
#X connect 15 1 14 0;
#X connect 15 2 11 0;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 17 1 21 0;
#X connect 18 0 6 0;
#X connect 19 0 20 0;
#X connect 20 0 29 0;
#X connect 21 0 20 1;
#X connect 22 0 31 1;
#X connect 23 0 31 2;
#X connect 24 0 31 3;
#X connect 25 0 31 4;
#X connect 26 0 31 5;
#X connect 29 0 30 0;
#X connect 30 0 31 0;
#X connect 30 1 22 0;
#X connect 30 2 23 0;
#X connect 30 3 24 0;
#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 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 566 420 array define \$0.gid 1000;
#X connect 0 0 38 0;
#X connect 1 0 2 0;
#X connect 2 0 46 0;
#X connect 2 0 40 0;
#X connect 3 0 14 0;
#X connect 4 0 2 0;
#X connect 5 0 38 0;
#X connect 8 0 38 0;
#X connect 10 0 38 0;
#X connect 12 0 13 0;
#X connect 13 0 40 0;
#X connect 13 0 41 0;
#X connect 13 0 42 0;
#X connect 13 0 43 0;
#X connect 13 0 44 0;
#X connect 13 0 45 0;
#X connect 13 0 48 0;
#X connect 13 0 49 0;
#X connect 13 0 50 0;
#X connect 13 0 51 0;
#X connect 13 0 52 0;
#X connect 13 0 53 0;
#X connect 14 0 15 0;
#X connect 14 1 10 0;
#X connect 14 2 5 0;
......@@ -2617,3 +2702,9 @@ to the note (or prints a 'not found' error);
#X connect 32 0 35 0;
#X connect 34 0 19 0;
#X connect 36 0 32 0;
#X connect 41 0 45 0;
#X connect 42 0 44 0;
#X connect 44 0 46 0;
#X connect 44 1 43 0;
#X connect 45 0 47 0;
#X connect 45 1 14 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