Return to fft-resynth-posm.pd CVS log

Up to [Development] / JSOC / proj / globalhs / sosh

new versions

#N canvas 527 105 750 574 10;
#X obj 397 27 r block-size;
#X msg 397 54 set \$1 1;
#X obj 27 53 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 53 486 *~;
#X obj 220 485 *~;
#X obj 27 22 inlet;
#X obj 201 325 nbx 5 14 -1e+37 1e+37 0 0 empty empty empty 0 -8 0 10
-262144 -1 -1 0 256;
#X text 221 340 positive = shift down;
#X text 222 358 negative = shift up;
#X obj 52 339 +~;
#X obj 52 535 rifft~;
#N canvas 0 50 274 375 ramp-gen 0;
#X obj 145 66 r block-size;
#X obj 68 66 samplerate~;
#X obj 68 40 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 68 89 t b f;
#X obj 69 136 / 1;
#X obj 68 112 f, f 8;
#X floatatom 69 182 5 0 0 0 - - -, f 5;
#X obj 69 158 * 1000;
#X msg 69 259 0 \, \$2 \$1;
#X obj 69 237 pack, f 13;
#X obj 69 281 line~;
#X obj 23 237 delay;
#X obj 26 210 t b f f;
#X obj 193 278 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 196 325 outlet;
#X obj 69 325 outlet~;
#X obj 67 17 inlet;
#X obj 142 281 line;
#X obj 141 324 outlet;
#X connect 0 0 5 1;
#X connect 0 0 9 1;
#X connect 1 0 3 0;
#X connect 2 0 1 0;
#X connect 3 0 5 0;
#X connect 3 1 4 1;
#X connect 4 0 7 0;
#X connect 5 0 4 0;
#X connect 6 0 12 0;
#X connect 7 0 6 0;
#X connect 8 0 10 0;
#X connect 8 0 17 0;
#X connect 9 0 8 0;
#X connect 10 0 15 0;
#X connect 11 0 13 0;
#X connect 12 0 11 0;
#X connect 12 1 11 1;
#X connect 12 2 9 0;
#X connect 13 0 14 0;
#X connect 16 0 2 0;
#X connect 17 0 18 0;
#X restore 50 94 pd ramp-gen;
#X obj 85 198 outlet;
#X obj 85 151 / 1;
#X obj 103 125 r block-size;
#X obj 85 172 * 127;
#X text 129 199 for progress bar;
#X obj 299 111 t b b;
#X obj 299 166 outlet;
#X text 262 182 bang when done;
#X obj 52 406 tabread~ \$1-fft-r1;
#X obj 221 406 tabread~ \$1-fft-i1;
#X obj 406 405 tabread~ \$1-gain;
#X obj 27 560 tabwrite~ \$1-output;
#X obj 369 128 f \$1;
#X msg 369 154 \; \$1-output normalize;
#X obj 398 83 switch~ 131072 1 1;
#X obj 320 50 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X msg 318 23 0;
#X obj 372 278 calcbinshift;
#X obj 421 204 r \$1-center-bin;
#X obj 372 217 inlet;
#X obj 372 255 float;
#X obj 421 231 t b f;
#X obj 538 156 array size \$1-output;
#X obj 538 30 r nsamples;
#X obj 538 61 t b f;
#X obj 538 111 min;
#X obj 201 291 spigot;
#X obj 314 273 == 0;
#X obj 303 308 spigot 1;
#X obj 240 231 r shiftswitch;
#X connect 0 0 1 0;
#X connect 0 0 37 0;
#X connect 1 0 26 0;
#X connect 2 0 11 0;
#X connect 2 0 23 0;
#X connect 2 0 26 0;
#X connect 3 0 10 0;
#X connect 4 0 10 1;
#X connect 5 0 2 0;
#X connect 6 0 9 1;
#X connect 9 0 20 0;
#X connect 9 0 21 0;
#X connect 9 0 22 0;
#X connect 10 0 23 0;
#X connect 11 0 9 0;
#X connect 11 1 13 0;
#X connect 11 2 17 0;
#X connect 11 2 28 0;
#X connect 13 0 15 0;
#X connect 14 0 13 1;
#X connect 15 0 12 0;
#X connect 17 0 18 0;
#X connect 17 1 24 0;
#X connect 20 0 3 0;
#X connect 21 0 4 0;
#X connect 22 0 4 1;
#X connect 22 0 3 1;
#X connect 24 0 25 0;
#X connect 27 0 26 0;
#X connect 28 0 27 0;
#X connect 29 0 40 0;
#X connect 30 0 33 0;
#X connect 31 0 32 0;
#X connect 31 0 38 0;
#X connect 32 0 29 0;
#X connect 33 0 32 0;
#X connect 33 1 29 1;
#X connect 35 0 36 0;
#X connect 36 0 37 0;
#X connect 36 1 37 1;
#X connect 37 0 34 0;
#X connect 38 0 6 0;
#X connect 39 0 40 1;
#X connect 40 0 6 0;
#X connect 41 0 38 1;
#X connect 41 0 39 0;