updated usage examples

updated date!
added Glenn Meader's example patcher
resurrected help message functionality
examples updates
fixed broken help file names
corrected help patches, added sound enhancer
VC7 project files
fixed help names

svn path=/trunk/; revision=8040

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;