#N canvas 367 289 494 344 12;
#X obj 28 47 inlet~;
#X text 86 48 sound data;
#X obj 188 48 inlet;
#X text 243 49 bang to get sonogram;
#X obj 70 225 outlet;
#X text 134 224 to fs.frame;
#N canvas 174 123 548 445 writesono 0;
#X obj 46 48 inlet~;
#X obj 144 50 inlet;
#X obj 46 78 rfft~;
#X obj 46 111 *~;
#X obj 77 111 *~;
#X obj 46 141 sqrt~;
#X obj 218 309 table \$0spectrum;
#X obj 46 187 tabwrite~ \$0spectrum;
#X obj 67 359 outlet;
#X obj 144 92 t b b b;
#X msg 99 308 sonogram \$1;
#X obj 218 241 symbol;
#X msg 301 51 bang;
#X obj 301 24 reset;
#X obj 99 241 symbol;
#X obj 301 106 makefilename c:/%s;
#X obj 301 77 symbol \$0sono;
#X msg 317 363 resize 128;
#X obj 366 333 reset;
#X msg 317 389 bounds 0 0 128 500;
#X msg 218 276 write \$1;
#X text 365 130 maybe c:/temp/?;
#X obj 291 276 s \$0spectrum;
#X obj 383 35 switch~ 1024 1;
#X obj 383 10 inlet;
#X connect 0 0 2 0;
#X connect 1 0 9 0;
#X connect 2 0 3 0;
#X connect 2 0 3 1;
#X connect 2 1 4 0;
#X connect 2 1 4 1;
#X connect 3 0 5 0;
#X connect 4 0 5 0;
#X connect 5 0 7 0;
#X connect 9 0 14 0;
#X connect 9 1 11 0;
#X connect 9 2 7 0;
#X connect 10 0 8 0;
#X connect 11 0 20 0;
#X connect 12 0 16 0;
#X connect 13 0 12 0;
#X connect 14 0 10 0;
#X connect 15 0 11 1;
#X connect 15 0 14 1;
#X connect 16 0 15 0;
#X connect 17 0 22 0;
#X connect 18 0 17 0;
#X connect 18 0 19 0;
#X connect 19 0 22 0;
#X connect 20 0 22 0;
#X connect 24 0 23 0;
#X restore 78 151 pd writesono;
#X obj 253 123 loadbang;
#X msg 197 162 0;
#X msg 197 187 1;
#X obj 188 89 t b b b;
#X obj 231 162 delay 100;
#X connect 0 0 6 0;
#X connect 2 0 10 0;
#X connect 6 0 4 0;
#X connect 7 0 8 0;
#X connect 8 0 6 2;
#X connect 9 0 6 2;
#X connect 10 0 6 1;
#X connect 10 1 11 0;
#X connect 10 2 9 0;
#X connect 11 0 8 0;