From a5b45e8e2e99686ea73fa2793d7fec84f0d1a3ed Mon Sep 17 00:00:00 2001
From: Thomas Grill <xovo@users.sourceforge.net>
Date: Tue, 17 Dec 2002 04:36:31 +0000
Subject:  ""

svn path=/trunk/; revision=303
---
 externals/grill/vasp/pd-ex/freeze1.pd | 164 ++++++++++++++++++----------------
 1 file changed, 87 insertions(+), 77 deletions(-)

(limited to 'externals/grill/vasp/pd-ex/freeze1.pd')

diff --git a/externals/grill/vasp/pd-ex/freeze1.pd b/externals/grill/vasp/pd-ex/freeze1.pd
index d3aba0f8..26aa9d5a 100644
--- a/externals/grill/vasp/pd-ex/freeze1.pd
+++ b/externals/grill/vasp/pd-ex/freeze1.pd
@@ -1,12 +1,11 @@
-#N canvas 30 168 943 479 12;
-#X obj 18 361 vasp.u;
-#N canvas 387 42 535 624 freeze 0;
+#N canvas 33 61 967 503 12;
+#N canvas 387 42 567 656 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 27 589 outlet;
 #X obj 173 236 * 0.01;
 #X obj 302 17 inlet;
 #X obj 26 100 vasp.polar @detach 1;
@@ -16,7 +15,7 @@
 #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 162 591 outlet;
 #X obj 29 536 vasp.opt;
 #N canvas 0 0 456 306 non0 0;
 #X obj 26 162 outlet;
@@ -38,26 +37,27 @@
 #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.!;
+#N canvas 445 282 474 324 cplx 0;
 #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 149 137 vasp.f?;
+#X obj 19 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 216 135 get length of source;
+#X text 225 181 make immediate;
+#X text 225 196 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 obj 87 176 vasp.! @detach 1;
+#X obj 19 203 vasp.sync;
+#X connect 0 0 4 0;
+#X connect 1 0 10 0;
+#X connect 1 1 9 0;
+#X connect 1 2 2 0;
+#X connect 2 0 9 1;
+#X connect 3 0 1 0;
+#X connect 9 0 10 1;
+#X connect 10 0 0 0;
+#X connect 10 1 0 1;
 #X restore 27 43 pd cplx;
 #X text 280 169 resample;
 #X text 185 211 find spectral peak;
@@ -70,12 +70,15 @@
 #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 obj 395 389 loadbang;
+#X msg 395 414 detach 1;
+#X text 102 536 normalize result;
+#X text 388 435 no attributes yet;
+#X connect 0 0 34 0;
 #X connect 0 1 11 0;
 #X connect 1 0 9 0;
 #X connect 2 0 8 0;
@@ -85,7 +88,7 @@
 #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 10 0 35 0;
 #X connect 11 0 27 0;
 #X connect 12 0 1 0;
 #X connect 12 0 17 0;
@@ -97,13 +100,15 @@
 #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 20 0 34 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 connect 34 0 13 0;
+#X connect 35 0 12 0;
+#X connect 36 0 35 1;
+#X connect 38 0 39 0;
+#X connect 39 0 16 0;
 #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;
@@ -165,8 +170,8 @@
 #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 array src 1e+006 float 0;
+#X coords 0 1 999999 -1 600 150 1;
 #X restore 322 20 graph;
 #X msg 447 222 new;
 #X msg 482 222 again;
@@ -181,7 +186,7 @@
 #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;
+0 -6 0 10 -262131 -1 -1 0.015744 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
@@ -196,7 +201,7 @@
 #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;
+#N canvas 0 0 501 353 playsrc 0;
 #X obj 18 245 dac~;
 #X obj 19 21 inlet;
 #X obj 17 49 route play;
@@ -211,11 +216,13 @@
 #X obj 19 81 t b;
 #X obj 19 159 lister;
 #X obj 77 105 loadbang;
+#X obj 109 239 outlet;
 #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 3 1 14 0;
 #X connect 4 0 7 0;
 #X connect 5 0 8 0;
 #X connect 6 0 9 0;
@@ -230,18 +237,20 @@
 #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;
+#N canvas 0 0 483 335 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 obj 98 118 outlet;
 #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 connect 3 1 4 0;
 #X restore 614 251 pd playdst;
-#N canvas 249 202 495 438 copy 0;
+#N canvas 249 202 519 462 copy 0;
 #X obj 27 26 inlet;
 #X obj 27 51 t b b;
 #X obj 316 19 inlet;
@@ -252,45 +261,43 @@
 #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 text 311 193 resize dst buffer;
+#X text 341 221 set to zero;
+#X obj 185 222 vasp.= 0 @detach 1;
 #X obj 26 287 vasp.-> @detach 1;
+#X obj 187 174 vasp.s @ref dst @detach 1;
 #X connect 0 0 1 0;
 #X connect 1 0 4 0;
-#X connect 1 1 10 0;
+#X connect 1 1 23 0;
 #X connect 2 0 9 0;
-#X connect 4 0 16 0;
-#X connect 5 0 17 0;
+#X connect 4 0 14 0;
+#X connect 5 0 15 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 connect 7 0 11 1;
+#X connect 8 0 12 1;
+#X connect 9 0 23 1;
+#X connect 10 0 9 0;
+#X connect 11 0 6 1;
+#X connect 12 0 5 1;
+#X connect 13 0 11 0;
+#X connect 13 0 12 0;
+#X connect 14 0 6 0;
+#X connect 14 1 13 0;
+#X connect 15 0 22 0;
+#X connect 15 1 22 1;
+#X connect 16 0 3 0;
+#X connect 21 0 15 1;
+#X connect 22 1 16 0;
+#X connect 23 0 21 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
@@ -327,21 +334,24 @@
 #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;
+#X obj 18 410 vasp.u;
+#X text 76 412 update graphics;
+#X connect 0 0 37 0;
+#X connect 0 1 18 0;
+#X connect 1 0 0 1;
+#X connect 2 0 0 2;
+#X connect 5 0 4 0;
+#X connect 6 0 3 0;
+#X connect 7 0 26 0;
+#X connect 9 0 6 0;
+#X connect 10 0 6 0;
+#X connect 11 0 5 0;
+#X connect 12 0 5 0;
+#X connect 13 0 26 0;
+#X connect 16 0 28 0;
+#X connect 17 0 28 1;
+#X connect 23 0 27 0;
+#X connect 24 0 27 0;
+#X connect 26 0 13 0;
+#X connect 28 0 0 0;
+#X connect 35 0 0 3;
-- 
cgit v1.2.1