add 'duration' as a showable param

0485a0c5 · Roman Haefeli · 80974db7 · 0485a0c5
Commit 0485a0c5 authored Sep 06, 2018 by Roman Haefeli
--- a/unpunch.pd
+++ b/unpunch.pd
@@ -479,16 +479,14 @@ n float nvis;
 #X obj 121 307 t a a;
 #X obj 32 141 t a a a;
 #X obj 32 429 s \$0.note.send;
-#X obj 32 104 struct \$0.note float x float y float w float h float
-id float gid float vel float c float vis;
 #X obj 51 189 t p p, f 48;
-#X obj 51 235 t a b, f 36;
-#X obj 264 367 f;
-#X obj 299 319 r \$0.stepvisheight;
-#X obj 299 342 - 1;
-#X obj 221 259 r \$0.stepviswidth;
-#X obj 192 259 div;
-#X obj 192 333 *;
+#X obj 51 235 t a b, f 40;
+#X obj 288 380 f;
+#X obj 303 332 r \$0.stepvisheight;
+#X obj 303 355 - 1;
+#X obj 270 259 r \$0.stepviswidth;
+#X obj 241 259 div;
+#X obj 241 333 *;
 #X obj 32 54 filledpolygon -v vis c 444 1 0 0 0 h w h w 0;
 #N canvas 645 450 401 207 get.gid.clr 0;
 #X obj 11 15 inlet;
@@ -554,10 +552,8 @@ id float gid float vel float c float vis;
 #X connect 21 0 0 0;
 #X restore 64 364 pd clr.*;
 #X obj 121 356 / 113;
-#X obj 51 212 get \$0.note gid vel w, f 24;
 #X obj 469 34 r \$0.default.show;
-#X obj 469 163 == 1;
-#X obj 469 57 t a a;
+#X obj 469 183 == 1;
 #X text 596 36 show note properties:;
 #X text 609 53 0 = none;
 #X text 609 68 1 = velocity;
@@ -580,53 +576,64 @@ id float gid float vel float c float vis;
 #X connect 4 0 5 0;
 #X connect 5 0 0 0;
 #X restore 51 274 pd range;
-#X obj 51 406 set \$0.note gid c vel w h, f 48;
 #X obj 51 297 t a a;
-#X obj 496 120 drawnumber gid 3 1 999;
-#X obj 469 190 drawnumber vel 3 1 999;
-#X obj 192 284 min;
-#X obj 192 307 max 1;
-#X obj 225 283 r \$0.stepsperpage;
-#X obj 496 93 == 3;
+#X obj 508 111 drawnumber gid 3 1 999;
+#X obj 469 210 drawnumber vel 3 1 999;
+#X obj 241 284 min;
+#X obj 241 307 max 1;
+#X obj 274 283 r \$0.stepsperpage;
+#X obj 508 84 == 3;
 #X obj 121 259 max 1;
+#X obj 469 57 t a a a;
+#X obj 488 160 drawnumber dur 3 1 999;
+#X obj 488 133 == 2;
+#X obj 51 212 get \$0.note gid vel dur w, f 32;
+#X obj 51 406 set \$0.note gid c vel dur w h, f 48;
+#X obj 178 302 max 1;
+#X obj 32 104 struct \$0.note float x float y float w float h float
+id float gid float vel float dur float c float vis;
 #X connect 0 0 2 0;
-#X connect 1 0 6 0;
-#X connect 1 1 6 0;
-#X connect 2 0 17 0;
-#X connect 2 1 29 2;
+#X connect 1 0 5 0;
+#X connect 1 1 5 0;
+#X connect 2 0 16 0;
+#X connect 2 1 38 2;
 #X connect 3 0 4 0;
 #X connect 3 1 1 0;
-#X connect 5 0 3 0;
-#X connect 6 0 18 0;
-#X connect 6 1 29 5;
-#X connect 7 0 28 0;
-#X connect 7 1 8 0;
-#X connect 8 0 29 4;
-#X connect 9 0 10 0;
-#X connect 10 0 8 1;
-#X connect 11 0 12 1;
-#X connect 11 0 13 1;
-#X connect 12 0 33 0;
-#X connect 13 0 29 3;
-#X connect 15 0 16 0;
-#X connect 16 0 29 1;
-#X connect 17 0 16 1;
-#X connect 18 0 7 0;
-#X connect 18 1 37 0;
-#X connect 18 2 12 0;
-#X connect 19 0 21 0;
-#X connect 20 0 32 0;
-#X connect 21 0 20 0;
-#X connect 21 1 36 0;
-#X connect 26 0 27 0;
-#X connect 28 0 30 0;
-#X connect 30 0 29 0;
-#X connect 30 1 15 0;
-#X connect 33 0 34 0;
-#X connect 34 0 13 0;
-#X connect 35 0 33 1;
-#X connect 36 0 31 0;
-#X connect 37 0 0 0;
+#X connect 5 0 37 0;
+#X connect 5 1 38 6;
+#X connect 6 0 25 0;
+#X connect 6 1 7 0;
+#X connect 7 0 38 5;
+#X connect 8 0 9 0;
+#X connect 9 0 7 1;
+#X connect 10 0 11 1;
+#X connect 10 0 12 1;
+#X connect 11 0 29 0;
+#X connect 12 0 38 4;
+#X connect 14 0 15 0;
+#X connect 15 0 38 1;
+#X connect 16 0 15 1;
+#X connect 17 0 34 0;
+#X connect 18 0 28 0;
+#X connect 23 0 24 0;
+#X connect 25 0 26 0;
+#X connect 26 0 38 0;
+#X connect 26 1 14 0;
+#X connect 29 0 30 0;
+#X connect 30 0 12 0;
+#X connect 31 0 29 1;
+#X connect 32 0 27 0;
+#X connect 33 0 0 0;
+#X connect 34 0 18 0;
+#X connect 34 1 36 0;
+#X connect 34 2 32 0;
+#X connect 36 0 35 0;
+#X connect 37 0 6 0;
+#X connect 37 1 33 0;
+#X connect 37 2 39 0;
+#X connect 37 3 11 0;
+#X connect 39 0 38 3;
+#X connect 40 0 3 0;
 #X restore 624 101 pd note-template;
 #X obj 481 314 r \$0.init;
 #X msg 481 337 const 0;
@@ -1189,15 +1196,14 @@ symbol param;
 #N canvas 0 99 406 517 note.change.duration 0;
 #X obj 14 19 r \$0.note.send;
 #X obj 14 246 change -1;
-#X obj 107 164 t a a;
-#X obj 134 190 tabread \$0.duration;
-#X msg 134 215 set \$1;
+#X obj 167 164 t a a;
+#X obj 194 190 tabread \$0.duration;
+#X msg 194 215 set \$1;
 #X obj 14 376 list prepend;
 #X obj 14 404 list prepend note change duration;
 #X obj 14 427 list trim;
 #X obj 14 455 s \$0.global.send;
-#X obj 107 138 change -1;
-#X obj 14 85 get \$0.note w;
+#X obj 167 138 change -1;
 #X obj 14 42 route change click;
 #N canvas 83 99 398 214 id->step|pitch 0;
 #X obj 13 14 inlet;
@@ -1211,7 +1217,7 @@ symbol param;
 #X connect 1 1 4 0;
 #X connect 2 0 3 0;
 #X connect 5 0 2 1;
-#X restore 107 272 pd id->step|pitch;
+#X restore 167 272 pd id->step|pitch;
 #N canvas 83 99 398 214 pointer->id 0;
 #X obj 13 14 inlet;
 #X obj 13 37 t b a;
@@ -1224,7 +1230,7 @@ symbol param;
 #X connect 1 1 4 0;
 #X connect 2 0 3 0;
 #X connect 5 0 2 1;
-#X restore 107 76 pd pointer->id;
+#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;
@@ -1238,9 +1244,10 @@ symbol param;
 #X connect 2 0 3 0;
 #X connect 4 0 2 1;
 #X restore 14 114 pd w->duration;
-#X connect 0 0 11 0;
+#X obj 14 85 get \$0.note w dur;
+#X connect 0 0 10 0;
 #X connect 1 0 5 0;
-#X connect 2 0 12 0;
+#X connect 2 0 11 0;
 #X connect 2 1 3 0;
 #X connect 3 0 4 0;
 #X connect 4 0 1 0;
@@ -1249,11 +1256,12 @@ symbol param;
 #X connect 7 0 8 0;
 #X connect 9 0 2 0;
 #X connect 10 0 14 0;
-#X connect 11 0 10 0;
-#X connect 11 1 13 0;
-#X connect 12 0 5 1;
-#X connect 13 0 9 0;
-#X connect 14 0 1 0;
+#X connect 10 1 12 0;
+#X connect 11 0 5 1;
+#X connect 12 0 9 0;
+#X connect 13 0 1 0;
+#X connect 14 0 13 0;
+#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;
@@ -2471,7 +2479,6 @@ certain period.;
 #X msg 328 148 \$1 \$4;
 #X msg 417 148 \$1 \$5;
 #X msg 508 148 \$1 \$6;
-#X text 20 389 x y w h id gid vel c vis;
 #X obj 6 419 list prepend scalar \$0.note;
 #X obj 6 442 list trim;
 #N canvas 16 91 407 242 w 0;
@@ -2606,7 +2613,7 @@ certain period.;
 #X connect 5 0 7 0;
 #X connect 6 0 3 0;
 #X connect 7 0 2 0;
-#X restore 307 291 pd c;
+#X restore 346 291 pd c;
 #N canvas 16 91 414 215 vis 0;
 #X obj 7 21 inlet;
 #X obj 7 126 outlet;
@@ -2615,7 +2622,7 @@ certain period.;
 #X connect 0 0 3 0;
 #X connect 2 0 1 0;
 #X connect 3 0 2 0;
-#X restore 347 291 pd vis;
+#X restore 378 291 pd vis;
 #N canvas 16 91 407 242 x 0;
 #X obj 7 21 inlet;
 #X obj 7 185 outlet;
@@ -2658,18 +2665,26 @@ certain period.;
 #X connect 2 0 1 0;
 #X connect 3 0 2 0;
 #X restore 46 291 pd y;
-#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 obj 97 77 s \$0.sequencer.id;
+#X text 20 389 x y w h id gid vel dur c vis;
+#X obj 6 355 pack f f f f f f f f f f, f 57;
+#X obj 6 252 t a a a a a a a a a a, f 57;
+#N canvas 15 91 396 215 dur 0;
+#X obj 20 21 inlet;
+#X obj 20 162 outlet;
+#X msg 20 76 \$5;
+#X connect 0 0 2 0;
+#X connect 2 0 1 0;
+#X restore 302 291 pd dur;
 #X connect 0 0 1 0;
 #X connect 1 0 2 0;
 #X connect 2 0 10 0;
 #X connect 10 0 12 0;
-#X connect 10 1 34 0;
+#X connect 10 1 31 0;
 #X connect 11 0 4 0;
-#X connect 12 0 30 0;
+#X connect 12 0 34 0;
 #X connect 12 1 11 0;
 #X connect 12 1 13 0;
 #X connect 12 1 14 0;
@@ -2681,28 +2696,30 @@ certain period.;
 #X connect 15 0 8 0;
 #X connect 16 0 7 0;
 #X connect 17 0 9 0;
-#X connect 19 0 20 0;
-#X connect 20 0 32 0;
-#X connect 21 0 31 2;
-#X connect 22 0 31 3;
-#X connect 23 0 31 4;
-#X connect 24 0 31 5;
-#X connect 25 0 31 6;
-#X connect 26 0 31 7;
-#X connect 27 0 31 8;
-#X connect 28 0 31 0;
-#X connect 29 0 31 1;
-#X connect 30 0 28 0;
-#X connect 30 1 29 0;
-#X connect 30 2 21 0;
-#X connect 30 3 22 0;
-#X connect 30 4 23 0;
-#X connect 30 5 24 0;
-#X connect 30 6 25 0;
-#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 connect 18 0 19 0;
+#X connect 19 0 29 0;
+#X connect 20 0 33 2;
+#X connect 21 0 33 3;
+#X connect 22 0 33 4;
+#X connect 23 0 33 5;
+#X connect 24 0 33 6;
+#X connect 25 0 33 8;
+#X connect 26 0 33 9;
+#X connect 27 0 33 0;
+#X connect 28 0 33 1;
+#X connect 30 0 34 0;
+#X connect 33 0 18 0;
+#X connect 34 0 27 0;
+#X connect 34 1 28 0;
+#X connect 34 2 20 0;
+#X connect 34 3 21 0;
+#X connect 34 4 22 0;
+#X connect 34 5 23 0;
+#X connect 34 6 24 0;
+#X connect 34 7 35 0;
+#X connect 34 8 25 0;
+#X connect 34 9 26 0;
+#X connect 35 0 33 7;
 #X restore 19 238 pd note.create;
 #N canvas 166 355 345 548 note.delete 0;
 #X obj 6 8 r \$0.global.receive;
@@ -2792,7 +2809,6 @@ certain period.;
 #X msg 6 123 \$1 \$2;
 #X obj 51 392 pack f f;
 #X obj 51 433 s \$0.duration;
-#X obj 210 513 set \$0.note w;
 #N canvas 83 99 410 208 step|pitch->id 0;
 #X obj 40 63 s \$0.convert.step|pitch->id.get;
 #X obj 40 86 r \$0.convert.step|pitch->id;
@@ -2831,7 +2847,7 @@ certain period.;
 #X connect 1 1 4 0;
 #X connect 2 0 3 0;
 #X connect 5 0 2 1;
-#X restore 210 480 pd duration->w;
+#X restore 210 510 pd duration->w;
 #X obj 6 194 route -1;
 #X obj 6 145 t a a;
 #X obj 6 217 b;
@@ -2843,32 +2859,36 @@ certain period.;
 #X obj 210 433 t b p;
 #X text 334 159 duration;
 #X obj 51 329 t a a;
+#X obj 210 543 set \$0.note w dur;
+#X obj 210 479 t a a;
 #X connect 0 0 1 0;
 #X connect 1 0 2 0;
 #X connect 2 0 3 0;
 #X connect 3 0 4 0;
 #X connect 4 0 6 0;
 #X connect 4 1 5 0;
-#X connect 5 0 20 1;
+#X connect 5 0 19 1;
 #X connect 5 0 7 1;
-#X connect 6 0 14 0;
+#X connect 6 0 13 0;
 #X connect 7 0 8 0;
-#X connect 10 0 13 0;
-#X connect 11 0 19 0;
-#X connect 12 0 9 0;
-#X connect 13 0 15 0;
-#X connect 13 1 23 0;
-#X connect 14 0 10 0;
-#X connect 14 1 17 1;
-#X connect 15 0 17 0;
-#X connect 17 0 18 0;
-#X connect 18 0 16 0;
-#X connect 19 1 21 0;
-#X connect 20 0 12 0;
-#X connect 21 0 20 0;
-#X connect 21 1 9 1;
-#X connect 23 0 7 0;
-#X connect 23 1 11 0;
+#X connect 9 0 12 0;
+#X connect 10 0 18 0;
+#X connect 11 0 23 0;
+#X connect 12 0 14 0;
+#X connect 12 1 22 0;
+#X connect 13 0 9 0;
+#X connect 13 1 16 1;
+#X connect 14 0 16 0;
+#X connect 16 0 17 0;
+#X connect 17 0 15 0;
+#X connect 18 1 20 0;
+#X connect 19 0 24 0;
+#X connect 20 0 19 0;
+#X connect 20 1 23 2;
+#X connect 22 0 7 0;
+#X connect 22 1 10 0;
+#X connect 24 0 11 0;
+#X connect 24 1 23 1;
 #X restore 19 284 pd note.change.duration;
 #N canvas 103 249 385 658 note.change.velocity 0;
 #X obj 6 8 r \$0.global.receive;