Commit 4b965ea1 authored by Roman Haefeli's avatar Roman Haefeli
Browse files

make a converter out of the note length limiter; use in 'note change duration', too

parent 014b1b4a
......@@ -2610,7 +2610,7 @@ num float nvis;
#X connect 22 0 16 0;
#X connect 22 1 23 0;
#X connect 22 2 6 0;
#X restore 14 197 pd pitchoffset.calculations;
#X restore 14 247 pd pitchoffset.calculations;
#N canvas 709 644 363 270 page.boundaries 0;
#X obj 10 11 r \$0.page;
#X obj 25 40 r \$0.stepsperpage;
......@@ -2630,7 +2630,7 @@ num float nvis;
#X connect 7 0 5 0;
#X connect 7 1 8 0;
#X connect 8 0 6 0;
#X restore 14 221 pd page.boundaries;
#X restore 14 271 pd page.boundaries;
#X obj 279 253 r \$0.pageleftboundary;
#X floatatom 279 276 5 0 0 0 - - -;
#X obj 482 257 r \$0.pagerightboundary;
......@@ -2639,6 +2639,72 @@ num float nvis;
#X floatatom 394 195 5 0 0 0 - - -;
#X obj 396 328 r \$0.pitchlowerboundary;
#X floatatom 396 351 5 0 0 0 - - -;
#N canvas 163 377 542 421 id->visible.length 0;
#X text 13 18 In order for long notes not to ovelap page boundaries
\, we calculate the visible length;
#X obj 357 183 r \$0.pagerightboundary;
#X obj 200 214 r \$0.pageleftboundary;
#X obj 31 284 -;
#X obj 155 241 pack f f;
#X obj 155 289 -;
#X msg 155 264 \$2 \$1;
#X obj 155 312 max 0;
#X obj 323 341 r \$0.stepsperpage;
#X obj 31 180 t a a a, f 42;
#X obj 357 206 + 1;
#X obj 280 270 pack f f;
#X obj 280 318 -;
#X msg 280 293 \$2 \$1;
#X obj 280 341 min;
#X obj 31 321 min;
#X obj 31 352 s \$0.convert.id->visible.length;
#X obj 31 65 r \$0.convert.id->visible.length.get;
#X obj 31 88 t a a;
#X obj 31 131 tabread \$0.step;
#X obj 61 111 tabread \$0.duration;
#X obj 31 154 pack f f;
#X msg 31 212 \$2;
#X msg 155 211 \$1;
#X msg 280 245 \$1;
#X connect 1 0 10 0;
#X connect 2 0 4 1;
#X connect 3 0 15 0;
#X connect 4 0 6 0;
#X connect 5 0 7 0;
#X connect 6 0 5 0;
#X connect 7 0 3 1;
#X connect 8 0 14 1;
#X connect 9 0 22 0;
#X connect 9 1 23 0;
#X connect 9 2 24 0;
#X connect 10 0 11 1;
#X connect 11 0 13 0;
#X connect 12 0 14 0;
#X connect 13 0 12 0;
#X connect 14 0 15 1;
#X connect 15 0 16 0;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 19 0 21 0;
#X connect 20 0 21 1;
#X connect 21 0 9 0;
#X connect 22 0 3 0;
#X connect 23 0 4 0;
#X connect 24 0 11 0;
#X restore 15 197 pd id->visible.length;
#N canvas 83 99 410 208 id->visible.length 0;
#X obj 13 14 inlet;
#X obj 13 37 t b a;
#X obj 13 114 list append;
#X obj 13 137 outlet;
#X obj 76 88 r \$0.convert.id->visible.length;
#X obj 76 66 s \$0.convert.id->visible.length.get;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 5 0;
#X connect 2 0 3 0;
#X connect 4 0 2 1;
#X restore 153 196 pd id->visible.length;
#X connect 24 0 25 0;
#X connect 26 0 27 0;
#X connect 28 0 29 0;
......@@ -2756,20 +2822,7 @@ num float nvis;
#X connect 2 0 3 0;
#X connect 5 0 2 1;
#X restore 167 76 pd pointer->id;
#N canvas 0 99 405 189 w->duration 0;
#X obj 13 14 inlet;
#X obj 13 37 t b a;
#X obj 13 114 list append;
#X obj 13 137 outlet;
#X obj 40 85 r \$0.convert.w->duration;
#X obj 40 63 s \$0.convert.w->duration.get;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 5 0;
#X connect 2 0 3 0;
#X connect 4 0 2 1;
#X restore 14 114 pd w->duration;
#X obj 14 85 get \$0.note w dur;
#X obj 14 85 get \$0.note dur;
#X connect 0 0 10 0;
#X connect 1 0 5 0;
#X connect 2 0 5 1;
......@@ -2780,12 +2833,10 @@ num float nvis;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 9 0 2 0;
#X connect 10 0 13 0;
#X connect 10 0 12 0;
#X connect 10 1 11 0;
#X connect 11 0 9 0;
#X connect 12 0 1 0;
#X connect 13 0 12 0;
#X connect 13 1 1 0;
#X restore 16 67 pd note.change.duration;
#N canvas 104 99 719 620 note.create/delete 0;
#X obj 29 275 del 0;
......@@ -3291,8 +3342,7 @@ by clicking on two coordinates on the grid with Ctrl-key pressed.;
#X obj 6 442 list trim;
#N canvas 51 152 524 298 w 0;
#X obj 7 21 inlet;
#X obj 7 255 outlet;
#X msg 7 82 \$5;
#X obj 7 140 outlet;
#N canvas 0 99 405 189 duration->w 0;
#X obj 13 14 inlet;
#X obj 13 37 t b a;
......@@ -3305,46 +3355,26 @@ by clicking on two coordinates on the grid with Ctrl-key pressed.;
#X connect 1 1 4 0;
#X connect 2 0 3 0;
#X connect 5 0 2 1;
#X restore 7 227 pd duration->w;
#X obj 333 53 r \$0.pagerightboundary;
#X obj 176 84 r \$0.pageleftboundary;
#X msg 131 81 \$2;
#X obj 7 154 -;
#X obj 131 111 pack f f;
#X obj 131 159 -;
#X msg 131 134 \$2 \$1;
#X obj 131 182 max 0;
#X obj 299 211 r \$0.stepsperpage;
#X obj 7 50 t a a a, f 42;
#X obj 333 76 + 1;
#X msg 256 115 \$2;
#X obj 256 140 pack f f;
#X obj 256 188 -;
#X msg 256 163 \$2 \$1;
#X obj 256 211 min;
#X obj 7 191 min;
#X connect 0 0 13 0;
#X connect 2 0 7 0;
#X connect 3 0 1 0;
#X connect 4 0 14 0;
#X connect 5 0 8 1;
#X connect 6 0 8 0;
#X connect 7 0 20 0;
#X connect 8 0 10 0;
#X connect 9 0 11 0;
#X connect 10 0 9 0;
#X connect 11 0 7 1;
#X connect 12 0 19 1;
#X connect 13 0 2 0;
#X connect 13 1 6 0;
#X connect 13 2 15 0;
#X connect 14 0 16 1;
#X connect 15 0 16 0;
#X connect 16 0 18 0;
#X connect 17 0 19 0;
#X connect 18 0 17 0;
#X connect 19 0 20 1;
#X connect 20 0 3 0;
#X restore 7 112 pd duration->w;
#N canvas 83 99 410 208 id->visible.length 0;
#X obj 13 14 inlet;
#X obj 13 37 t b a;
#X obj 13 114 list append;
#X obj 13 137 outlet;
#X obj 76 88 r \$0.convert.id->visible.length;
#X obj 76 66 s \$0.convert.id->visible.length.get;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 5 0;
#X connect 2 0 3 0;
#X connect 4 0 2 1;
#X restore 7 75 pd id->visible.length;
#X msg 7 44 \$1;
#X text 42 49 for the length limitation we need the id;
#X connect 0 0 4 0;
#X connect 2 0 1 0;
#X connect 3 0 2 0;
#X connect 4 0 3 0;
#X restore 86 251 pd w;
#N canvas 6 99 432 235 h 0;
#X obj 7 21 inlet;
......@@ -3707,12 +3737,11 @@ by clicking on two coordinates on the grid with Ctrl-key pressed.;
#X connect 21 0 9 0;
#X connect 22 0 21 1;
#X restore 19 41 pd note.delete;
#N canvas 0 275 351 474 note.change.duration 0;
#N canvas 0 341 375 609 note.change.duration 0;
#X obj 6 8 r \$0.global.receive;
#X obj 6 31 route note;
#X obj 6 54 route change;
#X obj 6 77 route duration;
#X obj 6 100 t a a, f 26;
#X obj 6 258 pack f f;
#X obj 6 299 s \$0.duration;
#N canvas 83 99 410 208 id->pointer 0;
......@@ -3740,15 +3769,12 @@ by clicking on two coordinates on the grid with Ctrl-key pressed.;
#X connect 1 1 4 0;
#X connect 2 0 3 0;
#X connect 5 0 2 1;
#X restore 150 377 pd duration->w;
#X restore 150 416 pd duration->w;
#X obj 105 274 route -1;
#X obj 150 323 f;
#X obj 150 300 t b p;
#X text 194 141 duration;
#X text 117 141 duration;
#X obj 6 225 t a a, f 17;
#X obj 150 410 set \$0.note w dur;
#X obj 150 346 t a a;
#X msg 159 139 \$2;
#X obj 150 449 set \$0.note w dur;
#X msg 82 139 \$2;
#X msg 6 138 \$1;
#N canvas 731 272 337 209 only.active 0;
#X obj 20 71 tabread \$0.active;
......@@ -3764,27 +3790,45 @@ by clicking on two coordinates on the grid with Ctrl-key pressed.;
#X connect 3 1 2 1;
#X connect 4 0 3 0;
#X restore 6 179 pd only.active;
#N canvas 83 99 410 208 id->visible.length 0;
#X obj 13 14 inlet;
#X obj 13 37 t b a;
#X obj 13 114 list append;
#X obj 13 137 outlet;
#X obj 76 88 r \$0.convert.id->visible.length;
#X obj 76 66 s \$0.convert.id->visible.length.get;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 5 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 17 0;
#X connect 4 1 16 0;
#X connect 5 0 6 0;
#X connect 7 0 9 0;
#X connect 8 0 14 0;
#X connect 9 1 11 0;
#X connect 10 0 15 0;
#X connect 11 0 10 0;
#X connect 11 1 14 2;
#X connect 13 0 5 0;
#X connect 13 1 7 0;
#X connect 15 0 8 0;
#X connect 15 1 14 1;
#X connect 16 0 10 1;
#X connect 16 0 5 1;
#X connect 17 0 18 0;
#X connect 18 0 13 0;
#X connect 4 0 2 1;
#X restore 150 383 pd id->visible.length;
#X obj 150 300 t b p;
#X obj 6 100 t a a a, f 26;
#X obj 150 323 list append;
#X obj 150 346 unpack f f;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 17 0;
#X connect 4 0 5 0;
#X connect 6 0 8 0;
#X connect 7 0 11 0;
#X connect 8 1 16 0;
#X connect 10 0 4 0;
#X connect 10 1 6 0;
#X connect 12 0 4 1;
#X connect 13 0 14 0;
#X connect 14 0 10 0;
#X connect 15 0 7 0;
#X connect 16 0 18 0;
#X connect 16 1 11 2;
#X connect 17 0 13 0;
#X connect 17 1 12 0;
#X connect 17 2 18 1;
#X connect 18 0 19 0;
#X connect 19 0 15 0;
#X connect 19 1 11 1;
#X restore 19 64 pd note.change.duration;
#N canvas 103 315 357 536 note.change.velocity 0;
#X obj 6 8 r \$0.global.receive;
......
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