#N struct t_clef float x float y float w;
#N struct t_fred float x float y float ft float t float color float
dx float dy float tie array vec t_fredpoint;
#N struct t_fredpoint float time float a float f float cf float bw
float s float n float ff float fd float p float nf float nc;
#N struct t_tmarker float x float y float n float h;
#N struct t_nclef float x float y float w;
#N struct t_nnote float x float y symbol phoneme;
#N struct t_nnoise float x float y float w;
#N struct t_ngliss float x float y float w float z;
#N canvas 316 72 501 401 10;
#X floatatom 122 244 0 0 0 0 - vu-db -;
#N canvas 376 113 451 405 DSP 0;
#N canvas 0 0 544 252 vu 0;
#X obj 301 58 inlet;
#X obj 141 60 inlet~;
#X obj 140 118 env~ 16384;
#X obj 139 156 i;
#X obj 301 81 switch~;
#X obj 140 184 outlet;
#X connect 0 0 4 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 5 0;
#X restore 142 320 pd vu;
#X obj 45 270 +~;
#X obj 50 382 outlet~;
#X obj 106 382 outlet~;
#N canvas 471 17 771 891 make-table 0;
#X msg 69 37 bang;
#X obj 69 62 t b b;
#X obj 135 121 f;
#X obj 167 121 + 1;
#X msg 149 95 0;
#X obj 69 87 until;
#X obj 137 150 t f f;
#X obj 65 260 tabwrite bell-curve;
#X obj 44 230 expr exp(-$f1*$f1);
#X obj 54 143 sel 199;
#X obj 43 205 expr ($f1-100)/25;
#N canvas 0 0 450 300 graph4 0;
#X array bell-curve 200 float 1;
#A 0 1.12535e-07 1.54727e-07 2.12059e-07 2.89706e-07 3.94519e-07 5.35535e-07
7.24633e-07 9.77371e-07 1.31404e-06 1.76105e-06 2.35258e-06 3.13275e-06
4.15832e-06 5.50199e-06 7.25659e-06 9.54016e-06 1.25023e-05 1.63317e-05
2.1266e-05 2.76026e-05 3.57128e-05 4.60584e-05 5.92113e-05 7.58768e-05
9.69224e-05 0.00012341 0.000156634 0.000198167 0.000249912 0.000314163
0.000393669 0.000491721 0.000612231 0.000759842 0.000940028 0.00115923
0.00142498 0.00174605 0.00213263 0.00259648 0.00315111 0.00381201 0.00459678
0.0055254 0.0066204 0.00790705 0.0094136 0.0111714 0.013215 0.0155826
0.0183156 0.0214592 0.0250621 0.0291763 0.0338573 0.0391639 0.0451575
0.0519019 0.0594631 0.0679081 0.0773047 0.0877205 0.0992216 0.111872
0.125732 0.140858 0.1573 0.1751 0.194291 0.214896 0.236928 0.260383
0.285247 0.311486 0.339053 0.367879 0.397882 0.428956 0.46098 0.493812
0.527292 0.561244 0.595473 0.62977 0.663916 0.697676 0.730811 0.763074
0.794216 0.823987 0.852144 0.878447 0.902668 0.924595 0.944027 0.960789
0.974725 0.985703 0.99362 0.998401 1 0.998401 0.99362 0.985703 0.974725
0.960789 0.944027 0.924595 0.902668 0.878447 0.852144 0.823987 0.794216
0.763074 0.730811 0.697676 0.663916 0.62977 0.595473 0.561244 0.527292
0.493812 0.46098 0.428956 0.397882 0.367879 0.339053 0.311486 0.285247
0.260383 0.236928 0.214896 0.194291 0.1751 0.1573 0.140858 0.125732
0.111872 0.0992216 0.0877205 0.0773047 0.0679081 0.0594631 0.0519019
0.0451575 0.0391639 0.0338573 0.0291763 0.0250621 0.0214592 0.0183156
0.0155826 0.013215 0.0111714 0.0094136 0.00790705 0.0066204 0.0055254
0.00459678 0.00381201 0.00315111 0.00259648 0.00213263 0.00174605 0.00142498
0.00115923 0.000940028 0.000759842 0.000612231 0.000491721 0.000393669
0.000314163 0.000249912 0.000198167 0.000156634 0.00012341 9.69224e-05
7.58768e-05 5.92113e-05 4.60584e-05 3.57128e-05 2.76026e-05 2.1266e-05
1.63317e-05 1.25023e-05 9.54016e-06 7.25659e-06 5.50199e-06 4.15832e-06
3.13275e-06 2.35258e-06 1.76105e-06 1.31404e-06 9.77371e-07 7.24633e-07
5.35535e-07 3.94519e-07 2.89706e-07 2.12059e-07 1.54727e-07;
#X coords 0 1 199 0 200 140 1;
#X restore 298 29 graph;
#X msg 295 234 \; noise41 resize 4099 \, read ../shaker/four-table/hsine41.txt
\; noise42 resize 4099 \, read ../shaker/four-table/hsine42.txt \;
noise43 resize 4099 \, read ../shaker/four-table/hsine43.txt \; noise44
resize 4099 \, read ../shaker/four-table/hsine44.txt;
#X obj 43 377 table noise41;
#X obj 43 395 table noise42;
#X obj 43 413 table noise43;
#X obj 43 432 table noise44;
#X obj 296 314 loadbang;
#N canvas 607 411 810 813 moretables 0;
#N canvas 0 0 450 300 graph1 0;
#X array fmtab2 131 float 1;
#A 0 0.00691958 0.00691958 0.00691958 0.00691958 0.00691958 0.00691958
-0.607361 0.00691958 0.00691958 0.00691958 0.00691958 0.00691958 0.00691958
0.00691958 0.00691958 0.00691958 0.00691958 0.00691958 0.00691958 0.00691958
-0.607361 0.00691958 0.00691958 0.00691958 0.00691958 0.00691958 0.00691958
0.00691958 0.00691958 0.00691958 0.00691958 0.00691958 -0.00736603
-0.00736603 -0.00736603 0.435488 0.00691958 0.00691958 0.00691958 0.00691958
0.00691958 0.00691958 0.00691958 0.00691958 0.00691958 0.00691958 0.00691958
-0.593076 0.00691958 0.00691958 0.00691958 0.00691958 0.00691958 0.00691958
0.00691958 0.00691958 0.00691958 0.00691958 0.00691958 0.00691958 0.00691958
0.00691958 0.00691958 0.00691958 0.00691958 0.00691958 0.478344 0.00691958
0.00691958 0.00691958 0.00691958 0.00691958 0.00691958 0.00691958 0.00691958
0.00691958 0.00691958 0.00691958 -0.664504 0.00691958 0.00691958 0.00691958
0.00691958 0.00691958 0.00691958 0.00691958 0.00691958 0.00691958 0.00691958
0.00691958 0.00691958 0.00691958 0.00691958 0.00691958 0.00691958 0.421202
0.00691958 0.00691958 0.00691958 0.00691958 0.00691958 0.00691958 0.00691958
0.00691958 0.00691958 0.00691958 0.00691958 0.00691958 0.00691958 0.00691958
0.00691958 0.00691958 0.00691958 0.00691958 0.00691958 0.00691958 0.00691958
0.00691958 0.00691958 0.00691958 0.00691958 0.349774 0.00691958 0.00691958
0.00691958 0.00691958 0.00691958 0.00691958 0.00691958 0.00691958 0.00691958
;
#X coords 0 1 130 -1 200 140 1;
#X restore 65 310 graph;
#N canvas 0 0 450 300 graph1 0;
#X array fmtab0 131 float 1;
#A 0 0.998795 1 0.998795 0.995185 0.989177 0.980785 0.970031 0.95694
0.941544 0.92388 0.903989 0.881921 0.857729 0.83147 0.803208 0.773011
0.740952 0.707107 0.671559 0.634394 0.5957 0.555571 0.514103 0.471398
0.427556 0.382684 0.336891 0.290286 0.242981 0.195091 0.146732 0.0980184
0.049069 1.32679e-06 -0.0490663 -0.0980157 -0.146729 -0.195089 -0.242979
-0.290283 -0.336888 -0.382682 -0.427554 -0.471395 -0.514101 -0.555569
-0.595698 -0.634392 -0.671557 -0.707105 -0.74095 -0.773009 -0.803206
-0.831468 -0.857727 -0.88192 -0.903988 -0.923879 -0.941543 -0.95694
-0.970031 -0.980785 -0.989176 -0.995184 -0.998795 -1 -0.998796 -0.995185
-0.989177 -0.980786 -0.970032 -0.956941 -0.941545 -0.923881 -0.903991
-0.881923 -0.85773 -0.831471 -0.803209 -0.773013 -0.740953 -0.707109
-0.671561 -0.634396 -0.595702 -0.555573 -0.514106 -0.4714 -0.427558
-0.382687 -0.336893 -0.290288 -0.242984 -0.195094 -0.146734 -0.098021
-0.0490716 -3.98038e-06 0.0490637 0.0980131 0.146726 0.195086 0.242976
0.290281 0.336886 0.382679 0.427551 0.471393 0.514099 0.555566 0.595696
0.63439 0.671556 0.707103 0.740948 0.773007 0.803205 0.831467 0.857726
0.881919 0.903987 0.923878 0.941542 0.956939 0.97003 0.980784 0.989176
0.995184 0.998795 1 0.998796;
#X coords 0 1 130 -1 200 140 1;
#X restore 67 19 graph;
#X text 290 34 table 0;
#X text 282 197 table 1;
#X text 285 352 table 2;
#N canvas 0 0 450 300 graph5 0;
#X array fmtab1 131 float 1;
#A 0 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141
0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141
0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141
0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141
0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141
0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141
0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141
0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141
0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141
0.0703141 -0.929709 -0.929709 -0.929709 -0.929709 -0.929709 -0.929709
-0.929709 -0.929709 -0.929709 0.0703141 0.0703141 0.0703141 0.0703141
0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141
0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141
0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141
0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141
0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141
0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141
0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141
0.0703141 0.0703141 0.0703141 0.0703141 0.0703141;
#X coords 0 1 130 -1 200 140 1;
#X restore 64 168 graph;
#X restore 41 486 pd moretables;
#X obj 415 540 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 532 614 1;
#X obj 504 642 f;
#X obj 540 641 + 1;
#X obj 484 614 until;
#X obj 471 665 moses 129;
#X obj 543 666 t b;
#X obj 573 629 0;
#X obj 415 565 t b b b b b;
#X obj 645 618 1;
#X obj 617 646 f;
#X obj 653 645 + 1;
#X obj 597 618 until;
#X obj 584 669 moses 129;
#X obj 656 670 t b;
#X obj 584 728 +;
#X obj 619 729 f;
#X floatatom 610 758 7 0 0 0 - - -;
#X obj 501 745 / 128;
#X obj 470 745 -;
#X obj 471 687 t f f;
#X msg 327 615 1;
#X msg 327 662 \$1 129;
#X msg 202 616 2;
#X msg 202 663 \$1 130;
#X msg 78 616 128;
#X msg 77 663 \$1 0;
#X msg 288 456 \; noise41 resize 4099 \, read four-table/hanning41.txt
\; noise42 resize 4099 \, read four-table/hanning42.txt \; noise43
resize 4099 \, read four-table/hanning43.txt \; noise44 resize 4099
\, read four-table/hanning44.txt;
#X obj 38 458 table noise-starts;
#X msg 295 340 \; noise41 resize 4099 \, read four-table/hat41.txt
\; noise42 resize 4099 \, read four-table/hat42.txt \; noise43 resize
4099 \, read four-table/hat43.txt \; noise44 resize 4099 \, read four-table/hat44.txt
\; noise-starts resize 10 \, read four-table/hat4-starts.txt;
#X msg 38 516 \; fmtab0 cosinesum 128 0 1;
#X obj 470 766 tabwrite fmtab100;
#X obj 470 711 tabread fmtab100;
#X obj 584 701 tabread fmtab100;
#X obj 77 686 tabwrite fmtab100;
#X obj 202 686 tabwrite fmtab100;
#X obj 327 685 tabwrite fmtab100;
#N canvas 0 0 450 300 graph5 0;
#X array fmtab100 131 float 1;
#A 0 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141
0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141
0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141
0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141
0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141
0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141
0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141
0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141
0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141
0.0703141 -0.929709 -0.929709 -0.929709 -0.929709 -0.929709 -0.929709
-0.929709 -0.929709 -0.929709 0.0703141 0.0703141 0.0703141 0.0703141
0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141
0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141
0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141
0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141
0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141
0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141
0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141 0.0703141
0.0703141 0.0703141 0.0703141 0.0703141 0.0703141;
#X coords 0 1 130 -1 200 140 1;
#X restore 41 726 graph;
#X msg 319 820 \; fmtab100 const 0;
#X obj 77 638 tabread fmtab100;
#X obj 202 638 tabread fmtab100;
#X obj 327 637 tabread fmtab100;
#X connect 0 0 1 0;
#X connect 1 0 5 0;
#X connect 1 1 4 0;
#X connect 2 0 3 0;
#X connect 2 0 6 0;
#X connect 2 0 9 0;
#X connect 3 0 2 1;
#X connect 4 0 2 1;
#X connect 5 0 2 0;
#X connect 6 0 10 0;
#X connect 6 1 7 1;
#X connect 8 0 7 0;
#X connect 9 0 5 1;
#X connect 10 0 8 0;
#X connect 17 0 48 0;
#X connect 19 0 27 0;
#X connect 20 0 21 1;
#X connect 21 0 22 0;
#X connect 21 0 24 0;
#X connect 22 0 21 1;
#X connect 23 0 21 0;
#X connect 24 0 39 0;
#X connect 24 1 25 0;
#X connect 25 0 23 1;
#X connect 26 0 34 1;
#X connect 27 0 40 0;
#X connect 27 0 42 0;
#X connect 27 0 44 0;
#X connect 27 1 23 0;
#X connect 27 2 20 0;
#X connect 27 3 31 0;
#X connect 27 4 26 0;
#X connect 27 4 28 0;
#X connect 28 0 29 1;
#X connect 29 0 30 0;
#X connect 29 0 32 0;
#X connect 30 0 29 1;
#X connect 31 0 29 0;
#X connect 32 0 52 0;
#X connect 32 1 33 0;
#X connect 33 0 31 1;
#X connect 34 0 35 0;
#X connect 34 0 36 0;
#X connect 34 0 37 0;
#X connect 35 0 34 1;
#X connect 37 0 38 1;
#X connect 38 0 50 0;
#X connect 39 0 51 0;
#X connect 39 1 50 1;
#X connect 40 0 60 0;
#X connect 41 0 55 0;
#X connect 42 0 59 0;
#X connect 43 0 54 0;
#X connect 44 0 58 0;
#X connect 45 0 53 0;
#X connect 51 0 38 0;
#X connect 52 0 34 0;
#X connect 58 0 45 0;
#X connect 59 0 43 0;
#X connect 60 0 41 0;
#X restore 193 53 pd make-table;
#X obj 172 297 r vu-on;
#X obj 142 343 s vu-db;
#X floatatom 89 228 3 0 100 0 - - -;
#X obj 71 245 rev2~ 70 85;
#X obj 129 273 *~ 10;
#N canvas 18 367 738 404 read-tables 0;
#X obj 11 40 table tab-pitch0;
#X obj 260 20 loadbang;
#X obj 414 300 r _sf;
#X obj 414 325 soundfiler;
#X obj 108 327 table bash-window-sizes 100;
#X obj 11 60 table tab-pitch1;
#X obj 10 80 table tab-pitch2;
#X obj 11 100 table tab-pitch3;
#X obj 11 120 table tab-pitch4;
#X text 131 40 sinusoid;
#X text 132 61 current analysis;
#X text 133 80 Zack;
#X text 131 101 Trevor;
#X text 132 121 Greek;
#X obj 11 148 table tab-pitch5;
#X text 132 149 speech song;
#X msg 260 48 \; bash-window-sizes const 512 \; _sf read -resize tab-pitch0.wav
tab-pitch0 \; tab-pitch1 resize 441000 \; _sf read tab-pitch1.wav tab-pitch1
\; _sf read -resize tab-pitch2.wav tab-pitch2 \; bash-window-sizes
2 1024 \; _sf read -resize tab-pitch3.wav tab-pitch3 \; bash-window-sizes
3 256 \; _sf read -resize tab-pitch4.wav tab-pitch4 \; _sf read -resize
tab-pitch5.wav tab-pitch5 \;;
#X connect 1 0 16 0;
#X connect 2 0 3 0;
#X restore 192 78 pd read-tables;
#X obj 241 214 tabwrite~ testtab;
#X obj 242 191 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 243 264 soundfiler;
#X msg 243 240 write testtab.wav testtab;
#X obj 242 164 table testtab 441000;
#X obj 46 19 fredvoice~ p8;
#X obj 89 208 r rgain;
#X obj 295 326 loadbang;
#X msg 294 348 \; rgain 70;
#X obj 46 170 fredvoice~ p1;
#X obj 46 148 fredvoice~ p2;
#X obj 46 127 fredvoice~ p3;
#X obj 46 105 fredvoice~ p4;
#X obj 46 84 fredvoice~ p5;
#X obj 46 62 fredvoice~ p6;
#X obj 46 41 fredvoice~ p7;
#X connect 0 0 6 0;
#X connect 1 0 9 0;
#X connect 5 0 0 1;
#X connect 7 0 8 1;
#X connect 8 0 1 1;
#X connect 9 0 0 0;
#X connect 9 0 2 0;
#X connect 9 0 3 0;
#X connect 12 0 11 0;
#X connect 14 0 13 0;
#X connect 16 0 26 0;
#X connect 17 0 7 0;
#X connect 18 0 19 0;
#X connect 20 0 1 0;
#X connect 20 0 8 0;
#X connect 20 0 11 0;
#X connect 21 0 20 0;
#X connect 22 0 21 0;
#X connect 23 0 22 0;
#X connect 24 0 23 0;
#X connect 25 0 24 0;
#X connect 26 0 25 0;
#X restore 16 195 pd DSP;
#X obj 16 228 output~;
#X msg 16 288 \; reset bang;
#X obj 16 45 panel p1;
#X obj 98 244 tgl 15 0 vu-on empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#N canvas 189 198 777 556 make-samples 0;
#N canvas 0 0 450 300 graph1 0;
#X array array1 2048 float 0;
#X coords 0 1 2047 -1 400 140 1;
#X restore 361 398 graph;
#X obj 567 295 adc~;
#X text 535 279 live sample;
#N canvas 295 286 627 650 insample 0;
#N canvas 0 0 450 300 graph1 0;
#X array sample 327152 float 0;
#X coords 0 1 327151 -1 400 150 1;
#X restore 199 18 graph;
#X obj 19 70 r read-sample;
#X obj 19 95 unpack s f;
#X obj 62 117 s insamprate;
#X obj 19 171 soundfiler;
#X msg 19 147 read -resize \$1 sample;
#X obj 19 201 s insamplength;
#X msg 357 197 \; sample resize 220500 \; insamplength 220500;
#X obj 62 282 s insamprate;
#X obj 65 233 loadbang;
#X msg 63 257 44100;
#X msg 146 234 \; pd dsp 1;
#N canvas 0 0 450 300 graph1 0;
#X array pitch-tab 441000 float 2;
#X coords 0 1 441000 -1 400 150 1;
#X restore 197 290 graph;
#X connect 1 0 2 0;
#X connect 2 0 5 0;
#X connect 2 1 3 0;
#X connect 4 0 6 0;
#X connect 5 0 4 0;
#X connect 9 0 10 0;
#X connect 9 0 11 0;
#X connect 10 0 8 0;
#X restore 290 230 pd insample;
#X obj 535 318 tabwrite~ sample;
#X obj 535 294 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 287 16 (1) read a sample;
#N canvas 761 690 278 227 loadbang 0;
#X obj 84 65 loadbang;
#X msg 82 93 \; bash-blksize 512 \; sample-rate 44100;
#X connect 0 0 1 0;
#X restore 291 250 pd loadbang;
#N canvas 132 108 610 492 hanning-window 0;
#X obj 60 232 phasor~;
#X obj 60 255 cos~;
#X msg 24 208 0;
#N canvas 0 0 450 300 graph1 0;
#X array hanning2 4096 float 2;
#X coords 0 1 4096 0 300 150 1;
#X restore 284 82 graph;
#X obj 61 203 sig~;
#X text 90 176 sample rate / window size;
#X obj 69 143 samplerate~;
#X obj 14 119 t b f;
#X obj 61 179 /;
#X obj 14 324 tabwrite~ hanning2;
#X obj 13 68 r bash-blksize;
#X obj 59 276 -~ 1;
#X obj 59 299 *~ -0.5;
#X obj 13 91 * 2;
#N canvas 0 0 450 300 graph1 0;
#X array square-window 4096 float 2;
#X coords 0 1 4096 0 300 150 1;
#X restore 279 267 graph;
#X obj 32 391 tabwrite~ square-window;
#X obj 150 275 -~ 0.5;
#X obj 151 299 +~ 1e-06;
#X obj 153 347 clip~ 0 1;
#X obj 151 322 *~ -1e+20;
#X connect 0 0 1 0;
#X connect 0 0 16 0;
#X connect 1 0 11 0;
#X connect 2 0 0 1;
#X connect 4 0 0 0;
#X connect 6 0 8 0;
#X connect 7 0 6 0;
#X connect 7 0 9 0;
#X connect 7 0 2 0;
#X connect 7 0 15 0;
#X connect 7 1 8 1;
#X connect 8 0 4 0;
#X connect 10 0 13 0;
#X connect 11 0 12 0;
#X connect 12 0 9 0;
#X connect 13 0 7 0;
#X connect 16 0 17 0;
#X connect 17 0 19 0;
#X connect 18 0 15 0;
#X connect 19 0 18 0;
#X restore 291 271 pd hanning-window;
#X obj 125 268 tabplay~ sample;
#X obj 105 202 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X msg 264 35 \; read-sample Hamburger.wav;
#N canvas 144 216 781 467 unphase 0;
#X obj 61 15 r bash-blksize;
#X obj 192 192 rfft~;
#X obj 192 312 rifft~;
#X obj 192 168 *~;
#X obj 194 404 outlet~;
#X obj 193 17 inlet~;
#X obj 191 220 *~;
#X obj 223 220 *~;
#X obj 192 250 q8_sqrt~;
#X obj 215 138 *~ 0;
#X obj 216 76 tabreceive~ hanning2;
#X obj 423 202 samplerate~;
#X obj 423 178 bang~;
#X obj 192 289 *~;
#X obj 584 174 inlet;
#X obj 448 331 spigot;
#X msg 485 310 1;
#X msg 499 335 0;
#X obj 550 424 outlet;
#X obj 376 299 print~;
#X obj 375 255 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 60 146 block~;
#X obj 193 377 *~;
#X obj 423 244 phasor~;
#X obj 423 222 / 1;
#X obj 455 223 0.75;
#X obj 411 269 -~ 0.25;
#X msg 85 118 set 1024 2;
#X msg 81 97 set 1024 1;
#X floatatom 495 169 5 0 0 0 - - -;
#X obj 61 43 * 2;
#X obj 549 400 delay;
#X obj 538 358 / 44.1;
#X obj 539 337 - 63.75;
#X obj 539 313 * 2;
#X obj 539 292 r bash-blksize;
#X msg 61 72 set \$1 2;
#X obj 209 353 tabreceive~ square-window;
#X obj 238 114 expr 2/$f1;
#X obj 589 226 f;
#X msg 586 253 \; bash-window-sizes 1 \$1;
#X connect 0 0 30 0;
#X connect 1 0 6 0;
#X connect 1 0 6 1;
#X connect 1 1 7 0;
#X connect 1 1 7 1;
#X connect 2 0 22 0;
#X connect 3 0 1 0;
#X connect 5 0 3 0;
#X connect 6 0 8 0;
#X connect 7 0 8 0;
#X connect 8 0 13 0;
#X connect 9 0 3 1;
#X connect 10 0 9 0;
#X connect 11 0 24 0;
#X connect 12 0 11 0;
#X connect 12 0 15 0;
#X connect 12 0 25 0;
#X connect 13 0 2 0;
#X connect 14 0 16 0;
#X connect 14 0 39 0;
#X connect 15 0 17 0;
#X connect 15 0 31 0;
#X connect 16 0 15 1;
#X connect 17 0 15 1;
#X connect 20 0 19 0;
#X connect 22 0 4 0;
#X connect 23 0 26 0;
#X connect 24 0 23 0;
#X connect 25 0 23 1;
#X connect 26 0 13 1;
#X connect 26 0 19 0;
#X connect 27 0 21 0;
#X connect 28 0 21 0;
#X connect 29 0 24 1;
#X connect 30 0 36 0;
#X connect 30 0 38 0;
#X connect 31 0 18 0;
#X connect 32 0 31 1;
#X connect 33 0 32 0;
#X connect 34 0 33 0;
#X connect 35 0 34 0;
#X connect 35 0 39 1;
#X connect 36 0 21 0;
#X connect 37 0 22 1;
#X connect 38 0 9 1;
#X connect 39 0 40 0;
#X restore 40 382 pd unphase;
#X obj 39 442 output~;
#X obj 170 473 tabwrite~ array1;
#X obj 550 181 r bash-blksize;
#X msg 264 69 \; read-sample trevorout44.aiff;
#X msg 264 101 \; read-sample donatienne1.wav;
#X msg 264 134 \; read-sample greek1.aiff;
#X floatatom 550 205 5 0 0 0 - - -;
#X obj 534 226 f;
#X obj 534 247 s bash-blksize;
#X obj 534 200 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 125 290 hip~ 3;
#X msg 512 31 \; bash-blksize 256;
#X msg 511 64 \; bash-blksize 512;
#X msg 511 96 \; bash-blksize 1024;
#X msg 512 128 \; bash-blksize 2048;
#N canvas 715 27 450 300 sine 0;
#X obj 33 149 osc~;
#X floatatom 34 128 5 0 0 0 - - -;
#X floatatom 34 62 5 0 0 0 - - -;
#X obj 34 83 * 44100;
#X obj 34 104 / 1024;
#X obj 35 200 outlet~;
#X obj 34 171 *~ 0.5;
#X connect 0 0 6 0;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 1 0;
#X connect 6 0 5 0;
#X restore 182 290 pd sine;
#X obj 172 452 tabwrite~ tab-pitch1;
#X obj 175 205 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 90 183 start;
#X text 169 186 done;
#N canvas 72 275 530 386 savit 0;
#X obj 48 18 inlet;
#X obj 107 21 inlet;
#X obj 77 66 timer;
#X obj 77 240 soundfiler;
#X obj 110 126 r bash-blksize;
#X obj 77 100 * 44.1;
#X obj 77 126 /;
#X obj 77 153 i;
#X obj 110 181 r bash-blksize;
#X obj 77 181 *;
#X obj 149 66 s resend-tabs;
#X obj 54 325 soundfiler;
#X msg 77 217 write -nframes \$1 tab/tab-pitch1.wav tab-pitch1;
#X msg 54 288 write tab/tab-pitch1.wav tab-pitch1;
#X connect 0 0 2 0;
#X connect 0 0 10 0;
#X connect 1 0 2 1;
#X connect 2 0 5 0;
#X connect 4 0 6 1;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 9 0;
#X connect 8 0 9 1;
#X connect 9 0 12 0;
#X connect 12 0 3 0;
#X connect 13 0 11 0;
#X restore 124 231 pd savit;
#X text 480 11 (2) choose window size:;
#X msg 187 232 stop;
#X obj 147 37 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 147 86 s read-sample;
#X obj 147 62 openpanel;
#X obj 23 246 del 15;
#X msg 262 168 \; read-sample speechsong1.wav;
#X connect 1 0 4 0;
#X connect 5 0 4 0;
#X connect 9 0 23 0;
#X connect 10 0 12 1;
#X connect 10 0 33 0;
#X connect 10 0 39 0;
#X connect 12 0 13 0;
#X connect 12 0 13 1;
#X connect 12 0 14 0;
#X connect 12 0 29 0;
#X connect 12 1 14 0;
#X connect 12 1 29 0;
#X connect 15 0 19 0;
#X connect 19 0 20 1;
#X connect 20 0 21 0;
#X connect 22 0 20 0;
#X connect 23 0 12 0;
#X connect 30 0 33 1;
#X connect 30 0 35 0;
#X connect 35 0 9 0;
#X connect 36 0 38 0;
#X connect 38 0 37 0;
#X connect 39 0 9 0;
#X restore 339 176 pd make-samples;
#N canvas 0 49 722 567 misc-test 0;
#X obj 52 20 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 52 43 metro 3500;
#X obj 189 164 + 20;
#X obj 263 164 + 20;
#X obj 345 143 f;
#X obj 345 169 - 3;
#X obj 400 106 del 1160;
#X obj 400 147 random 30;
#X obj 465 107 del 2300;
#X obj 468 169 + 30;
#X obj 468 147 random 40;
#X obj 189 142 random 50;
#X obj 263 142 random 50;
#X obj 400 169 + 15;
#X obj 469 367 s p1-f;
#X obj 538 169 + 30;
#X obj 538 147 random 40;
#X msg 13 163 \; p1-p 0 0 \, 1000 10000;
#X obj 51 280 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 209 400 s p1-f;
#X obj 209 331 random 50;
#X msg 50 338 \; p1-p 0 0 \, 1000 10000;
#X obj 51 303 metro 9000;
#X obj 209 377 pack 0 50;
#X obj 204 288 metro 2000;
#X obj 281 313 del 500;
#X obj 209 353 + 30;
#X msg 621 45 \; p1-a 29 \; p1-cf 39 \; p1-bw 0 \; p1-s 0 \; p1-n 18
\; p1-t 1 \; p1-ff -64 \; p1-fd 10 \; p1-ft 0 \; p1-nf 42;
#X floatatom 525 309 5 0 0 0 - - -;
#X obj 261 105 del 420;
#X obj 558 361 t b;
#X obj 65 441 metro 200;
#X obj 65 420 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 65 464 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 67 486 sel 0 1;
#X msg 63 521 \; p1-f 36;
#X msg 124 522 \; p1-f 72;
#X obj 191 521 s p1-hit;
#X obj 558 383 s p1-hit;
#X obj 190 494 t b;
#X obj 469 336 pack 0 0;
#X obj 345 106 del 900;
#X obj 526 107 del 2660;
#X obj 606 426 samplerate~;
#X obj 606 452 / 512;
#X obj 606 477 ftom;
#X obj 607 404 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X floatatom 607 506 5 0 0 0 - - -;
#X obj 659 480 / 261.62;
#X floatatom 661 505 5 0 0 0 - - -;
#X connect 0 0 1 0;
#X connect 1 0 17 0;
#X connect 1 0 6 0;
#X connect 1 0 11 0;
#X connect 1 0 8 0;
#X connect 1 0 29 0;
#X connect 1 0 41 0;
#X connect 1 0 42 0;
#X connect 2 0 40 0;
#X connect 3 0 4 1;
#X connect 3 0 40 0;
#X connect 4 0 5 0;
#X connect 5 0 40 0;
#X connect 6 0 7 0;
#X connect 7 0 13 0;
#X connect 8 0 10 0;
#X connect 9 0 40 0;
#X connect 10 0 9 0;
#X connect 11 0 2 0;
#X connect 12 0 3 0;
#X connect 13 0 40 0;
#X connect 15 0 40 0;
#X connect 16 0 15 0;
#X connect 18 0 22 0;
#X connect 18 0 24 0;
#X connect 20 0 26 0;
#X connect 22 0 21 0;
#X connect 23 0 19 0;
#X connect 24 0 25 0;
#X connect 24 0 20 0;
#X connect 25 0 20 0;
#X connect 26 0 23 0;
#X connect 28 0 40 1;
#X connect 29 0 12 0;
#X connect 30 0 38 0;
#X connect 31 0 33 0;
#X connect 32 0 31 0;
#X connect 33 0 34 0;
#X connect 33 0 39 0;
#X connect 34 0 35 0;
#X connect 34 1 36 0;
#X connect 39 0 37 0;
#X connect 40 0 14 0;
#X connect 40 0 30 0;
#X connect 41 0 4 0;
#X connect 42 0 16 0;
#X connect 43 0 44 0;
#X connect 44 0 45 0;
#X connect 44 0 48 0;
#X connect 45 0 47 0;
#X connect 46 0 43 0;
#X connect 48 0 49 0;
#X restore 339 156 pd misc-test;
#X text 99 225 METER;
#N canvas 275 0 450 300 DOLIST 0;
#X text 10 99 pitch track recorder;
#X text 13 58 microtonal pitch and gliss;
#X text 31 78 (think about sampled traces?);
#X text 12 39 turning telephone pole on/off;
#X text 11 118 vibrato;
#X text 14 18 editor for beats;
#X text 10 141 clefs with variable width;
#X text 10 161 soundfile markers;
#X text 12 228 typeable numbers (change to Pd);
#X text 12 185 undo or journaling;
#X text 12 208 time to add duration markers;
#X text 13 245 pushbutton as display object;
#X restore 244 345 pd DOLIST;
#N canvas 187 103 490 789 text-sequencer 0;
#N canvas 87 96 420 595 find-phoneme 0;
#X obj 108 458 outlet;
#X obj 113 204 textfile;
#X obj 33 66 symbol;
#X obj 29 142 until;
#X msg 107 156 rewind;
#X msg 174 114 read attic/marks.txt cr;
#X obj 113 281 unpack s 0 0;
#X obj 57 334 sel s;
#X obj 33 40 inlet;
#X obj 100 384 f;
#X obj 109 423 pack;
#X obj 237 231 symbol;
#X obj 33 87 t b b s;
#X msg 96 38 a;
#X msg 126 35 mm;
#X msg 160 37 z;
#X obj 240 259 print phoneme-not-found;
#X obj 174 83 r read-text-files;
#X connect 1 0 6 0;
#X connect 1 1 3 1;
#X connect 1 1 11 0;
#X connect 2 0 12 0;
#X connect 3 0 1 0;
#X connect 4 0 1 0;
#X connect 5 0 1 0;
#X connect 6 0 7 0;
#X connect 6 1 9 1;
#X connect 6 2 10 1;
#X connect 7 0 9 0;
#X connect 7 0 3 1;
#X connect 8 0 2 0;
#X connect 9 0 10 0;
#X connect 10 0 0 0;
#X connect 11 0 16 0;
#X connect 12 0 3 0;
#X connect 12 1 4 0;
#X connect 12 2 7 1;
#X connect 12 2 11 1;
#X connect 13 0 2 0;
#X connect 14 0 2 0;
#X connect 15 0 2 0;
#X connect 17 0 5 0;
#X restore 246 467 pd find-phoneme;
#X obj 246 49 loadbang;
#X obj 245 99 s read-text-files;
#X obj 247 72 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 95 271 textfile;
#X obj 125 146 r read-text-files;
#X obj 54 129 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X msg 146 230 rewind \, bang;
#X obj 109 365 list;
#X obj 35 243 t b b b;
#X obj 54 391 f;
#X obj 246 494 unpack;
#X obj 54 427 -;
#X obj 53 481 swap;
#X obj 4 429 del;
#X obj 37 325 spigot;
#X msg 145 300 0;
#X msg 176 301 1;
#X obj 81 390 f;
#X msg 13 127 stop;
#X msg 28 612 \; p1-a 0 5;
#X obj 230 520 * 0.1;
#X obj 273 521 * 0.1;
#X obj 53 577 route 0;
#X obj 35 31 inlet;
#X obj 87 30 inlet;
#X msg 333 301 \; p1-a 0 \;;
#X obj 392 330 r start-sec;
#X obj 392 354 * 1000;
#X obj 362 420 moses;
#X msg 362 446 0;
#X msg 394 446 1;
#X obj 68 448 *;
#X obj 51 149 t b b b;
#X msg 304 593 \$5;
#X obj 305 617 moses;
#X obj 335 665 del;
#X msg 135 623 \; p1-a 100 5 \; p1-f \$3 \; p1-p \$1 0 \, \$2 \$4;
#X obj 109 390 unpack 0 0 s 0 0 0 0;
#X obj 54 552 pack 0 0 0 0 0 0 0 0;
#X msg 84 675 \$6 \$7;
#X obj 84 699 route 0;
#X obj 106 604 t l l;
#X msg 144 699 \; p1-f \$1 \$2;
#X msg 343 590 50;
#X msg 269 689 \; p1-n 100 5;
#X msg 372 686 \; p1-n 0 5 \;;
#X msg 358 150 \; p1-a 90 \; p1-cf 60 \; p1-t 5 \; p1-n 50 \; p1-nf
20 \; p1-nc 0 \; p1-pc 120 \; rgain 0;
#X msg 125 177 read attic/song1.txt cr;
#X connect 0 0 11 0;
#X connect 1 0 3 0;
#X connect 3 0 2 0;
#X connect 4 0 8 1;
#X connect 4 0 18 0;
#X connect 4 1 16 0;
#X connect 4 1 26 0;
#X connect 5 0 48 0;
#X connect 6 0 33 0;
#X connect 7 0 4 0;
#X connect 8 0 38 0;
#X connect 9 0 15 0;
#X connect 9 1 4 0;
#X connect 9 2 8 0;
#X connect 10 0 12 0;
#X connect 11 0 21 0;
#X connect 11 1 22 0;
#X connect 12 0 13 0;
#X connect 12 0 32 0;
#X connect 13 0 39 0;
#X connect 13 1 39 3;
#X connect 14 0 9 0;
#X connect 15 0 10 0;
#X connect 16 0 15 1;
#X connect 17 0 15 1;
#X connect 18 0 10 1;
#X connect 19 0 14 0;
#X connect 21 0 13 1;
#X connect 22 0 39 1;
#X connect 23 0 20 0;
#X connect 23 1 42 0;
#X connect 23 1 34 0;
#X connect 24 0 6 0;
#X connect 25 0 19 0;
#X connect 27 0 28 0;
#X connect 28 0 29 1;
#X connect 29 0 30 0;
#X connect 29 1 31 0;
#X connect 30 0 32 1;
#X connect 31 0 32 1;
#X connect 32 0 14 0;
#X connect 33 0 9 0;
#X connect 33 1 7 0;
#X connect 33 1 17 0;
#X connect 33 2 47 0;
#X connect 33 2 3 0;
#X connect 34 0 35 0;
#X connect 35 0 46 0;
#X connect 35 1 36 0;
#X connect 35 1 45 0;
#X connect 36 0 46 0;
#X connect 38 0 12 1;
#X connect 38 0 29 0;
#X connect 38 1 39 2;
#X connect 38 2 0 0;
#X connect 38 3 39 4;
#X connect 38 4 39 5;
#X connect 38 5 39 6;
#X connect 38 6 39 7;
#X connect 39 0 23 0;
#X connect 40 0 41 0;
#X connect 41 1 43 0;
#X connect 42 0 40 0;
#X connect 42 1 37 0;
#X connect 44 0 35 0;
#X connect 48 0 4 0;
#X restore 180 114 pd text-sequencer;
#X obj 180 92 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 294 93 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 179 72 start;
#X text 281 74 stop;
#X floatatom 205 234 5 0 0 0 - - -;
#X obj 204 258 s start-sec;
#X obj 16 62 panel p2;
#X obj 16 79 panel p3;
#X obj 16 96 panel p4;
#X obj 16 113 panel p5;
#X obj 16 130 panel p6;
#X obj 16 147 panel p7;
#X obj 16 164 panel p8;
#X obj 132 343 writesf~;
#X msg 132 293 open /tmp/song1.wav \, start;
#X msg 155 313 stop;
#X obj 132 272 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 95 319 *~ 0.1;
#N canvas 140 88 490 458 old-gfx-scores 0;
#X floatatom 158 68 0 0 0 0 tempo tempo-set tempo;
#X floatatom 158 88 3 0 0 0 startat startat-set startat;
#N canvas 0 0 598 442 read-scores 0;
#X obj 434 75 r reset;
#X msg 42 134 \; pd-data read xx.txt \; pd-sect10 read sect10.txt \;
pd-sect11 read sect11.txt \; pd-sect12 read sect12.txt \; pd-sect13
read sect13.txt \; pd-sect20 read sect20.txt \; pd-sect21 read sect21.txt
\; pd-sect99 read sect99.txt \;;
#X msg 235 134 \; pd-data write xx.txt \; pd-sect10 write sect10.txt
\; pd-sect11 write sect11.txt \; pd-sect12 write sect12.txt \; pd-sect13
write sect13.txt \; pd-sect20 write sect20.txt \; pd-sect21 write sect21.txt
\; pd-sect99 write sect99.txt \;;
#X msg 439 274 \; pd-sect10 sort \; pd-sect11 sort \; pd-sect12 sort
\; pd-sect13 sort \; pd-sect20 sort \; pd-sect21 sort \; pd-sect99
sort \;;
#X msg 435 134 \; pd-sect99 sort \;;
#X connect 0 0 4 0;
#X restore 95 251 pd read-scores;
#N canvas 317 335 795 505 sect99 0;
#X scalar t_clef 98 30.25 1800 \;;
#X scalar t_fred 248 10.5 1 4 9 244 46.5 0 \; 86 0 0 60 0 0 50 0 0
25 22 88 \; 191 90 0 60 0 0 50 0 0 25 22 88 \; 431 90 0 60 0 0 50 0
0 15 22 88 \; \;;
#X scalar t_fred 248 17.5 1 4 90 284 76.75 0 \; 86 0 0 60 0 0 50 0
0 25 22 88 \; 191 90 0 60 81 0 50 0 0 25 22 88 \; 431 90 0 60 0 0 50
0 0 15 22 88 \; \;;
#X scalar t_tmarker 426 8.25 0 41.25 \;;
#X scalar t_tmarker 674 8 2 43.5 \;;
#X scalar t_tmarker 758 8 1 44 \;;
#X scalar t_fred 1004 13.5 1 4 9 140 46.5 1 \; 101 90 0 60 0 0 50 0
0 15 22 88 \; 216 90 0 60 0 0 50 0 1.25 15 22 88 \; \;;
#X scalar t_tmarker 1106 8.5 0 42.75 \;;
#X scalar t_tmarker 1222 8.5 1 42.25 \;;
#X scalar t_tmarker 1622 7.75 2 42.25 \;;
#X coords 0 126.25 4 126 0 0 0;
#X restore 95 175 pd sect99;
#N canvas 0 0 600 400 keysyms 0;
#X obj 98 27 keyname;
#X obj 97 58 pack 0 s;
#X obj 97 81 route 1;
#X text 285 34 F1 - play selection;
#X obj 99 105 symbol;
#X msg 99 164 \; play-select 1 \; all-start bang;
#X msg 204 163 \; globctl start;
#X obj 99 128 sel F1 F2 F3 F4 F5 F6 F8;
#X msg 302 162 \; globctl stop;
#X msg 394 166 \; reset bang;
#X text 284 48 F5 - play;
#X text 282 61 F6 - stop;
#X text 282 75 F8 - reset;
#X connect 0 0 1 0;
#X connect 0 1 1 1;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 4 0 7 0;
#X connect 7 0 5 0;
#X connect 7 4 6 0;
#X connect 7 5 8 0;
#X connect 7 6 9 0;
#X restore 95 270 pd keysyms;
#X msg 95 129 start;
#X msg 139 130 stop;
#N canvas 378 54 736 533 sequencer 0;
#X obj 90 19 inlet;
#X obj 503 24 r reset;
#X obj 105 152 r next-evt;
#X obj 510 136 s delay-multiplier;
#X obj 496 69 t b f;
#X obj 510 116 /;
#X obj 496 3 r tempo;
#X obj 313 391 print unknown-template;
#X obj 496 46 f;
#X obj 188 86 t b;
#X obj 199 147 r sect-start;
#X obj 216 127 r startat;
#X obj 189 128 f;
#X obj 609 314 loadbang;
#X obj 131 209 r play-select;
#X msg 105 229 vnext \$1;
#X obj 188 107 del 50;
#X obj 105 210 f;
#X msg 148 280 traverse \$1;
#X obj 216 45 r all-start;
#X obj 135 22 r globctl;
#X obj 90 46 route start stop;
#X obj 591 431 setctl tempo;
#X obj 591 451 setctl chain;
#X obj 591 472 setctl startat;
#N canvas 85 54 383 286 clef 0;
#X obj 43 13 inlet;
#X obj 43 66 get t_clef y;
#X obj 43 92 v clef-y;
#X obj 43 40 data-start t_clef;
#X connect 0 0 3 0;
#X connect 1 0 2 0;
#X connect 3 0 1 0;
#X restore 196 400 pd clef;
#X obj 105 172 t b;
#X msg 55 83 \; play-select 0 \; live-data 0 \; reset bang;
#X obj 233 196 makefilename pd-sect%d;
#X obj 105 362 pointer t_fred t_sect t_clef t_tmarker;
#N canvas 84 200 383 286 tmarker 0;
#X obj 43 13 inlet;
#X obj 43 71 get t_tmarker n;
#X obj 43 45 data-start t_tmarker;
#X obj 43 97 print time-marker;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 2 0 1 0;
#X restore 261 410 pd tmarker;
#X obj 591 491 setctl play-select;
#N canvas 74 111 298 187 fakesection 0;
#X obj 43 13 inlet;
#X obj 43 66 get t_sect n;
#X obj 41 90 print section;
#X obj 43 41 data-start t_sect;
#X connect 0 0 3 0;
#X connect 1 0 2 0;
#X connect 3 0 1 0;
#X restore 157 443 pd fakesection;
#N canvas 83 403 683 435 next-tmarker 0;
#X obj 167 137 until;
#X obj 167 112 t b p;
#X msg 167 161 next;
#X obj 204 199 pointer t_tmarker;
#X obj 193 228 b;
#X obj 171 44 inlet;
#X obj 89 347 outlet;
#X obj 203 353 outlet;
#X obj 318 353 outlet;
#X obj 451 279 pointer;
#X obj 365 245 t b b b;
#X obj 394 288 1e+20;
#X obj 88 277 get t_tmarker n;
#X obj 363 288 0;
#X obj 205 281 get t_tmarker x;
#X text 315 374 pointer;
#X text 201 372 x-value;
#X text 81 371 number of;
#X text 79 384 score-time;
#X text 77 397 units (beats);
#X text 85 7 get first time marker. If none exists \, signal it by
sending 1e+20 as the x-value.;
#X msg 170 65 traverse \$1 \, bang;
#X obj 170 92 pointer;
#X obj 274 252 t p p p;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X connect 1 1 3 1;
#X connect 1 1 9 1;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 0 23 0;
#X connect 3 2 4 0;
#X connect 3 2 10 0;
#X connect 4 0 0 1;
#X connect 5 0 21 0;
#X connect 9 0 8 0;
#X connect 10 0 13 0;
#X connect 10 1 11 0;
#X connect 10 2 9 0;
#X connect 11 0 7 0;
#X connect 12 0 6 0;
#X connect 13 0 6 0;
#X connect 14 0 7 0;
#X connect 21 0 22 0;
#X connect 22 0 1 0;
#X connect 23 0 12 0;
#X connect 23 1 14 0;
#X connect 23 2 8 0;
#X restore 398 279 pd next-tmarker;
#X msg 483 93 60000;
#X obj 233 217 t s s s;
#X obj 418 325 pack 0 0 0 p;
#X obj 398 303 t b;
#X msg 549 242 \; \$1 sort \; data-beatnow 0;
#X obj 418 347 s data-beatparams;
#X msg 609 335 \; reset bang \; tempo 60 \; startat 99 \; chain 1 \;
play-select 0;
#X obj 189 171 t b f;
#N canvas 424 300 526 449 parse-fred 0;
#X obj 68 53 inlet;
#X text 51 15 Parse a "fred" datum \, sequencing the amplitude array
and sending the other parameters one time only.;
#X obj 67 76 t p p;
#X obj 67 140 pack 0 p;
#X text 241 98 convert color to voice number;
#X obj 67 117 expr (($f1%10)>=3) + 2*(($f1%100)>=30) + 4*($f1>=300)
;
#X obj 67 95 get t_fred color;
#X obj 67 177 route 0 1 2 3 4 5 6 7;
#X obj 67 389 fred-sequencer p1;
#X obj 191 235 fred-sequencer p8;
#X obj 173 256 fred-sequencer p7;
#X obj 155 278 fred-sequencer p6;
#X obj 138 303 fred-sequencer p5;
#X obj 120 324 fred-sequencer p4;
#X obj 102 346 fred-sequencer p3;
#X obj 84 367 fred-sequencer p2;
#X connect 0 0 2 0;
#X connect 2 0 6 0;
#X connect 2 1 3 1;
#X connect 3 0 7 0;
#X connect 5 0 3 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 7 1 15 0;
#X connect 7 2 14 0;
#X connect 7 3 13 0;
#X connect 7 4 12 0;
#X connect 7 5 11 0;
#X connect 7 6 10 0;
#X connect 7 7 9 0;
#X restore 105 484 pd parse-fred;
#N canvas 74 111 298 187 section 0;
#X obj 43 13 inlet;
#X obj 43 124 s sect-start;
#X obj 43 66 get t_sect n;
#X obj 43 96 spigot;
#X obj 92 96 r chain;
#X obj 43 41 data-start t_sect;
#X connect 0 0 5 0;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X connect 4 0 3 1;
#X connect 5 0 2 0;
#X restore 236 469 pd section;
#X msg 266 76 \; reset bang;
#X obj 603 11 r reset;
#X msg 603 36 \; reset-stop stop;
#X connect 0 0 21 0;
#X connect 1 0 8 0;
#X connect 2 0 26 0;
#X connect 4 0 34 0;
#X connect 4 1 5 1;
#X connect 5 0 3 0;
#X connect 6 0 8 0;
#X connect 8 0 4 0;
#X connect 9 0 16 0;
#X connect 10 0 41 0;
#X connect 11 0 12 1;
#X connect 12 0 41 0;
#X connect 13 0 40 0;
#X connect 14 0 17 1;
#X connect 15 0 29 0;
#X connect 16 0 12 0;
#X connect 17 0 15 0;
#X connect 18 0 29 0;
#X connect 19 0 9 0;
#X connect 20 0 21 0;
#X connect 21 0 9 0;
#X connect 21 0 27 0;
#X connect 21 1 44 0;
#X connect 26 0 17 0;
#X connect 28 0 35 0;
#X connect 29 0 42 0;
#X connect 29 1 32 0;
#X connect 29 2 25 0;
#X connect 29 3 30 0;
#X connect 29 4 7 0;
#X connect 33 0 37 0;
#X connect 33 1 36 2;
#X connect 33 2 36 3;
#X connect 34 0 5 0;
#X connect 35 0 18 0;
#X connect 35 1 33 0;
#X connect 35 2 38 0;
#X connect 36 0 39 0;
#X connect 37 0 36 0;
#X connect 41 0 17 0;
#X connect 41 1 28 0;
#X connect 45 0 46 0;
#X restore 95 155 pd sequencer;
#X obj 158 106 tgl 15 0 chain chain-set chain -37 7 0 10 -262144 -1
-1 1 1;
#N canvas 188 9 559 575 sect100 0;
#X scalar t_clef 58 57.5 0 \;;
#X scalar t_fred 216 44.5 0 0 0 50 51.25 0 \; 32 86 0 60 0 0 1 0 0
4 22 0 \; 0 234 87 0 60 0 0 0 0 0 6 22 \; 22 0 250 88 0 72 0 0 0 0
0 2 \; 2 22 0 458 89 0 72 0 0 0 0 0 \; 0 3 22 0 469 88 0 59 0 0 0 0
\; 0 0 4 22 0 661 87 0 58.5 0 0 0 \; 0 0 0 1 22 0 676 86 0 72 0 0 \;
0 0 0 0 2 22 0 1067 0 0 72 0 \; \;;
#X scalar t_tmarker 242 28.25 0 14.5 \;;
#X scalar t_tmarker 692 28.5 1 14.5 \;;
#X scalar t_tmarker 788 28.5 1 14.5 \;;
#X coords 0 143.75 5 143.5 0 0 0;
#X restore 95 194 pd sect100;
#N canvas 674 316 800 563 add-note 0;
#X obj 490 108 pointer;
#X msg 490 86 traverse pd-sect99 \, bang;
#X obj 201 34 bng 15 250 50 0 empty empty new 17 6 0 10 -262144 -1
-1;
#X msg 11 123 0;
#X msg 40 123 0;
#X obj 549 153 0;
#X obj 533 176 f;
#X obj 565 177 + 1;
#X obj 244 33 bng 15 250 50 0 empty empty add 17 6 0 10 -262144 -1
-1;
#X obj 553 221 t f f;
#X obj 635 276 + 1;
#X obj 483 299 t b b p;
#X obj 11 69 t b b b b b;
#X obj 63 173 f;
#X floatatom 211 51 5 0 0 1 xval - -;
#X text 492 39 breakpoint;
#X msg 101 123 0;
#X obj 326 310 element t_fred vec;
#X obj 483 272 element t_fred vec;
#X obj 666 278 setsize t_fred vec;
#X obj 195 111 getfred p1 -------;
#X msg 71 123 500;
#X obj 315 205 append t_fred x y t ft color dy;
#X obj 315 181 pack 0 0 0 0 0 50;
#X obj 164 113 f;
#X obj 63 197 + 200;
#X obj 447 338 getfred p1 -------;
#X obj 357 379 set t_fredpoint time a cf bw s n nf nc ff fd p;
#X obj 9 349 set t_fredpoint time a cf bw s n nf nc ff fd p;
#X connect 0 0 22 6;
#X connect 1 0 0 0;
#X connect 2 0 12 0;
#X connect 3 0 28 0;
#X connect 4 0 17 0;
#X connect 5 0 6 1;
#X connect 6 0 7 0;
#X connect 7 0 6 1;
#X connect 7 0 9 0;
#X connect 8 0 6 0;
#X connect 9 0 18 0;
#X connect 9 1 10 0;
#X connect 10 0 19 0;
#X connect 11 0 13 0;
#X connect 11 1 26 0;
#X connect 11 2 27 11;
#X connect 12 0 3 0;
#X connect 12 1 4 0;
#X connect 12 2 21 0;
#X connect 12 3 20 0;
#X connect 12 4 1 0;
#X connect 12 4 5 0;
#X connect 12 4 16 0;
#X connect 13 0 25 0;
#X connect 14 0 24 0;
#X connect 16 0 13 1;
#X connect 17 0 28 11;
#X connect 18 0 11 0;
#X connect 20 0 28 1;
#X connect 20 1 23 1;
#X connect 20 2 28 2;
#X connect 20 3 28 3;
#X connect 20 4 28 4;
#X connect 20 5 28 5;
#X connect 20 6 28 6;
#X connect 20 7 28 7;
#X connect 20 8 28 8;
#X connect 20 9 28 9;
#X connect 20 10 28 10;
#X connect 20 11 23 2;
#X connect 20 12 23 3;
#X connect 21 0 23 0;
#X connect 22 0 17 1;
#X connect 22 0 18 1;
#X connect 22 0 19 1;
#X connect 23 0 22 0;
#X connect 24 0 13 1;
#X connect 24 0 27 0;
#X connect 25 0 14 0;
#X connect 26 0 27 1;
#X connect 26 2 27 2;
#X connect 26 3 27 3;
#X connect 26 4 27 4;
#X connect 26 5 27 5;
#X connect 26 6 27 6;
#X connect 26 7 27 7;
#X connect 26 8 27 8;
#X connect 26 9 27 9;
#X connect 26 10 27 10;
#X coords 0 0 1 1 85 45 1 200 20;
#X restore 95 348 pd add-note;
#N canvas 30 133 317 249 gfx-controls 0;
#N canvas 342 235 862 315 ctl 0;
#X obj 102 217 setctl d-s;
#X obj 102 41 setctl d-cf;
#X obj 102 19 setctl d-a;
#X obj 102 63 setctl d-bw;
#X obj 102 85 setctl d-n;
#X obj 102 107 setctl d-nf;
#X obj 102 151 setctl d-ff;
#X obj 102 173 setctl d-fd;
#X obj 102 195 setctl d-p;
#X obj 10 19 setctl df-a;
#X obj 10 41 setctl df-cf;
#X obj 10 63 setctl df-bw;
#X obj 9 85 setctl df-n;
#X obj 10 107 setctl df-nf;
#X obj 10 151 setctl df-ff;
#X obj 10 173 setctl df-fd;
#X obj 10 195 setctl df-p;
#X obj 10 217 setctl df-s;
#X obj 219 203 setctl dn-time;
#X obj 228 86 setctl d-pitch;
#X obj 228 114 setctl d-table;
#X obj 222 140 setctl d-fmtable;
#X obj 222 159 setctl d-color;
#X obj 9 129 setctl df-nc;
#X obj 101 129 setctl d-nc;
#X obj 219 180 setctl d-tie;
#X obj 102 238 setctl d-frame;
#X obj 417 14 r d-a;
#X obj 416 247 expr $f1 || $f2 || $f3 || $f4 || $f5 || $f6;
#X obj 416 126 expr $f1 || $f2 || $f3 || $f4 || $f5;
#X obj 458 14 r d-cf;
#X obj 458 35 t b f;
#X obj 505 35 t b f;
#X obj 552 35 t b f;
#X obj 599 35 t b f;
#X obj 505 14 r d-bw;
#X obj 552 14 r d-n;
#X obj 599 14 r d-nf;
#X obj 438 196 t b f;
#X obj 485 196 t b f;
#X obj 532 196 t b f;
#X obj 579 196 t b f;
#X obj 624 197 t b f;
#X obj 439 176 r d-nc;
#X obj 485 175 r d-ff;
#X obj 532 175 r d-fd;
#X obj 579 175 r d-p;
#X obj 624 176 r d-s;
#X obj 415 272 s d-frame;
#X obj 222 237 setctl d-clef1;
#X obj 225 256 setctl d-clef2;
#X obj 227 275 setctl d-time;
#X obj 743 22 loadbang;
#X msg 744 44 \; d-tmarkers 1 \; d-clef1 1 \; d-clef2 0 \;;
#X connect 27 0 29 0;
#X connect 28 0 48 0;
#X connect 29 0 28 0;
#X connect 30 0 31 0;
#X connect 31 0 29 0;
#X connect 31 1 29 1;
#X connect 32 0 29 0;
#X connect 32 1 29 2;
#X connect 33 0 29 0;
#X connect 33 1 29 3;
#X connect 34 0 29 0;
#X connect 34 1 29 4;
#X connect 35 0 32 0;
#X connect 36 0 33 0;
#X connect 37 0 34 0;
#X connect 38 0 28 0;
#X connect 38 1 28 1;
#X connect 39 0 28 0;
#X connect 39 1 28 2;
#X connect 40 0 28 0;
#X connect 40 1 28 3;
#X connect 41 0 28 0;
#X connect 41 1 28 4;
#X connect 42 0 28 0;
#X connect 42 1 28 5;
#X connect 43 0 38 0;
#X connect 44 0 39 0;
#X connect 45 0 40 0;
#X connect 46 0 41 0;
#X connect 47 0 42 0;
#X connect 52 0 53 0;
#X restore 204 208 pd ctl;
#X obj 62 205 tgl 15 0 d-s d-s-set shift 17 6 0 12 -262144 -1 -1 0
1;
#X obj 63 23 tgl 15 0 d-a d-a-set amp 17 6 0 12 -262144 -1 -1 0 1;
#X obj 208 16 tgl 15 0 d-pitch d-pitch-set pitch 17 6 0 12 -262144
-1 -1 0 1;
#X obj 63 63 tgl 15 0 d-bw d-bw-set bandwidth 17 6 0 12 -262144 -1
-1 0 1;
#X obj 63 43 tgl 15 0 d-cf d-cf-set center-freq 17 6 0 12 -262144 -1
-1 0 1;
#X obj 63 83 tgl 15 0 d-n d-n-set noise 17 6 0 12 -262144 -1 -1 0 1
;
#X obj 63 103 tgl 15 0 d-nf d-nf-set noise-freq 17 6 0 12 -262144 -1
-1 0 1;
#X obj 62 145 tgl 15 0 d-ff d-ff-set fmod-freq 17 6 0 12 -262144 -1
-1 0 1;
#X obj 62 165 tgl 15 0 d-fd d-fd-set fmod-depth 17 6 0 12 -262144 -1
-1 0 1;
#X obj 62 185 tgl 15 0 d-p d-p-set position 17 6 0 12 -262144 -1 -1
0 1;
#X obj 37 23 tgl 15 0 dn-a dn-a-set empty 17 6 0 12 -262144 -1 -1 0
1;
#X obj 37 43 tgl 15 0 dn-cf dn-cf-set empty 17 6 0 12 -262144 -1 -1
0 1;
#X obj 37 63 tgl 15 0 dn-bw dn-bw-set empty 17 6 0 12 -262144 -1 -1
0 1;
#X obj 37 83 tgl 15 0 dn-n dn-n-set empty 17 6 0 12 -262144 -1 -1 0
1;
#X obj 37 103 tgl 15 0 dn-nf dn-nf-set empty 17 6 0 12 -262144 -1 -1
0 1;
#X obj 36 145 tgl 15 0 dn-ff dn-ff-set empty 17 6 0 12 -262144 -1 -1
0 1;
#X obj 36 165 tgl 15 0 dn-fd dn-fd-set empty 17 6 0 12 -262144 -1 -1
0 1;
#X obj 36 185 tgl 15 0 dn-p dn-p-set empty 17 6 0 12 -262144 -1 -1
0 1;
#X obj 36 205 tgl 15 0 dn-s dn-s-set empty 17 6 0 12 -262144 -1 -1
0 1;
#X obj 37 3 tgl 15 0 dn-time dn-time-set time 17 6 0 12 -262144 -1
-1 0 1;
#X obj 207 36 tgl 15 0 d-table d-table-set table 17 6 0 12 -262144
-1 -1 0 1;
#X obj 208 73 tgl 15 0 d-color d-color-set color 17 6 0 12 -262144
-1 -1 0 1;
#X obj 208 54 tgl 15 0 d-fmtable d-fmtable-set fmtable 17 6 0 12 -262144
-1 -1 0 1;
#X obj 63 124 tgl 15 0 d-nc d-nc-set noise-cutoff 17 6 0 12 -262144
-1 -1 0 1;
#X obj 37 124 tgl 15 0 dn-nc dn-nc-set empty 17 6 0 12 -262144 -1 -1
0 1;
#X obj 208 93 tgl 15 0 d-tie d-tie-set tie 17 6 0 12 -262144 -1 -1
0 1;
#X obj 62 225 tgl 15 0 d-frame d-frame-set frame 17 6 0 12 -262144
-1 -1 0 1;
#X obj 208 148 tgl 15 0 d-clef1 d-clef1-set clef1 17 6 0 12 -262144
-1 -1 1 1;
#X obj 208 165 tgl 15 0 d-clef2 d-clef2-set clef2 17 6 0 12 -262144
-1 -1 0 1;
#X obj 208 182 tgl 15 0 d-tmarkers d-tmarkers-set tmarkers 17 6 0 12
-262144 -1 -1 0 1;
#X restore 95 213 pd gfx-controls;
#N canvas 9 416 441 218 editor 0;
#X obj 30 40 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 20 19 first;
#X obj 69 40 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 109 41 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 162 54 bng 15 250 50 0 fromprev-cf empty cf 18 6 0 10 -262144
-1 -1;
#X floatatom 30 108 5 0 0 2 index live-index -;
#N canvas 242 55 1038 835 -works--- 0;
#X obj 628 21 r fred-select;
#X obj 180 291 pointer;
#X obj 133 240 t b f;
#X obj 619 311 s p1-a;
#X obj 627 290 s p1-cf;
#X obj 682 313 s p1-bw;
#X obj 704 287 s p1-s;
#X obj 747 338 s p1-n;
#X obj 770 315 s p1-nf;
#X obj 804 289 s p1-ff;
#X obj 832 321 s p1-fd;
#X obj 864 297 s p1-p;
#X obj 202 445 s p1-f;
#X obj 254 446 s p1-ft;
#X obj 306 446 s p1-t;
#X obj 589 264 get t_fredpoint time a cf bw s n nf ff fd p;
#X obj 161 146 getsize t_fred vec;
#X obj 145 169 min;
#X obj 145 190 max;
#X obj 117 74 f;
#X obj 163 76 f;
#X obj 139 213 f;
#X obj 70 27 inlet;
#X obj 119 27 inlet;
#X msg 70 49 0;
#X text 67 4 first;
#X text 123 7 ->;
#X obj 119 51 b;
#X obj 163 27 inlet;
#X obj 163 51 b;
#X text 167 7 <-;
#X obj 119 123 t f b;
#X obj 161 124 pointer;
#X obj 86 342 - 60;
#X floatatom 93 379 5 0 0 0 - - -;
#X obj 628 52 route select deselect;
#X msg 669 110 1;
#X obj 670 134 s live-data;
#X obj 379 224 spigot;
#X obj 426 202 r live-data;
#X obj 379 201 r p1-a;
#X obj 384 246 set t_fredpoint a;
#X obj 369 291 spigot;
#X obj 423 272 r live-data;
#X obj 368 270 r p1-cf;
#X obj 374 313 set t_fredpoint cf;
#X obj 368 359 spigot;
#X obj 423 339 r live-data;
#X obj 368 339 r p1-bw;
#X obj 373 381 set t_fredpoint bw;
#X obj 374 424 spigot;
#X obj 422 403 r live-data;
#X obj 374 402 r p1-s;
#X obj 379 446 set t_fredpoint s;
#X obj 22 499 spigot;
#X obj 70 478 r live-data;
#X obj 10 456 r p1-t;
#X obj 66 521 set t_fred t;
#X obj 23 567 spigot;
#X obj 71 546 r live-data;
#X obj 36 426 spigot;
#X obj 71 403 r live-data;
#X obj 7 527 r p1-ft;
#X obj 58 593 set t_fred ft;
#X obj 65 450 set t_fred y;
#X obj 12 338 r p1-f;
#X obj 202 422 -;
#X obj 35 395 +;
#X obj 373 487 spigot;
#X obj 421 466 r live-data;
#X obj 373 465 r p1-n;
#X obj 378 509 set t_fredpoint n;
#X obj 365 551 spigot;
#X obj 420 529 r live-data;
#X obj 365 529 r p1-nf;
#X obj 370 573 set t_fredpoint nf;
#X obj 364 616 spigot;
#X obj 419 594 r live-data;
#X obj 364 594 r p1-ff;
#X obj 369 638 set t_fredpoint ff;
#X obj 361 681 spigot;
#X obj 416 659 r live-data;
#X obj 361 659 r p1-fd;
#X obj 368 702 set t_fredpoint fd;
#X obj 368 744 spigot;
#X obj 416 723 r live-data;
#X obj 368 722 r p1-p;
#X obj 373 766 set t_fredpoint p;
#X obj 573 520 r fromprev-cf;
#X obj 174 239 s live-index;
#X obj 555 188 r live-index;
#X obj 198 75 r live-index;
#X obj 600 562 r live-index;
#X obj 573 562 f;
#X obj 573 583 - 1;
#X obj 621 540 r live-data;
#X obj 573 541 spigot;
#X obj 559 135 s live-pointer;
#X obj 204 104 r live-pointer;
#X obj 224 267 r live-pointer;
#X obj 605 583 r live-pointer;
#X obj 573 607 element t_fred vec;
#X obj 573 652 s p1-cf;
#X msg 213 475 30;
#X obj 573 629 get t_fredpoint cf;
#X obj 554 208 element t_fred vec;
#X obj 536 308 pointer;
#X obj 554 229 t p p;
#X obj 180 313 t p p;
#X obj 600 406 r live-index;
#X obj 573 406 f;
#X obj 573 427 - 1;
#X obj 621 384 r live-data;
#X obj 573 385 spigot;
#X obj 605 427 r live-pointer;
#X obj 573 451 element t_fred vec;
#X obj 573 364 r fromprev-a;
#X obj 573 473 get t_fredpoint a;
#X obj 573 496 s p1-a;
#X obj 599 721 r live-index;
#X obj 572 721 f;
#X obj 572 742 - 1;
#X obj 620 699 r live-data;
#X obj 572 700 spigot;
#X obj 604 742 r live-pointer;
#X obj 572 766 element t_fred vec;
#X obj 572 679 r fromprev-bw;
#X obj 572 788 get t_fredpoint bw;
#X obj 572 811 s p1-bw;
#X obj 747 560 r live-index;
#X obj 720 560 f;
#X obj 720 581 - 1;
#X obj 768 538 r live-data;
#X obj 720 539 spigot;
#X obj 752 581 r live-pointer;
#X obj 720 605 element t_fred vec;
#X obj 747 404 r live-index;
#X obj 720 404 f;
#X obj 720 425 - 1;
#X obj 768 382 r live-data;
#X obj 720 383 spigot;
#X obj 752 425 r live-pointer;
#X obj 720 449 element t_fred vec;
#X obj 746 719 r live-index;
#X obj 719 719 f;
#X obj 719 740 - 1;
#X obj 767 697 r live-data;
#X obj 719 698 spigot;
#X obj 751 740 r live-pointer;
#X obj 719 764 element t_fred vec;
#X obj 720 362 r fromprev-s;
#X obj 720 471 get t_fredpoint s;
#X obj 720 494 s p1-s;
#X obj 720 518 r fromprev-n;
#X obj 720 627 get t_fredpoint n;
#X obj 720 650 s p1-n;
#X obj 719 677 r fromprev-nf;
#X obj 719 786 get t_fredpoint nf;
#X obj 719 809 s p1-nf;
#X obj 890 559 r live-index;
#X obj 863 559 f;
#X obj 863 580 - 1;
#X obj 911 537 r live-data;
#X obj 863 538 spigot;
#X obj 895 580 r live-pointer;
#X obj 863 604 element t_fred vec;
#X obj 890 403 r live-index;
#X obj 863 403 f;
#X obj 863 424 - 1;
#X obj 911 381 r live-data;
#X obj 863 382 spigot;
#X obj 895 424 r live-pointer;
#X obj 863 448 element t_fred vec;
#X obj 889 718 r live-index;
#X obj 862 718 f;
#X obj 862 739 - 1;
#X obj 910 696 r live-data;
#X obj 862 697 spigot;
#X obj 894 739 r live-pointer;
#X obj 862 763 element t_fred vec;
#X obj 863 361 r fromprev-ff;
#X obj 863 470 get t_fredpoint ff;
#X obj 863 493 s p1-ff;
#X obj 863 517 r fromprev-fd;
#X obj 863 626 get t_fredpoint fd;
#X obj 863 649 s p1-fd;
#X obj 862 676 r fromprev-p;
#X obj 862 785 get t_fredpoint p;
#X obj 862 808 s p1-p;
#X obj 118 99 - 1;
#X obj 163 97 + 1;
#X obj 12 361 f;
#X obj 10 476 f;
#X obj 7 547 f;
#X msg 770 82 0;
#X obj 820 128 s p1-a;
#X obj 632 84 t b p b p;
#N canvas 299 129 432 397 get-clef 0;
#X obj 129 40 inlet;
#X obj 115 115 pointer;
#X msg 97 93 rewind;
#X obj 115 167 until;
#X obj 115 142 t b p;
#X msg 115 191 next;
#X obj 311 228 b;
#X obj 152 229 pointer t_clef t_fred;
#X obj 129 64 t b p p;
#X obj 220 93 get t_fred x;
#X obj 272 282 get t_fred x;
#X obj 148 323 >=;
#X obj 146 352 sel 1;
#X obj 154 283 get t_clef x y;
#X obj 247 332 s select-clef-y;
#X connect 0 0 8 0;
#X connect 1 0 4 0;
#X connect 2 0 1 0;
#X connect 3 0 5 0;
#X connect 4 0 3 0;
#X connect 4 1 7 1;
#X connect 5 0 7 0;
#X connect 6 0 3 1;
#X connect 7 0 13 0;
#X connect 7 1 10 0;
#X connect 7 3 6 0;
#X connect 8 0 2 0;
#X connect 8 1 1 1;
#X connect 8 2 9 0;
#X connect 9 0 11 1;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 12 0 3 1;
#X connect 13 0 11 0;
#X connect 13 1 14 0;
#X restore 779 156 pd get-clef;
#X obj 53 304 r select-clef-y;
#X msg 782 128 0;
#X obj 769 104 t f f;
#X obj 32 664 spigot;
#X obj 69 644 r live-data;
#X obj 32 642 f;
#X obj 32 622 r tie;
#X obj 67 690 set t_fred tie;
#X obj 202 389 get t_fred y ft t tie;
#X obj 296 477 s tie;
#X obj 231 540 setctl tie;
#X msg 442 137 1;
#X obj 174 170 - 1;
#X connect 0 0 35 0;
#X connect 1 0 108 0;
#X connect 2 0 1 0;
#X connect 2 1 89 0;
#X connect 15 1 3 0;
#X connect 15 2 4 0;
#X connect 15 3 5 0;
#X connect 15 4 6 0;
#X connect 15 5 7 0;
#X connect 15 6 8 0;
#X connect 15 7 9 0;
#X connect 15 8 10 0;
#X connect 15 9 11 0;
#X connect 16 0 210 0;
#X connect 17 0 18 0;
#X connect 18 0 21 0;
#X connect 19 0 189 0;
#X connect 20 0 190 0;
#X connect 21 0 2 0;
#X connect 22 0 24 0;
#X connect 23 0 27 0;
#X connect 24 0 21 0;
#X connect 27 0 19 0;
#X connect 28 0 29 0;
#X connect 29 0 20 0;
#X connect 31 0 17 0;
#X connect 31 1 32 0;
#X connect 32 0 16 0;
#X connect 33 0 34 0;
#X connect 33 0 66 1;
#X connect 33 0 67 1;
#X connect 35 0 196 0;
#X connect 35 1 194 0;
#X connect 36 0 37 0;
#X connect 38 0 41 0;
#X connect 39 0 38 1;
#X connect 40 0 38 0;
#X connect 42 0 45 0;
#X connect 43 0 42 1;
#X connect 44 0 42 0;
#X connect 46 0 49 0;
#X connect 47 0 46 1;
#X connect 48 0 46 0;
#X connect 50 0 53 0;
#X connect 51 0 50 1;
#X connect 52 0 50 0;
#X connect 54 0 57 0;
#X connect 55 0 54 1;
#X connect 56 0 192 0;
#X connect 58 0 63 0;
#X connect 59 0 58 1;
#X connect 60 0 64 0;
#X connect 61 0 60 1;
#X connect 62 0 193 0;
#X connect 65 0 191 0;
#X connect 66 0 12 0;
#X connect 67 0 60 0;
#X connect 68 0 71 0;
#X connect 69 0 68 1;
#X connect 70 0 68 0;
#X connect 72 0 75 0;
#X connect 73 0 72 1;
#X connect 74 0 72 0;
#X connect 76 0 79 0;
#X connect 77 0 76 1;
#X connect 78 0 76 0;
#X connect 80 0 83 0;
#X connect 81 0 80 1;
#X connect 82 0 80 0;
#X connect 84 0 87 0;
#X connect 85 0 84 1;
#X connect 86 0 84 0;
#X connect 88 0 96 0;
#X connect 90 0 105 0;
#X connect 91 0 20 1;
#X connect 91 0 19 1;
#X connect 92 0 93 1;
#X connect 93 0 94 0;
#X connect 94 0 101 0;
#X connect 95 0 96 1;
#X connect 96 0 93 0;
#X connect 98 0 32 1;
#X connect 99 0 1 1;
#X connect 100 0 101 1;
#X connect 101 0 104 0;
#X connect 103 0 64 0;
#X connect 104 0 102 0;
#X connect 105 0 107 0;
#X connect 106 0 41 1;
#X connect 106 0 45 1;
#X connect 106 0 49 1;
#X connect 106 0 53 1;
#X connect 106 0 71 1;
#X connect 106 0 75 1;
#X connect 106 0 79 1;
#X connect 106 0 83 1;
#X connect 106 0 87 1;
#X connect 107 0 15 0;
#X connect 107 1 106 0;
#X connect 108 0 206 0;
#X connect 108 1 64 1;
#X connect 108 1 57 1;
#X connect 108 1 63 1;
#X connect 108 1 205 1;
#X connect 109 0 110 1;
#X connect 110 0 111 0;
#X connect 111 0 115 0;
#X connect 112 0 113 1;
#X connect 113 0 110 0;
#X connect 114 0 115 1;
#X connect 115 0 117 0;
#X connect 116 0 113 0;
#X connect 117 0 118 0;
#X connect 119 0 120 1;
#X connect 120 0 121 0;
#X connect 121 0 125 0;
#X connect 122 0 123 1;
#X connect 123 0 120 0;
#X connect 124 0 125 1;
#X connect 125 0 127 0;
#X connect 126 0 123 0;
#X connect 127 0 128 0;
#X connect 129 0 130 1;
#X connect 130 0 131 0;
#X connect 131 0 135 0;
#X connect 132 0 133 1;
#X connect 133 0 130 0;
#X connect 134 0 135 1;
#X connect 135 0 154 0;
#X connect 136 0 137 1;
#X connect 137 0 138 0;
#X connect 138 0 142 0;
#X connect 139 0 140 1;
#X connect 140 0 137 0;
#X connect 141 0 142 1;
#X connect 142 0 151 0;
#X connect 143 0 144 1;
#X connect 144 0 145 0;
#X connect 145 0 149 0;
#X connect 146 0 147 1;
#X connect 147 0 144 0;
#X connect 148 0 149 1;
#X connect 149 0 157 0;
#X connect 150 0 140 0;
#X connect 151 0 152 0;
#X connect 153 0 133 0;
#X connect 154 0 155 0;
#X connect 156 0 147 0;
#X connect 157 0 158 0;
#X connect 159 0 160 1;
#X connect 160 0 161 0;
#X connect 161 0 165 0;
#X connect 162 0 163 1;
#X connect 163 0 160 0;
#X connect 164 0 165 1;
#X connect 165 0 184 0;
#X connect 166 0 167 1;
#X connect 167 0 168 0;
#X connect 168 0 172 0;
#X connect 169 0 170 1;
#X connect 170 0 167 0;
#X connect 171 0 172 1;
#X connect 172 0 181 0;
#X connect 173 0 174 1;
#X connect 174 0 175 0;
#X connect 175 0 179 0;
#X connect 176 0 177 1;
#X connect 177 0 174 0;
#X connect 178 0 179 1;
#X connect 179 0 187 0;
#X connect 180 0 170 0;
#X connect 181 0 182 0;
#X connect 183 0 163 0;
#X connect 184 0 185 0;
#X connect 186 0 177 0;
#X connect 187 0 188 0;
#X connect 189 0 31 0;
#X connect 190 0 31 0;
#X connect 191 0 67 0;
#X connect 192 0 54 0;
#X connect 193 0 58 0;
#X connect 194 0 200 0;
#X connect 196 0 209 0;
#X connect 196 1 97 0;
#X connect 196 1 105 1;
#X connect 196 2 36 0;
#X connect 196 3 197 0;
#X connect 198 0 33 0;
#X connect 199 0 195 0;
#X connect 200 0 199 0;
#X connect 200 1 37 0;
#X connect 201 0 205 0;
#X connect 202 0 201 1;
#X connect 203 0 201 0;
#X connect 204 0 203 0;
#X connect 206 0 66 0;
#X connect 206 1 13 0;
#X connect 206 2 14 0;
#X connect 206 3 207 0;
#X connect 209 0 31 0;
#X connect 210 0 17 1;
#X restore 30 66 pd -works---;
#X text 64 19 <--;
#X text 104 20 -->;
#X obj 162 37 bng 15 250 50 0 fromprev-aa empty a 18 6 0 10 -262144
-1 -1;
#X obj 162 88 bng 15 250 50 0 fromprev-s empty s 18 6 0 10 -262144
-1 -1;
#X obj 162 71 bng 15 250 50 0 fromprev-bw empty bw 18 6 0 10 -262144
-1 -1;
#X obj 162 122 bng 15 250 50 0 fromprev-nf empty nf 18 6 0 10 -262144
-1 -1;
#X obj 162 105 bng 15 250 50 0 fromprev-n empty n 18 6 0 10 -262144
-1 -1;
#X obj 162 156 bng 15 250 50 0 fromprev-fd empty fd 18 6 0 10 -262144
-1 -1;
#X obj 162 139 bng 15 250 50 0 fromprev-ff empty ff 18 6 0 10 -262144
-1 -1;
#X obj 162 173 bng 15 250 50 0 fromprev-p empty p 18 6 0 10 -262144
-1 -1;
#X obj 85 110 tgl 15 0 empty live-data empty 0 -6 0 8 -262144 -1 -1
0 1;
#X text 81 92 live;
#X obj 39 161 tgl 15 0 tie tie-set empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X text 36 142 tie;
#X text 155 0 get from;
#X text 156 15 previous;
#X msg 248 14 \; pd-sect99 write ex1.txt;
#X msg 248 48 \; pd-sect99 read ex1.txt;
#X msg 247 84 \; pd-sect99 write ex2.txt;
#X msg 247 118 \; pd-sect99 read ex2.txt;
#N canvas 554 543 569 337 make-markers 0;
#X obj 186 93 pointer;
#X msg 37 49 bang;
#X text 39 24 ADD MARKERS;
#X obj 56 250 append t_xmarker x y h;
#X obj 37 70 t b b b;
#X obj 37 317 append t_ymarker x y;
#X msg 186 72 traverse pd-sect99 \, bang;
#X msg 188 25 \; pd-sect99 clear;
#X msg 56 121 0 \$1 \$3 \, 40 \$1 \$2 \, 80 \$1 \$2 \, 120 \$1 \$2
\, 160 \$1 \$3 \, 200 \$1 \$2 \, 240 \$1 \$2 \, 280 \$1 \$2 \, 320
\$1 \$3 \, 360 \$1 \$2 \, 400 \$1 \$2 \, 440 \$1 \$2 \, 480 \$1 \$3
\, 520 \$1 \$2 \, 560 \$1 \$2 \, 600 \$1 \$2 \, 640 \$1 \$3 \, 680
\$1 \$2 \, 720 \$1 \$2 \, 760 \$1 \$2 \, 800 \$1 \$3 \, 840 \$1 \$2
\, 880 \$1 \$2 \, 920 \$1 \$2 \, 960 \$1 \$3 \, 1000 \$1 \$2 \, 1040
\$1 \$2 \, 1080 \$1 \$2 \, 1120 \$1 \$3 \, 1160 \$1 \$2 \, 1200 \$1
\$2 \, 1240 \$1 \$2;
#X msg 56 96 1 1 3;
#X msg 37 274 0 \, 640;
#X msg 37 296 \$1 24 \, \$1 36 \, \$1 48 \, \$1 60 \, \$1 72 \, \$1
84 \, \$1 96;
#X connect 0 0 3 3;
#X connect 0 0 5 2;
#X connect 1 0 4 0;
#X connect 4 0 10 0;
#X connect 4 1 9 0;
#X connect 4 2 6 0;
#X connect 6 0 0 0;
#X connect 8 0 3 0;
#X connect 9 0 8 0;
#X connect 10 0 11 0;
#X connect 11 0 5 0;
#X restore 249 155 pd make-markers;
#N canvas 332 174 659 401 transpose 0;
#X obj 104 71 mtof;
#X floatatom 104 45 0 0 0 0 - - -;
#X obj 157 73 mtof;
#X floatatom 157 47 0 0 0 0 - - -;
#X obj 105 128 f;
#X obj 138 104 t b f;
#X obj 105 154 / 1;
#X floatatom 105 178 0 0 0 0 - - -;
#X floatatom 283 95 0 0 0 0 - - -;
#X msg 283 75 set \$1;
#X obj 283 157 -;
#X obj 283 54 r pit11;
#X obj 296 134 r pit11;
#X obj 353 159 r pit11;
#X obj 401 159 r pit12;
#X obj 452 158 r pit13;
#X obj 501 158 r pit14;
#X obj 287 216 +;
#X obj 339 219 +;
#X obj 390 215 +;
#X obj 436 217 +;
#X obj 289 244 s pit11;
#X obj 337 244 s pit12;
#X obj 388 243 s pit13;
#X obj 437 243 s pit14;
#X connect 0 0 4 0;
#X connect 1 0 0 0;
#X connect 2 0 5 0;
#X connect 3 0 2 0;
#X connect 4 0 6 0;
#X connect 5 0 4 0;
#X connect 5 1 6 1;
#X connect 6 0 7 0;
#X connect 8 0 10 0;
#X connect 9 0 8 0;
#X connect 10 0 17 0;
#X connect 10 0 18 0;
#X connect 10 0 19 0;
#X connect 10 0 20 0;
#X connect 11 0 9 0;
#X connect 12 0 10 1;
#X connect 13 0 17 1;
#X connect 14 0 18 1;
#X connect 15 0 19 1;
#X connect 16 0 20 1;
#X connect 17 0 21 0;
#X connect 18 0 22 0;
#X connect 19 0 23 0;
#X connect 20 0 24 0;
#X restore 249 176 pd transpose;
#X connect 0 0 6 0;
#X connect 2 0 6 1;
#X connect 3 0 6 2;
#X restore 95 232 pd editor;
#N canvas 9 90 445 618 t_fredpoint 0;
#X obj 42 142 r dn-cf;
#X obj 43 184 r dn-bw;
#X obj 43 229 r dn-n;
#X obj 43 273 r dn-nf;
#X obj 45 361 r dn-ff;
#X obj 45 401 r dn-fd;
#X obj 45 444 r dn-p;
#X obj 42 487 r dn-s;
#X obj 42 101 r dn-a;
#X obj 42 123 drawnumber -v 0 a 0 3 0 a=;
#X obj 42 164 drawnumber -v 0 cf 0 -3 0 cf=;
#X obj 43 208 drawnumber -v 0 bw 0 -6 0 bw=;
#X obj 43 252 drawnumber -v 0 n 0 -9 0 n=;
#X obj 43 295 drawnumber -v 0 nf 0 -12 0 nf=;
#X obj 45 381 drawnumber -v 0 ff 0 -15 0 ff=;
#X obj 45 422 drawnumber -v 0 fd 0 -18 0 fd=;
#X obj 45 466 drawnumber -v 0 p 0 -21 0 p=;
#X obj 42 509 drawnumber -v 0 s 0 -24 0 s=;
#X obj 39 532 r dn-time;
#X obj 47 76 drawpolygon 0 0 0 -1 0 1;
#X obj 39 554 drawnumber -v 0 time 0 -0.25 0;
#X obj 9 29 struct t_fredpoint float time float a float f float cf
float bw float s float n float ff float fd float p float nf float nc
;
#X obj 44 316 r dn-nc;
#X obj 44 338 drawnumber -v 0 nc 0 -12 0 nc=;
#X connect 0 0 10 0;
#X connect 1 0 11 0;
#X connect 2 0 12 0;
#X connect 3 0 13 0;
#X connect 4 0 14 0;
#X connect 5 0 15 0;
#X connect 6 0 16 0;
#X connect 7 0 17 0;
#X connect 8 0 9 0;
#X connect 18 0 20 0;
#X connect 22 0 23 0;
#X restore 95 329 pd t_fredpoint;
#N canvas 507 97 512 784 t_fred 0;
#X obj 45 335 r d-cf;
#X obj 46 382 r d-bw;
#X obj 44 428 r d-a;
#X obj 44 474 r d-n;
#X obj 44 518 r d-nf;
#X obj 43 563 r d-ff;
#X obj 43 612 r d-fd;
#X obj 45 658 r d-p;
#X obj 46 707 r d-s;
#X obj 15 51 s fred-select;
#X obj 45 358 plot -v 0 -vs 0 -y cf(0:120)(0:60) vec 90 2 dx dy 200
1;
#X obj 46 403 plot -v 0 -vs 0 -y bw(0:120)(0:10) vec 9 2 dx dy 200
1;
#X obj 41 451 plot -v 0 -vs 0 -y a(0:120)(0:30) vec 0 2 dx dy 200 1
;
#X obj 44 634 plot -v 0 -vs 0 -y fd(0:1000)(0:200) vec 900 2 dx dy
200 1;
#X obj 45 497 plot -v 0 -vs 0 -y n(0:100)(0:25) vec 700 2 dx dy 200
1;
#X obj 44 542 plot -v 0 -vs 0 -y nf(0:200)(0:25) vec 90 2 dx dy 200
1;
#X obj 46 682 plot -v 0 -vs 0 -y p(0:6400)(0:100) vec 99 2 dx dy 200
1;
#X obj 46 730 plot -v 0 -vs 0 -y s(-50:50)(0:25) vec 909 2 dx dy 200
1;
#X obj 43 587 plot -v 0 -vs 0 -y ff(-100:60)(0:40) vec 6 2 dx dy 200
1;
#X obj 20 216 r d-pitch;
#X obj 20 173 r d-table;
#X obj 258 172 r d-fmtable;
#X obj 258 214 r d-color;
#X obj 20 194 drawnumber -v 0 t -120 0 0 t=;
#X obj 20 237 drawnumber -v 0 y -120 0;
#X obj 258 236 drawnumber -v 0 color -200 0 0 v=;
#X obj 258 193 drawnumber -v 0 ft -200 0 0 ft=;
#X obj 16 107 plot -x time vec color 1 0 0 20;
#X obj 15 17 struct t_fred float x float y float ft float t float color
float dx float dy float tie array vec t_fredpoint;
#X obj 257 259 r d-tie;
#X obj 257 282 drawnumber -v 0 tie -240 0 0 tie=;
#X obj 16 131 drawcurve -v tie 0 2 dx(0:1000000)(-80:999920) 3 dx(0:1000000)(-20:999980)
3 dx 0;
#X obj 21 259 r d-frame;
#X obj 16 72 filledpolygon color color 0 -5 0.5 -5 -0.5 5 -0.5 5 0.5
-5 0.5;
#X obj 37 282 plot vec color 1 dx dy 200 1;
#X obj 21 303 drawpolygon color 1 dx 0 dx dy(-1000:1000)(-997:1003)
;
#X connect 0 0 10 0;
#X connect 1 0 11 0;
#X connect 2 0 12 0;
#X connect 3 0 14 0;
#X connect 4 0 15 0;
#X connect 5 0 18 0;
#X connect 6 0 13 0;
#X connect 7 0 16 0;
#X connect 8 0 17 0;
#X connect 19 0 24 0;
#X connect 20 0 23 0;
#X connect 21 0 26 0;
#X connect 22 0 25 0;
#X connect 28 0 9 0;
#X connect 29 0 30 0;
#X connect 32 0 34 0;
#X connect 32 0 35 0;
#X restore 95 310 pd t_fred;
#N canvas 61 31 294 182 templates 0;
#N canvas 0 0 402 288 t_sect 0;
#X obj 60 48 struct t_sect float x float y float n;
#X obj 162 182 pointer;
#X msg 162 159 traverse pd-sect99 \, bang;
#X obj 61 205 append t_sect x y;
#X msg 62 178 1000 50;
#X obj 60 70 drawpolygon 0 1 -60 0 0 0 -12 -1 0 0 -12 1;
#X obj 62 109 drawnumber n 13 1.5 0 next_sect=;
#X connect 1 0 3 2;
#X connect 2 0 1 0;
#X connect 4 0 3 0;
#X restore 33 107 pd t_sect;
#N canvas 508 188 443 836 t_clef 0;
#X obj 264 781 pointer;
#X msg 264 758 traverse pd-sect99 \, bang;
#X obj 150 802 append t_clef x y;
#X msg 150 777 50 50;
#X text 107 377 E;
#X text 108 335 G;
#X text 108 292 B;
#X text 110 248 D;
#X text 113 209 F;
#X text 146 165 A;
#X text 146 122 C;
#X text 144 424 C;
#X obj 164 445 drawpolygon 0 1 130 -1 150 -1;
#X obj 164 402 drawpolygon 0 1 130 2 150 2;
#X obj 126 357 drawpolygon 0 1 130 5 150 5;
#X obj 127 315 drawpolygon 0 1 130 9 150 9;
#X obj 127 273 drawpolygon 0 1 130 12 150 12;
#X obj 127 231 drawpolygon 0 1 130 16 150 16;
#X obj 166 185 drawpolygon 0 1 130 19 150 19;
#X obj 166 143 drawpolygon 0 1 130 23 150 23;
#X obj 19 50 drawcurve 0 1 40 2 60 20 70 20 70 13 0 9 40 4 90 9 50
10 40 9;
#X text 108 467 A;
#X text 109 634 G;
#X text 109 591 B;
#X text 111 547 D;
#X text 114 508 F;
#X obj 128 614 drawpolygon 0 1 130 -15 150 -15;
#X text 146 718 C;
#X text 146 678 E;
#X obj 166 658 drawpolygon 0 1 130 -19 150 -19;
#X obj 166 698 drawpolygon 0 1 130 -22 150 -22;
#X obj 17 86 drawcurve 0 1 30 -5 50 -4 80 -5 70 -10 40 -14;
#X obj 49 24 s clef-select;
#X obj 49 2 struct t_clef float x float y float w;
#X obj 166 122 drawpolygon 777 1 110 24 w 24;
#X obj 166 164 drawpolygon 777 1 110 21 w 21;
#X obj 128 551 drawpolygon 0 1 0 -10 w -10;
#X obj 164 424 drawpolygon 777 1 110 0 w 0;
#X obj 166 678 drawpolygon 777 1 110 -20 w -20;
#X obj 166 718 drawpolygon 777 1 110 -24 w -24;
#X obj 127 210 drawpolygon 0 2 0 17 w 17;
#X obj 127 252 drawpolygon 0 2 0 14 w 14;
#X obj 127 294 drawpolygon 0 2 0 11 w 11;
#X obj 126 336 drawpolygon 0 2 0 7 w 7;
#X obj 127 378 drawpolygon 0 2 0 4 w 4;
#X obj 128 593 drawpolygon 0 2 0 -13 w -13;
#X obj 128 572 drawpolygon 0 1 130 -12 150 -12;
#X obj 127 635 drawpolygon 0 2 0 -17 w -17;
#X obj 128 489 drawpolygon 0 1 130 -5 150 -5;
#X obj 128 468 drawpolygon 0 2 0 -3 w -3;
#X obj 128 509 drawpolygon 0 2 0 -7 w -7;
#X obj 128 530 drawpolygon 0 1 130 -8 150 -8;
#X obj 14 108 r d-clef2;
#X obj 8 189 r d-clef1;
#X obj 4 389 r d-clef2;
#X obj 10 447 r d-clef1;
#X obj 13 656 r d-clef2;
#X connect 0 0 2 2;
#X connect 1 0 0 0;
#X connect 3 0 2 0;
#X connect 33 0 32 0;
#X connect 52 0 34 0;
#X connect 52 0 19 0;
#X connect 52 0 35 0;
#X connect 52 0 18 0;
#X connect 53 0 40 0;
#X connect 53 0 17 0;
#X connect 53 0 41 0;
#X connect 53 0 16 0;
#X connect 53 0 42 0;
#X connect 53 0 15 0;
#X connect 53 0 43 0;
#X connect 53 0 14 0;
#X connect 53 0 44 0;
#X connect 54 0 13 0;
#X connect 54 0 37 0;
#X connect 54 0 12 0;
#X connect 55 0 49 0;
#X connect 55 0 48 0;
#X connect 55 0 50 0;
#X connect 55 0 51 0;
#X connect 55 0 36 0;
#X connect 55 0 46 0;
#X connect 55 0 45 0;
#X connect 55 0 26 0;
#X connect 55 0 47 0;
#X connect 56 0 29 0;
#X connect 56 0 38 0;
#X connect 56 0 30 0;
#X connect 56 0 39 0;
#X restore 33 126 pd t_clef;
#N canvas 6 312 437 306 t_tmarker 0;
#X obj 157 208 pointer;
#X msg 157 185 traverse pd-sect99 \, bang;
#X msg 57 204 50 50;
#X obj 56 231 append t_tmarker x y;
#X obj 60 48 struct t_tmarker float x float y float n float h;
#X obj 57 129 drawpolygon 0 1 0 h 0 0 -10 0 0 0 10 0;
#X obj 58 153 drawnumber n -13 -1 0;
#X obj 57 109 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X obj 57 87 r d-tmarkers;
#X connect 0 0 3 2;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 7 0 5 0;
#X connect 8 0 7 0;
#X restore 33 146 pd t_tmarker;
#X restore 95 290 pd templates;
#X text 34 13 Here's another attempt at a graphical score front end.
It seems too complicated for Speech Songs....;
#X connect 5 0 7 0;
#X connect 6 0 7 0;
#X restore 339 196 pd old-gfx-scores;
#N canvas 214 172 450 300 newtemplates 0;
#N canvas 132 40 1092 353 nsequence 0;
#X scalar t_nclef 0 40 84465.2 \;;
#X scalar t_nnote 301.86 43 am \;;
#X scalar t_nnote 464.4 56 man \;;
#X scalar t_nnote 1346.76 56 - \;;
#X scalar t_nnote 2530.98 59 am \;;
#X scalar t_nnote 2647.08 49 man \;;
#X scalar t_nnote 3343.68 43 am \;;
#X scalar t_nnote 3483 54 man \;;
#X scalar t_nnote 4365.36 54 - \;;
#X scalar t_nnote 5607.63 54 am \;;
#X scalar t_nnote 5735.34 50 man \;;
#X scalar t_nnote 6420.33 50 - \;;
#X scalar t_nnote 6501.6 50 am \;;
#X scalar t_nnote 6629.31 46 man \;;
#X scalar t_nnote 7302.69 46 - \;;
#X scalar t_nnote 8289.54 46 am \;;
#X scalar t_nnote 8335.98 54 man \;;
#X scalar t_nnote 8637.84 54 am \;;
#X scalar t_nnote 8707.5 43 man \;;
#X scalar t_nnote 9032.58 43 - \;;
#X scalar t_nnote 9880.11 46 am \;;
#X scalar t_nnote 10054.3 57 man \;;
#X scalar t_nnote 10925 57 - \;;
#X scalar t_nnote 12053.4 57 man \;;
#X scalar t_nnote 12216 55 man \;;
#X scalar t_nnote 12471.4 56 man \;;
#X scalar t_nnote 12831.3 54 man \;;
#X scalar t_nnote 13260.9 53 man \;;
#X scalar t_nnote 13806.5 59 man \;;
#X scalar t_nnote 14526.4 48 man \;;
#X scalar t_nnote 15420.3 48 - \;;
#X scalar t_nnote 16610.7 37 man \;;
#X scalar t_nnote 17272.5 36 am \;;
#X scalar t_nnote 17400.2 42 man \;;
#X scalar t_nnote 18003.9 39 man \;;
#X scalar t_nnote 18479.9 35 man \;;
#X scalar t_nnote 18874.7 38 man \;;
#X scalar t_nnote 19246.2 41 man \;;
#X scalar t_nnote 19606.1 44 man \;;
#X scalar t_nnote 19896.3 40 mm \;;
#X scalar t_nnote 20128.5 43 mm \;;
#X scalar t_nnote 20325.9 46 mm \;;
#X scalar t_nnote 20500.1 57 mm2 \;;
#X scalar t_nnote 20616.2 56 mm2 \;;
#X scalar t_nnote 20732.3 55 mm2 \;;
#X scalar t_nnote 20860 56 mm2 \;;
#X scalar t_nnote 20976.1 53 mm2 \;;
#X scalar t_nnote 21103.8 47 mm2 \;;
#X scalar t_nnote 21301.1 48 mm2 \;;
#X scalar t_nnote 21498.5 51 an \;;
#X scalar t_nnote 21858.4 53 an \;;
#X scalar t_nnote 22253.2 47 an \;;
#X scalar t_nnote 22624.7 53 an \;;
#X scalar t_nnote 23182 53 - \;;
#X scalar t_nnote 23274.8 44 man \;;
#X scalar t_nnote 24354.6 44 - \;;
#X scalar t_nnote 25240.7 43 a \;;
#X scalar t_nnote 25368.4 56 man \;;
#X scalar t_nnoise 25879.3 62 200 \;;
#X scalar t_nnote 25879.3 58 sit \;;
#X scalar t_nnoise 26297.2 62 40 \;;
#X scalar t_nnote 26297.2 58 ting \;;
#X scalar t_nnote 26912.6 48 in \;;
#X scalar t_nnoise 27446.6 55 50 \;;
#X scalar t_nnote 27446.6 51 the \;;
#X scalar t_nnoise 27725.3 66 100 \;;
#X scalar t_nnote 27725.3 62 caf \;;
#X scalar t_nnoise 28131.6 60 100 \;;
#X scalar t_nnote 28131.6 56 f \;;
#X scalar t_nnote 28305.8 56 et \;;
#X scalar t_nnoise 28352.2 71 100 \;;
#X scalar t_nnote 28352.2 67 ter \;;
#X scalar t_nnote 28735.3 57 ia \;;
#X scalar t_nnote 29281 57 - \;;
#X scalar t_nnoise 30824.3 61 150 \;;
#X scalar t_nnote 30824.3 57 sit \;;
#X scalar t_nnoise 31137.8 61 50 \;;
#X scalar t_nnote 31137.8 57 ting \;;
#X scalar t_nnote 31497.7 56 in \;;
#X scalar t_nnoise 31915.7 60 50 \;;
#X scalar t_nnote 31915.7 56 the \;;
#X scalar t_nnoise 32101.4 59 40 \;;
#X scalar t_nnote 32101.4 55 caf \;;
#X scalar t_nnoise 32356.8 62 60 \;;
#X scalar t_nnote 32356.8 58 f \;;
#X scalar t_nnote 32403.3 58 et \;;
#X scalar t_nnoise 32531 62 100 \;;
#X scalar t_nnote 32531 58 ter \;;
#X scalar t_nnote 32844.4 47 ia \;;
#X scalar t_nnote 33274 47 - \;;
#X scalar t_nnoise 33366.9 54 150 \;;
#X scalar t_nnote 33366.9 50 sit \;;
#X scalar t_nnoise 33680.4 57 50 \;;
#X scalar t_nnote 33680.4 53 ting \;;
#X scalar t_nnote 34109.9 56 in \;;
#X scalar t_nnoise 34539.5 47 50 \;;
#X scalar t_nnote 34539.5 43 the \;;
#X scalar t_nnoise 34818.1 63 50 \;;
#X scalar t_nnote 34818.1 59 caf \;;
#X scalar t_nnoise 35270.9 57 60 \;;
#X scalar t_nnote 35270.9 53 f \;;
#X scalar t_nnote 35317.4 53 et \;;
#X scalar t_nnoise 35642.5 68 100 \;;
#X scalar t_nnote 35642.5 64 ter \;;
#X scalar t_nnote 36106.9 64 i(a) \;;
#X scalar t_ngliss 36571.3 54 116 10 \;;
#X scalar t_nnote 36571.3 64 (i)a \;;
#X scalar t_nnote 36791.9 54 - \;;
#X scalar t_nnote 37963.6 56 had \;;
#X scalar t_nnote 38219.1 52 one \;;
#X scalar t_nnote 38787.9 52 - \;;
#X scalar t_nnote 39020.1 52 e \;;
#X scalar t_nnote 39205.9 50 normou \;;
#X scalar t_nnoise 39809.6 54 160 \;;
#X scalar t_nnote 39809.6 50 (ou)s \;;
#X scalar t_nnote 39972.2 50 - \;;
#X scalar t_nnote 40099.9 61 ear \;;
#X scalar t_nnote 40622.3 61 - \;;
#X scalar t_nnote 41330.5 61 and \;;
#X scalar t_nnote 41630.9 61 one2 \;;
#X scalar t_nnote 42143.2 61 - \;;
#X scalar t_nnoise 42665.7 65 30 \;;
#X scalar t_nnote 42665.7 61 ti \;;
#X scalar t_nnote 42851.4 51 ny \;;
#X scalar t_nnote 43130.1 51 - \;;
#X scalar t_nnote 43246.2 51 one3 \;;
#X scalar t_nnote 43815.1 51 - \;;
#X scalar t_nnote 44569.7 51 whi \;;
#X scalar t_nnoise 44720.6 55 170 \;;
#X scalar t_nnote 44720.6 51 ch \;;
#X scalar t_nnote 44894.8 61 wa \;;
#X scalar t_nnoise 45127 65 150 \;;
#X scalar t_nnote 45127 61 (wa)s \;;
#X scalar t_nnote 45277.9 50 fa \;;
#X scalar t_nnote 45545 50 - \;;
#X scalar t_nnoise 45637.8 54 120 \;;
#X scalar t_nnote 45637.8 50 (fa)k \;;
#X scalar t_nnote 45742.3 50 - \;;
#X scalar t_nnote 46543.4 50 whi \;;
#X scalar t_nnoise 46694.4 54 170 \;;
#X scalar t_nnote 46694.4 50 ch \;;
#X scalar t_nnote 46856.9 61 wa \;;
#X scalar t_nnoise 47089.1 65 150 \;;
#X scalar t_nnote 47089.1 61 (wa)s \;;
#X scalar t_nnote 47251.6 51 fa \;;
#X scalar t_nnote 47530.3 51 - \;;
#X scalar t_nnoise 47611.5 55 120 \;;
#X scalar t_nnote 47611.5 51 (fa)k \;;
#X scalar t_nnote 47739.2 51 - \;;
#X scalar t_nnote 48217.5 40 one2 \;;
#X scalar t_nnote 48577.4 43 one2 \;;
#X scalar t_nnote 48844.4 42 one2 \;;
#X scalar t_nnote 49146.3 39 one2 \;;
#X scalar t_nnote 49773.2 45 one2 \;;
#X scalar t_nnote 50400.2 34 one2 \;;
#X scalar t_nnote 51062 40 one2 \;;
#X scalar t_nnote 51270.9 51 one2 \;;
#X scalar t_nnote 51897.9 49 (o)ne2 \;;
#X scalar t_nnote 51897.9 49 (o)ne2 \;;
#X scalar t_nnote 52420.3 47 (o)ne2 \;;
#X scalar t_nnote 52757 48 (o)ne2 \;;
#X scalar t_nnote 53082.1 50 (o)ne2 \;;
#X scalar t_nnote 53395.6 44 (o)ne2 \;;
#X scalar t_nnote 53918 53 (o)ne2 \;;
#X scalar t_nnote 54986.1 49 (o)ne2 \;;
#X scalar t_nnote 55427.3 48 (o)ne2 \;;
#X scalar t_nnote 55706 50 (o)ne2 \;;
#X scalar t_nnote 56031 47 (o)ne2 \;;
#X scalar t_nnote 56367.7 41 (o)ne2 \;;
#X scalar t_nnote 56693.5 48 (o)ne2 \;;
#X scalar t_nnote 57053.4 47 (o)ne2 \;;
#X scalar t_nnote 57401.7 38 (o)ne2 \;;
#X scalar t_nnote 57761.6 49 (o)ne2 \;;
#X scalar t_nnote 58249.3 51 (o)ne2 \;;
#X scalar t_nnote 58794.9 45 (o)ne2 \;;
#X scalar t_nnote 59120 56 (o)ne2 \;;
#X scalar t_nnote 59375.4 54 (o)ne2 \;;
#X scalar t_nnote 59596 53 (o)ne2 \;;
#X scalar t_nnote 59828.2 55 (o)ne2 \;;
#X scalar t_nnote 60072 52 (o)ne2 \;;
#X scalar t_nnote 60246.2 46 (o)ne2 \;;
#X scalar t_nnote 60705.1 61 an \;;
#X scalar t_nnote 61494.6 50 an \;;
#X scalar t_nnote 62086.7 60 an \;;
#X scalar t_nnote 62284.1 59 an \;;
#X scalar t_nnote 62539.5 56 an \;;
#X scalar t_nnote 62783.3 58 an \;;
#X scalar t_nnote 63038.7 52 an \;;
#X scalar t_nnote 63410.3 65 an \;;
#X scalar t_nnote 63805 54 an \;;
#X scalar t_nnote 64188.1 43 man \;;
#X scalar t_nnote 65093.7 43 - \;;
#X scalar t_nnote 65323.5 47 mm \;;
#X scalar t_nnote 65486.1 48 mm \;;
#X scalar t_nnote 65590.6 51 mm \;;
#X scalar t_nnote 65764.7 53 mm \;;
#X scalar t_nnote 65973.7 47 mm \;;
#X scalar t_nnote 66159.5 53 aa \;;
#X scalar t_nnote 67366.9 44 aa \;;
#X scalar t_nnote 68609.2 52 aa \;;
#X scalar t_nnote 69003.9 43 aa \;;
#X scalar t_nnote 69387 46 aa \;;
#X scalar t_nnote 69781.8 35 man \;;
#X scalar t_nnote 70617.7 35 - \;;
#X scalar t_nnote 71472.9 43 man \;;
#X scalar t_nnote 72378.5 43 - \;;
#X scalar t_nnote 72459.8 57 mm \;;
#X scalar t_nnote 72633.9 57 - \;;
#X scalar t_nnote 73168 39 man \;;
#X scalar t_nnote 74050.4 40 aa \;;
#X scalar t_nnote 74201.3 42 aa \;;
#X scalar t_nnote 74363.8 41 aa \;;
#X scalar t_nnote 74526.4 44 aa \;;
#X scalar t_nnote 74665.7 43 aa \;;
#X scalar t_nnote 74828.2 42 aa \;;
#X scalar t_nnote 75014 45 aa \;;
#X scalar t_nnote 75164.9 39 an \;;
#X scalar t_nnote 75431.9 39 - \;;
#X scalar t_nnote 75571.3 33 one2 \;;
#X scalar t_nnoise 76140.1 39 70 \;;
#X scalar t_nnote 76140.1 35 ti \;;
#X scalar t_nnote 76395.6 49 ny \;;
#X scalar t_nnote 76709 49 - \;;
#X scalar t_nnote 76836.8 38 one3 \;;
#X scalar t_nnote 77347.6 38 - \;;
#X scalar t_nnote 78938.2 38 whi \;;
#X scalar t_nnoise 79089.1 42 200 \;;
#X scalar t_nnote 79089.1 38 ch \;;
#X scalar t_nnote 79251.6 49 wa \;;
#X scalar t_nnoise 79483.8 53 200 \;;
#X scalar t_nnote 79483.8 49 (wa)s \;;
#X scalar t_nnoise 79645.5 43 70 \;;
#X scalar t_nnote 79645.5 39 fa \;;
#X scalar t_nnote 79919.7 39 - \;;
#X scalar t_nnoise 79993.8 43 200 \;;
#X scalar t_nnote 79993.8 39 (fa)k \;;
#X scalar t_nnote 80133.2 39 - \;;
#X scalar t_nnote 82267.9 39 whi \;;
#X scalar t_nnoise 82407.2 43 200 \;;
#X scalar t_nnote 82407.2 39 ch \;;
#X scalar t_nnote 82604.5 49 wa \;;
#X scalar t_nnoise 82813.5 53 200 \;;
#X scalar t_nnote 82813.5 49 (wa)s \;;
#X scalar t_nnoise 82989.2 42 70 \;;
#X scalar t_nnote 82989.2 38 fa \;;
#X scalar t_nnote 83286.6 38 - \;;
#X scalar t_nnoise 83349.1 42 200 \;;
#X scalar t_nnote 83349.1 38 (fa)k \;;
#X scalar t_nnote 83465.2 38 - \;;
#X coords 0 70.5989 5 70.3989 0 0 0;
#X restore 59 111 pd nsequence;
#N canvas 662 28 497 928 t_nclef 0;
#X obj 270 768 pointer;
#X msg 156 764 50 50;
#X text 107 377 E;
#X text 108 335 G;
#X text 108 292 B;
#X text 110 248 D;
#X text 113 209 F;
#X text 146 165 A;
#X text 146 122 C;
#X text 144 424 C;
#X obj 19 50 drawcurve 0 1 40 2 60 20 70 20 70 13 0 9 40 4 90 9 50
10 40 9;
#X text 108 467 A;
#X text 109 634 G;
#X text 109 591 B;
#X text 111 547 D;
#X text 114 508 F;
#X text 146 718 C;
#X text 146 678 E;
#X obj 17 86 drawcurve 0 1 30 -5 50 -4 80 -5 70 -10 40 -14;
#X obj 127 210 drawpolygon 0 2 0 17 w 17;
#X obj 127 252 drawpolygon 0 2 0 14 w 14;
#X obj 127 294 drawpolygon 0 2 0 11 w 11;
#X obj 126 336 drawpolygon 0 2 0 7 w 7;
#X obj 127 378 drawpolygon 0 2 0 4 w 4;
#X obj 49 1 struct t_nclef float x float y float w;
#X msg 270 745 traverse pd-nsequence \, bang;
#X obj 156 789 append t_nclef x y;
#X obj 128 468 drawpolygon 0 2 0 -3 w -3;
#X obj 127 509 drawpolygon 0 2 0 -7 w -7;
#X obj 128 551 drawpolygon 0 2 0 -10 w -10;
#X obj 128 594 drawpolygon 0 2 0 -13 w -13;
#X obj 127 635 drawpolygon 0 2 0 -17 w -17;
#X obj 128 614 drawpolygon 777 1 130 -15 w -15;
#X obj 166 698 drawpolygon 777 1 130 -22 w -22;
#X obj 128 572 drawpolygon 777 1 130 -12 w -12;
#X obj 128 530 drawpolygon 777 1 130 -8 w -8;
#X obj 128 489 drawpolygon 777 1 130 -5 w -5;
#X obj 164 445 drawpolygon 777 1 130 -1 w -1;
#X obj 166 657 drawpolygon 777 1 130 -19 w -19;
#X obj 14 108 r d-clefb;
#X obj 4 389 r d-clefb;
#X obj 13 656 r d-clefb;
#X obj 10 447 r d-clefa;
#X obj 8 189 r d-clefa;
#X msg 32 723 \; d-clefa 1 \; d-clefb 1;
#X obj 164 402 drawpolygon 777 1 130 2 w 2;
#X obj 126 357 drawpolygon 777 1 130 5 w 5;
#X obj 127 315 drawpolygon 777 1 130 9 w 9;
#X obj 127 273 drawpolygon 777 1 130 12 w 12;
#X obj 127 231 drawpolygon 777 1 130 16 w 16;
#X obj 167 185 drawpolygon 0 1 130 19 w 19;
#X obj 166 143 drawpolygon 0 1 130 23 w 23;
#X obj 166 678 drawpolygon 0 1 130 -20 w -20;
#X obj 166 718 drawpolygon 0 1 130 -24 w -24;
#X obj 166 164 drawpolygon 777 1 130 21 w 21;
#X obj 166 122 drawpolygon 777 1 130 24 w 24;
#X obj 164 424 drawpolygon 0 1 130 0 w 0;
#X msg 121 834 traverse pd-nsequence;
#X obj 164 878 until;
#X obj 78 834 t b b;
#X obj 121 858 pointer t_nclef;
#X obj 77 812 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X msg 165 899 next;
#X obj 29 894 set t_nclef x y;
#X msg 30 854 0 30 \$1;
#X connect 0 0 26 2;
#X connect 1 0 26 0;
#X connect 25 0 0 0;
#X connect 39 0 50 0;
#X connect 39 0 51 0;
#X connect 39 0 54 0;
#X connect 39 0 55 0;
#X connect 40 0 37 0;
#X connect 40 0 45 0;
#X connect 40 0 56 0;
#X connect 41 0 33 0;
#X connect 41 0 38 0;
#X connect 41 0 52 0;
#X connect 41 0 53 0;
#X connect 42 0 27 0;
#X connect 42 0 28 0;
#X connect 42 0 29 0;
#X connect 42 0 30 0;
#X connect 42 0 31 0;
#X connect 42 0 32 0;
#X connect 42 0 34 0;
#X connect 42 0 35 0;
#X connect 42 0 36 0;
#X connect 43 0 19 0;
#X connect 43 0 20 0;
#X connect 43 0 21 0;
#X connect 43 0 22 0;
#X connect 43 0 23 0;
#X connect 43 0 46 0;
#X connect 43 0 47 0;
#X connect 43 0 48 0;
#X connect 43 0 49 0;
#X connect 57 0 60 0;
#X connect 58 0 62 0;
#X connect 59 0 58 0;
#X connect 59 1 57 0;
#X connect 60 0 64 0;
#X connect 60 2 58 1;
#X connect 61 0 59 0;
#X connect 62 0 60 0;
#X connect 64 0 63 0;
#X restore 237 89 pd t_nclef;
#X text 242 65 temlates;
#N canvas 69 440 602 319 t_nnote 0;
#X obj 103 78 drawsymbol phoneme 0 -3 0;
#X obj 103 32 struct t_nnote float x float y symbol phoneme;
#X obj 103 56 filledpolygon 0 0 0 0 -1 0 1 20 1 20 -1;
#X restore 236 112 pd t_nnote;
#N canvas 394 0 602 319 t_nnoise 0;
#X obj 103 32 struct t_nnoise float x float y float w;
#X obj 103 56 filledpolygon 777 0 0 0 -1 0 1 w 1 w -1;
#X restore 236 133 pd t_nnoise;
#N canvas 343 14 602 319 t_ngliss 0;
#X obj 103 32 struct t_ngliss float x float y float w float z;
#X obj 102 56 filledpolygon 0 0 0 0 z(-100:100)(-99.5:100.5) 0 z(-100:100)(-100.5:99.5)
w -0.5 w 0.5;
#X restore 238 158 pd t_ngliss;
#N canvas 565 96 775 790 import-text 0;
#X obj 402 45 loadbang;
#X obj 401 95 s read-text-files;
#X obj 401 73 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 251 267 textfile;
#X obj 358 166 r read-text-files;
#X obj 237 121 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X msg 358 194 read attic/song1.txt cr;
#X obj 191 239 until;
#X obj 354 451 route 0;
#X obj 207 366 t f f f;
#X obj 465 400 pointer;
#X msg 464 368 traverse pd-nsequence \, bang;
#X msg 406 122 \; pd-nsequence clear;
#X obj 325 493 pack 0 0 0;
#X obj 324 543 route 0;
#X obj 251 332 unpack 0 0 s 0 0 0;
#X msg 325 520 \$3 \$2 \$1;
#X obj 379 654 append t_nnoise w y x;
#X obj 332 471 + 4;
#X obj 238 147 t b b b b;
#X obj 494 522 append t_nclef y w;
#X msg 475 494 40 500;
#X msg 34 280 \; pd-nsequence sort;
#X obj 218 621 append t_nnote x y;
#X obj 218 646 t b p;
#X obj 218 674 symbol;
#X obj 218 700 set -symbol t_nnote phoneme;
#X msg 366 226 rewind;
#X obj 34 356 pointer t_nclef;
#X obj 44 453 f;
#X obj 25 531 set t_nclef w;
#X obj 40 414 t b p;
#X obj 177 182 t b b b;
#X msg 34 324 traverse pd-nsequence \, next;
#X obj 134 508 print;
#X obj 106 427 + 1000;
#X obj 353 401 pack 0 0 0 0;
#X msg 353 428 \$3 \$1 \$2 \$4;
#X obj 355 377 -;
#X obj 443 615 append t_ngliss y x z w;
#X connect 0 0 2 0;
#X connect 2 0 1 0;
#X connect 3 0 15 0;
#X connect 3 1 7 1;
#X connect 4 0 6 0;
#X connect 5 0 19 0;
#X connect 6 0 3 0;
#X connect 7 0 3 0;
#X connect 8 1 39 0;
#X connect 9 0 23 0;
#X connect 9 0 35 0;
#X connect 9 1 13 0;
#X connect 9 2 36 0;
#X connect 10 0 17 3;
#X connect 10 0 20 2;
#X connect 10 0 23 2;
#X connect 10 0 39 4;
#X connect 11 0 10 0;
#X connect 13 0 16 0;
#X connect 14 1 17 0;
#X connect 15 0 9 0;
#X connect 15 1 18 0;
#X connect 15 1 23 1;
#X connect 15 1 38 0;
#X connect 15 2 25 1;
#X connect 15 3 13 2;
#X connect 15 4 36 2;
#X connect 15 4 38 1;
#X connect 15 5 36 3;
#X connect 16 0 14 0;
#X connect 18 0 13 1;
#X connect 19 0 32 0;
#X connect 19 1 21 0;
#X connect 19 2 27 0;
#X connect 19 2 11 0;
#X connect 19 3 12 0;
#X connect 19 3 2 0;
#X connect 21 0 20 0;
#X connect 23 0 24 0;
#X connect 24 0 25 0;
#X connect 24 1 26 1;
#X connect 25 0 26 0;
#X connect 27 0 3 0;
#X connect 28 0 31 0;
#X connect 29 0 30 0;
#X connect 31 0 29 0;
#X connect 31 1 30 1;
#X connect 32 0 33 0;
#X connect 32 1 22 0;
#X connect 32 2 7 0;
#X connect 33 0 28 0;
#X connect 35 0 29 1;
#X connect 36 0 37 0;
#X connect 37 0 8 0;
#X connect 38 0 36 1;
#X restore 60 236 pd import-text;
#X restore 206 173 pd newtemplates;
#X connect 1 0 2 0;
#X connect 1 1 2 1;
#X connect 1 1 28 0;
#X connect 11 0 10 0;
#X connect 12 0 10 1;
#X connect 15 0 16 0;
#X connect 25 0 24 0;
#X connect 26 0 24 0;
#X connect 27 0 25 0;
#X connect 27 0 10 0;
#X connect 28 0 24 0;