Return to fft-resynth-negm.pd CVS log

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

new versions

#N canvas 593 52 684 635 10;
#X obj 397 27 r block-size;
#X obj 107 349 r block-size;
#X obj 27 53 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 53 607 *~;
#X obj 220 606 *~;
#X obj 27 12 inlet;
#X obj 219 424 nbx 5 14 -1e+37 1e+37 0 0 empty empty empty 0 -8 0 10
-262144 -1 -1 0 256;
#X text 241 440 positive = shift down;
#X text 242 458 negative = shift up;
#X obj 201 459 +~;
#X obj 52 656 rifft~;
#X obj 52 334 *~ -1;
#X obj 92 376 +~;
#X obj 114 459 -~;
#X obj 178 542 *~ -1;
#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 44 78 pd ramp-gen;
#X obj 158 267 outlet;
#X obj 158 220 / 1;
#X obj 176 194 r block-size;
#X obj 158 241 * 127;
#X text 207 267 for progress bar;
#X obj 282 126 t b b;
#X obj 282 212 outlet;
#X text 328 212 bang when done;
#X obj 52 527 tabread~ \$1-fft-r1;
#X obj 178 502 tabread~ \$1-fft-i1;
#X obj 406 526 tabread~ \$1-gain;
#X obj 27 681 tabwrite~ \$1-output;
#X obj 499 181 array size \$1-output;
#X obj 337 143 f \$1;
#X msg 337 169 \; \$1-output normalize;
#X msg 354 58 set \$1 1 1;
#X obj 354 87 switch~ 131072 1 1;
#X obj 319 55 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X msg 317 28 0;
#X obj 447 277 inlet;
#X obj 447 358 calcbinshift;
#X obj 496 277 r \$1-center-bin;
#X obj 447 328 float;
#X obj 496 302 t b f;
#X obj 499 55 r nsamples;
#X obj 499 143 min;
#X obj 499 86 t b f;
#X obj 219 384 spigot;
#X obj 375 362 == 0;
#X floatatom 447 400 5 0 0 0 - - -, f 5;
#X obj 336 407 spigot 1;
#X obj 258 308 r shiftswitch;
#X connect 0 0 31 0;
#X connect 0 0 41 0;
#X connect 1 0 12 1;
#X connect 2 0 15 0;
#X connect 2 0 27 0;
#X connect 2 0 32 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 6 0 13 1;
#X connect 9 0 26 0;
#X connect 10 0 27 0;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 13 0 24 0;
#X connect 13 0 25 0;
#X connect 14 0 4 0;
#X connect 15 0 11 0;
#X connect 15 0 9 0;
#X connect 15 1 17 0;
#X connect 15 2 21 0;
#X connect 15 2 34 0;
#X connect 17 0 19 0;
#X connect 18 0 17 1;
#X connect 19 0 16 0;
#X connect 21 0 22 0;
#X connect 21 1 29 0;
#X connect 24 0 3 0;
#X connect 25 0 14 0;
#X connect 26 0 4 1;
#X connect 26 0 3 1;
#X connect 29 0 30 0;
#X connect 31 0 32 0;
#X connect 33 0 32 0;
#X connect 34 0 33 0;
#X connect 35 0 38 0;
#X connect 35 0 43 0;
#X connect 36 0 45 0;
#X connect 36 0 46 0;
#X connect 37 0 39 0;
#X connect 38 0 36 0;
#X connect 39 0 38 0;
#X connect 39 1 36 1;
#X connect 40 0 42 0;
#X connect 41 0 28 0;
#X connect 42 0 41 0;
#X connect 42 1 41 1;
#X connect 43 0 6 0;
#X connect 44 0 46 1;
#X connect 46 0 6 0;
#X connect 47 0 43 1;
#X connect 47 0 44 0;