Return to modefilter.pd CVS log

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

new versions

#N canvas 1 52 1265 635 12;
#X obj 2 6 cnv 15 550 600 empty empty empty 20 12 0 14 -225152 -66577
0;
#N canvas 1 52 542 397 (subpatch) 0;
#X array \$0-gain 262144 float 2;
#X coords 0 1 262144 -0.01 512 60 1 0 0;
#X restore 5 527 graph;
#X text 5 588 0 Hz;
#X obj 573 432 cnv 15 550 250 empty empty empty 20 12 0 14 -203904
-66577 0;
#X obj 570 8 cnv 15 550 175 empty empty empty 20 12 0 14 -261888 -66577
0;
#N canvas 0 50 450 300 (subpatch) 0;
#X array \$0-input-i 262144 float 2;
#X coords 0 1 262144 -1 200 140 1 0 0;
#X restore 914 27 graph;
#X obj 575 192 cnv 15 550 225 empty empty empty 20 12 0 14 -232576
-66577 0;
#X obj 612 198 bng 30 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj 615 258 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 12700 1;
#X obj 751 492 nbx 8 20 -1e+37 1e+37 0 0 empty empty empty 0 -8 0 10
-204786 -1 -1 16000 256;
#X text 779 513 desired SR;
#X obj 586 484 tgl 30 0 empty empty empty 17 7 0 10 -4034 -1 -1 0 1
;
#X text 581 429 play;
#X text 579 448 processed;
#X text 581 465 audio;
#X obj 759 329 bng 30 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#N canvas 1 54 450 300 (subpatch) 0;
#X array \$0-output 138240 float 2;
#X coords 0 1 138240 -1 200 140 1 0 0;
#X restore 914 454 graph;
#X obj 761 390 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 12700 1;
#X text 753 194 Analyze & Resynthesize;
#X obj 108 434 nbx 10 20 0 131072 0 0 empty empty empty 0 -8 0 10 -204786
-1 -1 36446.4 256;
#X obj 225 434 nbx 5 20 0 10000 0 0 empty empty empty 0 -8 0 10 -204786
-1 -1 27.1894 256;
#X text 109 410 center bin;
#X text 223 410 width (in bins);
#X obj 978 285 nbx 10 20 0 22100 0 0 empty empty empty 0 -8 0 10 -204786
-1 -1 5 256;
#N canvas 200 54 1046 686 fft-arrays 0;
#N canvas 0 50 450 300 (subpatch) 0;
#X array \$0-fft-r1 262144 float 2;
#X coords 0 1 262144 -1 500 200 1 0 0;
#X restore 12 23 graph;
#N canvas 0 50 450 300 (subpatch) 0;
#X array \$0-fft-i1 262144 float 2;
#X coords 0 1 262144 -1 500 200 1 0 0;
#X restore 12 245 graph;
#X obj 441 509 r block-size;
#N canvas 0 50 450 300 (subpatch) 0;
#X array \$0-fft-r2 262144 float 2;
#X coords 0 1 262144 -1 500 200 1 0 0;
#X restore 533 23 graph;
#N canvas 0 50 450 300 (subpatch) 0;
#X array \$0-fft-i2 262144 float 2;
#X coords 0 1 262144 -1 500 200 1 0 0;
#X restore 533 245 graph;
#X obj 18 558 soundfiler;
#X obj 19 464 bng 30 250 50 0 empty empty empty 17 7 0 10 -4032 -1
-1;
#X text 55 471 save array to WAVE file;
#X obj 17 701 soundfiler;
#X obj 18 605 bng 30 250 50 0 empty empty empty 17 7 0 10 -4032 -1
-1;
#X text 54 611 save array to WAVE file;
#X obj 441 575 array size \$0-fft-r1;
#X obj 441 603 array size \$0-fft-i1;
#X obj 591 576 array size \$0-fft-r2;
#X obj 591 604 array size \$0-fft-i2;
#X obj 18 642 f \$0;
#X obj 19 503 f \$0;
#X msg 19 529 write -wave -bytes 3 ./rec_audio/temp-fft-r1 \$1-fft-r1
;
#X msg 18 672 write -wave -bytes 3 ./rec_audio/temp-fft-i1 \$1-fft-i1
;
#X connect 2 0 11 0;
#X connect 2 0 12 0;
#X connect 2 0 13 0;
#X connect 2 0 14 0;
#X connect 6 0 16 0;
#X connect 9 0 15 0;
#X connect 15 0 18 0;
#X connect 16 0 17 0;
#X connect 17 0 5 0;
#X connect 18 0 8 0;
#X restore 973 210 pd fft-arrays;
#X text 971 263 down shift factor;
#X obj 228 14 nbx 4 20 0 300 0 0 empty empty empty 0 -8 0 10 -204786
-1 -1 20 256;
#X floatatom 34 287 8 0 0 0 - - -, f 8;
#X floatatom 226 285 8 0 0 0 - - -, f 8;
#X obj 269 38 nbx 4 20 0 50 0 0 empty empty empty 0 -8 0 10 -204786
-1 -1 15 256;
#X obj 379 278 r block-size;
#X obj 225 372 *;
#X text 387 221 width factor;
#X obj 334 219 nbx 4 20 0 1000 0 0 empty empty empty 0 -8 0 10 -204786
-1 -1 2.5 256;
#X obj 225 347 f;
#X msg 23 216 i found something;
#X obj 300 62 nbx 4 20 -300 300 0 0 empty empty empty 0 -8 0 10 -204786
-1 -1 20 256;
#N canvas 1 52 450 300 (subpatch) 0;
#X array \$0-input-r 262144 float 2;
#X coords 0 1 262144 -1 200 140 1 0 0;
#X restore 696 25 graph;
#X text 280 15 degree l;
#X text 323 40 radial order n;
#X text 356 63 azimuthal order m;
#X obj 583 329 bng 30 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj 586 390 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 12700 1;
#X obj 363 168 loadbang;
#X obj 228 -13 inlet;
#X obj 283 -12 inlet;
#X obj 347 -11 inlet;
#X obj 420 199 inlet;
#N canvas 666 568 450 300 error-msg 0;
#X obj 103 51 inlet;
#X obj 105 89 sel 0 1;
#X obj 187 247 outlet;
#X msg 106 150 no data found;
#X obj 106 174 print ERROR;
#X msg 181 128 i found something;
#X obj 186 224 route list;
#X obj 185 200 list prepend set;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 1 1 5 0;
#X connect 3 0 4 0;
#X connect 3 0 7 0;
#X connect 5 0 7 0;
#X connect 6 0 2 0;
#X connect 7 0 6 0;
#X restore 22 193 pd error-msg;
#N canvas 145 233 810 452 resynth-gate 0;
#X obj 258 62 inlet;
#X obj 188 319 outlet;
#X text 221 38 bang to analyze;
#X obj 407 63 inlet;
#X text 420 37 m;
#X obj 368 320 outlet;
#X text 187 359 posm;
#X text 372 360 negm;
#X obj 189 240 spigot;
#X obj 368 243 spigot;
#X obj 409 140 >= 0;
#X obj 409 172 != 1;
#X text 453 142 is positive or negative?;
#X obj 289 127 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X connect 0 0 13 0;
#X connect 3 0 10 0;
#X connect 8 0 1 0;
#X connect 9 0 5 0;
#X connect 10 0 8 1;
#X connect 10 0 11 0;
#X connect 11 0 9 1;
#X connect 13 0 8 0;
#X connect 13 0 9 0;
#X restore 619 309 pd resynth-gate;
#X obj 612 235 fft-analysis \$0;
#X obj 586 650 outlet~;
#X obj 1162 501 loadbang;
#X msg 1160 548 \$1-output;
#X obj 1161 524 f \$0;
#X obj 1161 653 outlet;
#X text 1217 652 output array name;
#X obj 140 48 bng 30 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj 231 92 triggerlogic;
#X obj 334 247 t b b f;
#X obj 34 346 f;
#X msg 1141 228 \; \$1-input-r const 0 \; \$1-input-i const 0 \; \$1-fft-r1
const 0 \; \$1-fft-i1 const 0 \; \$1-output const 0;
#X obj 1143 181 f \$0;
#X obj 1143 133 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 593 63 nbx 5 20 0 10000 0 0 empty empty empty 0 -8 0 10 -204786
-1 -1 6328 256;
#X obj 146 -13 inlet;
#X text 596 87 day number;
#X text 42 26 search for modes;
#X floatatom 244 219 6 0 0 0 - - -, f 6;
#X obj 1017 641 outlet;
#X obj 75 -2 inlet;
#X obj 1176 136 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
0 1;
#X obj 1175 102 inlet;
#X obj 1129 504 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 1160 580 list prepend symbol;
#X obj 1161 616 route list;
#X obj 164 468 makegain \$0;
#X obj 583 157 loadaudio \$0;
#X obj 751 463 r play-SR;
#X floatatom 215 677 5 0 0 0 - - -, f 5;
#X obj 297 702 unpack;
#X floatatom 297 752 0 0 0 0 - - -;
#X floatatom 311 729 0 0 0 0 - - -;
#X floatatom 355 668 5 0 0 0 - - -, f 5;
#X obj 272 625 fiddle~ 1024 1 10 1;
#X floatatom 510 725 0 0 0 0 - - -;
#X floatatom 433 723 0 0 0 0 - - -;
#X obj 215 708 mtof;
#X floatatom 215 742 5 0 0 0 - - -, f 5;
#X obj 419 696 unpack f f f;
#X text 127 675 MIDI pitch;
#X text 137 740 frequency;
#X obj 929 638 outlet;
#X obj 1095 641 outlet;
#X obj 364 710 mtof;
#X floatatom 364 745 5 0 0 0 - - -, f 5;
#X obj 732 426 int;
#X msg 672 464 0;
#X obj 672 439 sel 1;
#X obj 672 414 < 1;
#X obj 871 225 t b f;
#X obj 70 375 s \$0-center-bin;
#X obj 18 400 t f f;
#X obj 583 113 bng 30 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj 72 112 bng 30 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj 237 252 r cadence;
#X obj 34 315 expr $f1*$f2*$f3/1000000;
#X obj 263 316 expr $f1*$f2*$f3/1000000;
#X obj 586 533 arbitrarySR \$0-output;
#X obj 916 598 hsl 198 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X obj 908 396 s outdone;
#X obj 664 736 soundfiler;
#X obj 664 569 bng 30 250 50 0 empty empty empty 17 7 0 10 -4032 -1
-1;
#X text 700 575 save array to WAVE file;
#X obj 664 607 f \$0;
#X obj 664 633 list append;
#X obj 736 607 r play-SR;
#X obj 664 663 list append;
#X obj 124 131 text-file-reader \$0;
#X msg 664 697 write -wave -bytes 4 -rate \$2 ./wav_out/\$3 \$1-output
;
#X obj 787 638 r \$0-outstring;
#X obj 336 134 makeoutputstring \$0;
#X msg 363 194 2.5;
#N canvas 239 122 945 481 viewspectrum 0;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-spectrum 54 float 4;
#X coords 0 2 53 0 400 140 1 0 0;
#X restore 503 242 graph;
#X obj 332 168 until;
#X obj 314 264 f;
#X obj 363 198 + 1;
#X obj 407 198 sel 0;
#X obj 217 24 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X msg 254 150 -1;
#X obj 110 37 inlet;
#X floatatom 110 68 8 0 0 0 - - -, f 8;
#X obj 425 163 - 1;
#X text 170 3 make spectrum;
#X obj 425 26 inlet;
#X floatatom 425 59 5 0 0 0 - - -, f 5;
#X obj 425 106 * 2;
#X obj 46 359 tabread \$0-fft-r1;
#X obj 206 439 tabwrite \$0-spectrum;
#X obj 130 146 -;
#X obj 237 264 +;
#X obj 332 126 f;
#X obj 130 107 t b f;
#X floatatom 201 185 8 0 0 0 - - -, f 8;
#X obj 316 -3 array size \$0-spectrum;
#X obj 217 46 t b b;
#X obj 203 361 tabread \$0-fft-i1;
#X obj 63 397 expr sqrt($f1*$f1 + $f2*$f2);
#X obj 7 113 r block-size;
#X obj 37 206 -;
#X obj 37 166 t b f;
#X obj 78 250 -;
#X obj 78 218 t b f;
#X obj 78 301 spigot;
#X obj 146 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 162 263 == 0;
#X obj 187 310 spigot 1;
#X obj 71 39 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1
;
#X obj 423 367 f \$0;
#X obj 423 316 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 4 4 on for negative m off for positive m, f 11;
#X msg 423 406 \; \$1-spectrum normalize;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 0 2 1;
#X connect 3 0 15 1;
#X connect 3 0 17 0;
#X connect 3 0 29 0;
#X connect 4 0 1 1;
#X connect 5 0 22 0;
#X connect 6 0 2 1;
#X connect 7 0 8 0;
#X connect 8 0 16 0;
#X connect 9 0 4 1;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 12 0 19 0;
#X connect 13 0 9 0;
#X connect 13 0 18 1;
#X connect 13 0 21 0;
#X connect 14 0 24 0;
#X connect 16 0 17 1;
#X connect 16 0 20 0;
#X connect 16 0 27 0;
#X connect 17 0 33 0;
#X connect 18 0 1 0;
#X connect 19 0 16 0;
#X connect 19 1 16 1;
#X connect 22 0 18 0;
#X connect 22 1 6 0;
#X connect 23 0 24 1;
#X connect 24 0 15 0;
#X connect 25 0 26 0;
#X connect 26 0 28 0;
#X connect 27 0 26 0;
#X connect 27 1 26 1;
#X connect 28 0 30 0;
#X connect 29 0 28 0;
#X connect 29 1 28 1;
#X connect 30 0 23 0;
#X connect 30 0 14 0;
#X connect 31 0 30 1;
#X connect 31 0 32 0;
#X connect 32 0 33 1;
#X connect 33 0 23 0;
#X connect 33 0 14 0;
#X connect 34 0 31 0;
#X connect 35 0 38 0;
#X connect 36 0 35 0;
#X restore 327 486 pd viewspectrum;
#X obj 978 318 nbx 10 20 0 22100 0 0 empty empty empty 0 -8 0 10 -204786
-1 -1 0 256;
#X text 976 339 absolute downshift (bins);
#X obj 583 363 fft-resynth-posm \$0;
#X obj 759 363 fft-resynth-negm \$0;
#X obj 978 366 r absshift;
#X obj 978 242 r shiftfactor;
#X connect 7 0 50 0;
#X connect 9 0 108 1;
#X connect 11 0 108 0;
#X connect 15 0 127 0;
#X connect 17 0 99 0;
#X connect 19 0 76 0;
#X connect 19 0 123 0;
#X connect 20 0 76 1;
#X connect 20 0 123 1;
#X connect 23 0 100 0;
#X connect 26 0 58 1;
#X connect 26 0 77 1;
#X connect 26 0 118 1;
#X connect 26 0 121 2;
#X connect 27 0 92 0;
#X connect 27 0 106 0;
#X connect 28 0 107 0;
#X connect 29 0 58 2;
#X connect 29 0 118 2;
#X connect 29 0 121 4;
#X connect 30 0 106 2;
#X connect 30 0 107 2;
#X connect 31 0 20 0;
#X connect 33 0 59 0;
#X connect 34 0 31 0;
#X connect 36 0 49 1;
#X connect 36 0 58 3;
#X connect 36 0 77 2;
#X connect 36 0 118 3;
#X connect 36 0 121 3;
#X connect 41 0 126 0;
#X connect 42 0 99 0;
#X connect 43 0 122 0;
#X connect 44 0 26 0;
#X connect 45 0 29 0;
#X connect 46 0 36 0;
#X connect 47 0 33 0;
#X connect 48 0 35 0;
#X connect 49 0 41 0;
#X connect 49 1 15 0;
#X connect 50 0 8 0;
#X connect 50 1 104 0;
#X connect 52 0 54 0;
#X connect 53 0 74 0;
#X connect 54 0 53 0;
#X connect 57 0 58 0;
#X connect 57 0 97 0;
#X connect 57 0 121 0;
#X connect 58 0 104 0;
#X connect 58 1 103 0;
#X connect 59 0 60 0;
#X connect 59 1 34 0;
#X connect 59 2 31 1;
#X connect 60 0 102 0;
#X connect 62 0 61 0;
#X connect 63 0 62 0;
#X connect 64 0 77 3;
#X connect 64 0 58 4;
#X connect 64 0 118 4;
#X connect 64 0 121 1;
#X connect 65 0 64 0;
#X connect 68 0 69 0;
#X connect 70 0 57 0;
#X connect 71 0 96 0;
#X connect 72 0 71 0;
#X connect 73 0 54 0;
#X connect 74 0 75 0;
#X connect 75 0 55 0;
#X connect 76 0 49 0;
#X connect 77 0 7 0;
#X connect 78 0 9 0;
#X connect 79 0 87 0;
#X connect 80 0 81 0;
#X connect 80 1 82 0;
#X connect 81 0 94 0;
#X connect 84 0 79 0;
#X connect 84 2 80 0;
#X connect 84 3 83 0;
#X connect 84 4 89 0;
#X connect 87 0 88 0;
#X connect 88 0 93 0;
#X connect 89 1 86 0;
#X connect 89 2 85 0;
#X connect 94 0 95 0;
#X connect 96 0 11 0;
#X connect 97 0 11 0;
#X connect 98 0 97 0;
#X connect 99 0 98 0;
#X connect 100 0 49 0;
#X connect 100 1 126 1;
#X connect 100 1 127 1;
#X connect 102 0 19 0;
#X connect 102 1 101 0;
#X connect 103 0 77 0;
#X connect 104 0 118 0;
#X connect 105 0 106 1;
#X connect 105 0 107 1;
#X connect 106 0 60 0;
#X connect 106 0 60 1;
#X connect 107 0 34 0;
#X connect 107 0 34 1;
#X connect 108 0 51 0;
#X connect 108 0 84 0;
#X connect 108 1 109 0;
#X connect 112 0 114 0;
#X connect 114 0 115 0;
#X connect 115 0 117 0;
#X connect 116 0 115 1;
#X connect 117 0 119 0;
#X connect 118 0 48 0;
#X connect 118 1 68 0;
#X connect 118 2 28 0;
#X connect 118 4 27 0;
#X connect 119 0 111 0;
#X connect 120 0 117 1;
#X connect 122 0 33 0;
#X connect 124 0 100 0;
#X connect 126 0 42 0;
#X connect 126 1 96 0;
#X connect 126 1 110 0;
#X connect 127 0 17 0;
#X connect 127 1 96 0;
#X connect 127 1 110 0;
#X connect 128 0 124 0;
#X connect 129 0 23 0;