Skip to content
GitLab
Commit c7482b98 authored by Roman Haefeli's avatar Roman Haefeli
Browse files

replace stepcount by stepsperpage

parent 30177e48
Hide whitespace changes
Inline Side-by-side
unpunch.pd
View file @ c7482b98
......@@ -43,16 +43,16 @@
#X obj 16 17 inlet;
#X obj 16 194 outlet;
#X obj 16 103 f;
#X obj 31 77 r \$0.stepcount;
#X obj 31 127 r \$0.stepviswidth;
#X obj 16 155 *;
#X obj 16 45 b;
#X connect 0 0 6 0;
#X connect 2 0 5 0;
#X connect 3 0 2 1;
#X connect 4 0 5 1;
#X connect 5 0 1 0;
#X connect 6 0 2 0;
#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;
......@@ -130,7 +130,7 @@
#X connect 18 0 5 0;
#X connect 20 0 19 0;
#X restore 492 138 pd create_horizgrid;
#N canvas 64 134 618 459 horizgrid-template 0;
#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;
......@@ -145,13 +145,13 @@ c;
#X obj 22 322 - 1;
#X obj 22 299 *;
#X obj 22 252 f;
#X obj 37 224 r \$0.stepcount;
#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 14 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;
......@@ -161,10 +161,10 @@ c;
#X connect 10 0 8 0;
#X connect 11 0 10 0;
#X connect 12 0 11 0;
#X connect 13 0 12 1;
#X connect 14 0 6 0;
#X connect 15 0 11 1;
#X connect 16 0 9 1;
#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 138 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;
......@@ -201,7 +201,7 @@ c;
#X connect 16 0 14 0;
#X connect 16 1 4 0;
#X restore 624 110 pd vertgrid-template;
#N canvas 133 127 401 394 create_vertgrid 0;
#N canvas 123 119 401 394 create_vertgrid 0;
#X obj 16 86 t a b;
#X obj 16 109 until;
#X obj 16 132 f;
......@@ -267,11 +267,11 @@ c;
#X obj 16 10 inlet;
#X obj 16 35 b;
#X obj 16 343 outlet;
#X obj 46 60 r \$0.stepcount;
#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;
......@@ -279,22 +279,22 @@ c;
#X connect 3 0 2 1;
#X connect 4 0 2 1;
#X connect 5 0 0 0;
#X connect 6 0 17 0;
#X connect 7 0 17 1;
#X connect 8 0 17 2;
#X connect 9 0 17 3;
#X connect 10 0 18 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 19 0;
#X connect 11 0 18 0;
#X connect 12 0 13 0;
#X connect 13 0 5 0;
#X connect 15 0 5 1;
#X connect 17 0 11 0;
#X connect 18 0 6 0;
#X connect 18 1 7 0;
#X connect 18 2 8 0;
#X connect 18 3 9 0;
#X connect 19 0 14 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 110 pd create_vertgrid;
#N canvas 107 99 446 109 vertline-template 0;
#X obj 18 20 drawpolygon c 1 0 0 0 h;
......@@ -304,7 +304,7 @@ 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;
#N canvas 43 99 400 432 create_vertline 0;
#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;
......@@ -340,7 +340,6 @@ n float nvis;
#X obj 16 10 inlet;
#X obj 16 35 b;
#X obj 16 373 outlet;
#X obj 46 60 r \$0.stepcount;
#N canvas 0 99 398 252 h 0;
#X obj 23 14 inlet;
#X obj 23 37 b;
......@@ -404,9 +403,9 @@ n float nvis;
#X obj 109 225 == 0;
#X obj 109 268 outlet;
#X obj 20 184 + 1;
#X obj 170 115 r \$0.stepcount;
#X obj 78 174 sel;
#X msg 78 200 0;
#X obj 170 115 r \$0.stepsperpage;
#X connect 0 0 7 0;
#X connect 2 0 4 0;
#X connect 3 0 5 0;
......@@ -416,47 +415,48 @@ n float nvis;
#X connect 5 1 4 1;
#X connect 6 0 11 0;
#X connect 7 0 6 0;
#X connect 7 1 13 0;
#X connect 7 1 12 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 11 0 1 0;
#X connect 12 0 13 1;
#X connect 13 0 14 0;
#X connect 13 1 8 0;
#X connect 14 0 10 0;
#X connect 12 0 13 0;
#X connect 12 1 8 0;
#X connect 13 0 10 0;
#X connect 14 0 12 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 16 0;
#X connect 6 0 20 0;
#X connect 7 0 20 1;
#X connect 8 0 18 0;
#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 22 0;
#X connect 9 0 21 0;
#X connect 10 0 11 0;
#X connect 11 0 5 0;
#X connect 13 0 5 1;
#X connect 14 0 20 2;
#X connect 15 0 20 3;
#X connect 16 0 0 0;
#X connect 18 0 6 0;
#X connect 18 1 7 0;
#X connect 18 2 14 0;
#X connect 18 3 15 0;
#X connect 18 4 19 0;
#X connect 19 0 20 4;
#X connect 19 1 20 5;
#X connect 20 0 9 0;
#X connect 22 0 12 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 166 pd create_vertline;
#N canvas 46 101 741 470 note-template 0;
#N canvas 36 99 741 470 note-template 0;
#X obj 121 259 max 0;
#X obj 121 282 min 127;
#X obj 51 166 route click change;
......@@ -571,7 +571,7 @@ id float gid float vel float c float vis;
#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.stepcount;
#X obj 225 283 r \$0.stepsperpage;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 2 0 7 0;
......@@ -611,14 +611,8 @@ id float gid float vel float c float vis;
#X connect 36 0 14 0;
#X connect 37 0 35 1;
#X restore 624 81 pd note-template;
#X obj 565 328 array define \$0.step 1000;
#X obj 565 351 array define \$0.pitch 1000;
#X obj 565 397 array define \$0.velocity 1000;
#X obj 565 374 array define \$0.duration 1000;
#X obj 566 420 array define \$0.gid 1000;
#X obj 481 314 r \$0.init;
#X msg 481 337 const 0;
#X obj 565 306 array define \$0.active 1000;
#X obj 461 58 t b b b b b;
#N canvas 148 155 640 399 create_guis 0;
#X obj 355 32 inlet;
......@@ -1053,10 +1047,10 @@ hl float gid;
#X obj 99 154 get \$0.dur value;
#X obj 99 226 set \$0.dur value;
#X obj 14 270 s \$0.dur.send;
#X obj 155 199 r \$0.stepcount;
#X obj 99 178 max 1;
#X obj 13 39 filledpolygon 886 886 1 0 0 0 15 72 15 72 0;
#X obj 14 11 drawnumber value 0 2 0 duration=;
#X obj 155 199 r \$0.stepsperpage;
#X connect 0 0 2 0;
#X connect 1 0 6 0;
#X connect 2 0 7 0;
......@@ -1064,9 +1058,9 @@ hl float gid;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 1 6 1;
#X connect 5 0 9 0;
#X connect 8 0 1 1;
#X connect 9 0 1 0;
#X connect 5 0 8 0;
#X connect 8 0 1 0;
#X connect 11 0 1 1;
#X restore 8 18 pd dur-template;
#N canvas 469 142 450 300 show.selector-template 0;
#X obj 22 149 s \$0.show.selector.send;
......@@ -2148,7 +2142,7 @@ to the note (or prints a 'not found' error);
#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 0 289 404 347 note.create 0;
#N canvas 0 281 404 347 note.create 0;
#X obj 24 16 r \$0.global.receive;
#X obj 24 39 route note;
#X obj 24 62 route create;
......@@ -2161,7 +2155,7 @@ to the note (or prints a 'not found' error);
#X obj 24 285 s \$0.sequencer.event.add.pre;
#X obj 165 210 s \$0.sequencer.event.add.post;
#X obj 24 169 mod;
#X obj 50 169 r \$0.stepcount;
#X obj 50 169 r \$0.stepsperpage;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 6 0;
......@@ -2215,7 +2209,7 @@ to the note (or prints a 'not found' error);
#X obj 24 85 t a a;
#X obj 24 319 s \$0.sequencer.event.remove;
#X obj 83 260 mod;
#X obj 109 260 r \$0.stepcount;
#X obj 109 260 r \$0.stepsperpage;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 11 0;
......@@ -2281,9 +2275,9 @@ to the note (or prints a 'not found' error);
#X obj 196 399 s \$0.sequencer.event.remove;
#X obj 24 298 s \$0.sequencer.event.add.pre;
#X obj 196 346 mod;
#X obj 222 346 r \$0.stepcount;
#X obj 24 246 mod;
#X obj 50 246 r \$0.stepcount;
#X obj 50 246 r \$0.stepsperpage;
#X obj 222 346 r \$0.stepsperpage;
#X connect 0 0 1 0;
#X connect 1 0 11 0;
#X connect 2 0 3 0;
......@@ -2304,13 +2298,13 @@ to the note (or prints a 'not found' error);
#X connect 14 0 15 0;
#X connect 14 1 18 0;
#X connect 15 0 16 0;
#X connect 16 0 23 0;
#X connect 16 0 22 0;
#X connect 17 0 20 0;
#X connect 18 0 17 1;
#X connect 21 0 8 0;
#X connect 22 0 21 1;
#X connect 23 0 17 0;
#X connect 24 0 23 1;
#X connect 22 0 17 0;
#X connect 23 0 22 1;
#X connect 24 0 21 1;
#X restore 13 66 pd note.change.duration;
#N canvas 604 608 577 279 event.add 0;
#X obj 16 37 t a a;
......@@ -2443,28 +2437,28 @@ to the note (or prints a 'not found' error);
#X obj 248 36 inlet;
#X obj 248 309 outlet;
#X obj 248 59 t a a;
#N canvas 0 132 370 260 cursor 0;
#N canvas 0 157 370 260 cursor 0;
#X obj 23 15 inlet;
#X obj 23 54 moses 0;
#X obj 62 86 moses 0;
#X obj 101 60 r \$0.stepcount;
#X obj 62 109 t b a;
#X msg 62 153 1;
#X msg 23 153 0;
#X obj 23 191 change -1;
#X obj 23 214 s \$0.cursor.show;
#X obj 129 214 s \$0.cursor.pos;
#X obj 101 60 r \$0.stepsperpage;
#X connect 0 0 1 0;
#X connect 1 0 6 0;
#X connect 1 0 5 0;
#X connect 1 1 2 0;
#X connect 2 0 4 0;
#X connect 2 1 6 0;
#X connect 3 0 2 1;
#X connect 4 0 5 0;
#X connect 4 1 9 0;
#X connect 5 0 7 0;
#X connect 2 0 3 0;
#X connect 2 1 5 0;
#X connect 3 0 4 0;
#X connect 3 1 8 0;
#X connect 4 0 6 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 9 0 2 1;
#X restore 275 84 pd cursor;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
......@@ -2479,12 +2473,6 @@ to the note (or prints a 'not found' error);
#X obj 199 367 inlet;
#X text 663 475 2018 \, Roman Haefeli;
#X obj 461 234 s \$1;
#X msg 206 68 \; \$1.stepcount 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 \;;
#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;
......@@ -2592,28 +2580,40 @@ 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 connect 0 0 44 0;
#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 connect 0 0 38 0;
#X connect 1 0 2 0;
#X connect 2 0 45 0;
#X connect 3 0 20 0;
#X connect 2 0 46 0;
#X connect 3 0 14 0;
#X connect 4 0 2 0;
#X connect 5 0 44 0;
#X connect 8 0 44 0;
#X connect 10 0 44 0;
#X connect 17 0 18 0;
#X connect 18 0 12 0;
#X connect 18 0 13 0;
#X connect 18 0 15 0;
#X connect 18 0 14 0;
#X connect 18 0 16 0;
#X connect 18 0 19 0;
#X connect 20 0 21 0;
#X connect 20 1 10 0;
#X connect 20 2 5 0;
#X connect 20 3 8 0;
#X connect 20 4 0 0;
#X connect 21 0 44 0;
#X connect 24 0 39 0;
#X connect 38 0 41 0;
#X connect 40 0 25 0;
#X connect 42 0 38 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 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;
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