#N canvas 62 67 878 612 10;
#N canvas 265 48 643 640 fft-analysis 0;
#X obj 15 164 *~;
#X obj 14 99 inlet~;
#X obj 15 218 rfft~;
#X obj 36 140 tabreceive~ \$0-hann;
#X obj 14 353 *~;
#X obj 56 353 *~;
#X obj 15 8 block~ 512 4;
#X text 85 88 The inlet~ now re-uses 3/4 of the previous block \, along
with the 128 new samples.;
#X text 221 141 window function as before.;
#X obj 76 196 tabreceive~ \$0-gain;
#X obj 77 225 *~;
#X obj 16 506 *~;
#X obj 37 481 tabreceive~ \$0-hann;
#X obj 77 283 /~ 768;
#X text 98 301 divide by 3N/2 (factor of N because rfft and rifft aren't
normalized \, and 3/2 is the gain of overlap-4 reconstruction when
Hann window function is applied twice.);
#X text 120 216 Just to show we're doing something \, we multiply each
channel by a gain controlled by an array in the main window. The control
is quartic-scaled for easy editing.;
#X obj 78 251 *~;
#X text 92 357 Multiply the (complex-valued) spectrum amplitudes by
the (real-valued) gain-and-normalization-factor;
#X obj 15 399 rifft~;
#X text 89 396 Real-valued inverse Fourier transform. This uses only
the first N/@ points of its inputs \, supplying the rest by symmerty
(so it's OK that rfft~ obly puts out those N/2 points.) There's only
one outlet because the output is real-valued.;
#X obj 16 566 outlet~;
#X text 88 499 Multiply by the Hann window function again \, necessary
because the operation we performed might result in a signal that doesn't
go smoothly to zero at both ends.;
#X text 89 566 This repackages the output into 64-sample chunks for
the parent window. Since we're operating with an overlap \, the outlet~
object performs an overlapped sum of the blocks computed in this window.
;
#X text 129 8 block~ object specifies vector size of 512 and overlap
four. This window now computes blocks of 512 samples at intervals of
128 samples computed on the parent patch.;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X connect 2 0 4 0;
#X connect 2 1 5 0;
#X connect 3 0 0 1;
#X connect 4 0 18 0;
#X connect 5 0 18 1;
#X connect 9 0 10 0;
#X connect 9 0 10 1;
#X connect 10 0 16 0;
#X connect 10 0 16 1;
#X connect 11 0 20 0;
#X connect 12 0 11 1;
#X connect 13 0 4 1;
#X connect 13 0 5 1;
#X connect 16 0 13 0;
#X connect 18 0 11 0;
#X restore 26 383 pd fft-analysis;
#N canvas 35 66 592 433 Hann-window 0;
#N canvas 0 0 450 300 graph1 0;
#X array \$0-hann 512 float 0;
#X coords 0 1 511 0 200 120 1;
#X restore 293 249 graph;
#X msg 171 263 0;
#X obj 65 312 osc~;
#X obj 65 264 samplerate~;
#X obj 65 335 *~ -0.5;
#X obj 65 358 +~ 0.5;
#X obj 57 383 tabwrite~ \$0-hann;
#X text 279 241 1;
#X text 272 359 0;
#X text 288 372 0;
#X obj 65 288 / 512;
#X obj 57 241 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 336 221 Hann window;
#X text 113 310 period 512;
#X text 90 215 recalculate Hann;
#X text 125 230 window table;
#X obj 57 146 loadbang;
#X msg 79 179 \; pd dsp 1;
#X text 40 27 The Hann window is now recomputed on 'loadbang' to make
the file smaller (it doesn't have to be saved with the array.);
#X text 474 375 511;
#X connect 1 0 2 1;
#X connect 2 0 4 0;
#X connect 3 0 10 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 10 0 2 0;
#X connect 11 0 3 0;
#X connect 11 0 1 0;
#X connect 11 0 6 0;
#X connect 16 0 11 0;
#X connect 16 0 17 0;
#X restore 224 359 pd Hann-window;
#X obj 25 264 noise~;
#N canvas 0 0 450 300 graph1 0;
#X array \$0-gain 257 float 2;
#X coords 0 5 256 -0.01 256 60 1;
#X restore 59 34 graph;
#X obj 27 411 outlet~;
#X obj 92 349 *~;
#X obj 8 40 tgl 14 1 \$0-noise \$0-noise noise 0 -6 0 8 -260818 -1
-1 1 1;
#X obj 24 348 *~;
#X obj 93 264 inlet~;
#X obj 76 290 r \$0-noise;
#X obj 114 316 expr 1 - $f1;
#X obj 60 35 cnv 15 254 58 empty empty empty 20 12 0 14 -260818 -66577
0;
#X obj 247 226 loadbang;
#X msg 247 254 const 0;
#X obj 247 283 s \$0-gain;
#X obj 580 90 r SSSAD_SAVE;
#X obj 602 265 list prepend;
#X obj 736 265 t l;
#X obj 580 294 list;
#X obj 602 208 f;
#X obj 602 180 until;
#X msg 647 156 0;
#X obj 648 208 + 1;
#X obj 602 237 tabread \$0-gain;
#X obj 580 116 t b b b;
#X obj 431 319 sssad/sssad \$1/fourier;
#X obj 431 365 until;
#X obj 431 450 list append;
#X obj 530 472 bang;
#X obj 431 472 list split 1;
#X obj 461 413 f;
#X obj 431 386 t b b;
#X msg 477 384 0;
#X obj 488 413 + 1;
#X obj 431 512 tabwrite \$0-gain;
#X obj 431 340 t b b l;
#X obj 626 430 sssad/sssad \$1/noise;
#X obj 761 408 r \$0-noise;
#X obj 626 452 s \$0-noise;
#X msg 602 156 256;
#X text 339 6 This is an almost exact copy of Miller's "Fourier Resynthesis"
example patch \, but GOPified and with some state saving ability using
Frank B's sssad. All the hard work was his \, all the mistakes are
mine. I just think it's the coolest sounding thing ever.;
#X msg 681 192 bang;
#X connect 0 0 4 0;
#X connect 2 0 7 0;
#X connect 5 0 0 0;
#X connect 7 0 0 0;
#X connect 8 0 5 0;
#X connect 9 0 10 0;
#X connect 9 0 7 1;
#X connect 10 0 5 1;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 15 0 24 0;
#X connect 16 0 17 0;
#X connect 16 0 18 1;
#X connect 17 0 16 1;
#X connect 18 0 25 1;
#X connect 19 0 22 0;
#X connect 19 0 23 0;
#X connect 20 0 19 0;
#X connect 21 0 19 1;
#X connect 21 0 41 0;
#X connect 22 0 19 1;
#X connect 23 0 16 0;
#X connect 24 0 18 0;
#X connect 24 1 39 0;
#X connect 24 2 21 0;
#X connect 25 0 35 0;
#X connect 26 0 31 0;
#X connect 27 0 29 0;
#X connect 28 0 26 1;
#X connect 29 0 34 0;
#X connect 29 1 27 1;
#X connect 29 2 28 0;
#X connect 30 0 33 0;
#X connect 30 0 34 1;
#X connect 31 0 27 0;
#X connect 31 1 30 0;
#X connect 32 0 30 1;
#X connect 33 0 30 1;
#X connect 35 0 26 0;
#X connect 35 1 32 0;
#X connect 35 2 27 1;
#X connect 36 0 38 0;
#X connect 37 0 36 1;
#X connect 39 0 20 0;
#X connect 41 0 16 1;
#X coords 0 -1 1 1 320 100 1 0 0;