1 tplarson 1.1 #N canvas 1 52 1265 635 10;
  2              #X msg 269 98 65536;
  3              #X msg 262 75 131072;
  4              #X obj 245 32 loadbang;
  5              #X msg 273 126 32768;
  6              #X obj 27 87 set-directory;
  7              #X obj 27 50 bng 30 250 50 0 empty empty empty 17 7 0 10 -4032 -1 -1
  8              ;
  9              #X obj 28 112 s data-dir;
 10              #X msg 29 150 \; pd dsp 1;
 11              #X msg 29 196 \; pd dsp 0;
 12              #X obj 234 162 s block-size;
 13              #X msg 341 69 50;
 14              #X obj 341 101 s window-ramp;
 15              #X msg 153 83 ../data, f 10;
 16              #X obj 360 133 window-gen;
 17              #X obj 207 220 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
 18              -1 -1;
 19              #X obj 150 221 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
 20              -1 -1;
 21              #X obj 150 286 s cadence;
 22 tplarson 1.1 #X msg 150 248 60;
 23              #X msg 207 248 45;
 24              #X obj 132 190 s filestem;
 25              #X msg 150 122 mdi;
 26              #X msg 165 147 hmi;
 27              #X msg 261 193 262144;
 28              #X obj 344 220 s fileblank;
 29              #X msg 344 165 average.modes;
 30              #X floatatom 655 481 5 0 0 0 - - -, f 5;
 31              #X floatatom 466 353 5 0 0 0 - - -, f 5;
 32              #X obj 565 275 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
 33              -1 -1;
 34              #X floatatom 576 323 5 0 0 0 - - -, f 5;
 35              #X floatatom 608 342 5 0 0 0 - - -, f 5;
 36              #X floatatom 642 361 5 0 0 0 - - -, f 5;
 37              #X obj 757 334 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
 38              1;
 39              #X msg 721 442 set \$1;
 40              #X msg 721 478 1207-output;
 41              #X text 453 331 day number;
 42              #X text 620 319 l;
 43 tplarson 1.1 #X text 648 339 n;
 44              #X text 684 358 m;
 45              #X obj 689 641 dac~ 1 2;
 46              #X obj 690 586 audio_safety~;
 47              #X obj 512 446 *~;
 48              #X obj 368 319 * 0.01;
 49              #X obj 368 293 nbx 10 20 0 100 0 0 empty empty empty 0 -8 0 10 -204786
 50              -1 -1 0 256;
 51              #X text 368 275 volume (0-100);
 52              #X text 555 257 start;
 53              #X text 781 332 on/off;
 54              #X obj 24 373 nbx 10 20 -1e+37 1e+37 0 0 empty empty empty 0 -8 0 10
 55              -204786 -1 -1 8000 256;
 56              #X msg 24 345 44100;
 57              #X text 130 377 desired SR;
 58              #X msg 79 345 22050;
 59              #X msg 136 345 11025;
 60              #X msg 74 319 8000;
 61              #X obj 24 416 s play-SR;
 62              #X obj 25 483 nbx 10 20 0 22100 0 0 empty empty empty 0 -8 0 10 -204786
 63              -1 -1 0 256;
 64 tplarson 1.1 #X text 132 493 2 = 1 octave lower;
 65              #X text 132 479 downshift factor;
 66              #X obj 25 514 s shift-factor;
 67              #X obj 154 594 * 60;
 68              #X obj 121 660 /;
 69              #X floatatom 156 682 10 0 0 0 - - -, f 10;
 70              #X obj 153 621 f;
 71              #X obj 73 661 t b f;
 72              #X obj 41 599 sel 0;
 73              #X msg 41 626 1;
 74              #X floatatom 1028 406 5 0 0 0 - - -, f 5;
 75              #X floatatom 880 311 5 0 0 0 - - -, f 5;
 76              #X obj 979 233 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
 77              -1 -1;
 78              #X floatatom 990 281 5 0 0 0 - - -, f 5;
 79              #X floatatom 1022 300 5 0 0 0 - - -, f 5;
 80              #X floatatom 1056 319 5 0 0 0 - - -, f 5;
 81              #X obj 1171 292 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
 82              0 1;
 83              #X msg 1135 400 set \$1;
 84              #X msg 1135 436 1229-output;
 85 tplarson 1.1 #X text 867 289 day number;
 86              #X text 1034 277 l;
 87              #X text 1062 297 n;
 88              #X text 1098 316 m;
 89              #X obj 926 404 *~;
 90              #X obj 804 251 * 0.01;
 91              #X obj 804 225 nbx 10 20 0 100 0 0 empty empty empty 0 -8 0 10 -204786
 92              -1 -1 0 256;
 93              #X text 804 207 volume (0-100);
 94              #X text 969 215 start;
 95              #X text 1195 290 on/off;
 96              #N canvas 0 50 450 250 (subpatch) 0;
 97              #X array sumtest 1 float 2;
 98              #X coords 0 1 1 -1 200 140 1;
 99              #X restore 954 612 graph;
100              #X msg 819 683 \; sumtest normalize;
101              #X msg 819 643 \; sumtest const 0;
102              #X msg 25 452 2;
103              #X msg 107 452 8;
104              #X msg 66 452 4;
105              #X obj 511 394 modefilter, f 33;
106 tplarson 1.1 #X obj 814 556 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
107              -1 -1;
108              #X obj 929 38 r play-SR;
109              #X obj 799 35 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
110              1;
111              #X obj 667 78 * 0.01;
112              #X obj 667 52 nbx 10 20 0 100 0 0 empty empty empty 0 -8 0 10 -204786
113              -1 -1 0 256;
114              #X text 661 33 volume (0-100);
115              #X obj 667 128 *~;
116              #X obj 665 197 dac~ 1 2;
117              #X obj 666 164 audio_safety~;
118              #X obj 799 75 arbitrarySR sumtest;
119              #X floatatom 458 585 5 0 0 0 - - -, f 5;
120              #X obj 408 552 *;
121              #X floatatom 408 585 5 0 0 0 - - -, f 5;
122              #X obj 408 505 t b f;
123              #X obj 156 712 / 1e+06;
124              #X text 233 680 transposition factor;
125              #X floatatom 610 481 5 0 0 0 - - -, f 5;
126              #X floatatom 1124 545 5 0 0 0 - - -, f 5;
127 tplarson 1.1 #X obj 1074 512 *;
128              #X floatatom 1074 545 5 0 0 0 - - -, f 5;
129              #X obj 1066 466 t b f;
130              #X floatatom 982 406 5 0 0 0 - - -, f 5;
131              #X obj 925 352 modefilter, f 33;
132              #X obj 869 571 modeaddition sumtest;
133              #X msg 360 193 %dd.modes;
134              #X connect 0 0 9 0;
135              #X connect 1 0 9 0;
136              #X connect 2 0 12 0;
137              #X connect 2 0 10 0;
138              #X connect 2 0 20 0;
139              #X connect 2 0 24 0;
140              #X connect 2 0 51 0;
141              #X connect 3 0 9 0;
142              #X connect 4 0 6 0;
143              #X connect 4 1 12 0;
144              #X connect 5 0 4 0;
145              #X connect 10 0 11 0;
146              #X connect 12 0 4 1;
147              #X connect 14 0 18 0;
148 tplarson 1.1 #X connect 14 0 22 0;
149              #X connect 15 0 17 0;
150              #X connect 15 0 1 0;
151              #X connect 17 0 16 0;
152              #X connect 18 0 16 0;
153              #X connect 20 0 19 0;
154              #X connect 20 0 15 0;
155              #X connect 21 0 19 0;
156              #X connect 21 0 14 0;
157              #X connect 22 0 9 0;
158              #X connect 24 0 23 0;
159              #X connect 25 0 113 3;
160              #X connect 26 0 89 1;
161              #X connect 27 0 31 0;
162              #X connect 27 0 89 0;
163              #X connect 28 0 89 2;
164              #X connect 29 0 89 3;
165              #X connect 30 0 89 4;
166              #X connect 31 0 89 6;
167              #X connect 32 0 33 0;
168              #X connect 39 0 38 0;
169 tplarson 1.1 #X connect 39 0 38 1;
170              #X connect 40 0 39 0;
171              #X connect 41 0 40 1;
172              #X connect 42 0 41 0;
173              #X connect 46 0 52 0;
174              #X connect 46 0 57 0;
175              #X connect 47 0 46 0;
176              #X connect 49 0 46 0;
177              #X connect 50 0 46 0;
178              #X connect 51 0 46 0;
179              #X connect 53 0 56 0;
180              #X connect 53 0 62 0;
181              #X connect 57 0 60 0;
182              #X connect 58 0 59 0;
183              #X connect 59 0 104 0;
184              #X connect 60 0 58 0;
185              #X connect 61 0 60 0;
186              #X connect 61 1 58 1;
187              #X connect 62 0 63 0;
188              #X connect 62 1 61 0;
189              #X connect 63 0 61 0;
190 tplarson 1.1 #X connect 64 0 113 4;
191              #X connect 65 0 112 1;
192              #X connect 66 0 70 0;
193              #X connect 66 0 112 0;
194              #X connect 67 0 112 2;
195              #X connect 68 0 112 3;
196              #X connect 69 0 112 4;
197              #X connect 70 0 112 6;
198              #X connect 71 0 72 0;
199              #X connect 77 0 39 0;
200              #X connect 78 0 77 1;
201              #X connect 79 0 78 0;
202              #X connect 86 0 53 0;
203              #X connect 87 0 53 0;
204              #X connect 88 0 53 0;
205              #X connect 89 0 40 0;
206              #X connect 89 1 106 0;
207              #X connect 89 2 25 0;
208              #X connect 89 3 100 0;
209              #X connect 89 4 32 0;
210              #X connect 89 4 113 1;
211 tplarson 1.1 #X connect 90 0 113 0;
212              #X connect 91 0 99 1;
213              #X connect 92 0 99 0;
214              #X connect 93 0 96 1;
215              #X connect 94 0 93 0;
216              #X connect 96 0 98 0;
217              #X connect 98 0 97 0;
218              #X connect 98 0 97 1;
219              #X connect 99 0 96 0;
220              #X connect 101 0 102 0;
221              #X connect 103 0 101 0;
222              #X connect 103 1 101 1;
223              #X connect 104 0 103 0;
224              #X connect 104 0 110 0;
225              #X connect 106 0 101 0;
226              #X connect 108 0 109 0;
227              #X connect 110 0 108 0;
228              #X connect 110 1 108 1;
229              #X connect 111 0 108 0;
230              #X connect 112 0 77 0;
231              #X connect 112 1 111 0;
232 tplarson 1.1 #X connect 112 2 64 0;
233              #X connect 112 3 107 0;
234              #X connect 112 4 71 0;
235              #X connect 112 4 113 2;
236              #X connect 114 0 23 0;