Return to modefilter_cleaned.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 131072 float 2;
#X coords 0 1 131072 -0.01 512 60 1 0 0;
#X restore 11 521 graph;
#X text 11 585 0 Hz;
#X obj 572 427 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 131072 float 2;
#X coords 0 1 131072 -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 272 192 bng 30 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj 275 252 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 8000 256;
#X text 779 513 desired SR;
#X obj 586 484 tgl 30 0 empty empty empty 17 7 0 10 -4034 -1 -1 1 1
;
#X text 579 428 play;
#X text 577 447 processed;
#X text 579 464 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 51840 float 2;
#X coords 0 1 51840 -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 0 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 24226 256;
#X obj 225 434 nbx 5 20 0 10000 0 0 empty empty empty 0 -8 0 10 -204786
-1 -1 17.6343 256;
#X text 109 410 center bin;
#X text 223 410 width (in bins);
#X obj 778 800 soundfiler;
#X obj 778 633 bng 30 250 50 0 empty empty empty 17 7 0 10 -4032 -1
-1;
#X text 814 639 save array to WAVE file;
#X obj 955 336 nbx 10 20 0 22100 0 0 empty empty empty 0 -8 0 10 -204786
-1 -1 3 256;
#N canvas 114 52 1046 635 fft-arrays 0;
#N canvas 0 50 450 300 (subpatch) 0;
#X array \$0-fft-r1 131072 float 2;
#X coords 0 1 131072 -1 500 200 1 0 0;
#X restore 12 23 graph;
#N canvas 0 50 450 300 (subpatch) 0;
#X array \$0-fft-i1 131072 float 2;
#X coords 0 1 131072 -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 131072 float 2;
#X coords 0 1 131072 -1 500 200 1 0 0;
#X restore 533 23 graph;
#N canvas 0 50 450 300 (subpatch) 0;
#X array \$0-fft-i2 131072 float 2;
#X coords 0 1 131072 -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 4 ./rec_audio/temp-fft-r1 \$1-fft-r1
;
#X msg 18 672 write -wave -bytes 4 ./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 988 218 pd fft-arrays;
#X text 953 316 2 = 1 octave lower;
#X obj 110 17 nbx 4 20 0 300 0 0 lmode empty empty 0 -8 0 10 -204786
-1 -1 20 256;
#X floatatom 88 296 8 0 0 0 - - -, f 8;
#X floatatom 88 315 8 0 0 0 - - -, f 8;
#X obj 133 42 nbx 4 20 0 50 0 0 nmode empty empty 0 -8 0 10 -204786
-1 -1 15 256;
#X obj 156 67 nbx 4 20 -300 300 0 0 mmode empty empty 0 -8 0 10 -204786
-1 -1 5 256;
#N canvas 1 52 450 300 (subpatch) 0;
#X array \$0-input-r 131072 float 2;
#X coords 0 1 131072 -1 200 140 1 0 0;
#X restore 696 25 graph;
#X text 162 18 degree l;
#X text 187 44 radial order n;
#X text 212 68 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;
#N canvas 262 234 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 583 267 pd resynth-gate;
#X obj 759 363 fft-resynth-negm \$0;
#X obj 583 363 fft-resynth-posm \$0;
#X obj 272 229 fft-analysis \$0;
#X obj 778 671 f \$0;
#X obj 18 67 bng 30 250 50 0 startbang empty empty 17 7 0 10 -4034
-1 -1;
#X obj 87 97 triggerlogic;
#X obj 778 697 list append;
#X msg 1139 180 \; \$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 1139 140 f \$0;
#X obj 1139 107 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 415 77 nbx 5 20 0 10000 0 0 day empty empty 0 -8 0 10 -204786
-1 -1 6364 256;
#X text 408 54 day number;
#X text 13 15 search for modes, f 8;
#X floatatom 183 291 6 0 0 0 - - -, f 6;
#X obj 264 479 makegain \$0;
#X obj 272 158 loadaudio \$0;
#X obj 850 671 r play-SR;
#X obj 751 463 r play-SR;
#X obj 871 247 t b f;
#X obj 180 128 bng 30 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj 11 218 bng 30 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#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 3746 1;
#X msg 275 724 65536;
#X msg 268 701 131072;
#X obj 251 658 loadbang;
#X msg 279 752 32768;
#X obj 33 713 set-directory;
#X obj 33 676 bng 30 250 50 0 empty empty empty 17 7 0 10 -4032 -1
-1;
#X obj 34 738 s data-dir;
#X msg 35 776 \; pd dsp 1;
#X msg 35 822 \; pd dsp 0;
#X text 68 613 Items that will move to outer patch eventually;
#X obj 240 788 s block-size;
#X msg 347 695 50;
#X obj 347 727 s window-ramp;
#X msg 159 709 ../data, f 10;
#X obj 585 625 *~;
#X obj 612 600 * 0.01;
#X obj 584 770 dac~ 1 2;
#X obj 612 574 nbx 10 20 0 100 0 0 empty empty empty 0 -8 0 10 -204786
-1 -1 20 256;
#X text 719 575 output level (0-100);
#X obj 584 742 audio_safety~;
#X obj 366 759 window-gen;
#X msg 393 691 44100;
#X msg 448 691 22050;
#X msg 505 691 11025;
#X msg 477 657 8000;
#X obj 477 723 s play-SR;
#X obj 213 846 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 156 847 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 156 912 s cadence;
#X msg 156 874 60;
#X msg 213 874 45;
#X obj 138 816 s filestem;
#X msg 156 748 mdi;
#X msg 171 773 hmi;
#X msg 267 819 262144;
#X obj 361 862 s fileblank;
#X msg 361 795 average.modes;
#X obj 778 727 list append;
#X obj 61 248 text-file-reader \$0;
#X msg 382 828 %dd.modes;
#X obj 922 698 r \$0-outstring;
#X obj 504 841 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 504 861 s mswitch;
#X msg 778 761 write -wave -bytes 4 -rate \$2 ./wav_out/\$3 \$1-output
;
#X text 953 298 downshift factor;
#N canvas 294 154 983 501 viewspectrum 0;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-spectrum 35 float 4;
#X coords 0 1 34 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 407 364 f \$0;
#X msg 407 415 \; \$1-spectrum normalize;
#X obj 407 317 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 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 36 0;
#X connect 37 0 35 0;
#X restore 108 480 pd viewspectrum;
#X obj 958 864 makeoutputstring \$0;
#X obj 922 849 bng 15 250 50 0 empty startbang empty 17 7 0 10 -262144
-1 -1;
#X floatatom 961 832 5 0 0 0 - day -, f 5;
#X floatatom 1012 832 5 0 0 0 - lmode -, f 5;
#X floatatom 1065 831 5 0 0 0 - mmode -, f 5;
#X floatatom 1116 831 5 0 0 0 - nmode -, f 5;
#N canvas 372 159 595 411 converttobins 0;
#X obj 404 174 r block-size;
#X obj 250 268 *;
#X obj 358 116 nbx 4 20 0 1000 0 0 empty empty empty 0 -8 0 10 -204786
-1 -1 2.5 256;
#X obj 250 243 f;
#X obj 388 64 loadbang;
#X obj 359 143 t b b f;
#X obj 60 242 f;
#X obj 95 271 s \$0-center-bin;
#X obj 43 296 t f f;
#X obj 262 148 r cadence;
#X obj 59 212 expr $f1*$f2*$f3/1000000;
#X obj 288 212 expr $f1*$f2*$f3/1000000;
#X msg 388 90 2.5;
#X obj 51 104 inlet;
#X obj 134 102 inlet;
#X text 30 64 center frequency, f 10;
#X text 139 80 width;
#X obj 278 61 inlet;
#X text 251 38 width factor;
#X obj 119 348 outlet;
#X obj 274 350 outlet;
#X connect 0 0 10 2;
#X connect 0 0 11 2;
#X connect 1 0 20 0;
#X connect 2 0 5 0;
#X connect 3 0 1 0;
#X connect 4 0 12 0;
#X connect 5 0 6 0;
#X connect 5 1 3 0;
#X connect 5 2 1 1;
#X connect 6 0 8 0;
#X connect 8 0 19 0;
#X connect 8 1 7 0;
#X connect 9 0 10 1;
#X connect 9 0 11 1;
#X connect 10 0 6 0;
#X connect 10 0 6 1;
#X connect 11 0 3 0;
#X connect 11 0 3 1;
#X connect 12 0 2 0;
#X connect 13 0 10 0;
#X connect 14 0 11 0;
#X connect 17 0 2 0;
#X restore 64 377 pd converttobins;
#X text 7 283 measured frequency linewidth (microhertz), f 14;
#X text 183 309 amplitude;
#X floatatom 303 115 5 0 0 0 - lmode -, f 5;
#X floatatom 334 135 5 0 0 0 - mmode -, f 5;
#X floatatom 700 240 5 0 0 0 - mmode -, f 5;
#X text 747 238 m;
#X text 383 134 m;
#X text 351 113 l;
#X text 957 810 day;
#X text 1023 813 l;
#X text 1074 812 m;
#X text 1127 811 n;
#X floatatom 216 190 5 0 0 0 - day -, f 5;
#X floatatom 72 190 5 0 0 0 - lmode -, f 5;
#X floatatom 165 190 5 0 0 0 - mmode -, f 5;
#X floatatom 118 190 5 0 0 0 - nmode -, f 5;
#X text 216 170 day;
#X text 83 171 l;
#X text 174 171 m;
#X text 129 170 n;
#N canvas 1 52 450 300 onoff 0;
#X msg 114 141 0;
#X obj 114 116 sel 1;
#X obj 114 91 < 1;
#X msg 174 91 1;
#X obj 66 40 inlet;
#X obj 170 40 inlet;
#X obj 54 112 bng 15 250 50 0 empty startbang empty 17 7 0 10 -262144
-1 -1;
#X obj 153 227 outlet;
#X connect 0 0 7 0;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 3 0 7 0;
#X connect 4 0 2 0;
#X connect 5 0 3 0;
#X connect 6 0 0 0;
#X restore 671 464 pd onoff;
#X floatatom 220 360 5 0 0 0 - - -, f 5;
#X text 269 344 width multiplication factor, f 17;
#X obj 624 861 s ndays;
#X floatatom 624 835 5 0 0 0 - - -, f 5;
#X connect 7 0 43 0;
#X connect 9 0 62 1;
#X connect 11 0 62 0;
#X connect 15 0 41 0;
#X connect 17 0 137 0;
#X connect 19 0 55 0;
#X connect 19 0 109 0;
#X connect 20 0 55 1;
#X connect 20 0 109 1;
#X connect 24 0 44 0;
#X connect 26 0 59 0;
#X connect 29 0 46 1;
#X connect 30 0 116 0;
#X connect 31 0 116 1;
#X connect 32 0 46 2;
#X connect 33 0 46 3;
#X connect 38 0 42 0;
#X connect 39 0 137 0;
#X connect 40 0 38 0;
#X connect 40 1 15 0;
#X connect 41 0 17 0;
#X connect 41 1 137 1;
#X connect 42 0 39 0;
#X connect 42 1 137 1;
#X connect 43 0 8 0;
#X connect 43 1 61 0;
#X connect 44 0 47 0;
#X connect 45 0 46 0;
#X connect 46 0 61 0;
#X connect 46 1 60 0;
#X connect 47 0 101 0;
#X connect 49 0 48 0;
#X connect 50 0 49 0;
#X connect 51 0 46 4;
#X connect 51 0 56 3;
#X connect 55 0 40 0;
#X connect 56 0 7 0;
#X connect 57 0 47 1;
#X connect 58 0 9 0;
#X connect 59 0 40 0;
#X connect 59 1 42 1;
#X connect 59 1 41 1;
#X connect 60 0 56 0;
#X connect 61 0 102 0;
#X connect 62 0 78 0;
#X connect 62 1 63 0;
#X connect 64 0 74 0;
#X connect 65 0 74 0;
#X connect 66 0 77 0;
#X connect 66 0 75 0;
#X connect 66 0 88 0;
#X connect 66 0 96 0;
#X connect 66 0 100 0;
#X connect 67 0 74 0;
#X connect 68 0 70 0;
#X connect 68 1 77 0;
#X connect 69 0 68 0;
#X connect 75 0 76 0;
#X connect 77 0 68 1;
#X connect 78 0 83 0;
#X connect 79 0 78 1;
#X connect 81 0 79 0;
#X connect 83 0 80 0;
#X connect 83 0 80 1;
#X connect 85 0 89 0;
#X connect 86 0 89 0;
#X connect 87 0 89 0;
#X connect 88 0 89 0;
#X connect 90 0 94 0;
#X connect 90 0 98 0;
#X connect 91 0 93 0;
#X connect 91 0 65 0;
#X connect 93 0 92 0;
#X connect 94 0 92 0;
#X connect 96 0 95 0;
#X connect 96 0 91 0;
#X connect 97 0 95 0;
#X connect 97 0 90 0;
#X connect 98 0 74 0;
#X connect 100 0 99 0;
#X connect 101 0 107 0;
#X connect 102 1 54 0;
#X connect 102 2 31 0;
#X connect 102 4 30 0;
#X connect 103 0 99 0;
#X connect 104 0 101 1;
#X connect 105 0 106 0;
#X connect 107 0 23 0;
#X connect 111 0 110 0;
#X connect 112 0 110 1;
#X connect 113 0 110 2;
#X connect 114 0 110 3;
#X connect 115 0 110 4;
#X connect 116 0 19 0;
#X connect 116 1 20 0;
#X connect 119 0 56 1;
#X connect 120 0 56 2;
#X connect 121 0 40 1;
#X connect 129 0 102 4;
#X connect 130 0 102 1;
#X connect 131 0 102 3;
#X connect 132 0 102 2;
#X connect 137 0 11 0;
#X connect 138 0 116 2;
#X connect 141 0 140 0;