[PD] fft and store lists

[padovani]

Andres Ferrari escreveu:
> hello,
>
> Is it possible (in pd of course) to capture the frequencies and 
> amplitudes by fft and save to a text file?...like a sdif file "made in 
> home"
>   
hola,

I think that it is what you want...

josé

-- 
http://zepadovani.info

------------------------------------------------------------------------

#N canvas 276 182 1127 669 10;
#N canvas 166 146 900 531 fft-analysis 1;
#X obj 15 164 *~;
#X obj 14 99 inlet~;
#X obj 15 218 rfft~;
#X obj 14 306 *~;
#X obj 56 306 *~;
#X obj 15 356 sqrt~;
#X obj 15 8 block~ 512;
#X obj 15 332 +~;
#X obj 289 307 counter;
#X obj 226 103 bang~;
#X obj 161 505 textfile;
#X msg 351 465 clear;
#X obj 409 33 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X text 280 387;
#X obj 227 391 prepend add;
#X obj 217 250 t b b b b;
#X obj 410 60 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X text 429 31 reset file;
#X text 428 60 save file;
#X obj 264 29 inlet;
#X obj 251 167 spigot;
#X obj 287 77 sel 1;
#X obj 287 102 t b b;
#X msg 291 125 1;
#X msg 332 127 0;
#X obj 328 102 t b b;
#X obj 352 289 arraycopy tosave;
#X obj 152 353 tabdump tosave;
#X obj 14 498 tabsend~ analysis;
#X obj 36 140 tabreceive~ hann;
#X msg 352 265 copy analysis 1 256;
#X msg 362 325 -------------blocknumber: \$1;
#X msg 155 428 write FFTframes.txt cr;
#X connect 0 0 2 0;
#X connect 1 0 0 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 7 0;
#X connect 4 0 7 1;
#X connect 5 0 28 0;
#X connect 7 0 5 0;
#X connect 8 0 31 0;
#X connect 9 0 20 0;
#X connect 11 0 10 0;
#X connect 12 0 8 2;
#X connect 12 0 11 0;
#X connect 14 0 10 0;
#X connect 15 0 27 0;
#X connect 15 1 8 0;
#X connect 15 2 30 0;
#X connect 16 0 32 0;
#X connect 19 0 21 0;
#X connect 20 0 15 0;
#X connect 21 0 22 0;
#X connect 21 1 25 0;
#X connect 22 0 23 0;
#X connect 22 1 12 0;
#X connect 23 0 20 1;
#X connect 24 0 20 1;
#X connect 25 0 16 0;
#X connect 25 1 24 0;
#X connect 27 0 14 0;
#X connect 29 0 0 1;
#X connect 30 0 26 0;
#X connect 31 0 14 0;
#X connect 32 0 10 0;
#X restore 36 299 pd fft-analysis;
#X obj 35 274 osc~;
#X floatatom 35 228 5 0 0 0 - - -;
#X obj 35 250 * 10;
#X msg 795 243 0;
#X obj 718 288 osc~;
#X obj 718 240 samplerate~;
#X obj 718 311 *~ -0.5;
#X obj 718 334 +~ 0.5;
#X obj 718 264 / 512;
#X obj 710 217 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 110 243 tens of Hz.;
#X text 90 225 <- frequency \,;
#X text 108 280 click here and;
#X text 180 296 <- see;
#X obj 723 142 loadbang;
#X obj 272 239 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X msg 342 326 \; pd dsp 1;
#X msg 341 363 \; pd dsp 0;
#X obj 710 359 tabwrite~ hann;
#X obj 703 395 table analysis 512;
#X obj 704 428 table tosave 255;
#X obj 706 469 table hann 512;
#X text 8 13 adapted from Help example I02;
#X text 297 236 1-sends frames to file/0-saves file.;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X connect 4 0 5 1;
#X connect 5 0 7 0;
#X connect 6 0 9 0;
#X connect 7 0 8 0;
#X connect 8 0 19 0;
#X connect 9 0 5 0;
#X connect 10 0 6 0;
#X connect 10 0 4 0;
#X connect 10 0 19 0;
#X connect 15 0 10 0;
#X connect 16 0 0 1;