diff options
Diffstat (limited to 'externals/grill/vasp/pd-ex/frqmax.pd')
-rw-r--r-- | externals/grill/vasp/pd-ex/frqmax.pd | 524 |
1 files changed, 336 insertions, 188 deletions
diff --git a/externals/grill/vasp/pd-ex/frqmax.pd b/externals/grill/vasp/pd-ex/frqmax.pd index 0f0f3c52..f34fb297 100644 --- a/externals/grill/vasp/pd-ex/frqmax.pd +++ b/externals/grill/vasp/pd-ex/frqmax.pd @@ -1,188 +1,336 @@ -#N canvas 67 28 756 590 12;
-#N canvas 0 0 450 300 graph1 0;
-#X array array1 10000 float 0;
-#X coords 0 1 9999 -1 300 140 1;
-#X restore 403 192 graph;
-#X msg 23 156 vasp array1;
-#X text 127 156 buffer to analyze;
-#X obj 23 417 vasp.??;
-#X obj 24 84 nbx 5 18 -100 0 0 1 \$0-thresh empty empty 0 -6 1152 14
--225271 -1 -1 -5 256;
-#X text 84 415 print list omitting zero values;
-#X obj 22 502 print F;
-#X obj 46 532 print V;
-#N canvas 383 238 314 291 mag 0;
-#X obj 37 34 inlet;
-#X obj 39 214 outlet;
-#N canvas 403 262 454 304 rfft 0;
-#X obj 38 100 vasp.rfft;
-#X obj 28 138 vasp.lower;
-#X obj 114 138 vasp.upper;
-#X obj 42 228 vasp.polar;
-#X obj 43 170 vasp.sync;
-#X obj 42 197 vasp.join;
-#X obj 42 262 vasp.re;
-#X text 112 262 get magnitude only;
-#X text 119 102 real FFT;
-#X text 132 156 separate real and imag part;
-#X text 133 229 make polar representation;
-#X obj 39 20 inlet;
-#X obj 38 62 vasp.!;
-#X text 97 64 make temporary buffer;
-#X obj 41 305 outlet;
-#X connect 0 0 1 0;
-#X connect 0 0 2 0;
-#X connect 1 0 4 0;
-#X connect 2 0 4 1;
-#X connect 3 0 6 0;
-#X connect 4 0 5 0;
-#X connect 4 1 5 1;
-#X connect 5 0 3 0;
-#X connect 6 0 14 0;
-#X connect 11 0 12 0;
-#X connect 12 0 0 0;
-#X restore 100 151 pd rfft;
-#N canvas 0 0 454 344 cfft 0;
-#X obj 39 187 vasp.polar;
-#X obj 39 221 vasp.re;
-#X text 109 221 get magnitude only;
-#X text 130 188 make polar representation;
-#X obj 38 42 vasp.!;
-#X obj 38 154 vasp.cfft;
-#X obj 40 253 vasp.lower;
-#X obj 37 100 vasp.sync;
-#X text 169 56 make temporary buffers;
-#X obj 101 44 vasp.!;
-#X obj 102 71 vasp.= 0;
-#X text 119 154 complex FFT;
-#X obj 37 128 vasp.join;
-#X obj 35 11 inlet;
-#X obj 37 291 outlet;
-#X connect 0 0 1 0;
-#X connect 1 0 6 0;
-#X connect 4 0 7 0;
-#X connect 5 0 0 0;
-#X connect 6 0 14 0;
-#X connect 7 0 12 0;
-#X connect 7 1 12 1;
-#X connect 9 0 10 0;
-#X connect 10 0 7 1;
-#X connect 12 0 5 0;
-#X connect 13 0 4 0;
-#X connect 13 0 9 0;
-#X restore 38 88 pd cfft;
-#X text 105 89 complex method;
-#X text 165 147 real method;
-#X text 166 167 (off by one bin?);
-#X connect 0 0 3 0;
-#X connect 3 0 1 0;
-#X restore 24 185 pd mag;
-#X text 77 186 get spectral magnitude;
-#X obj 11 10 cnv 15 700 50 empty empty fftmax 10 22 0 24 -260818 -1
-0;
-#X text 183 41 http://www.parasitaere-kapazitaeten.net;
-#X text 184 25 needs vasp and zexy;
-#X text 184 10 get loudest frequencies \, (C)2003 Thomas Grill;
-#N canvas 0 0 478 370 load 0;
-#X obj 30 100 openpanel;
-#X obj 31 254 pack s s s s;
-#X obj 28 130 t b b s b;
-#X obj 30 22 inlet;
-#X obj 31 313 soundfiler;
-#X obj 29 74 t b s;
-#X text 80 21 input message with target buffer;
-#X obj 107 213 symbol array1;
-#X obj 31 284 route list;
-#X obj 51 189 symbol -resize;
-#X obj 28 159 symbol read;
-#X connect 0 0 2 0;
-#X connect 1 0 8 0;
-#X connect 2 0 10 0;
-#X connect 2 1 9 0;
-#X connect 2 2 1 2;
-#X connect 2 3 7 0;
-#X connect 3 0 5 0;
-#X connect 5 0 0 0;
-#X connect 5 1 7 1;
-#X connect 7 0 1 3;
-#X connect 8 0 4 0;
-#X connect 9 0 1 1;
-#X connect 10 0 1 0;
-#X restore 410 144 pd load;
-#X msg 410 114 array1;
-#X text 442 85 load file into buffer;
-#X obj 410 83 bng 25 250 50 0 empty empty empty 0 -6 0 8 -225271 -1
--1;
-#X obj 125 259 vasp.max?;
-#X text 103 383 discriminate lower values;
-#X obj 125 350 *;
-#X obj 156 299 + 100;
-#X obj 156 322 dbtorms;
-#X obj 23 382 vasp.gate;
-#X obj 23 215 t a a;
-#N canvas 0 0 355 310 ny 0;
-#X obj 33 128 samplerate~;
-#X obj 33 69 vasp.f?;
-#X obj 32 39 inlet;
-#X obj 32 171 /;
-#X obj 32 97 t b f;
-#X obj 32 244 outlet;
-#X obj 33 208 / 2;
-#X connect 0 0 3 0;
-#X connect 1 0 4 0;
-#X connect 2 0 1 0;
-#X connect 3 0 6 0;
-#X connect 4 0 0 0;
-#X connect 4 1 3 1;
-#X connect 6 0 5 0;
-#X restore 68 258 pd ny;
-#X obj 22 459 mtx_mul 0;
-#X text 89 502 frequencies;
-#X text 108 533 associated values (should be calculated to decibels)
-;
-#X text 102 84 threshold in dB (eg. -6);
-#N canvas 0 0 458 308 testsig 0;
-#X msg 30 107 vasp array1;
-#X obj 29 256 vasp.u;
-#X obj 93 168 samplerate~;
-#X obj 29 227 vasp.osc 441;
-#X obj 33 45 nbx 5 18 0 100000 0 0 empty empty empty 0 -6 0 14 -225271
--1 -1 434 256;
-#X obj 116 45 bng 25 250 50 0 empty empty empty 0 -6 0 8 -261689 -1
--1;
-#X obj 92 193 / 100;
-#X obj 94 138 t b f;
-#X text 31 10 set frequency \, then bang to synthesize;
-#X connect 0 0 3 0;
-#X connect 2 0 6 0;
-#X connect 3 0 1 0;
-#X connect 4 0 7 0;
-#X connect 5 0 0 0;
-#X connect 6 0 3 1;
-#X connect 7 0 2 0;
-#X connect 7 1 6 1;
-#X restore 498 431 pd testsig;
-#X text 499 409 create a test signal;
-#X obj 23 121 bng 25 250 50 0 empty empty empty 0 -6 0 8 -225271 -1
--1;
-#X text 55 123 bang to start analysis;
-#X obj 220 258 r \$0-thresh;
-#X text 104 460 scale frequencies;
-#X connect 1 0 8 0;
-#X connect 3 0 26 0;
-#X connect 3 1 7 0;
-#X connect 8 0 24 0;
-#X connect 15 0 14 0;
-#X connect 17 0 15 0;
-#X connect 18 0 20 0;
-#X connect 20 0 23 1;
-#X connect 21 0 22 0;
-#X connect 22 0 20 1;
-#X connect 23 0 3 0;
-#X connect 24 0 23 0;
-#X connect 24 1 18 0;
-#X connect 24 1 25 0;
-#X connect 25 0 26 1;
-#X connect 26 0 6 0;
-#X connect 32 0 1 0;
-#X connect 34 0 21 0;
+#N canvas 530 176 764 598 12; +#N canvas 0 22 450 300 graph1 0; +#X array array1 2.205e+06 float 0; +#X coords 0 1 2.205e+06 -1 300 140 1; +#X restore 403 192 graph; +#X msg 23 156 vasp array1; +#X text 127 156 buffer to analyze; +#X obj 23 417 vasp.??; +#X obj 24 84 nbx 5 18 -100 0 0 1 \$0-thresh empty empty 0 -6 0 14 -225271 +-1 -1 -5 256; +#X text 84 415 print list omitting zero values; +#X obj 22 536 print F; +#X obj 195 535 print V; +#N canvas 383 238 314 291 mag 0; +#X obj 37 34 inlet; +#X obj 39 214 outlet; +#N canvas 403 262 454 304 rfft 0; +#X obj 38 100 vasp.rfft; +#X obj 28 138 vasp.lower; +#X obj 114 138 vasp.upper; +#X obj 42 228 vasp.polar; +#X obj 43 170 vasp.sync; +#X obj 42 197 vasp.join; +#X obj 42 262 vasp.re; +#X text 112 262 get magnitude only; +#X text 119 102 real FFT; +#X text 132 156 separate real and imag part; +#X text 133 229 make polar representation; +#X obj 39 20 inlet; +#X obj 38 62 vasp.!; +#X text 97 64 make temporary buffer; +#X obj 41 305 outlet; +#X connect 0 0 1 0; +#X connect 0 0 2 0; +#X connect 1 0 4 0; +#X connect 2 0 4 1; +#X connect 3 0 6 0; +#X connect 4 0 5 0; +#X connect 4 1 5 1; +#X connect 5 0 3 0; +#X connect 6 0 14 0; +#X connect 11 0 12 0; +#X connect 12 0 0 0; +#X restore 100 151 pd rfft; +#N canvas 0 22 454 344 cfft 0; +#X obj 39 187 vasp.polar; +#X obj 39 221 vasp.re; +#X text 109 221 get magnitude only; +#X text 130 188 make polar representation; +#X obj 38 42 vasp.!; +#X obj 38 154 vasp.cfft; +#X obj 40 253 vasp.lower; +#X obj 37 100 vasp.sync; +#X text 169 56 make temporary buffers; +#X obj 101 44 vasp.!; +#X obj 102 71 vasp.= 0; +#X text 119 154 complex FFT; +#X obj 37 128 vasp.join; +#X obj 35 11 inlet; +#X obj 37 291 outlet; +#X connect 0 0 1 0; +#X connect 1 0 6 0; +#X connect 4 0 7 0; +#X connect 5 0 0 0; +#X connect 6 0 14 0; +#X connect 7 0 12 0; +#X connect 7 1 12 1; +#X connect 9 0 10 0; +#X connect 10 0 7 1; +#X connect 12 0 5 0; +#X connect 13 0 4 0; +#X connect 13 0 9 0; +#X restore 38 88 pd cfft; +#X text 105 89 complex method; +#X text 165 147 real method; +#X text 166 167 (off by one bin?); +#X connect 0 0 3 0; +#X connect 3 0 1 0; +#X restore 24 185 pd mag; +#X text 77 186 get spectral magnitude; +#X obj 11 10 cnv 15 700 50 empty empty fftmax 10 22 0 24 -260818 -1 +0; +#N canvas 0 22 478 370 load 0; +#X obj 30 100 openpanel; +#X obj 31 254 pack s s s s; +#X obj 28 130 t b b s b; +#X obj 30 22 inlet; +#X obj 31 313 soundfiler; +#X obj 29 74 t b s; +#X text 80 21 input message with target buffer; +#X obj 107 213 symbol array1; +#X obj 31 284 route list; +#X obj 51 189 symbol -resize; +#X obj 28 159 symbol read; +#X connect 0 0 2 0; +#X connect 1 0 8 0; +#X connect 2 0 10 0; +#X connect 2 1 9 0; +#X connect 2 2 1 2; +#X connect 2 3 7 0; +#X connect 3 0 5 0; +#X connect 5 0 0 0; +#X connect 5 1 7 1; +#X connect 7 0 1 3; +#X connect 8 0 4 0; +#X connect 9 0 1 1; +#X connect 10 0 1 0; +#X restore 410 144 pd load; +#X msg 410 114 array1; +#X text 442 85 load file into buffer; +#X obj 410 83 bng 25 250 50 0 empty empty empty 0 -6 0 8 -225271 -1 +-1; +#X obj 125 259 vasp.max?; +#X text 103 383 discriminate lower values; +#X obj 125 350 *; +#X obj 156 299 + 100; +#X obj 156 322 dbtorms; +#X obj 23 382 vasp.gate; +#X obj 23 215 t a a; +#N canvas 0 22 359 314 ny 0; +#X obj 33 128 samplerate~; +#X obj 33 69 vasp.f?; +#X obj 32 39 inlet; +#X obj 32 171 /; +#X obj 32 97 t b f; +#X obj 32 244 outlet; +#X obj 33 208 / 2; +#X connect 0 0 3 0; +#X connect 1 0 4 0; +#X connect 2 0 1 0; +#X connect 3 0 6 0; +#X connect 4 0 0 0; +#X connect 4 1 3 1; +#X connect 6 0 5 0; +#X restore 65 258 pd ny; +#X text 89 536 frequencies; +#X text 102 84 threshold in dB (eg. -6); +#N canvas 0 22 466 316 testsig 0; +#X msg 30 107 vasp array1; +#X obj 29 256 vasp.u; +#X obj 93 168 samplerate~; +#X obj 29 227 vasp.osc 441; +#X obj 92 193 / 100; +#X obj 94 138 t b f; +#X text 31 10 set frequency \, then bang to synthesize; +#X obj 31 71 route bang; +#X obj 31 41 inlet; +#X connect 0 0 3 0; +#X connect 2 0 4 0; +#X connect 3 0 1 0; +#X connect 4 0 3 1; +#X connect 5 0 2 0; +#X connect 5 1 4 1; +#X connect 7 0 0 0; +#X connect 7 1 5 0; +#X connect 8 0 7 0; +#X restore 498 468 pd testsig; +#X text 496 392 create a test signal; +#X obj 23 121 bng 25 250 50 0 empty empty empty 0 -6 0 8 -258699 -1 +-1; +#X text 51 119 bang to start analysis; +#X obj 220 258 r \$0-thresh; +#X text 183 14 get loudest frequencies \, (C)2003-2007 Thomas Grill +; +#X text 184 34 http://grrrr.org; +#X obj 545 438 nbx 5 18 0 100000 0 0 empty empty frequency 0 -6 0 14 +-225271 -1 -1 0 256; +#X obj 498 432 bng 25 250 50 0 empty empty make! 0 -6 0 8 -261689 -1 +-1; +#N canvas 0 22 454 304 db 0; +#X obj 45 34 inlet; +#X obj 44 192 outlet; +#X obj 45 96 log; +#X obj 45 121 / 2.302; +#X text 114 122 ln 10; +#X obj 45 156 * 20; +#X connect 0 0 2 0; +#X connect 2 0 3 0; +#X connect 3 0 5 0; +#X connect 5 0 1 0; +#X restore 289 497 pd db; +#X obj 116 495 *; +#N canvas 0 22 458 308 list-map 0; +#N canvas 0 22 454 304 serial 0; +#X obj 65 38 inlet; +#X obj 53 227 outlet; +#X obj 38 180 list split 1; +#X obj 38 97 until; +#X obj 38 135 list append; +#X obj 64 64 t b l; +#X obj 182 130 bang; +#X connect 0 0 5 0; +#X connect 2 0 1 0; +#X connect 2 1 4 1; +#X connect 2 2 6 0; +#X connect 3 0 4 0; +#X connect 4 0 2 0; +#X connect 5 0 3 0; +#X connect 5 1 4 1; +#X connect 6 0 3 1; +#X restore 76 106 pd serial; +#N canvas 676 218 470 320 synth 0; +#X obj 55 34 inlet; +#X obj 107 266 outlet; +#X obj 200 37 inlet reset; +#X obj 55 61 route bang; +#X obj 134 99 t b a; +#X obj 197 64 t b b b; +#X obj 105 239 spigot; +#X msg 250 171 0; +#X msg 68 161 1; +#X obj 50 102 t b b b; +#X obj 185 169 list; +#X obj 126 166 any; +#X connect 0 0 3 0; +#X connect 2 0 5 0; +#X connect 3 0 9 0; +#X connect 3 1 4 0; +#X connect 4 0 11 0; +#X connect 4 1 10 1; +#X connect 5 0 10 0; +#X connect 5 1 10 1; +#X connect 5 2 7 0; +#X connect 6 0 1 0; +#X connect 7 0 6 1; +#X connect 8 0 6 1; +#X connect 9 0 7 0; +#X connect 9 1 11 0; +#X connect 9 2 8 0; +#X connect 10 0 11 1; +#X connect 11 0 10 0; +#X connect 11 0 6 0; +#X restore 59 196 pd synth; +#X obj 61 66 t b l b; +#X obj 61 31 inlet list-in; +#X obj 56 239 outlet list-out; +#X obj 261 242 outlet map-in; +#X obj 281 29 inlet map-out; +#X connect 0 0 5 0; +#X connect 1 0 4 0; +#X connect 2 0 1 0; +#X connect 2 1 0 0; +#X connect 2 2 1 1; +#X connect 3 0 2 0; +#X connect 6 0 1 0; +#X restore 23 495 pd list-map; +#N canvas 0 22 462 312 list-map 0; +#N canvas 0 22 454 304 serial 0; +#X obj 65 38 inlet; +#X obj 53 227 outlet; +#X obj 38 180 list split 1; +#X obj 38 97 until; +#X obj 38 135 list append; +#X obj 64 64 t b l; +#X obj 182 130 bang; +#X connect 0 0 5 0; +#X connect 2 0 1 0; +#X connect 2 1 4 1; +#X connect 2 2 6 0; +#X connect 3 0 4 0; +#X connect 4 0 2 0; +#X connect 5 0 3 0; +#X connect 5 1 4 1; +#X connect 6 0 3 1; +#X restore 76 106 pd serial; +#N canvas 676 218 474 324 synth 0; +#X obj 55 34 inlet; +#X obj 107 266 outlet; +#X obj 200 37 inlet reset; +#X obj 55 61 route bang; +#X obj 197 64 t b b b; +#X obj 105 239 spigot; +#X msg 250 171 0; +#X msg 68 161 1; +#X obj 50 102 t b b b; +#X obj 185 169 list; +#X obj 126 166 any; +#X obj 134 99 t b l; +#X connect 0 0 3 0; +#X connect 2 0 4 0; +#X connect 3 0 8 0; +#X connect 3 1 11 0; +#X connect 4 0 9 0; +#X connect 4 1 9 1; +#X connect 4 2 6 0; +#X connect 5 0 1 0; +#X connect 6 0 5 1; +#X connect 7 0 5 1; +#X connect 8 0 6 0; +#X connect 8 1 10 0; +#X connect 8 2 7 0; +#X connect 9 0 10 1; +#X connect 10 0 9 0; +#X connect 10 0 5 0; +#X connect 11 0 10 0; +#X connect 11 1 9 1; +#X restore 59 196 pd synth; +#X obj 61 66 t b l b; +#X obj 61 31 inlet list-in; +#X obj 56 239 outlet list-out; +#X obj 261 242 outlet map-in; +#X obj 281 29 inlet map-out; +#X connect 0 0 5 0; +#X connect 1 0 4 0; +#X connect 2 0 1 0; +#X connect 2 1 0 0; +#X connect 2 2 1 1; +#X connect 3 0 2 0; +#X connect 6 0 1 0; +#X restore 195 497 pd list-map; +#X text 257 536 dB; +#X connect 1 0 8 0; +#X connect 3 0 36 0; +#X connect 3 1 37 0; +#X connect 8 0 21 0; +#X connect 12 0 11 0; +#X connect 14 0 12 0; +#X connect 15 0 17 0; +#X connect 17 0 20 1; +#X connect 18 0 19 0; +#X connect 19 0 17 1; +#X connect 20 0 3 0; +#X connect 21 0 20 0; +#X connect 21 1 15 0; +#X connect 21 1 22 0; +#X connect 22 0 35 1; +#X connect 27 0 1 0; +#X connect 29 0 18 0; +#X connect 32 0 25 0; +#X connect 33 0 25 0; +#X connect 34 0 37 1; +#X connect 35 0 36 1; +#X connect 36 0 6 0; +#X connect 36 1 35 0; +#X connect 37 0 7 0; +#X connect 37 1 34 0; |