Commit 784f8a95 authored by Roman Haefeli's avatar Roman Haefeli
Browse files

tidy up some more

parent 348d0a9d
......@@ -634,7 +634,7 @@ id float gid float vel float dur float c float vis;
#X connect 39 0 3 0;
#X connect 40 0 14 0;
#X restore 644 101 pd note-template;
#X msg 481 337 const 0;
#X msg 490 351 const 0;
#N canvas 162 155 643 410 create_guis 0;
#X obj 355 32 inlet;
#X obj 408 312 outlet;
......@@ -2453,7 +2453,7 @@ num float nvis;
#X connect 2 0 3 0;
#X connect 5 0 2 1;
#X restore 135 168 pd gid->gclr;
#X restore 19 75 pd converters;
#X restore 19 95 pd converters;
#N canvas 344 165 401 476 inspector 0;
#X obj 42 89 t a a a a a a;
#X obj 117 113 tabread \$0.active;
......@@ -2494,12 +2494,12 @@ num float nvis;
#X connect 14 0 12 0;
#X connect 15 0 13 0;
#X connect 16 0 13 0;
#X restore 430 497 pd inspector;
#X restore 19 275 pd inspector;
#N canvas 0 99 393 172 errors 0;
#X obj 15 14 r error;
#X obj 15 37 print ERROR:;
#X connect 0 0 1 0;
#X restore 350 497 pd errors;
#X restore 19 305 pd errors;
#X obj 20 387 t a a a;
#X obj 39 442 s \$0.seq.receive;
#N canvas 0 99 450 300 manaage.id 0;
......@@ -2586,149 +2586,8 @@ num float nvis;
#X connect 13 2 8 0;
#X connect 13 3 14 0;
#X connect 14 0 15 0;
#X restore 290 22 pd parse.config.commands;
#N canvas 1 99 452 346 dump 0;
#X obj 15 20 r \$0.global.receive;
#X obj 15 43 route dump;
#X msg 276 104 clear;
#N canvas 0 99 451 362 configure 0;
#X obj 15 7 inlet;
#X obj 314 68 r \$0.stepviswidth;
#X obj 288 67 f;
#X msg 288 90 stepviswidth \$1;
#X obj 242 117 f;
#X obj 268 118 r \$0.stepvisheight;
#X msg 242 140 stepvisheight \$1;
#X obj 197 167 f;
#X obj 223 168 r \$0.stepsperpage;
#X msg 197 190 stepsperpage \$1;
#X obj 151 67 f;
#X obj 177 68 r \$0.pitchrange;
#X msg 151 90 pitchrange \$1;
#X obj 106 117 f;
#X obj 60 167 f;
#X obj 132 118 r \$0.gridsubdivision;
#X msg 106 140 gridsubdivision \$1;
#X obj 86 168 r \$0.griddivision;
#X msg 60 190 griddivision \$1;
#X obj 15 41 t b b b b b b b, f 46;
#X msg 15 217 page 1;
#X obj 82 268 list prepend set;
#X obj 82 291 list trim;
#X obj 29 331 outlet;
#X connect 0 0 19 0;
#X connect 1 0 2 1;
#X connect 2 0 3 0;
#X connect 3 0 21 0;
#X connect 4 0 6 0;
#X connect 5 0 4 1;
#X connect 6 0 21 0;
#X connect 7 0 9 0;
#X connect 8 0 7 1;
#X connect 9 0 21 0;
#X connect 10 0 12 0;
#X connect 11 0 10 1;
#X connect 12 0 21 0;
#X connect 13 0 16 0;
#X connect 14 0 18 0;
#X connect 15 0 13 1;
#X connect 16 0 21 0;
#X connect 17 0 14 1;
#X connect 18 0 21 0;
#X connect 19 0 20 0;
#X connect 19 1 14 0;
#X connect 19 2 13 0;
#X connect 19 3 10 0;
#X connect 19 4 7 0;
#X connect 19 5 4 0;
#X connect 19 6 2 0;
#X connect 20 0 23 0;
#X connect 21 0 22 0;
#X connect 22 0 23 0;
#X restore 189 103 pd configure;
#N canvas 0 99 578 272 restore 0;
#X obj 19 16 inlet;
#X obj 189 200 outlet;
#X obj 19 94 until;
#X msg 19 68 1000;
#X obj 19 117 f;
#X obj 19 42 t b b;
#X msg 74 93 0;
#X obj 109 128 + 1;
#X obj 19 164 tabread \$0.active;
#X obj 19 140 t a a a;
#X obj 19 187 sel 1;
#X obj 19 210 f;
#X obj 189 35 t a a a a a, f 47;
#X obj 189 115 tabread \$0.step;
#X obj 189 138 pack f f f f f, f 47;
#X obj 258 93 tabread \$0.pitch;
#X obj 468 95 tabread \$0.gid;
#X msg 189 169 note create \$1 \$2 \$3 \$4 \$5;
#X obj 328 72 tabread \$0.velocity;
#X obj 398 115 tabread \$0.duration;
#X connect 0 0 5 0;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 4 0 9 0;
#X connect 5 0 3 0;
#X connect 5 1 6 0;
#X connect 6 0 4 1;
#X connect 7 0 4 1;
#X connect 8 0 10 0;
#X connect 9 0 8 0;
#X connect 9 1 11 1;
#X connect 9 2 7 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 12 1 15 0;
#X connect 12 2 18 0;
#X connect 12 3 19 0;
#X connect 12 4 16 0;
#X connect 13 0 14 0;
#X connect 14 0 17 0;
#X connect 15 0 14 1;
#X connect 16 0 14 4;
#X connect 17 0 1 0;
#X connect 18 0 14 2;
#X connect 19 0 14 3;
#X restore 102 103 pd restore;
#X obj 15 66 t b b b b, f 44;
#X obj 135 171 list trim;
#N canvas 0 99 472 349 msg 0;
#X obj 11 24 inlet;
#X obj 8 306 outlet;
#X msg 95 69;
#X connect 0 0 2 0;
#X connect 2 0 1 0;
#X restore 15 256 pd msg;
#X obj 135 148 list prepend add2;
#X obj 135 194 t b a;
#X msg 135 217 addcomma;
#X obj 15 170 t b b;
#X msg 15 196 set;
#X obj 15 292 s \$0.global.send;
#X connect 0 0 1 0;
#X connect 1 0 5 0;
#X connect 2 0 8 0;
#X connect 3 0 8 0;
#X connect 4 0 8 0;
#X connect 5 0 11 0;
#X connect 5 1 4 0;
#X connect 5 2 3 0;
#X connect 5 3 2 0;
#X connect 6 0 9 0;
#X connect 7 0 13 0;
#X connect 8 0 6 0;
#X connect 9 0 10 0;
#X connect 9 1 7 0;
#X connect 10 0 7 0;
#X connect 11 0 12 0;
#X connect 11 1 7 0;
#X connect 12 0 7 0;
#X restore 522 497 pd dump;
#X obj 481 304 r \$0.clear;
#X restore 19 65 pd parse.config.commands;
#X obj 490 318 r \$0.clear;
#X msg 206 69 \; \$1.stepsperpage 64 \; \$1.page 0 \; \$1.pitchrange
48 \; \$1.stepviswidth 15 \; \$1.stepvisheight 14 \; \$1.canvastopmargin
53 \; \$1.canvasleftmargin 30 \; \$1.stepkeycolor1 887 \; \$1.stepkeycolor2
......@@ -3230,15 +3089,15 @@ certain period.;
#X connect 14 0 15 0;
#X connect 15 0 1 0;
#X restore 16 141 pd note.edit.modes;
#N canvas 446 174 579 621 note.select 0;
#X obj 29 14 r \$0.horizgrid.send;
#X obj 29 77 route click;
#X obj 29 100 get \$0.horizgrid y;
#X obj 74 145 route click;
#X obj 74 122 r \$0.vertgrid.send;
#X obj 29 193 pack f f;
#X obj 74 168 get \$0.vertgrid x;
#X msg 29 216 \$2 \$1;
#N canvas 446 174 420 655 note.select 0;
#X obj 19 64 r \$0.horizgrid.send;
#X obj 19 127 route click;
#X obj 19 150 get \$0.horizgrid y;
#X obj 64 195 route click;
#X obj 64 172 r \$0.vertgrid.send;
#X obj 19 243 pack f f;
#X obj 64 218 get \$0.vertgrid x;
#X msg 19 266 \$2 \$1;
#N canvas 0 99 405 189 x->step 0;
#X obj 40 63 s \$0.convert.x->step.get;
#X obj 40 85 r \$0.convert.x->step;
......@@ -3251,7 +3110,7 @@ certain period.;
#X connect 3 0 4 0;
#X connect 3 1 0 0;
#X connect 4 0 5 0;
#X restore 29 262 pd x->step;
#X restore 19 312 pd x->step;
#N canvas 0 99 405 189 y->pitch 0;
#X obj 13 14 inlet;
#X obj 13 37 t b a;
......@@ -3264,28 +3123,32 @@ certain period.;
#X connect 1 1 4 0;
#X connect 2 0 3 0;
#X connect 5 0 2 1;
#X restore 104 262 pd y->pitch;
#X obj 29 238 unpack f f, f 13;
#X obj 29 292 pack f f, f 13;
#X obj 29 47 spigot 1;
#X obj 107 38 r \$0.mod.key;
#X obj 107 61 == 2;
#X obj 171 293 r \$0.mod.key;
#X obj 171 316 == 2;
#X obj 171 339 change -1;
#X obj 29 315 spigot;
#X obj 171 365 sel 0;
#X obj 29 338 t b a;
#X obj 29 374 f;
#X obj 29 397 t a a;
#X obj 76 390 + 1;
#X msg 171 388 0;
#X obj 29 426 list append;
#X obj 29 455 route 1 0;
#X obj 79 487 unpack;
#X obj 29 526 pack f f f f;
#X obj 29 572 s \$0.global.receive;
#X msg 29 549 note select \$3 \$4 \$1 \$2;
#X restore 94 312 pd y->pitch;
#X obj 19 288 unpack f f, f 13;
#X obj 19 342 pack f f, f 13;
#X obj 19 97 spigot 1;
#X obj 97 88 r \$0.mod.key;
#X obj 97 111 == 2;
#X obj 161 343 r \$0.mod.key;
#X obj 161 366 == 2;
#X obj 161 389 change -1;
#X obj 19 365 spigot;
#X obj 161 415 sel 0;
#X obj 19 388 t b a;
#X obj 19 424 f;
#X obj 19 447 t a a;
#X obj 66 440 + 1;
#X msg 161 438 0;
#X obj 19 476 list append;
#X obj 19 505 route 1 0;
#X obj 69 537 unpack;
#X obj 19 576 pack f f f f;
#X obj 19 622 s \$0.global.receive;
#X msg 19 599 note select \$3 \$4 \$1 \$2;
#X text 142 624 <- we use the selection only locally;
#X text 182 599 [step \, pitch] \, [step \, pitch];
#X text 23 9 A selection range is defined by drawing a virtual rectangle
by clicking on two coordinates on the grid with Ctrl-key pressed.;
#X connect 0 0 12 0;
#X connect 1 0 2 0;
#X connect 2 0 5 0;
......@@ -3324,8 +3187,8 @@ certain period.;
#X connect 30 0 29 0;
#X restore 16 166 pd note.select;
#X text 15 17 GENERATE EVENTS;
#X restore 19 105 pd generate.events;
#N canvas 0 99 450 300 process.events 0;
#X restore 19 125 pd generate.events;
#N canvas 0 99 413 279 process.events 0;
#N canvas 109 324 589 500 note.create 0;
#X obj 6 8 r \$0.global.receive;
#X obj 6 31 route note;
......@@ -4140,11 +4003,152 @@ certain period.;
#X connect 3 0 4 0;
#X connect 4 0 0 0;
#X restore 19 133 pd note.select;
#X restore 19 135 pd process.events;
#N canvas 1 99 452 346 dump 0;
#X obj 15 20 r \$0.global.receive;
#X obj 15 43 route dump;
#X msg 276 104 clear;
#N canvas 0 99 451 362 configure 0;
#X obj 15 7 inlet;
#X obj 314 68 r \$0.stepviswidth;
#X obj 288 67 f;
#X msg 288 90 stepviswidth \$1;
#X obj 242 117 f;
#X obj 268 118 r \$0.stepvisheight;
#X msg 242 140 stepvisheight \$1;
#X obj 197 167 f;
#X obj 223 168 r \$0.stepsperpage;
#X msg 197 190 stepsperpage \$1;
#X obj 151 67 f;
#X obj 177 68 r \$0.pitchrange;
#X msg 151 90 pitchrange \$1;
#X obj 106 117 f;
#X obj 60 167 f;
#X obj 132 118 r \$0.gridsubdivision;
#X msg 106 140 gridsubdivision \$1;
#X obj 86 168 r \$0.griddivision;
#X msg 60 190 griddivision \$1;
#X obj 15 41 t b b b b b b b, f 46;
#X msg 15 217 page 1;
#X obj 82 268 list prepend set;
#X obj 82 291 list trim;
#X obj 29 331 outlet;
#X connect 0 0 19 0;
#X connect 1 0 2 1;
#X connect 2 0 3 0;
#X connect 3 0 21 0;
#X connect 4 0 6 0;
#X connect 5 0 4 1;
#X connect 6 0 21 0;
#X connect 7 0 9 0;
#X connect 8 0 7 1;
#X connect 9 0 21 0;
#X connect 10 0 12 0;
#X connect 11 0 10 1;
#X connect 12 0 21 0;
#X connect 13 0 16 0;
#X connect 14 0 18 0;
#X connect 15 0 13 1;
#X connect 16 0 21 0;
#X connect 17 0 14 1;
#X connect 18 0 21 0;
#X connect 19 0 20 0;
#X connect 19 1 14 0;
#X connect 19 2 13 0;
#X connect 19 3 10 0;
#X connect 19 4 7 0;
#X connect 19 5 4 0;
#X connect 19 6 2 0;
#X connect 20 0 23 0;
#X connect 21 0 22 0;
#X connect 22 0 23 0;
#X restore 189 103 pd configure;
#N canvas 0 99 578 272 restore 0;
#X obj 19 16 inlet;
#X obj 189 200 outlet;
#X obj 19 94 until;
#X msg 19 68 1000;
#X obj 19 117 f;
#X obj 19 42 t b b;
#X msg 74 93 0;
#X obj 109 128 + 1;
#X obj 19 164 tabread \$0.active;
#X obj 19 140 t a a a;
#X obj 19 187 sel 1;
#X obj 19 210 f;
#X obj 189 35 t a a a a a, f 47;
#X obj 189 115 tabread \$0.step;
#X obj 189 138 pack f f f f f, f 47;
#X obj 258 93 tabread \$0.pitch;
#X obj 468 95 tabread \$0.gid;
#X msg 189 169 note create \$1 \$2 \$3 \$4 \$5;
#X obj 328 72 tabread \$0.velocity;
#X obj 398 115 tabread \$0.duration;
#X connect 0 0 5 0;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 4 0 9 0;
#X connect 5 0 3 0;
#X connect 5 1 6 0;
#X connect 6 0 4 1;
#X connect 7 0 4 1;
#X connect 8 0 10 0;
#X connect 9 0 8 0;
#X connect 9 1 11 1;
#X connect 9 2 7 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 12 1 15 0;
#X connect 12 2 18 0;
#X connect 12 3 19 0;
#X connect 12 4 16 0;
#X connect 13 0 14 0;
#X connect 14 0 17 0;
#X connect 15 0 14 1;
#X connect 16 0 14 4;
#X connect 17 0 1 0;
#X connect 18 0 14 2;
#X connect 19 0 14 3;
#X restore 102 103 pd restore;
#X obj 15 66 t b b b b, f 44;
#X obj 135 171 list trim;
#N canvas 0 99 472 349 msg 0;
#X obj 11 24 inlet;
#X obj 8 306 outlet;
#X msg 95 69;
#X connect 0 0 2 0;
#X connect 2 0 1 0;
#X restore 15 256 pd msg;
#X obj 135 148 list prepend add2;
#X obj 135 194 t b a;
#X msg 135 217 addcomma;
#X obj 15 170 t b b;
#X msg 15 196 set;
#X obj 15 292 s \$0.global.send;
#X connect 0 0 1 0;
#X connect 1 0 5 0;
#X connect 2 0 8 0;
#X connect 3 0 8 0;
#X connect 4 0 8 0;
#X connect 5 0 11 0;
#X connect 5 1 4 0;
#X connect 5 2 3 0;
#X connect 5 3 2 0;
#X connect 6 0 9 0;
#X connect 7 0 13 0;
#X connect 8 0 6 0;
#X connect 9 0 10 0;
#X connect 9 1 7 0;
#X connect 10 0 7 0;
#X connect 11 0 12 0;
#X connect 11 1 7 0;
#X connect 12 0 7 0;
#X restore 19 156 pd dump;
#X restore 19 155 pd process.events;
#X text 13 12 [unpunch] v0.0alpha;
#X connect 0 0 23 0;
#X connect 1 0 2 0;
#X connect 2 0 41 0;
#X connect 2 0 40 0;
#X connect 3 0 2 0;
#X connect 4 0 23 0;
#X connect 7 0 23 0;
......@@ -4160,14 +4164,14 @@ certain period.;
#X connect 17 0 20 0;
#X connect 19 0 35 0;
#X connect 21 0 17 0;
#X connect 24 0 42 0;
#X connect 24 0 41 0;
#X connect 35 0 15 0;
#X connect 35 1 36 0;
#X connect 35 2 37 0;
#X connect 40 0 11 0;
#X connect 42 0 25 0;
#X connect 42 1 12 0;
#X connect 42 2 9 0;
#X connect 42 3 4 0;
#X connect 42 4 7 0;
#X connect 42 5 0 0;
#X connect 39 0 11 0;
#X connect 41 0 25 0;
#X connect 41 1 12 0;
#X connect 41 2 9 0;
#X connect 41 3 4 0;
#X connect 41 4 7 0;
#X connect 41 5 0 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