""

svn path=/trunk/; revision=302

1 files changed, 347 insertions, 0 deletions

diff --git a/externals/grill/vasp/pd-ex/freeze1.pd b/externals/grill/vasp/pd-ex/freeze1.pd
new file mode 100644
index 00000000..d3aba0f8
--- /dev/null
+++ b/externals/grill/vasp/pd-ex/freeze1.pd
@@ -0,0 +1,347 @@
+#N canvas 30 168 943 479 12;

+#X obj 18 361 vasp.u;

+#N canvas 387 42 535 624 freeze 0;

+#X obj 26 130 vasp.split 2;

+#X obj 27 404 vasp.join 2;

+#X obj 27 74 vasp.cfft @detach 1;

+#X obj 27 461 vasp.c!fft @detach 1;

+#X obj 25 13 inlet;

+#X obj 27 567 outlet;

+#X obj 173 236 * 0.01;

+#X obj 302 17 inlet;

+#X obj 26 100 vasp.polar @detach 1;

+#X obj 27 432 vasp.rect @detach 1;

+#X obj 26 261 vasp.gate @detach 1;

+#X obj 92 319 vasp.noise @detach 1;

+#X obj 26 371 vasp.sync;

+#X obj 25 209 vasp.max? @detach 1;

+#X obj 381 17 inlet;

+#X obj 162 569 outlet;

+#X obj 29 536 vasp.opt;

+#N canvas 0 0 456 306 non0 0;

+#X obj 26 162 outlet;

+#X obj 27 105 length;

+#X obj 28 133 / 1;

+#X obj 26 21 inlet;

+#X obj 26 49 t a a;

+#X obj 179 80 vasp.f?;

+#X obj 26 80 vasp.?? @detach 1;

+#X connect 1 0 2 0;

+#X connect 2 0 0 0;

+#X connect 3 0 4 0;

+#X connect 4 0 6 0;

+#X connect 4 1 5 0;

+#X connect 5 0 2 1;

+#X connect 6 0 1 0;

+#X restore 161 498 pd non0;

+#X obj 29 509 vasp.n 0;

+#X obj 302 45 + 100;

+#X obj 326 117 expr pow(2. \, -$f1/1200);

+#X obj 300 76 dbtorms;

+#N canvas 445 282 454 304 cplx 0;

+#X obj 87 181 vasp.!;

+#X obj 19 229 vasp.join;

+#X obj 19 73 t a b a;

+#X obj 129 138 vasp.f?;

+#X obj 21 14 inlet;

+#X obj 19 258 outlet;

+#X text 196 136 get length of source;

+#X text 143 178 make immediate;

+#X text 143 193 initialized to 0;

+#X text 101 230 make complex vasp;

+#X obj 19 44 vasp.chk;

+#X connect 0 0 1 1;

+#X connect 1 0 5 0;

+#X connect 2 0 1 0;

+#X connect 2 1 0 0;

+#X connect 2 2 3 0;

+#X connect 3 0 0 1;

+#X connect 4 0 10 0;

+#X connect 10 0 2 0;

+#X restore 27 43 pd cplx;

+#X text 280 169 resample;

+#X text 185 211 find spectral peak;

+#X text 188 260 gate spectrum below threshold;

+#X text 107 371 wait for threads to finish;

+#X obj 92 344 vasp.* 3.14159 @detach 1;

+#X text 193 75 FFT;

+#X text 195 100 -> polar;

+#X text 188 432 -> cartesian;

+#X text 198 460 inverse FFT;

+#X text 263 316 randomize complex arguments;

+#X text 225 496 get spectral density;

+#X text 100 536 normalize result;

+#X obj 25 171 vasp.xtilt 1 @detach 1 @inter 2;

+#X obj 27 290 vasp.pow @detach 1;

+#X obj 441 21 inlet;

+#X text 181 289 treat spectrum exponentially;

+#X connect 0 0 35 0;

+#X connect 0 1 11 0;

+#X connect 1 0 9 0;

+#X connect 2 0 8 0;

+#X connect 3 0 18 0;

+#X connect 4 0 22 0;

+#X connect 6 0 10 1;

+#X connect 7 0 19 0;

+#X connect 8 0 0 0;

+#X connect 9 0 3 0;

+#X connect 10 0 36 0;

+#X connect 11 0 27 0;

+#X connect 12 0 1 0;

+#X connect 12 0 17 0;

+#X connect 12 1 1 1;

+#X connect 13 0 10 0;

+#X connect 13 1 6 0;

+#X connect 14 0 20 0;

+#X connect 16 0 5 0;

+#X connect 17 0 15 0;

+#X connect 18 0 16 0;

+#X connect 19 0 21 0;

+#X connect 20 0 35 1;

+#X connect 21 0 6 1;

+#X connect 22 0 2 0;

+#X connect 27 0 12 1;

+#X connect 35 0 13 0;

+#X connect 36 0 12 0;

+#X connect 37 0 36 1;

+#X restore 18 331 pd freeze;

+#X obj 104 214 nbx 6 18 -100 0 0 1 empty empty noise_rejection(dB)

+0 -8 0 12 -225271 -1 -1 -61 256;

+#X obj 104 257 nbx 7 18 -10000 10000 0 1 empty empty transpose(cents)

+0 -8 0 12 -225271 -1 -1 0 256;

+#X obj 448 278 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1

+-1;

+#X obj 729 279 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1

+-1;

+#N canvas 0 0 468 318 save 0;

+#X obj 30 198 soundfiler;

+#X obj 30 134 symbol;

+#X obj 29 106 savepanel;

+#X obj 32 8 inlet;

+#X obj 27 232 outlet;

+#X obj 30 42 route new again;

+#X obj 29 73 t b;

+#X obj 84 73 t b;

+#X msg 27 169 write -bytes 3 -wave \$1 dst;

+#X connect 0 0 4 0;

+#X connect 1 0 8 0;

+#X connect 2 0 1 0;

+#X connect 3 0 5 0;

+#X connect 5 0 6 0;

+#X connect 5 1 7 0;

+#X connect 6 0 2 0;

+#X connect 7 0 1 0;

+#X connect 8 0 0 0;

+#X restore 729 250 pd save;

+#N canvas 205 58 331 468 open 0;

+#X obj 18 192 soundfiler;

+#X obj 19 96 openpanel;

+#X obj 21 6 inlet;

+#X obj 15 390 outlet;

+#X obj 20 123 symbol;

+#X obj 15 313 vasp.opt;

+#X obj 17 345 vasp.u;

+#X obj 17 233 t b;

+#X obj 22 33 route new again;

+#X obj 19 66 t b;

+#X obj 74 66 t b;

+#X msg 19 152 read -resize \$1 src;

+#X msg 16 281 vasp src;

+#X obj 74 230 s \$0-srclen;

+#X connect 0 0 7 0;

+#X connect 0 0 13 0;

+#X connect 1 0 4 0;

+#X connect 2 0 8 0;

+#X connect 4 0 11 0;

+#X connect 5 0 6 0;

+#X connect 6 0 3 0;

+#X connect 7 0 12 0;

+#X connect 8 0 9 0;

+#X connect 8 1 10 0;

+#X connect 9 0 1 0;

+#X connect 10 0 4 0;

+#X connect 11 0 0 0;

+#X connect 12 0 5 0;

+#X restore 448 250 pd open;

+#X msg 381 222 stop;

+#N canvas 0 0 450 300 graph10 0;

+#X array src 1.23699e+006 float 0;

+#X coords 0 1 1.23699e+006 -1 600 150 1;

+#X restore 322 20 graph;

+#X msg 447 222 new;

+#X msg 482 222 again;

+#X msg 728 222 new;

+#X msg 761 222 again;

+#X msg 332 222 play;

+#X obj 8 9 cnv 15 300 48 empty empty freeze 5 14 0 20 -233017 -66577

+0;

+#X text 128 13 make static sound;

+#X obj 18 108 bng 25 250 50 0 empty empty empty 0 -6 0 8 -24198 -1

+-1;

+#X obj 105 115 nbx 12 18 0 1e+008 0 1 empty empty length(frames) 0

+-8 0 12 -225271 -1 -1 1e+006 256;

+#X obj 85 368 nbx 9 14 -1e+037 1e+037 0 0 empty empty spectral_density

+0 -6 0 10 -262131 -1 -1 0.18217 256;

+#X obj 332 197 cnv 15 100 20 empty empty play_src 5 8 0 10 -261681

+-66577 0;

+#X obj 447 197 cnv 15 100 20 empty empty read_src 5 8 0 10 -261681

+-66577 0;

+#X obj 727 197 cnv 15 100 20 empty empty write_dst 5 8 0 10 -261681

+-66577 0;

+#N canvas 0 0 450 300 graph10 0;

+#X array dst 1e+006 float 0;

+#X coords 0 1 999999 -1 600 150 1;

+#X restore 325 304 graph;

+#X msg 663 223 stop;

+#X msg 614 223 play;

+#X obj 614 198 cnv 15 100 20 empty empty play_dst 5 8 0 10 -261681

+-66577 0;

+#N canvas 0 0 495 347 playsrc 0;

+#X obj 18 245 dac~;

+#X obj 19 21 inlet;

+#X obj 17 49 route play;

+#X obj 18 197 tabplay~ src;

+#X obj 338 23 r \$0-srclen;

+#X obj 166 22 r \$0-offs;

+#X obj 249 22 r \$0-len;

+#X obj 338 48 t b f;

+#X obj 166 94 *;

+#X obj 248 93 *;

+#X obj 75 132 pack 0 0;

+#X obj 19 81 t b;

+#X obj 19 159 lister;

+#X obj 77 105 loadbang;

+#X connect 1 0 2 0;

+#X connect 2 0 11 0;

+#X connect 2 1 3 0;

+#X connect 3 0 0 0;

+#X connect 3 0 0 1;

+#X connect 4 0 7 0;

+#X connect 5 0 8 0;

+#X connect 6 0 9 0;

+#X connect 7 0 8 0;

+#X connect 7 0 9 0;

+#X connect 7 1 8 1;

+#X connect 7 1 9 1;

+#X connect 8 0 10 0;

+#X connect 9 0 10 1;

+#X connect 10 0 12 1;

+#X connect 11 0 12 0;

+#X connect 12 0 3 0;

+#X connect 13 0 10 0;

+#X restore 332 250 pd playsrc;

+#N canvas 0 0 481 333 playdst 0;

+#X obj 21 118 dac~;

+#X obj 19 21 inlet;

+#X obj 22 51 route play;

+#X obj 21 83 tabplay~ dst;

+#X connect 1 0 2 0;

+#X connect 2 0 3 0;

+#X connect 2 1 3 0;

+#X connect 3 0 0 0;

+#X connect 3 0 0 1;

+#X restore 614 251 pd playdst;

+#N canvas 249 202 495 438 copy 0;

+#X obj 27 26 inlet;

+#X obj 27 51 t b b;

+#X obj 316 19 inlet;

+#X obj 25 361 outlet;

+#X obj 26 81 vasp src;

+#X obj 26 229 vasp.f;

+#X obj 26 201 vasp.o;

+#X obj 128 31 r \$0-offs;

+#X obj 211 31 r \$0-len;

+#X obj 316 87 f 1e+006;

+#X obj 187 174 vasp.s @ref dst;

+#X obj 366 21 loadbang;

+#X obj 84 169 *;

+#X obj 117 169 *;

+#X obj 82 139 vasp.f?;

+#X obj 125 366 print;

+#X obj 27 109 t a a;

+#X obj 27 259 vasp.sync;

+#X obj 26 328 vasp.f -1;

+#X text 167 288 copy src to dst;

+#X text 108 328 take all dst;

+#X text 316 175 resize dst buffer;

+#X text 341 201 set to zero;

+#X obj 185 202 vasp.= 0 @detach 1;

+#X obj 26 287 vasp.-> @detach 1;

+#X connect 0 0 1 0;

+#X connect 1 0 4 0;

+#X connect 1 1 10 0;

+#X connect 2 0 9 0;

+#X connect 4 0 16 0;

+#X connect 5 0 17 0;

+#X connect 6 0 5 0;

+#X connect 7 0 12 1;

+#X connect 8 0 13 1;

+#X connect 9 0 10 1;

+#X connect 10 0 23 0;

+#X connect 11 0 9 0;

+#X connect 12 0 6 1;

+#X connect 13 0 5 1;

+#X connect 14 0 12 0;

+#X connect 14 0 13 0;

+#X connect 16 0 6 0;

+#X connect 16 1 14 0;

+#X connect 17 0 24 0;

+#X connect 17 1 24 1;

+#X connect 18 0 3 0;

+#X connect 18 1 15 0;

+#X connect 23 0 17 1;

+#X connect 24 1 18 0;

+#X restore 18 159 pd copy;

+#X text 85 160 copy and resize;

+#X obj 323 170 hsl 600 15 0 1 0 1 \$0-r2 empty empty -2 -6 1152 8 -262131

+-1 -1 59900 1;

+#X obj 323 5 hsl 600 15 0 1 0 1 \$0-r1 empty empty -2 -6 1152 8 -262131

+-1 -1 0 1;

+#N canvas 148 330 297 257 sel 0;

+#X obj 30 25 r \$0-r1;

+#X obj 110 25 r \$0-r2;

+#X obj 30 100 min;

+#X obj 113 100 max;

+#X obj 30 53 t f f;

+#X obj 110 50 t b b f;

+#X obj 113 130 -;

+#X obj 27 190 s \$0-offs;

+#X obj 113 190 s \$0-len;

+#X obj 114 161 * -1;

+#X connect 0 0 4 0;

+#X connect 1 0 5 0;

+#X connect 2 0 6 0;

+#X connect 2 0 7 0;

+#X connect 3 0 6 1;

+#X connect 4 0 2 0;

+#X connect 4 1 3 0;

+#X connect 5 0 2 0;

+#X connect 5 1 3 0;

+#X connect 5 2 3 1;

+#X connect 5 2 2 1;

+#X connect 6 0 9 0;

+#X connect 9 0 8 0;

+#X restore 871 198 pd sel;

+#X text 125 31 (C)2002 Thomas Grill;

+#X text 19 89 do!;

+#X obj 104 301 nbx 7 18 0 3 0 1 empty empty power 0 -8 0 12 -225271

+-1 -1 1 256;

+#X text 10 35 (needs zexy!);

+#X connect 1 0 0 0;

+#X connect 1 1 19 0;

+#X connect 2 0 1 1;

+#X connect 3 0 1 2;

+#X connect 6 0 5 0;

+#X connect 7 0 4 0;

+#X connect 8 0 27 0;

+#X connect 10 0 7 0;

+#X connect 11 0 7 0;

+#X connect 12 0 6 0;

+#X connect 13 0 6 0;

+#X connect 14 0 27 0;

+#X connect 17 0 29 0;

+#X connect 18 0 29 1;

+#X connect 24 0 28 0;

+#X connect 25 0 28 0;

+#X connect 29 0 1 0;

+#X connect 36 0 1 3;