#N canvas 14 1 953 720 16;
#N canvas 116 16 754 678 transition-table 0;
#X obj 428 534 cos~;
#X obj 262 534 cos~;
#X obj 214 529 cos~;
#X msg 158 598 bang;
#X text 242 138 back the phase up one sample;
#X msg 295 444 -0.0005;
#X obj 262 508 *~ 3;
#X obj 427 510 *~ 5;
#X obj 262 559 *~ 0.33333;
#X obj 427 560 *~ -0.2;
#X obj 214 557 *~ -1;
#X msg 159 425 bang;
#X obj 213 468 phasor~ 22.05;
#X obj 214 590 *~ 0.57692;
#X obj 204 259 cos~;
#X obj 156 254 cos~;
#X msg 100 323 bang;
#X msg 13 195 \; pd dsp 1;
#X msg 237 169 -0.0005;
#X obj 204 233 *~ 3;
#X obj 204 284 *~ 0.33333;
#X obj 156 282 *~ -1;
#X msg 100 150 bang;
#X obj 155 193 phasor~ 22.05;
#X obj 156 315 *~ 0.75;
#X obj 214 617 tabwrite~ \$0-transition;
#X obj 156 342 tabwrite~ \$0-transition;
#X obj 100 128 loadbang;
#X text 292 216 twice the table length;
#X text 280 193 period is 2000 samples \,;
#X text 80 369 This one is used - first and third harmonics only.;
#X text 28 644 This alternate one puts in harmonics 1 \, 3 \, and 5
;
#N canvas 0 0 450 300 (subpatch) 0;
#X array \$0-transition 1002 float 0;
#X coords 0 1 1002 -1 200 140 1;
#X restore 539 32 graph;
#X text 537 179 ----- 1002 samples ----;
#X text 24 27 This network puts a half cycle of a band-limited square
wave into the table "array1.";
#X text 22 64 Logically the half-cycle is in samples 1 through 1000
\; samples 0 and 1001 are provided so that the 4-point interpolation
will work everywhere.;
#X connect 0 0 9 0;
#X connect 1 0 8 0;
#X connect 2 0 10 0;
#X connect 3 0 25 0;
#X connect 5 0 12 1;
#X connect 6 0 1 0;
#X connect 7 0 0 0;
#X connect 8 0 13 0;
#X connect 9 0 13 0;
#X connect 10 0 13 0;
#X connect 11 0 5 0;
#X connect 11 0 3 0;
#X connect 12 0 2 0;
#X connect 12 0 6 0;
#X connect 12 0 7 0;
#X connect 13 0 25 0;
#X connect 14 0 20 0;
#X connect 15 0 21 0;
#X connect 16 0 26 0;
#X connect 18 0 23 1;
#X connect 19 0 14 0;
#X connect 20 0 24 0;
#X connect 21 0 24 0;
#X connect 22 0 18 0;
#X connect 22 0 17 0;
#X connect 22 0 16 0;
#X connect 23 0 15 0;
#X connect 23 0 19 0;
#X connect 24 0 26 0;
#X connect 27 0 22 0;
#X restore 49 54 pd transition-table;
#X msg 117 100 136.766;
#X obj 117 81 loadbang;
#X floatatom 117 123 5 70 137 0 - - -;
#X obj 117 145 s \$0-bw;
#X obj 30 86 output~;
#N canvas 0 0 450 300 (subpatch) 0;
#X array pitches 499 float 3;
#A 0 64.7144 64.7144 60.6412 60.6412 60.9182 68.1092 68.1092 68.1092
68.2036 68.2036 68.2036 68.2036 68.2036 68.2036 60.8277 60.8277 62.9879
62.9879 62.9879 62.9879 62.9879 62.9879 67.997 67.997 68.6964 67.7281
67.7281 67.7281 67.7281 68.51 68.1896 68.4189 68.4189 68.1892 68.1892
68.1892 64.0559 64.0559 64.0559 64.0559 62.7475 62.7475 64.023 68.5492
68.5492 68.5492 68.5492 68.5492 64.203 64.203 64.203 67.9983 67.9983
68.8579 68.8579 68.8579 68.8579 61.1301 61.1301 61.1301 64.311 64.311
64.311 64.311 68.9546 68.9546 68.9546 68.9546 68.5781 68.9392 68.646
68.646 68.7058 68.7058 68.7058 68.7058 68.7058 68.7058 68.7058 68.7058
68.6213 68.6213 68.5367 68.5367 64.0554 68.5256 68.5256 68.8166 68.8166
68.8619 68.8619 68.6047 68.3537 68.0104 67.9969 67.7425 67.7425 67.7425
68.1159 68.1159 68.1159 66.9121 66.9121 66.9121 66.6919 66.6919 66.6084
66.3714 66.3714 66.4855 61.245 61.245 62.5935 62.5935 62.5935 62.5935
66.1705 66.5738 66.5738 66.5657 66.8467 63.0637 66.6829 66.6829 66.8565
66.6309 66.6309 66.9859 66.497 66.497 63.0504 66.5211 66.5211 66.4684
66.6044 65.5596 66.1089 66.1089 66.1089 66.1545 66.1976 66.1976 64.8366
64.681 64.681 66.4303 66.4303 66.4303 66.4303 66.4303 66.4303 60.6823
60.6823 65.9116 65.9116 65.9116 65.9116 65.9116 66.0434 66.189 66.189
66.189 66.1111 66.1159 66.1159 66.1159 66.1159 66.1159 66.7738 66.3686
66.3686 66.1555 66.1555 66.1555 66.2661 66.2661 66.2661 66.2661 61.2744
61.2744 65.8705 65.8705 65.8705 65.4484 65.9517 65.9517 65.8753 66.3015
66.3015 66.3015 67.5933 67.5933 67.6507 67.6507 67.6507 68.0721 60.7771
68.6515 68.5367 68.4327 68.4327 68.4327 68.4327 61.457 67.9044 67.9044
67.9044 67.9044 61.0651 61.0651 61.0847 68.1078 68.1078 68.1078 60.2481
67.8408 67.9584 67.4273 66.9158 66.9158 66.9158 66.4849 66.4849 66.4849
66.4849 66.4849 66.2976 66.2976 66.2976 66.1541 66.2197 66.4951 66.7992
66.6597 60.6935 60.6935 67.9903 67.9403 60.5923 60.5923 60.9293 61.0124
60.9445 68.0843 61.0737 68.1648 68.1482 68.1813 68.1204 68.1814 68.0552
68.1789 61.0309 68.6175 68.6175 68.6175 68.5408 68.5569 68.8052 68.7349
68.7273 68.7273 68.4657 68.4804 68.4804 68.5107 61.1116 68.0252 68.0164
68.0782 68.1421 68.1421 68.2406 68.3933 68.5341 68.5341 68.1915 68.2857
61.5652 61.5652 61.5652 68.4624 68.3584 67.9329 68.0678 68.0814 68.1022
68.1022 68.1022 68.0529 68.0736 68.0736 67.6553 67.6553 61.0378 61.0378
67.7748 67.4714 67.7065 67.7065 67.7065 67.4709 67.3708 67.3708 66.7952
66.7952 66.6848 66.2293 66.1384 66.1384 65.9634 65.9634 65.9634 65.9634
65.9634 65.4151 65.4151 64.969 64.969 64.969 64.969 64.969 64.969 64.969
63.8979 63.7991 63.6209 63.6209 63.6209 63.6209 63.2 62.9682 62.8344
62.0403 62.2039 61.8719 61.6057 61.4173 61.5062 61.1412 61.1412 61.4742
61.7146 61.8256 61.8644 61.8644 61.8644 62.0219 62.3009 62.1008 62.1008
62.1008 61.7511 61.7511 61.4507 61.3366 61.6009 61.6009 61.6009 61.7536
61.7536 61.7536 61.7536 61.7536 61.7536 61.7536 61.7536 61.7536 61.8281
61.6196 61.496 61.496 60.7018 61.0587 61.0587 61.0587 61.0587 61.071
61.071 61.4099 61.7959 61.7959 61.7959 61.7959 62.9752 62.9752 62.9752
61.7415 61.2297 61.2297 60.7222 60.7222 60.7222 60.7222 60.7222 60.7222
60.7222 61.1683 60.7597 61.7215 62.1246 62.1246 62.1246 62.1246 68.2093
68.2093 68.2093 68.2093 68.2023 61.4526 61.4526 61.4526 61.4526 61.4526
61.4526 61.4526 61.4526 61.9918 68.1018 68.1018 68.1018 68.1018 61.1762
61.1762 61.1762 61.1762 61.1762 61.1762 61.1762 61.1762 61.1762 61.1762
61.1762 61.1762 61.1762 61.1762 61.1762 61.1761 61.1872 61.1984 61.2095
61.2206 61.2317 61.2428 61.2539 61.265 61.2761 61.2873 61.2984 61.3095
61.3206 61.3317 61.3428 61.3539 61.365 61.3762 61.3762 61.3762 61.3762
61.3762 61.3762 61.3762 61.3762 61.3762 61.3762 61.3762 61.3762 61.3762
61.3762 61.3762 61.3762 61.3762 61.3762 61.3762 61.3762 61.3762 61.3762
61.3762 61.3762 61.3762 61.3762 61.3762 61.3762 61.3762 61.3762 61.3762
61.3762 61.3762 61.3762 61.3762 61.3762 61.3762 61.3762 61.3762 61.3762
61.3762 61.3762 61.3762 61.3762;
#X coords 0 96 499 48 500 480 1;
#X restore 22 255 graph;
#X obj 103 217 s sigmund-out;
#X obj 727 277 r sigmund-out;
#X obj 727 315 print;
#X obj 727 296 spigot;
#X obj 264 79 spigot;
#X msg 544 394 \; pitches const 48;
#X floatatom 545 346 5 0 0 0 - - -;
#X msg 545 362 \; pitches 0 \$1 \, 1 \$1 \, 2 \$1;
#X obj 260 148 f;
#X obj 299 144 + 1;
#X obj 264 105 t b f;
#X obj 315 33 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 337 43 sel 1;
#X msg 337 71 0;
#X obj 332 174 sel 499;
#X msg 332 197 \; onoff 0;
#X obj 316 10 r onoff;
#X obj 272 189 pack;
#X obj 272 230 s pitches;
#X obj 187 7 r sigmund-out;
#X obj 798 305 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj -4 30 tabplay~ zzz;
#X obj 20 1 table zzz;
#X obj 555 513 soundfiler;
#X obj 1 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1
;
#X msg 560 489 read -resize fire-mono.wav zzz;
#X floatatom 263 56 5 0 0 0 - - -;
#X obj 654 593 spigot;
#X obj 635 650 moses 48;
#X obj 634 677 moses 96;
#X obj 706 547 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 738 588 sel 1;
#X msg 737 612 0;
#X obj 762 683 sel 499;
#X msg 762 706 \; onoff 0;
#X obj 707 524 r onoff;
#X floatatom 651 564 5 0 0 0 - - -;
#X obj 587 724 tabwrite pitches;
#X obj 717 647 f;
#X obj 755 646 + 1;
#X obj 654 619 t b f b;
#X obj 594 649 f;
#X msg 121 14 1;
#X obj 104 193 unpack;
#X obj 199 151 t b b;
#X obj 200 176 timer;
#X floatatom 200 199 5 0 0 0 - - -;
#X obj 338 122 moses 60;
#X obj 337 150 moses 69;
#X obj 12 169 fiddle~ 1024 1 5;
#X obj 594 77 metro 11.61;
#X obj 738 44 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 740 65 sel 1;
#X msg 740 93 0;
#X obj 739 21 r playback;
#X obj 594 109 f;
#X obj 633 105 + 1;
#X obj 594 140 tabread pitches;
#X obj 592 185 osc~;
#X obj 626 212 clip~ -0.3 0.7;
#X obj 591 256 output~;
#X obj 590 164 mtof;
#X connect 1 0 3 0;
#X connect 2 0 1 0;
#X connect 3 0 4 0;
#X connect 8 0 10 0;
#X connect 10 0 9 0;
#X connect 11 0 17 0;
#X connect 13 0 14 0;
#X connect 15 0 16 0;
#X connect 15 0 21 0;
#X connect 15 0 24 0;
#X connect 16 0 15 1;
#X connect 17 0 15 0;
#X connect 17 1 54 0;
#X connect 18 0 11 1;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 20 0 15 1;
#X connect 21 0 22 0;
#X connect 23 0 18 0;
#X connect 24 0 25 0;
#X connect 26 0 33 0;
#X connect 27 0 10 1;
#X connect 28 0 5 0;
#X connect 28 0 5 1;
#X connect 28 0 56 0;
#X connect 31 0 28 0;
#X connect 31 0 49 0;
#X connect 32 0 30 0;
#X connect 33 0 11 0;
#X connect 34 0 47 0;
#X connect 35 1 36 0;
#X connect 36 0 48 1;
#X connect 37 0 34 1;
#X connect 37 0 38 0;
#X connect 38 0 39 0;
#X connect 39 0 45 1;
#X connect 40 0 41 0;
#X connect 42 0 37 0;
#X connect 43 0 34 0;
#X connect 45 0 46 0;
#X connect 45 0 44 1;
#X connect 45 0 40 0;
#X connect 46 0 45 1;
#X connect 47 0 48 0;
#X connect 47 1 35 0;
#X connect 47 2 45 0;
#X connect 48 0 44 0;
#X connect 49 0 18 0;
#X connect 50 0 7 0;
#X connect 51 0 52 0;
#X connect 51 1 52 1;
#X connect 52 0 53 0;
#X connect 54 1 55 0;
#X connect 55 0 24 1;
#X connect 56 2 50 0;
#X connect 56 2 51 0;
#X connect 57 0 62 0;
#X connect 58 0 59 0;
#X connect 58 0 57 0;
#X connect 59 0 60 0;
#X connect 60 0 62 1;
#X connect 61 0 58 0;
#X connect 62 0 63 0;
#X connect 62 0 64 0;
#X connect 63 0 62 1;
#X connect 64 0 68 0;
#X connect 65 0 66 0;
#X connect 66 0 67 0;
#X connect 66 0 67 1;
#X connect 68 0 65 0;