path: root/gemnotes_0.2.3/makevoice.pd

#N canvas 717 270 531 399 10;
#N canvas 95 222 450 300 \$0-voicecanvas 0;
#X obj 92 36 inlet;
#X obj 244 30 inlet;
#X obj 158 231 outlet;
#N canvas 11 341 1253 328 \$0-voice 0;
#X obj 10 10 inlet;
#X obj 100 10 inlet;
#X obj 10 300 outlet;
#X restore 119 143 pd \$0-voice;
#X connect 0 0 3 0;
#X connect 1 0 3 1;
#X connect 3 0 2 0;
#X restore 37 338 pd \$0-voicecanvas;
#N canvas 0 22 591 300 initcanvas 0;
#X msg 225 149 clear;
#X obj 186 81 t b b b;
#X msg 205 130 obj 10 10 inlet \, obj 100 10 inlet \, obj 10 300 outlet
;
#X msg 186 188 connect 0 0 3 0 \, connect 1 0 3 1 \, connect 3 0 2
0;
#X obj 225 168 s pd-\$0-voice;
#X obj 186 207 s pd-\$0-voicecanvas;
#X obj 186 62 inlet;
#X connect 0 0 4 0;
#X connect 1 0 3 0;
#X connect 1 1 2 0;
#X connect 1 2 0 0;
#X connect 2 0 4 0;
#X connect 3 0 5 0;
#X connect 6 0 1 0;
#X restore 372 127 pd initcanvas;
#N canvas 0 22 450 300 initmakevoice 0;
#X obj 79 181 s \$0-hdsq;
#X obj 152 181 s \$0-stem;
#X obj 79 105 \$1;
#X obj 152 105 \$2;
#X obj 79 124 moses 1e-07;
#X obj 152 162 0.5;
#X obj 79 162 0.15;
#X obj 79 143 t b;
#X obj 152 124 moses 1e-07;
#X obj 152 143 t b;
#X obj 104 49 loadbang;
#X obj 225 124 s \$0-reset;
#X obj 251 66 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X msg 277 182 0;
#X obj 279 215 s \$0-bt;
#X obj 275 156 loadbang;
#X connect 2 0 4 0;
#X connect 3 0 8 0;
#X connect 4 0 7 0;
#X connect 4 1 6 0;
#X connect 5 0 1 0;
#X connect 6 0 0 0;
#X connect 7 0 6 0;
#X connect 8 0 9 0;
#X connect 8 1 5 0;
#X connect 9 0 5 0;
#X connect 10 0 2 0;
#X connect 10 0 3 0;
#X connect 10 0 11 0;
#X connect 12 0 3 0;
#X connect 12 0 2 0;
#X connect 13 0 14 0;
#X connect 15 0 13 0;
#X restore 387 217 pd initmakevoice;
#X msg 77 141 vis 1;
#X obj 37 38 inlet;
#X text 37 24 stave;
#X obj 77 38 inlet;
#X obj 74 307 s pd-\$0-voice;
#N canvas 87 88 1193 663 gemnotes_format 0;
#X obj 34 8 inlet;
#X obj 34 47 route note;
#X obj 34 83 route . +;
#X obj 166 312 r \$0-stem;
#X text 121 382 p;
#X text 147 384 bt;
#X text 171 374 tail;
#X text 170 363 beam/;
#X text 202 384 acc;
#X obj 191 344 * 1;
#X text 215 364 flat/;
#X text 213 375 sharp;
#X obj 501 366 f;
#X obj 520 347 t b f;
#X text 680 389 bt;
#X text 65 523 bt = orientation (bottom / top) of stems \, beams and
tails;
#X text 650 387 p;
#X text 614 388 xoff;
#X text 638 420 chord note;
#X obj 627 375 f;
#X obj 95 467 outlet;
#X text 101 47 reset \, bar \, group;
#X msg 110 185 step \$1;
#X obj 118 152 t b f;
#X text 687 365 flat/;
#X text 685 376 sharp;
#X obj 22 149 t b f;
#X msg 22 169 chord;
#X msg 172 184 step \$1;
#X obj 455 396 pack;
#X text 406 194 args: numerator \, denominator \, firstobject \, x-offset
;
#X obj 554 277 loadbang;
#X obj 507 239 route reset;
#X obj 346 394 pack f f f f;
#X obj 244 323 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X text 732 386 n_obj;
#X obj 95 417 prepend note;
#X obj 258 419 prepend rest;
#X obj 408 419 prepend barline;
#X obj 523 434 prepend tsig;
#X obj 629 438 prepend chord;
#X text 653 373 proot;
#X msg 536 526 xoff p proot bt shfl rhy dur n_obj;
#X text 702 421 rhy dur tie;
#X obj 629 404 pack f f f f f f f f f;
#X obj 336 360 - 0.05;
#X text 643 147 hdsq;
#X obj 34 27 route //;
#X floatatom 269 324 5 0 0 0 - - -;
#X msg 60 492 xoff rhythm pitch dur bt stem beam tie acc shfl grouptotal
objnum groupcount beamset rootobj tail tuple;
#X text 82 222 off rhy dur grp gc tie bm_ rof rd bar cho num den;
#X obj 488 77 route hdsq;
#X obj 455 360 + 0.08;
#X obj 523 403 pack f f f f f;
#X msg 625 308 0;
#X obj 554 324 t b;
#X msg 598 326 0.8;
#X obj 501 384 - 0.2;
#X text 839 273 tempo mark;
#X obj 762 436 prepend tempo;
#X obj 774 403 pack f f f f;
#X msg 397 13 debug;
#X obj 509 3 r \$0-debug;
#X obj 440 10 route bang;
#X floatatom 384 132 5 0 0 0 - - -;
#X text 383 222 tail tuple tempo gob nob;
#X obj 275 348 moses 2;
#X msg 304 377 0;
#X msg 706 276 \$1 tail 1;
#X obj 705 300 s \$0-sendback;
#X obj 666 256 print tail;
#X obj 145 330 r \$0-bt;
#X obj 920 424 outlet;
#X floatatom 609 239 5 0 0 0 - - -;
#X obj 879 60 route tempo;
#X obj 763 61 route reset tempo;
#X obj 829 102 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 754 116 cup;
#X msg 752 90 1;
#X msg 788 91 0;
#X floatatom 754 148 5 0 0 0 - - -;
#X obj 834 288 unpack f f f;
#X msg 525 300 0.6;
#X obj 609 259 > 0;
#X obj 614 280 sel 0 1;
#X floatatom 901 377 5 0 0 0 - - -;
#X text 886 392 should work...;
#X text 885 401 ...but doesn't!;
#X obj 804 337 == 0;
#X obj 773 357 spigot;
#X obj 734 336 spigot;
#X msg 668 310 1;
#X obj 796 307 t b;
#X obj 734 356 f;
#X text 819 358 <---nasty kludge;
#X obj 768 380 + 0.9;
#X obj 488 96 * 0.5;
#X obj 998 378 pack f f f f f f;
#X obj 994 324 unpack f f f f f;
#X msg 1034 303 0;
#X obj 1077 351 == 0;
#X obj 990 282 t a b;
#X msg 985 452 dyn \$1 \$2 \$3 \$4 \$5 \$6;
#X obj 80 395 pack f f f f f f 1 f 1 f f f f f f f f f f;
#X obj 830 242 print dyncount;
#X obj 395 157 print objects;
#X obj 1075 293 r \$0-bt;
#X floatatom 462 488 5 0 0 0 - - -;
#X msg 229 184 articulation \$1;
#X obj 236 129 unpack f f f f f f;
#X obj 128 129 unpack f f f f f;
#X obj 22 129 unpack f f f f f;
#X obj 105 26 route list;
#X obj 92 238 gemnotes_counter 4 4 3 1.1 -----------------------------
;
#X connect 0 0 47 0;
#X connect 1 0 2 0;
#X connect 1 1 32 0;
#X connect 1 1 51 0;
#X connect 1 1 113 0;
#X connect 2 0 111 0;
#X connect 2 1 110 0;
#X connect 2 2 109 0;
#X connect 3 0 103 5;
#X connect 9 0 103 7;
#X connect 12 0 57 0;
#X connect 13 0 12 0;
#X connect 13 1 53 1;
#X connect 19 0 44 0;
#X connect 22 0 113 0;
#X connect 23 0 113 0;
#X connect 23 1 44 2;
#X connect 23 1 103 2;
#X connect 26 0 27 0;
#X connect 26 1 44 1;
#X connect 27 0 113 0;
#X connect 28 0 113 0;
#X connect 29 0 38 0;
#X connect 31 0 82 0;
#X connect 31 0 54 0;
#X connect 32 0 82 0;
#X connect 32 0 54 0;
#X connect 32 0 91 0;
#X connect 33 0 37 0;
#X connect 36 0 20 0;
#X connect 37 0 20 0;
#X connect 38 0 20 0;
#X connect 39 0 20 0;
#X connect 40 0 20 0;
#X connect 44 0 40 0;
#X connect 45 0 33 0;
#X connect 47 1 1 0;
#X connect 47 1 75 0;
#X connect 47 1 112 0;
#X connect 51 0 96 0;
#X connect 52 0 29 0;
#X connect 52 0 12 1;
#X connect 53 0 39 0;
#X connect 53 0 55 0;
#X connect 54 0 53 4;
#X connect 55 0 56 0;
#X connect 56 0 53 4;
#X connect 57 0 53 0;
#X connect 59 0 20 0;
#X connect 60 0 59 0;
#X connect 61 0 113 0;
#X connect 62 0 63 0;
#X connect 63 0 61 0;
#X connect 64 0 105 0;
#X connect 66 0 103 15;
#X connect 66 1 67 0;
#X connect 66 1 68 0;
#X connect 66 1 70 0;
#X connect 67 0 103 15;
#X connect 68 0 69 0;
#X connect 71 0 103 4;
#X connect 73 0 83 0;
#X connect 75 0 78 0;
#X connect 75 0 79 0;
#X connect 75 1 76 0;
#X connect 76 0 77 0;
#X connect 77 0 80 0;
#X connect 78 0 77 0;
#X connect 79 0 80 0;
#X connect 81 0 85 0;
#X connect 81 0 89 0;
#X connect 81 0 92 0;
#X connect 81 1 60 1;
#X connect 81 2 60 2;
#X connect 82 0 12 1;
#X connect 83 0 84 0;
#X connect 83 0 88 0;
#X connect 83 0 90 1;
#X connect 84 0 54 0;
#X connect 84 1 56 0;
#X connect 88 0 89 1;
#X connect 89 0 60 0;
#X connect 90 0 93 0;
#X connect 92 0 90 0;
#X connect 93 0 95 0;
#X connect 95 0 60 0;
#X connect 96 0 52 1;
#X connect 97 0 102 0;
#X connect 98 0 97 0;
#X connect 98 1 97 1;
#X connect 98 2 97 2;
#X connect 98 3 97 3;
#X connect 99 0 97 2;
#X connect 100 0 97 4;
#X connect 101 0 98 0;
#X connect 101 1 99 0;
#X connect 102 0 20 0;
#X connect 103 0 36 0;
#X connect 106 0 100 0;
#X connect 108 0 113 0;
#X connect 109 0 113 0;
#X connect 109 1 44 2;
#X connect 109 1 103 2;
#X connect 109 2 28 0;
#X connect 109 3 103 9;
#X connect 109 5 108 0;
#X connect 110 0 23 0;
#X connect 110 1 22 0;
#X connect 110 2 103 9;
#X connect 110 4 108 0;
#X connect 111 0 26 0;
#X connect 111 1 44 4;
#X connect 111 4 108 0;
#X connect 112 0 1 0;
#X connect 113 0 19 1;
#X connect 113 0 93 1;
#X connect 113 0 103 0;
#X connect 113 1 44 5;
#X connect 113 1 103 1;
#X connect 113 2 33 2;
#X connect 113 2 44 6;
#X connect 113 2 103 3;
#X connect 113 3 103 10;
#X connect 113 4 103 13;
#X connect 113 5 9 0;
#X connect 113 5 34 0;
#X connect 113 5 44 7;
#X connect 113 6 48 0;
#X connect 113 6 103 12;
#X connect 113 7 45 0;
#X connect 113 8 33 1;
#X connect 113 9 52 0;
#X connect 113 10 19 0;
#X connect 113 11 13 0;
#X connect 113 12 53 2;
#X connect 113 13 66 0;
#X connect 113 14 103 16;
#X connect 113 15 81 0;
#X connect 113 16 103 14;
#X connect 113 17 44 8;
#X connect 113 17 53 3;
#X connect 113 17 29 1;
#X connect 113 17 33 3;
#X connect 113 17 60 3;
#X connect 113 17 64 0;
#X connect 113 17 103 11;
#X connect 113 17 97 5;
#X connect 113 18 72 0;
#X connect 113 18 73 0;
#X connect 113 19 103 17;
#X connect 113 20 103 18;
#X connect 113 20 107 0;
#X connect 113 21 101 0;
#X connect 113 21 104 0;
#X restore 170 90 pd gemnotes_format;
#N canvas 395 22 904 511 make_note 0;
#X obj 35 309 f;
#X obj 45 36 inlet;
#X obj 41 59 t b a b;
#X obj 32 238 spigot 1;
#X obj 77 219 == 0;
#X obj 53 265 t b;
#X obj 73 287 f;
#X obj 472 339 f;
#X obj 402 183 spigot;
#X text 553 346 \$14 - thisobj \, \$15 - prevobj \, \$16 - rootobj
;
#X obj 363 238 f;
#X obj 445 339 f;
#X obj 402 202 t b b b;
#X obj 227 490 outlet;
#X msg 491 54 xobj connectfirst connectprev thisobj;
#X obj 363 257 + 275;
#X obj 90 59 s \$0-get_x_obj;
#X obj 61 309 r \$0-x_obj;
#X obj 389 238 r \$0-x_obj;
#X obj 363 276 s \$0-set_x_obj;
#X obj 35 347 s \$0-set_x_obj;
#X text 40 107 x r p d bt stem bm tie acc shfl grp obroute bmconn gc
rootob;
#X obj 417 42 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 534 144 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 625 144 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 628 168 s bangscore;
#X obj 536 167 s resetscore;
#X obj 500 339 f;
#X floatatom 332 31 5 0 0 0 - - -;
#X floatatom 465 176 5 0 0 0 - - -;
#X floatatom 607 364 5 0 0 0 - - -;
#X obj 82 423 print note_1;
#X obj 407 423 print note_234;
#X obj 82 404 spigot;
#X obj 407 404 spigot;
#X obj 456 384 r \$0-debug;
#X obj 115 385 r \$0-debug;
#X obj 286 43 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 198 52 sel 1;
#X obj 198 77 bng 15 550 50 0 empty empty empty 17 7 0 10 -262144 -258113
-1;
#X obj 198 30 > 0;
#X obj 317 152 makefilename group_%d;
#X obj 35 328 + 315;
#X obj 563 261 f;
#X obj 561 194 change;
#X obj 592 261 f;
#N canvas 0 22 450 300 \$0-reclock 0;
#X obj 92 69 inlet;
#N canvas 0 22 450 300 \$0-reclocker 0;
#X restore 96 128 pd \$0-reclocker;
#X restore 735 152 pd \$0-reclock;
#X obj 745 256 s pd-\$0-reclocker;
#X msg 742 221 clear \, obj 10 10 inlet;
#X obj 561 215 t f b b b;
#X obj 643 245 s pd-\$0-reclock;
#X msg 643 221 connect 0 0 1 0;
#X obj 736 102 r \$0-reclock;
#X msg 735 126 reclock;
#X obj 683 275 makefilename group_%d;
#X msg 683 294 obj 10 80 send \$1 \, connect 0 0 1 0;
#X obj 543 297 makefilename group_%d;
#X msg 556 100 0;
#X msg 591 99 1;
#X obj 645 105 inlet;
#X msg 581 134 set -1;
#X msg 543 316 obj 110 80 send \$1 \, connect 0 0 2 0;
#X msg 518 98 2;
#X msg 671 142 clear;
#X msg 36 441 obj \$1 150 noteobject \$2 \$3 \$4 \$5 \$6 \$7 \$8 \$9
\$10 \$11 \$12 \$13 \$15 \$16 \$17 \$18 \$19 \, connect 0 0 \$14 0
\, connect 1 0 \$14 1;
#X msg 401 441 obj \$1 150 noteobject \$2 \$3 \$4 \$5 \$6 \$7 \$8 \$9
\$10 \$11 \$12 \$13 \$17 \$18 \$19 \$20 \$21 \, connect 0 0 \$14 0
\, connect 1 0 \$14 1 \, connect \$14 0 \$15 3 \, connect \$16 1 \$14
2;
#X obj 307 366 pack f f f f f f f f f f f f f f f f f f f s f;
#X obj 47 367 pack f f f f f f f f f f f f f f f f f s f;
#X obj 49 124 unpack f f f f f f f f f f f f f f f f f f f;
#X connect 0 0 42 0;
#X connect 0 0 67 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 2 0 8 0;
#X connect 2 1 68 0;
#X connect 2 2 16 0;
#X connect 3 0 5 0;
#X connect 3 0 0 0;
#X connect 4 0 3 1;
#X connect 5 0 6 0;
#X connect 6 0 7 1;
#X connect 6 0 27 1;
#X connect 7 0 30 0;
#X connect 7 0 66 14;
#X connect 8 0 12 0;
#X connect 10 0 15 0;
#X connect 10 0 66 0;
#X connect 11 0 7 1;
#X connect 11 0 66 13;
#X connect 12 0 10 0;
#X connect 12 1 11 0;
#X connect 12 2 7 0;
#X connect 12 2 27 0;
#X connect 15 0 19 0;
#X connect 17 0 0 1;
#X connect 18 0 10 1;
#X connect 23 0 26 0;
#X connect 24 0 25 0;
#X connect 27 0 66 15;
#X connect 33 0 31 0;
#X connect 34 0 32 0;
#X connect 35 0 34 1;
#X connect 36 0 33 1;
#X connect 38 0 39 0;
#X connect 40 0 38 0;
#X connect 41 0 66 19;
#X connect 41 0 67 17;
#X connect 42 0 20 0;
#X connect 43 0 45 1;
#X connect 43 0 56 0;
#X connect 44 0 49 0;
#X connect 45 0 54 0;
#X connect 48 0 47 0;
#X connect 49 0 43 0;
#X connect 49 1 45 0;
#X connect 49 2 51 0;
#X connect 49 3 48 0;
#X connect 51 0 50 0;
#X connect 52 0 53 0;
#X connect 53 0 46 0;
#X connect 54 0 55 0;
#X connect 55 0 47 0;
#X connect 56 0 61 0;
#X connect 57 0 44 0;
#X connect 58 0 44 0;
#X connect 59 0 60 0;
#X connect 59 0 63 0;
#X connect 60 0 44 0;
#X connect 61 0 47 0;
#X connect 62 0 44 0;
#X connect 63 0 47 0;
#X connect 64 0 13 0;
#X connect 65 0 13 0;
#X connect 66 0 65 0;
#X connect 66 0 34 0;
#X connect 67 0 64 0;
#X connect 67 0 33 0;
#X connect 68 0 66 1;
#X connect 68 0 67 1;
#X connect 68 1 66 2;
#X connect 68 1 67 2;
#X connect 68 2 66 3;
#X connect 68 2 67 3;
#X connect 68 3 66 4;
#X connect 68 3 67 4;
#X connect 68 4 66 5;
#X connect 68 4 67 5;
#X connect 68 5 66 6;
#X connect 68 5 67 6;
#X connect 68 6 66 7;
#X connect 68 6 67 7;
#X connect 68 7 40 0;
#X connect 68 7 66 8;
#X connect 68 7 67 8;
#X connect 68 8 66 9;
#X connect 68 8 67 9;
#X connect 68 9 66 10;
#X connect 68 9 67 10;
#X connect 68 10 66 11;
#X connect 68 10 67 11;
#X connect 68 11 11 1;
#X connect 68 11 6 1;
#X connect 68 11 29 0;
#X connect 68 11 66 12;
#X connect 68 11 67 12;
#X connect 68 11 67 13;
#X connect 68 12 4 0;
#X connect 68 12 8 1;
#X connect 68 12 22 0;
#X connect 68 13 66 16;
#X connect 68 13 67 14;
#X connect 68 14 28 0;
#X connect 68 15 66 17;
#X connect 68 15 67 15;
#X connect 68 16 66 18;
#X connect 68 16 67 16;
#X connect 68 17 41 0;
#X connect 68 17 44 0;
#X connect 68 18 67 18;
#X connect 68 18 66 20;
#X restore 108 273 pd make_note;
#N canvas 812 45 450 378 make_tsig 0;
#X obj 136 16 inlet;
#X obj 120 124 f;
#X obj 60 324 outlet;
#X obj 188 202 prepend tsig;
#X obj 97 151 + 90;
#X obj 188 232 prepend;
#X obj 188 264 s \$0-collate;
#X obj 32 171 s \$0-set_x_obj;
#X obj 176 66 s \$0-get_x_obj;
#X obj 136 35 t b a b;
#X obj 178 92 r \$0-x_obj;
#X msg 60 291 obj \$1 100 tsig \$2 \$3 \$4 \$6 \, connect 0 0 \$5 0
\, connect 1 0 \$5 1;
#X obj 163 124 unpack f f f f f;
#X obj 140 181 pack f f f f f f;
#X connect 0 0 9 0;
#X connect 1 0 4 0;
#X connect 1 0 13 0;
#X connect 3 0 5 0;
#X connect 4 0 7 0;
#X connect 5 0 6 0;
#X connect 9 0 1 0;
#X connect 9 1 12 0;
#X connect 9 2 8 0;
#X connect 10 0 1 1;
#X connect 11 0 2 0;
#X connect 12 0 13 1;
#X connect 12 1 13 2;
#X connect 12 2 13 3;
#X connect 12 3 5 1;
#X connect 12 3 13 4;
#X connect 12 4 13 5;
#X connect 13 0 11 0;
#X connect 13 0 3 0;
#X restore 224 280 pd make_tsig;
#X text 77 24 score commands;
#N canvas 0 22 450 300 make_barline 0;
#X obj 131 27 inlet;
#X obj 115 122 f;
#X obj 92 149 + 90;
#X obj 183 220 prepend;
#X obj 183 240 s \$0-collate;
#X obj 27 169 s \$0-set_x_obj;
#X obj 165 101 r \$0-x_obj;
#X obj 183 200 prepend barline;
#X obj 158 122 unpack f f;
#X obj 130 175 pack f f f;
#X obj 68 279 outlet;
#X obj 131 50 t b a b;
#X obj 171 82 s \$0-get_x_obj;
#X msg 68 260 obj \$1 100 barline \$2 \, connect 0 0 \$3 0 \, connect
1 0 \$3 1;
#X obj 150 279 outlet;
#X obj 133 219 packel 2;
#X connect 0 0 11 0;
#X connect 1 0 2 0;
#X connect 1 0 9 0;
#X connect 2 0 5 0;
#X connect 3 0 4 0;
#X connect 6 0 1 1;
#X connect 7 0 3 0;
#X connect 8 0 9 1;
#X connect 8 1 9 2;
#X connect 8 1 3 1;
#X connect 9 0 7 0;
#X connect 9 0 13 0;
#X connect 9 0 15 0;
#X connect 11 0 1 0;
#X connect 11 1 8 0;
#X connect 11 2 12 0;
#X connect 13 0 10 0;
#X connect 15 0 14 0;
#X restore 198 260 pd make_barline;
#N canvas 0 22 450 300 make_rest 0;
#X obj 111 50 t b a b;
#X obj 150 70 s \$0-get_x_obj;
#X obj 111 31 inlet;
#X obj 126 90 r \$0-x_obj;
#X obj 44 128 + 73;
#X obj 111 109 f;
#X obj 19 169 s \$0-set_x_obj;
#X obj 111 169 pack f f f f f;
#X obj 131 128 unpack f f f f;
#X obj 62 265 outlet;
#X obj 330 216 print rest;
#X obj 330 197 spigot;
#X obj 363 178 r \$0-debug;
#X msg 62 234 obj \$1 100 rest \$2 \$3 \$4 \$5 \, connect 0 0 \$5 0
\, connect 1 0 \$5 1;
#X connect 0 0 5 0;
#X connect 0 1 8 0;
#X connect 0 2 1 0;
#X connect 2 0 0 0;
#X connect 3 0 5 1;
#X connect 4 0 6 0;
#X connect 5 0 4 0;
#X connect 5 0 7 0;
#X connect 7 0 13 0;
#X connect 7 0 11 0;
#X connect 8 0 7 1;
#X connect 8 1 7 2;
#X connect 8 2 7 3;
#X connect 8 3 7 4;
#X connect 11 0 10 0;
#X connect 12 0 11 1;
#X connect 13 0 9 0;
#X restore 166 237 pd make_rest;
#X obj 90 94 s \$0-debug;
#N canvas 0 22 464 422 make_chord 0;
#X msg 48 382 slavenote xoff rhythm pitch dur bt tie acc shfl proot
route;
#X text 113 367 1 2 3 4 5 6 7 8 9 10;
#X obj 89 67 inlet;
#X msg 116 119 xoff p proot bt shfl rhy dur tie n_obj;
#X obj 35 111 cup;
#X obj 35 130 * 30;
#X obj 35 149 + 180;
#X obj 89 86 t b a b;
#X obj 23 191 f;
#X obj 140 86 s \$0-get_x_obj;
#X obj 38 171 r \$0-x_obj;
#X msg 35 92 0;
#X obj 35 73 t b;
#X obj 35 54 inlet;
#X obj 67 293 outlet;
#X obj 94 142 unpack f f f f f f f f f f;
#X obj 67 243 pack f f f f f f f f 1 f f f s;
#X obj 246 177 makefilename g%d;
#X msg 67 262 obj \$1 \$2 slavenote \$3 \$4 \$5 \$6 \$7 \$8 \$9 \$10
\$11 \$12 \$13 \, connect 0 0 \$12 0 \, connect 1 0 \$12 1;
#X connect 2 0 7 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 16 1;
#X connect 7 0 8 0;
#X connect 7 1 15 0;
#X connect 7 2 9 0;
#X connect 7 2 4 0;
#X connect 8 0 16 0;
#X connect 10 0 8 1;
#X connect 11 0 4 0;
#X connect 12 0 11 0;
#X connect 13 0 12 0;
#X connect 15 0 16 2;
#X connect 15 1 16 4;
#X connect 15 2 16 10;
#X connect 15 3 16 6;
#X connect 15 4 16 9;
#X connect 15 5 16 3;
#X connect 15 6 16 5;
#X connect 15 7 16 7;
#X connect 15 8 16 11;
#X connect 15 9 17 0;
#X connect 16 0 18 0;
#X connect 17 0 16 12;
#X connect 18 0 14 0;
#X restore 150 216 pd make_chord;
#N canvas 0 22 450 300 dynobj_positions 0;
#X text 32 26 This object keeps track of the number of abstractions
created in [pd \$0-voice].;
#X obj 246 128 f;
#X obj 246 153 s \$0-x_obj;
#X obj 246 65 r \$0-get_x_obj;
#X obj 278 92 r \$0-set_x_obj;
#X msg 147 74 10;
#X obj 38 69 inlet;
#X connect 1 0 2 0;
#X connect 3 0 1 0;
#X connect 4 0 1 1;
#X connect 5 0 1 1;
#X connect 6 0 5 0;
#X restore 382 63 pd dynobj_positions;
#N canvas 0 22 462 368 make_tempo 0;
#X obj 136 16 inlet;
#X obj 120 124 f;
#X obj 60 324 outlet;
#X obj 97 151 + 90;
#X obj 188 232 prepend;
#X obj 188 264 s \$0-collate;
#X obj 32 171 s \$0-set_x_obj;
#X obj 176 66 s \$0-get_x_obj;
#X obj 136 35 t b a b;
#X obj 178 92 r \$0-x_obj;
#X obj 163 124 unpack f f f f;
#X obj 140 181 pack f f f f f;
#X obj 188 202 prepend tempo;
#X msg 60 291 obj \$1 100 tempo \$2 \$3 \$4 \$5 \, connect 0 0 \$5
0 \, connect 1 0 \$5 1;
#X connect 0 0 8 0;
#X connect 1 0 3 0;
#X connect 1 0 11 0;
#X connect 3 0 6 0;
#X connect 4 0 5 0;
#X connect 8 0 1 0;
#X connect 8 1 10 0;
#X connect 8 2 7 0;
#X connect 9 0 1 1;
#X connect 10 0 11 1;
#X connect 10 1 11 2;
#X connect 10 2 11 3;
#X connect 10 3 4 1;
#X connect 10 3 11 4;
#X connect 11 0 13 0;
#X connect 11 0 12 0;
#X connect 12 0 4 0;
#X connect 13 0 2 0;
#X restore 258 223 pd make_tempo;
#X obj 304 308 r \$0-debug;
#X obj 269 331 spigot;
#X obj 215 304 r pd-\$0-voice;
#X obj 268 350 print;
#X obj 147 338 r \$0-sendback;
#X obj 379 107 s \$0-bt;
#N canvas 206 149 450 300 debug 0;
#X obj 63 38 inlet;
#X obj 61 118 gemhead;
#X obj 155 57 inlet;
#X obj 154 83 unpack f f f;
#X obj 18 61 inlet;
#X msg 64 96 0;
#X obj 70 66 loadbang;
#X floatatom 192 120 5 0 0 0 - - -;
#X floatatom 21 116 5 0 0 0 - - -;
#X obj 71 183 translateXYZ 0 0 -1.2;
#X floatatom 15 85 5 0 0 0 - - -;
#X obj 71 203 rectangle 0.05 0.1;
#X obj 95 153 - 10;
#X obj 135 126 - 1.63;
#X connect 0 0 8 0;
#X connect 0 0 12 0;
#X connect 1 0 9 0;
#X connect 2 0 3 0;
#X connect 3 1 7 0;
#X connect 3 1 13 0;
#X connect 4 0 1 0;
#X connect 4 0 10 0;
#X connect 5 0 1 0;
#X connect 6 0 5 0;
#X connect 9 0 11 0;
#X connect 12 0 9 1;
#X connect 13 0 9 2;
#X restore 255 118 pd debug;
#X obj 324 351 outlet;
#X obj 429 106 s \$0-stem;
#X obj 376 175 outlet;
#X obj 77 60 route vis debug info reclock;
#X obj 312 87 route reset bt stem;
#X obj 118 154 s \$0-reclock;
#X obj 168 113 t b a;
#N canvas 0 22 546 426 make_dynamics 0;
#X obj 146 26 inlet;
#X obj 130 134 f;
#X obj 70 335 outlet;
#X obj 107 161 + 90;
#X obj 198 274 s \$0-collate;
#X obj 42 181 s \$0-set_x_obj;
#X obj 186 76 s \$0-get_x_obj;
#X obj 146 45 t b a b;
#X obj 188 102 r \$0-x_obj;
#X obj 172 150 unpack f f f f f f;
#X obj 150 191 pack f f f f f f f;
#X msg 70 301 obj \$1 100 dynamic \$2 \$3 \$4 \$5 \$6 \$7 \, connect
0 0 \$7 0 \, connect 1 0 \$7 1;
#X msg 199 246 \$7 dynamic \$1 \$2 \$3 \$4 \$5 \$6;
#X connect 0 0 7 0;
#X connect 1 0 3 0;
#X connect 1 0 10 0;
#X connect 3 0 5 0;
#X connect 7 0 1 0;
#X connect 7 1 9 0;
#X connect 7 2 6 0;
#X connect 8 0 1 1;
#X connect 9 0 10 1;
#X connect 9 1 10 2;
#X connect 9 2 10 3;
#X connect 9 3 10 4;
#X connect 9 4 10 5;
#X connect 9 5 10 6;
#X connect 10 0 11 0;
#X connect 10 0 12 0;
#X connect 11 0 2 0;
#X connect 12 0 4 0;
#X restore 313 258 pd make_dynamics;
#X obj 118 194 route note rest barline tsig chord tempo dyn;
#X connect 3 0 7 0;
#X connect 4 0 0 0;
#X connect 4 0 24 2;
#X connect 6 0 28 0;
#X connect 8 0 31 0;
#X connect 8 0 27 0;
#X connect 8 1 24 1;
#X connect 9 0 7 0;
#X connect 10 0 7 0;
#X connect 12 0 7 0;
#X connect 12 1 25 0;
#X connect 13 0 7 0;
#X connect 15 0 7 0;
#X connect 17 0 7 0;
#X connect 18 0 19 1;
#X connect 19 0 21 0;
#X connect 20 0 19 0;
#X connect 22 0 0 1;
#X connect 28 0 3 0;
#X connect 28 1 14 0;
#X connect 28 1 24 0;
#X connect 28 3 30 0;
#X connect 28 4 8 0;
#X connect 28 4 29 0;
#X connect 29 0 1 0;
#X connect 29 0 16 0;
#X connect 29 0 9 1;
#X connect 29 1 23 0;
#X connect 29 2 26 0;
#X connect 29 3 0 1;
#X connect 31 0 30 0;
#X connect 31 1 33 0;
#X connect 32 0 7 0;
#X connect 33 0 9 0;
#X connect 33 0 15 0;
#X connect 33 1 13 0;
#X connect 33 2 12 0;
#X connect 33 3 10 0;
#X connect 33 4 15 1;
#X connect 33 5 17 0;
#X connect 33 6 32 0;