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

resolve [step pitch] to [id] by using arrays instead of scalars

parent c2b7c8e7
......@@ -2,7 +2,6 @@
#X msg 524 105 clear;
#X obj 206 22 loadbang;
#X obj 206 45 \$0;
#X obj 461 18 r \$0.init;
#X obj 185 21 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#N canvas 133 127 401 394 create_horizgrid 0;
......@@ -768,13 +767,13 @@ id float gid float vel float c float vis;
#X connect 17 0 2 0;
#X connect 18 0 1 0;
#X restore 384 204 pd create.show.selector;
#N canvas 174 249 550 482 gid.state 0;
#N canvas 164 241 550 482 gid.state 0;
#X obj 12 76 route click;
#X obj 12 99 t b p p b;
#X obj 63 145 pointer;
#X obj 12 52 r \$0.gid.button.send;
#X obj 12 324 set \$0.gid.button hl;
#N canvas 357 99 390 345 init.pointer 0;
#N canvas 347 99 390 345 init.pointer 0;
#X obj 17 79 until;
#X msg 17 102 next;
#X obj 17 138 pointer \$0.gid.button;
......@@ -830,7 +829,7 @@ id float gid float vel float c float vis;
#X connect 11 0 8 0;
#X connect 11 1 9 1;
#X restore 55 135 pd gid.state;
#N canvas 119 100 450 300 show.selector.state 0;
#N canvas 109 99 450 300 show.selector.state 0;
#X obj 12 76 route click;
#X obj 12 99 t b p p b;
#X obj 63 145 pointer;
......@@ -1200,14 +1199,28 @@ symbol param;
#X obj 6 442 list trim;
#N canvas 26 99 407 242 w 0;
#X obj 7 21 inlet;
#X obj 7 145 outlet;
#X obj 7 100 *;
#X obj 22 71 r \$0.stepviswidth;
#X obj 7 175 outlet;
#X obj 7 130 *;
#X obj 22 101 r \$0.stepviswidth;
#X msg 7 44 \$5;
#N canvas 1170 415 407 234 resolve.page 0;
#X obj 74 65 r \$0.stepsperpage;
#X obj 34 42 r \$0.page;
#X obj 34 100 *;
#X obj 19 123 -;
#X obj 19 20 inlet;
#X obj 19 150 outlet;
#X connect 0 0 2 1;
#X connect 1 0 2 0;
#X connect 2 0 3 1;
#X connect 3 0 5 0;
#X connect 4 0 3 0;
#X restore 7 77 pd resolve.page;
#X connect 0 0 4 0;
#X connect 2 0 1 0;
#X connect 3 0 2 1;
#X connect 4 0 2 0;
#X connect 4 0 5 0;
#X connect 5 0 2 0;
#X restore 86 291 pd w;
#N canvas 26 99 432 235 h 0;
#X obj 7 21 inlet;
......@@ -1344,12 +1357,31 @@ symbol param;
#X obj 7 154 +;
#X obj 40 154 r \$0.canvasleftmargin;
#X msg 7 44 \$2;
#N canvas 1170 415 407 234 resolve.page 0;
#X obj 74 65 r \$0.stepsperpage;
#X obj 34 42 r \$0.page;
#X obj 34 100 *;
#X obj 19 123 -;
#X obj 19 146 moses 0;
#X obj 58 172 moses;
#X obj 19 20 inlet;
#X obj 58 196 outlet;
#X connect 0 0 2 1;
#X connect 0 0 5 1;
#X connect 1 0 2 0;
#X connect 2 0 3 1;
#X connect 3 0 4 0;
#X connect 4 1 5 0;
#X connect 5 0 7 0;
#X connect 6 0 3 0;
#X restore 7 77 pd resolve.page;
#X connect 0 0 6 0;
#X connect 2 0 3 1;
#X connect 3 0 4 0;
#X connect 4 0 1 0;
#X connect 5 0 4 1;
#X connect 6 0 3 0;
#X connect 6 0 7 0;
#X connect 7 0 3 0;
#X restore 6 291 pd x;
#N canvas 24 294 432 235 y 0;
#X obj 7 21 inlet;
......@@ -1414,7 +1446,7 @@ symbol param;
#X restore 23 244 pd note.create;
#X obj 20 438 r \$0.global.send;
#X obj 20 395 s \$0.global.receive;
#N canvas 260 453 300 366 note.delete 0;
#N canvas 260 519 300 366 note.delete 0;
#X obj 6 8 r \$0.global.receive;
#X obj 6 31 route note;
#X obj 6 54 route delete;
......@@ -1703,7 +1735,7 @@ certain period.;
#X connect 14 0 4 0;
#X connect 15 0 10 0;
#X restore 18 93 pd note.change.velocity;
#N canvas 258 157 507 554 resolve.note 0;
#N canvas 258 157 793 558 resolve.note 0;
#X obj 40 226 pointer \$0.note;
#X obj 40 164 until;
#X msg 40 187 next;
......@@ -1749,7 +1781,7 @@ certain period.;
#X obj 40 95 t b a a;
#X text 26 11 This takes "step pitch" coordinates and returns a pointer
to the note (or prints a 'not found' error);
#X obj 40 63 r \$0.resolve.note.send;
#X obj 40 53 r \$0.resolve.note.send;
#X obj 40 488 s \$0.resolve.note.receive;
#X obj 127 258 t b b b;
#X msg 187 322 note (\$1 \$2) not found;
......@@ -1757,6 +1789,31 @@ to the note (or prints a 'not found' error);
#X obj 40 428 t b b, f 20;
#X obj 90 168 symbol \$1;
#X msg 90 193 traverse \$1;
#X obj 442 327 tabread \$0.step;
#X msg 442 108 1000;
#X obj 442 154 until;
#X obj 442 177 f;
#X obj 442 131 t a b;
#X msg 493 154 0;
#X obj 442 353 sel 0;
#X obj 442 378 f;
#X obj 442 423 tabread \$0.pitch;
#X obj 442 401 t a a;
#X obj 442 446 sel 0;
#X obj 442 494 f;
#X obj 442 469 t b b;
#X obj 582 363 b;
#X obj 442 85 t b a a;
#X msg 534 187 \$1;
#X msg 576 191 \$2;
#X obj 442 200 t a a a;
#X obj 499 189 + 1;
#X obj 442 303 t a a;
#X obj 442 276 f;
#X obj 442 227 tabread \$0.active;
#X obj 442 253 sel 1;
#X text 556 255 consider only 'active' notes;
#X obj 442 519 s \$0.resolve.note.id;
#X connect 0 0 20 0;
#X connect 0 2 18 0;
#X connect 1 0 2 0;
......@@ -1778,6 +1835,7 @@ to the note (or prints a 'not found' error);
#X connect 14 1 13 1;
#X connect 14 2 6 0;
#X connect 16 0 14 0;
#X connect 16 0 38 0;
#X connect 18 0 1 1;
#X connect 18 2 13 0;
#X connect 19 0 11 0;
......@@ -1787,6 +1845,37 @@ to the note (or prints a 'not found' error);
#X connect 21 1 1 1;
#X connect 22 0 23 0;
#X connect 23 0 0 0;
#X connect 24 0 30 0;
#X connect 25 0 28 0;
#X connect 26 0 27 0;
#X connect 27 0 41 0;
#X connect 28 0 26 0;
#X connect 28 1 29 0;
#X connect 29 0 27 1;
#X connect 30 0 31 0;
#X connect 31 0 33 0;
#X connect 32 0 34 0;
#X connect 33 0 32 0;
#X connect 33 1 35 1;
#X connect 34 0 36 0;
#X connect 35 0 48 0;
#X connect 36 0 35 0;
#X connect 36 1 37 0;
#X connect 37 0 26 1;
#X connect 38 0 25 0;
#X connect 38 1 39 0;
#X connect 38 2 40 0;
#X connect 39 0 30 1;
#X connect 40 0 34 1;
#X connect 41 0 45 0;
#X connect 41 1 44 1;
#X connect 41 2 42 0;
#X connect 42 0 27 1;
#X connect 43 0 24 0;
#X connect 43 1 31 1;
#X connect 44 0 43 0;
#X connect 45 0 46 0;
#X connect 46 0 44 0;
#X restore 22 217 pd resolve.note;
#N canvas 132 109 397 442 note.change.duration 0;
#X obj 6 8 r \$0.global.receive;
......@@ -2143,7 +2232,7 @@ to the note (or prints a 'not found' error);
#X connect 17 1 12 0;
#X restore 23 336 pd note.change.gid;
#X obj 285 430 text define \$0.sequence;
#N canvas 412 166 545 360 sequencer 0;
#N canvas 402 158 545 360 sequencer 0;
#N canvas 0 281 404 347 note.create 0;
#X obj 24 16 r \$0.global.receive;
#X obj 24 39 route note;
......@@ -2582,12 +2671,6 @@ 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 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;
......@@ -2676,35 +2759,42 @@ to the note (or prints a 'not found' error);
#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 obj 565 420 array define \$0.gid 1000;
#X obj 461 13 r \$0.init;
#X msg 206 68 \; \$1.page 0 \; \$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 connect 0 0 37 0;
#X connect 1 0 2 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 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;
#X connect 14 3 8 0;
#X connect 14 4 0 0;
#X connect 15 0 38 0;
#X connect 18 0 33 0;
#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 2 0 53 0;
#X connect 3 0 2 0;
#X connect 4 0 37 0;
#X connect 7 0 37 0;
#X connect 9 0 37 0;
#X connect 11 0 12 0;
#X connect 12 0 46 0;
#X connect 12 0 47 0;
#X connect 12 0 48 0;
#X connect 12 0 49 0;
#X connect 12 0 50 0;
#X connect 12 0 51 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 37 0;
#X connect 17 0 32 0;
#X connect 31 0 34 0;
#X connect 33 0 18 0;
#X connect 35 0 31 0;
#X connect 39 0 43 0;
#X connect 40 0 42 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;
#X connect 42 1 41 0;
#X connect 43 0 45 0;
#X connect 43 1 13 0;
#X connect 52 0 13 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