unpunch.pd

#N canvas 0 99 788 555 10;
#X msg 524 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
-1;
#N canvas 133 127 401 394 create_horizgrid 0;
#X obj 16 86 t a b;
#X obj 16 109 until;
#X obj 16 132 f;
#X msg 54 110 0;
#X obj 67 150 + 1;
#X obj 16 62 f;
#X obj 49 62 r \$0.pitchrange;
#X text 229 320 x y w h c;
#X obj 16 271 pack f f f f f;
#N canvas 0 99 387 189 x 0;
#X obj 18 12 inlet;
#X obj 18 97 +;
#X obj 33 70 r \$0.canvasleftmargin;
#X msg 18 46 0;
#X obj 18 120 outlet;
#X connect 0 0 3 0;
#X connect 1 0 4 0;
#X connect 2 0 1 1;
#X connect 3 0 1 0;
#X restore 16 233 pd x;
#N canvas 0 99 405 280 y 0;
#X obj 42 123 * 14;
#X obj 42 199 +;
#X obj 57 173 r \$0.canvastopmargin;
#X obj 63 96 r \$0.stepvisheight;
#X obj 42 35 inlet;
#X obj 42 239 outlet;
#X connect 0 0 1 0;
#X connect 1 0 5 0;
#X connect 2 0 1 1;
#X connect 3 0 0 1;
#X connect 4 0 0 0;
#X restore 55 234 pd y;
#N canvas 0 99 418 249 w 0;
#X obj 16 17 inlet;
#X obj 16 194 outlet;
#X obj 16 103 f;
#X obj 31 127 r \$0.stepviswidth;
#X obj 16 155 *;
#X obj 16 45 b;
#X obj 31 77 r \$0.stepsperpage;
#X connect 0 0 5 0;
#X connect 2 0 4 0;
#X connect 3 0 4 1;
#X connect 4 0 1 0;
#X connect 5 0 2 0;
#X connect 6 0 2 1;
#X restore 92 234 pd w;
#N canvas 0 99 395 171 h 0;
#X obj 23 14 inlet;
#X obj 23 37 b;
#X obj 23 110 f;
#X obj 23 133 outlet;
#X obj 38 65 r \$0.stepvisheight;
#X obj 38 88 - 1;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 4 0 5 0;
#X connect 5 0 2 1;
#X restore 135 235 pd h;
#X obj 16 156 t a a;
#X obj 16 185 t a a a a a;
#N canvas 570 378 422 271 c 0;
#X obj 20 56 mod 12;
#X obj 20 80 sel 0 2 4 5 7 9 11;
#X obj 125 102 b;
#X obj 20 130 f 887;
#X obj 125 177 f 777;
#X obj 20 32 + 5;
#X obj 64 129 r \$0.stepkeycolor1;
#X obj 132 152 r \$0.stepkeycolor2;
#X obj 20 211 t a;
#X obj 20 7 inlet;
#X obj 20 238 outlet;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 1 1 3 0;
#X connect 1 2 3 0;
#X connect 1 3 3 0;
#X connect 1 4 3 0;
#X connect 1 5 3 0;
#X connect 1 6 3 0;
#X connect 1 7 2 0;
#X connect 2 0 4 0;
#X connect 3 0 8 0;
#X connect 4 0 8 0;
#X connect 5 0 0 0;
#X connect 6 0 3 1;
#X connect 7 0 4 1;
#X connect 8 0 10 0;
#X connect 9 0 5 0;
#X restore 171 234 pd c;
#X obj 16 294 list prepend \$0;
#X obj 16 10 inlet;
#X obj 16 35 b;
#X obj 16 343 outlet;
#X msg 16 320 scalar \$1.horizgrid \$2 \$3 \$4 \$5 \$6;
#X connect 0 0 1 0;
#X connect 0 1 3 0;
#X connect 1 0 2 0;
#X connect 2 0 13 0;
#X connect 3 0 2 1;
#X connect 4 0 2 1;
#X connect 5 0 0 0;
#X connect 6 0 5 1;
#X connect 8 0 16 0;
#X connect 9 0 8 0;
#X connect 10 0 8 1;
#X connect 11 0 8 2;
#X connect 12 0 8 3;
#X connect 13 0 14 0;
#X connect 13 1 4 0;
#X connect 14 0 9 0;
#X connect 14 1 10 0;
#X connect 14 2 11 0;
#X connect 14 3 12 0;
#X connect 14 4 15 0;
#X connect 15 0 8 4;
#X connect 16 0 20 0;
#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;
#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
c;
#X obj 20 73 s \$0.horizgrid.send;
#X obj 22 126 route change;
#X obj 22 149 t p p, f 20;
#X obj 79 357 - 1;
#X obj 22 195 t b b, f 10;
#X obj 22 103 r \$0.horizgrid.send;
#X obj 22 388 set \$0.horizgrid w h;
#X obj 79 335 f;
#X obj 22 322 - 1;
#X obj 22 299 *;
#X obj 22 252 f;
#X obj 22 170 get \$0.horizgrid w;
#X obj 37 276 r \$0.stepviswidth;
#X obj 94 310 r \$0.stepvisheight;
#X obj 37 224 r \$0.stepsperpage;
#X connect 1 0 2 0;
#X connect 3 0 4 0;
#X connect 4 0 13 0;
#X connect 4 1 8 2;
#X connect 5 0 8 1;
#X connect 6 0 12 0;
#X connect 6 1 9 0;
#X connect 7 0 3 0;
#X connect 9 0 5 0;
#X connect 10 0 8 0;
#X connect 11 0 10 0;
#X connect 12 0 11 0;
#X connect 13 0 6 0;
#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;
#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;
#X obj 19 66 s \$0.vertgrid.send;
#X obj 92 310 r \$0.stepvisheight;
#X obj 77 286 f;
#X obj 77 335 *;
#X obj 92 261 r \$0.pitchrange;
#X obj 22 103 r \$0.vertgrid.send;
#X obj 22 126 route change;
#X obj 22 170 get \$0.vertgrid w;
#X obj 22 149 t p p, f 19;
#X obj 77 358 - 1;
#X obj 22 388 set \$0.vertgrid w h;
#X obj 37 223 r \$0.stepviswidth;
#X obj 22 269 f;
#X obj 37 246 - 1;
#X obj 22 195 t b b, f 10;
#X connect 1 0 2 0;
#X connect 3 0 5 1;
#X connect 4 0 5 0;
#X connect 5 0 11 0;
#X connect 6 0 4 1;
#X connect 7 0 8 0;
#X connect 8 0 10 0;
#X connect 9 0 16 0;
#X connect 10 0 9 0;
#X connect 10 1 12 2;
#X connect 11 0 12 1;
#X connect 13 0 15 0;
#X connect 14 0 12 0;
#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;
#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;
#X msg 54 110 0;
#X obj 67 150 + 1;
#X obj 16 62 f;
#N canvas 0 99 401 215 x 0;
#X obj 18 12 inlet;
#X obj 18 147 +;
#X obj 33 120 r \$0.canvasleftmargin;
#X obj 18 170 outlet;
#X obj 18 75 *;
#X obj 33 42 r \$0.stepviswidth;
#X connect 0 0 4 0;
#X connect 1 0 3 0;
#X connect 2 0 1 1;
#X connect 4 0 1 0;
#X connect 5 0 4 1;
#X restore 16 233 pd x;
#N canvas 0 99 405 280 y 0;
#X obj 42 199 +;
#X obj 57 173 r \$0.canvastopmargin;
#X obj 42 35 inlet;
#X obj 42 239 outlet;
#X msg 42 90 0;
#X connect 0 0 3 0;
#X connect 1 0 0 1;
#X connect 2 0 4 0;
#X connect 4 0 0 0;
#X restore 55 234 pd y;
#N canvas 0 99 418 249 w 0;
#X obj 16 17 inlet;
#X obj 16 194 outlet;
#X obj 31 90 r \$0.stepviswidth;
#X obj 16 45 b;
#X obj 16 155 f;
#X obj 31 113 - 1;
#X connect 0 0 3 0;
#X connect 2 0 5 0;
#X connect 3 0 4 0;
#X connect 4 0 1 0;
#X connect 5 0 4 1;
#X restore 92 234 pd w;
#N canvas 0 99 398 252 h 0;
#X obj 23 14 inlet;
#X obj 23 37 b;
#X obj 23 193 outlet;
#X obj 38 115 r \$0.stepvisheight;
#X obj 23 91 f;
#X obj 23 140 *;
#X obj 38 66 r \$0.pitchrange;
#X obj 23 163 - 1;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 3 0 5 1;
#X connect 4 0 5 0;
#X connect 5 0 7 0;
#X connect 6 0 4 1;
#X connect 7 0 2 0;
#X restore 135 235 pd h;
#X obj 16 156 t a a;
#X obj 16 294 list prepend \$0;
#X obj 16 10 inlet;
#X obj 16 35 b;
#X obj 16 343 outlet;
#X text 229 320 x y w h;
#X obj 16 271 pack f f f f;
#X obj 16 185 t a a a a;
#X msg 16 320 scalar \$1.vertgrid \$2 \$3 \$4 \$5;
#X obj 46 60 r \$0.stepsperpage;
#X connect 0 0 1 0;
#X connect 0 1 3 0;
#X connect 1 0 2 0;
#X connect 2 0 10 0;
#X connect 3 0 2 1;
#X connect 4 0 2 1;
#X connect 5 0 0 0;
#X connect 6 0 16 0;
#X connect 7 0 16 1;
#X connect 8 0 16 2;
#X connect 9 0 16 3;
#X connect 10 0 17 0;
#X connect 10 1 4 0;
#X connect 11 0 18 0;
#X connect 12 0 13 0;
#X connect 13 0 5 0;
#X connect 16 0 11 0;
#X connect 17 0 6 0;
#X connect 17 1 7 0;
#X connect 17 2 8 0;
#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;
#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;
#X obj 19 42 struct \$0.vertline float x float y float h float c float
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;
#N canvas 23 99 400 432 create_vertline 0;
#X obj 16 116 t a b;
#X obj 16 139 until;
#X obj 16 162 f;
#X msg 54 140 0;
#X obj 67 180 + 1;
#X obj 16 62 f;
#N canvas 0 99 401 215 x 0;
#X obj 18 12 inlet;
#X obj 18 147 +;
#X obj 33 120 r \$0.canvasleftmargin;
#X obj 18 170 outlet;
#X obj 18 75 *;
#X obj 33 42 r \$0.stepviswidth;
#X connect 0 0 4 0;
#X connect 1 0 3 0;
#X connect 2 0 1 1;
#X connect 4 0 1 0;
#X connect 5 0 4 1;
#X restore 16 263 pd x;
#N canvas 0 99 405 280 y 0;
#X obj 42 199 +;
#X obj 57 173 r \$0.canvastopmargin;
#X obj 42 35 inlet;
#X obj 42 239 outlet;
#X msg 42 90 0;
#X connect 0 0 3 0;
#X connect 1 0 0 1;
#X connect 2 0 4 0;
#X connect 4 0 0 0;
#X restore 55 264 pd y;
#X obj 16 186 t a a;
#X obj 16 324 list prepend \$0;
#X obj 16 10 inlet;
#X obj 16 35 b;
#X obj 16 373 outlet;
#N canvas 0 99 398 252 h 0;
#X obj 23 14 inlet;
#X obj 23 37 b;
#X obj 23 163 outlet;
#X obj 38 115 r \$0.stepvisheight;
#X obj 23 91 f;
#X obj 23 140 *;
#X obj 38 66 r \$0.pitchrange;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 3 0 5 1;
#X connect 4 0 5 0;
#X connect 5 0 2 0;
#X connect 6 0 4 1;
#X restore 96 266 pd h;
#N canvas 0 132 290 428 c 0;
#X obj 16 17 inlet;
#X obj 16 366 outlet;
#X obj 79 136 r \$0.griddivision;
#X obj 95 163 r \$0.gridsubdivision;
#X obj 79 214 *;
#X obj 16 201 mod;
#X obj 16 238 sel 0;
#X obj 58 245 r \$0.gridsubdivision;
#X obj 43 272 mod;
#X obj 43 301 sel 0;
#X msg 70 328 888;
#X msg 16 329 0;
#X obj 95 186 t b a;
#X msg 43 328 666;
#X obj 63 53 r \$0.page;
#X obj 91 78 r \$0.stepsperpage;
#X obj 63 78 *;
#X obj 16 72 +;
#X connect 0 0 17 0;
#X connect 2 0 4 0;
#X connect 3 0 12 0;
#X connect 4 0 5 1;
#X connect 5 0 6 0;
#X connect 6 0 11 0;
#X connect 6 1 8 0;
#X connect 7 0 8 1;
#X connect 8 0 9 0;
#X connect 9 0 13 0;
#X connect 9 1 10 0;
#X connect 10 0 1 0;
#X connect 11 0 1 0;
#X connect 12 0 4 0;
#X connect 12 1 4 1;
#X connect 13 0 1 0;
#X connect 14 0 16 0;
#X connect 15 0 16 1;
#X connect 16 0 17 1;
#X connect 17 0 5 0;
#X restore 133 267 pd c;
#X obj 16 89 + 1;
#X text 46 89 one more for end line;
#X obj 16 215 t a a a a a;
#N canvas 0 99 429 434 n 0;
#X obj 20 26 inlet;
#X obj 20 345 outlet;
#X obj 124 116 r \$0.griddivision;
#X obj 140 143 r \$0.gridsubdivision;
#X obj 124 194 *;
#X obj 140 166 t b a;
#X obj 20 241 div;
#X obj 20 189 t a a;
#X obj 109 277 mod;
#X obj 109 305 == 0;
#X obj 109 348 outlet;
#X obj 20 264 + 1;
#X obj 67 53 r \$0.page;
#X obj 95 78 r \$0.stepsperpage;
#X obj 67 78 *;
#X obj 20 72 +;
#X obj 79 246 sel;
#X msg 76 285 0;
#X obj 67 125 +;
#X connect 0 0 15 0;
#X connect 2 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 6 1;
#X connect 4 0 8 1;
#X connect 5 0 4 0;
#X connect 5 1 4 1;
#X connect 6 0 11 0;
#X connect 7 0 6 0;
#X connect 7 1 16 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 11 0 1 0;
#X connect 12 0 14 0;
#X connect 13 0 14 1;
#X connect 13 0 18 1;
#X connect 14 0 15 1;
#X connect 14 0 18 0;
#X connect 15 0 7 0;
#X connect 16 0 17 0;
#X connect 16 1 8 0;
#X connect 17 0 10 0;
#X connect 18 0 16 1;
#X restore 170 267 pd n nvis;
#X obj 16 301 pack f f f f f f;
#X text 249 349 x y h c n nvis;
#X msg 16 350 scalar \$1.vertline \$2 \$3 \$4 \$5 \$6 \$7;
#X obj 46 60 r \$0.stepsperpage;
#X connect 0 0 1 0;
#X connect 0 1 3 0;
#X connect 1 0 2 0;
#X connect 2 0 8 0;
#X connect 3 0 2 1;
#X connect 4 0 2 1;
#X connect 5 0 15 0;
#X connect 6 0 19 0;
#X connect 7 0 19 1;
#X connect 8 0 17 0;
#X connect 8 1 4 0;
#X connect 9 0 21 0;
#X connect 10 0 11 0;
#X connect 11 0 5 0;
#X connect 13 0 19 2;
#X connect 14 0 19 3;
#X connect 15 0 0 0;
#X connect 17 0 6 0;
#X connect 17 1 7 0;
#X connect 17 2 13 0;
#X connect 17 3 14 0;
#X connect 17 4 18 0;
#X connect 18 0 19 4;
#X connect 18 1 19 5;
#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;
#N canvas 36 99 741 470 note-template 0;
#X obj 121 282 min 127;
#X obj 51 166 route click change;
#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 51 189 t p p, f 48;
#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;
#X obj 30 74 s \$0.gid2lr.get;
#X obj 30 98 r \$0.gid2lr.set;
#X obj 11 42 t b a b;
#X obj 11 131 list append;
#X obj 11 154 outlet;
#X connect 0 0 3 0;
#X connect 2 0 4 1;
#X connect 3 0 4 0;
#X connect 3 1 1 0;
#X connect 3 2 4 1;
#X connect 4 0 5 0;
#X restore 64 330 pd get.gid.clr;
#N canvas 320 203 446 363 clr.* 0;
#X obj 28 62 t a a a;
#X obj 28 112 div 100;
#X obj 78 113 mod 100;
#X obj 78 136 div 10;
#X obj 128 112 mod 10;
#X obj 28 165 *;
#X obj 28 188 int;
#X obj 78 165 *;
#X obj 78 188 int;
#X obj 128 165 *;
#X obj 128 188 int;
#X obj 230 103 inlet;
#X obj 28 212 min 9;
#X obj 78 212 min 9;
#X obj 128 212 min 9;
#X obj 28 235 * 100;
#X obj 78 235 * 10;
#X obj 128 235 * 1;
#X obj 28 262 +;
#X obj 28 285 +;
#X obj 28 311 outlet;
#X obj 28 24 inlet;
#X connect 0 0 1 0;
#X connect 0 1 2 0;
#X connect 0 2 4 0;
#X connect 1 0 5 0;
#X connect 2 0 3 0;
#X connect 3 0 7 0;
#X connect 4 0 9 0;
#X connect 5 0 6 0;
#X connect 6 0 12 0;
#X connect 7 0 8 0;
#X connect 8 0 13 0;
#X connect 9 0 10 0;
#X connect 10 0 14 0;
#X connect 11 0 9 1;
#X connect 11 0 7 1;
#X connect 11 0 5 1;
#X connect 12 0 15 0;
#X connect 13 0 16 0;
#X connect 14 0 17 0;
#X connect 15 0 18 0;
#X connect 16 0 18 1;
#X connect 17 0 19 1;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 21 0 0 0;
#X restore 64 364 pd clr.*;
#X obj 121 356 / 113;
#X obj 469 34 r \$0.default.show;
#X obj 469 183 == 1;
#X text 596 36 show note properties:;
#X text 609 53 0 = none;
#X text 609 68 1 = velocity;
#X text 609 83 2 = gid;
#X obj 478 260 hradio 20 1 0 3 empty empty empty 0 -8 0 10 -262144
-1 -1 0;
#X obj 478 291 s \$0.default.show;
#N canvas 149 210 387 235 range 0;
#X obj 33 104 min;
#X obj 86 64 r \$0.gidcolorlist;
#X obj 86 87 list length;
#X obj 86 110 - 1;
#X obj 33 22 inlet;
#X obj 33 45 max 0;
#X obj 33 127 outlet;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 0 1;
#X connect 4 0 5 0;
#X connect 5 0 0 0;
#X restore 51 274 pd range;
#X obj 51 297 t a a;
#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 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 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;
#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;
#X obj 16 346 list store;
#X msg 16 320 get \$1 1;
#X obj 16 371 s \$0.gid2lr.set;
#X obj 16 292 r \$0.gid2lr.get;
#X obj 80 318 r \$0.gidcolorlist;
#N canvas 633 422 439 518 create.gid.buttons 0;
#X obj 60 316 r \$0.canvasleftmargin;
#X obj 28 120 f;
#X obj 28 143 t a a;
#X obj 28 417 list prepend \$0;
#X msg 70 95 0;
#X obj 81 126 + 1;
#X obj 28 340 +;
#N canvas 645 450 401 207 get.gid.clr 0;
#X obj 11 15 inlet;
#X obj 30 74 s \$0.gid2lr.get;
#X obj 30 98 r \$0.gid2lr.set;
#X obj 11 42 t b a b;
#X obj 11 131 list append;
#X obj 11 154 outlet;
#X connect 0 0 3 0;
#X connect 2 0 4 1;
#X connect 3 0 4 0;
#X connect 3 1 1 0;
#X connect 3 2 4 1;
#X connect 4 0 5 0;
#X restore 45 241 pd get.gid.clr;
#X obj 109 41 r \$0.gidcolorlist;
#X obj 109 64 list length;
#X obj 28 65 t a b;
#X obj 28 39 f;
#X obj 28 91 until;
#X text 49 391 x clr hl gid;
#X obj 28 370 pack f f f f, f 23;
#X obj 28 468 outlet;
#X obj 28 12 inlet;
#X msg 28 445 scalar \$1.gid.button \$2 20 \$3 \$4 \$5;
#X obj 28 170 t a a b a;
#X obj 28 317 * 16;
#X obj 45 264 t a a;
#X obj 60 339 + 251;
#X connect 0 0 21 0;
#X connect 1 0 2 0;
#X connect 2 0 18 0;
#X connect 2 1 5 0;
#X connect 3 0 17 0;
#X connect 4 0 1 1;
#X connect 5 0 1 1;
#X connect 6 0 14 0;
#X connect 7 0 20 0;
#X connect 8 0 9 0;
#X connect 9 0 11 1;
#X connect 10 0 12 0;
#X connect 10 1 4 0;
#X connect 11 0 10 0;
#X connect 12 0 1 0;
#X connect 14 0 3 0;
#X connect 16 0 11 0;
#X connect 17 0 15 0;
#X connect 18 0 19 0;
#X connect 18 1 7 0;
#X connect 18 3 14 3;
#X connect 19 0 6 0;
#X connect 20 0 14 1;
#X connect 20 1 14 2;
#X connect 21 0 6 1;
#X restore 454 116 pd create.gid.buttons;
#N canvas 0 99 450 300 create.vel.number 0;
#X obj 24 21 inlet;
#X obj 24 201 outlet;
#X obj 68 23 r \$0.canvasleftmargin;
#X obj 24 90 f;
#X obj 69 96 r \$0.default.vel;
#X obj 24 125 pack f f;
#X obj 24 149 list prepend \$0;
#X msg 24 172 scalar \$1.vel \$2 20 \$3;
#X obj 68 46 + 85;
#X connect 0 0 3 0;
#X connect 2 0 8 0;
#X connect 3 0 5 0;
#X connect 4 0 5 1;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 1 0;
#X connect 8 0 3 1;
#X restore 439 140 pd create.vel.number;
#N canvas 0 99 450 300 create.dur.number 0;
#X obj 24 21 inlet;
#X obj 24 216 outlet;
#X obj 68 23 r \$0.canvasleftmargin;
#X obj 24 90 f;
#X obj 24 125 pack f f;
#X obj 24 149 list prepend \$0;
#X obj 69 96 r \$0.default.dur;
#X msg 24 172 scalar \$1.dur \$2 20 \$3;
#X obj 68 46 + 168;
#X connect 0 0 3 0;
#X connect 2 0 8 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 7 0;
#X connect 6 0 4 1;
#X connect 7 0 1 0;
#X connect 8 0 3 1;
#X restore 425 168 pd create.dur.number;
#N canvas 0 99 390 589 create.show.selector 0;
#X obj 7 7 inlet;
#X obj 8 523 outlet;
#X obj 8 462 list prepend \$0;
#X obj 7 61 f;
#X text 46 84 offset from left border;
#X obj 44 64 r \$0.canvasleftmargin;
#X obj 7 30 b;
#X obj 27 173 +;
#X obj 8 123 t a a b;
#X msg 48 151 31;
#X obj 27 200 t a a b;
#X obj 74 241 +;
#X msg 89 218 55;
#X msg 8 490 scalar \$1.show.selector \$2 20 \$3 555 \$4 \$5;
#X msg 8 416 \$1 \$2 0 none \, \$3 \$4 1 velocity \, \$5 \$6 2 duration
\, \$7 \$8 3 gid;
#X obj 74 264 t a a b;
#X obj 8 389 pack f f f f f f f f;
#X obj 108 320 +;
#X obj 110 343 t a b;
#X msg 142 298 55;
#X msg 140 365 37;
#X obj 8 84 + 357;
#X connect 0 0 6 0;
#X connect 2 0 13 0;
#X connect 3 0 21 0;
#X connect 5 0 3 1;
#X connect 6 0 3 0;
#X connect 7 0 10 0;
#X connect 8 0 16 0;
#X connect 8 1 7 0;
#X connect 8 2 9 0;
#X connect 9 0 7 1;
#X connect 9 0 16 1;
#X connect 10 0 16 2;
#X connect 10 1 11 0;
#X connect 10 2 12 0;
#X connect 11 0 15 0;
#X connect 12 0 11 1;
#X connect 12 0 16 3;
#X connect 13 0 1 0;
#X connect 14 0 2 0;
#X connect 15 0 16 4;
#X connect 15 1 17 0;
#X connect 15 2 19 0;
#X connect 16 0 14 0;
#X connect 17 0 18 0;
#X connect 18 0 16 6;
#X connect 18 1 20 0;
#X connect 19 0 16 5;
#X connect 19 0 17 1;
#X connect 20 0 16 7;
#X connect 21 0 8 0;
#X restore 397 219 pd create.show.selector;
#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 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;
#X obj 17 188 get \$0.gid.button gid;
#X obj 17 51 t b b;
#X obj 17 14 inlet;
#X obj 17 219 sel 0;
#X obj 63 219 r \$0.default.gid;
#X obj 17 294 outlet;
#X obj 17 242 t b b, f 23;
#X obj 17 161 t p p;
#X obj 17 265 pointer;
#X obj 68 54 symbol \$1;
#X msg 68 80 traverse \$1;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 10 0;
#X connect 2 2 0 1;
#X connect 3 0 6 0;
#X connect 4 0 0 0;
#X connect 4 1 12 0;
#X connect 5 0 4 0;
#X connect 6 0 9 0;
#X connect 7 0 6 1;
#X connect 9 0 11 0;
#X connect 9 1 0 1;
#X connect 10 0 3 0;
#X connect 10 1 11 1;
#X connect 11 0 8 0;
#X connect 12 0 13 0;
#X connect 13 0 2 0;
#X restore 181 93 pd init.pointer;
#X obj 181 66 inlet;
#X obj 181 116 t p b p;
#X obj 63 205 get \$0.gid.button clr;
#X obj 63 233 set \$0.gid.button hl;
#X msg 12 211 0;
#X obj 63 168 t p p;
#X connect 0 0 1 0;
#X connect 1 0 10 0;
#X connect 1 1 4 1;
#X connect 1 2 2 1;
#X connect 1 3 2 0;
#X connect 2 0 11 0;
#X connect 3 0 0 0;
#X connect 5 0 7 0;
#X connect 6 0 5 0;
#X connect 7 0 2 1;
#X connect 7 1 10 0;
#X connect 7 2 4 1;
#X connect 8 0 9 0;
#X connect 10 0 4 0;
#X connect 11 0 8 0;
#X connect 11 1 9 1;
#X restore 55 135 pd gid.state;
#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;
#X obj 63 168 t b p;
#N canvas 246 399 398 338 init.pointer 0;
#X obj 17 79 until;
#X msg 17 102 next;
#X obj 17 51 t b b;
#X obj 17 14 inlet;
#X obj 17 217 sel 0;
#X obj 17 290 outlet;
#X obj 17 138 pointer \$0.show.selector;
#X obj 17 188 get \$0.show.selector id;
#X obj 58 215 r \$0.default.show;
#X obj 17 161 t p p;
#X obj 17 240 t b b, f 21;
#X obj 17 263 pointer;
#X obj 68 54 symbol \$1;
#X msg 68 80 traverse \$1;
#X connect 0 0 1 0;
#X connect 1 0 6 0;
#X connect 2 0 0 0;
#X connect 2 1 12 0;
#X connect 3 0 2 0;
#X connect 4 0 10 0;
#X connect 6 0 9 0;
#X connect 6 2 0 1;
#X connect 7 0 4 0;
#X connect 8 0 4 1;
#X connect 9 0 7 0;
#X connect 9 1 11 1;
#X connect 10 0 11 0;
#X connect 10 1 0 1;
#X connect 11 0 5 0;
#X connect 12 0 13 0;
#X connect 13 0 6 0;
#X restore 191 97 pd init.pointer;
#X obj 191 69 inlet;
#X obj 12 52 r \$0.show.selector.send;
#X msg 63 197 555;
#X msg 12 195 0;
#X obj 12 249 set \$0.show.selector hilite;
#X obj 191 120 t p b p;
#X connect 0 0 1 0;
#X connect 1 0 8 0;
#X connect 1 1 9 1;
#X connect 1 2 2 1;
#X connect 1 3 2 0;
#X connect 2 0 3 0;
#X connect 3 0 7 0;
#X connect 3 1 9 1;
#X connect 4 0 10 0;
#X connect 5 0 4 0;
#X connect 6 0 0 0;
#X connect 7 0 9 0;
#X connect 8 0 9 0;
#X connect 10 0 2 1;
#X connect 10 1 8 0;
#X connect 10 2 9 1;
#X restore 53 169 pd show.selector.state;
#N canvas 250 344 403 392 create.cursor 0;
#X obj 45 194 r \$0.canvastopmargin;
#X obj 22 96 f;
#X obj 22 26 inlet;
#X obj 22 303 list prepend \$0;
#X obj 22 354 outlet;
#N canvas 0 99 398 252 h 0;
#X obj 23 14 inlet;
#X obj 23 37 b;
#X obj 23 163 outlet;
#X obj 38 115 r \$0.stepvisheight;
#X obj 23 91 f;
#X obj 23 140 *;
#X obj 38 66 r \$0.pitchrange;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 3 0 5 1;
#X connect 4 0 5 0;
#X connect 5 0 2 0;
#X connect 6 0 4 1;
#X restore 68 219 pd h;
#X obj 22 49 t b b;
#X obj 22 272 pack f f f 1;
#X obj 37 73 r \$0.canvasleftmargin;
#X msg 22 331 scalar \$1.cursor \$2 \$3 \$4 \$5;
#X obj 91 248 r \$0.cursor.show;
#X obj 60 150 *;
#X obj 96 153 r \$0.stepviswidth;
#X obj 60 118 r \$0.cursor.pos;
#X obj 22 148 +;
#X connect 0 0 7 1;
#X connect 1 0 14 0;
#X connect 2 0 6 0;
#X connect 3 0 9 0;
#X connect 5 0 7 2;
#X connect 6 0 1 0;
#X connect 6 1 5 0;
#X connect 7 0 3 0;
#X connect 8 0 1 1;
#X connect 9 0 4 0;
#X connect 10 0 7 3;
#X connect 11 0 14 1;
#X connect 12 0 11 1;
#X connect 13 0 11 0;
#X connect 14 0 7 0;
#X restore 383 245 pd create.cursor;
#N canvas 357 99 501 367 cursor.state 0;
#X obj 258 107 until;
#X msg 258 130 next;
#X obj 258 79 t b b;
#X obj 258 42 inlet;
#X obj 258 166 pointer \$0.cursor;
#X obj 258 189 t p b;
#X obj 171 238 set \$0.cursor x;
#X obj 44 238 set \$0.cursor vis;
#X obj 82 92 *;
#X obj 118 95 r \$0.stepviswidth;
#X obj 82 117 +;
#X obj 118 119 r \$0.canvasleftmargin;
#X obj 309 82 symbol \$1;
#X msg 309 108 traverse \$1;
#X obj 82 60 r \$0.cursor.pos;
#X obj 44 210 r \$0.cursor.show;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 2 0 0 0;
#X connect 2 1 12 0;
#X connect 3 0 2 0;
#X connect 4 0 5 0;
#X connect 4 2 0 1;
#X connect 5 0 6 1;
#X connect 5 0 7 1;
#X connect 5 1 0 1;
#X connect 8 0 10 0;