From ef50dd62804d54af7da18d8bd8413c0dccd729b8 Mon Sep 17 00:00:00 2001
From: Thomas Grill <xovo@users.sourceforge.net>
Date: Tue, 6 May 2003 02:36:40 +0000
Subject:  ""

svn path=/trunk/; revision=609
---
 externals/grill/vasp/pd-ex/frqmax.pd | 188 +++++++++++++++++++++++++++++++++++
 1 file changed, 188 insertions(+)
 create mode 100644 externals/grill/vasp/pd-ex/frqmax.pd

(limited to 'externals/grill/vasp')

diff --git a/externals/grill/vasp/pd-ex/frqmax.pd b/externals/grill/vasp/pd-ex/frqmax.pd
new file mode 100644
index 00000000..0f0f3c52
--- /dev/null
+++ b/externals/grill/vasp/pd-ex/frqmax.pd
@@ -0,0 +1,188 @@
+#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;
-- 
cgit v1.2.1