""

svn path=/trunk/; revision=515

8 files changed, 224 insertions, 47 deletions

diff --git a/externals/grill/vasp/pd/rndup2.pd b/externals/grill/vasp/pd/rndup2.pd
new file mode 100644
index 00000000..a29b159a
--- /dev/null
+++ b/externals/grill/vasp/pd/rndup2.pd
@@ -0,0 +1,48 @@
+#N canvas 0 0 315 407 12;

+#X obj 34 157 int;

+#N canvas 416 247 452 302 pow2 0;

+#X obj 34 111 pow;

+#X msg 33 84 2;

+#X obj 34 57 t b f;

+#X obj 33 22 inlet;

+#X obj 33 144 outlet;

+#X connect 0 0 4 0;

+#X connect 1 0 0 0;

+#X connect 2 0 1 0;

+#X connect 2 1 0 1;

+#X connect 3 0 2 0;

+#X restore 33 199 pd pow2;

+#N canvas 0 0 227 213 log2 0;

+#X obj 36 23 inlet;

+#X obj 34 63 log;

+#X obj 36 120 /;

+#X obj 101 24 loadbang;

+#X obj 99 86 log;

+#X obj 31 157 outlet;

+#X msg 99 60 2;

+#X connect 0 0 1 0;

+#X connect 1 0 2 0;

+#X connect 2 0 5 0;

+#X connect 3 0 6 0;

+#X connect 4 0 2 1;

+#X connect 6 0 4 0;

+#X restore 34 127 pd log2;

+#X obj 65 254 !=;

+#X obj 35 100 t f f;

+#X obj 33 225 t f f;

+#X obj 33 313 * 1;

+#X obj 63 283 + 1;

+#X obj 33 357 outlet;

+#X obj 35 55 inlet;

+#X text 35 17 round up to the next power of 2;

+#X connect 0 0 1 0;

+#X connect 1 0 5 0;

+#X connect 2 0 0 0;

+#X connect 3 0 7 0;

+#X connect 4 0 2 0;

+#X connect 4 1 3 1;

+#X connect 5 0 6 0;

+#X connect 5 1 3 0;

+#X connect 6 0 8 0;

+#X connect 7 0 6 1;

+#X connect 9 0 4 0;

diff --git a/externals/grill/vasp/pd/vasp.cconj.pd b/externals/grill/vasp/pd/vasp.cconj.pd
new file mode 100644
index 00000000..5f009e0b
--- /dev/null
+++ b/externals/grill/vasp/pd/vasp.cconj.pd
@@ -0,0 +1,18 @@
+#N canvas 420 247 367 328 12;

+#X obj 28 43 inlet;

+#X obj 28 276 outlet;

+#X obj 28 124 vasp.spit 2;

+#X obj 111 163 vasp.* -1;

+#X obj 28 214 vasp.gather;

+#X text 28 13 complex conjugate;

+#X text 123 123 split into pairs;

+#X text 125 216 unite vectors;

+#X text 193 163 flip imaginary part;

+#X obj 28 80 vasp;

+#X connect 0 0 9 0;

+#X connect 2 0 3 0;

+#X connect 2 1 4 1;

+#X connect 2 2 4 0;

+#X connect 3 0 4 1;

+#X connect 4 0 1 0;

+#X connect 9 0 2 0;

diff --git a/externals/grill/vasp/pd/vasp.cconv.pd b/externals/grill/vasp/pd/vasp.cconv.pd
index 62cbb795..99587495 100644
--- a/externals/grill/vasp/pd/vasp.cconv.pd
+++ b/externals/grill/vasp/pd/vasp.cconv.pd
@@ -1,28 +1,53 @@
-#N canvas 30 70 408 308 12;

-#X obj 53 224 vasp.c!fft;

-#X obj 162 131 vasp.sync 2;

-#X obj 178 104 vasp.= 0;

-#X obj 179 80 vasp.im;

-#X obj 161 158 vasp.cfft;

-#X obj 54 198 vasp.c*;

-#X obj 54 131 vasp.sync 2;

-#X obj 70 104 vasp.= 0;

-#X obj 71 80 vasp.im;

-#X obj 53 158 vasp.cfft;

-#X obj 54 51 inlet;

-#X obj 168 52 inlet;

-#X obj 52 252 outlet;

-#X connect 0 0 12 0;

-#X connect 1 0 4 0;

-#X connect 2 0 1 1;

-#X connect 3 0 2 0;

-#X connect 4 0 5 1;

-#X connect 5 0 0 0;

-#X connect 6 0 9 0;

-#X connect 7 0 6 1;

-#X connect 8 0 7 0;

-#X connect 9 0 5 0;

-#X connect 10 0 6 0;

-#X connect 10 0 8 0;

-#X connect 11 0 1 0;

-#X connect 11 0 3 0;

+#N canvas 30 70 418 569 12;

+#X obj 88 475 vasp.c!fft;

+#X obj 229 314 vasp.= 0;

+#X obj 230 290 vasp.im;

+#X obj 197 377 vasp.cfft;

+#X obj 89 449 vasp.c*;

+#X obj 123 311 vasp.= 0;

+#X obj 124 287 vasp.im;

+#X obj 89 377 vasp.cfft;

+#X obj 70 73 inlet;

+#X obj 245 74 inlet;

+#X obj 69 526 outlet;

+#X obj 217 253 vasp;

+#X obj 196 223 t b;

+#X obj 90 412 vasp.sync;

+#X obj 90 350 vasp.sync;

+#X obj 198 350 vasp.sync;

+#X obj 70 132 vasp.radio;

+#X obj 70 104 vasp;

+#X obj 36 175 route radio;

+#X obj 245 105 vasp;

+#X text 36 8 complex convolution;

+#X text 32 28 (currently handles only discrete pairs);

+#X connect 0 0 10 0;

+#X connect 1 0 15 1;

+#X connect 2 0 1 0;

+#X connect 3 0 13 1;

+#X connect 4 0 0 0;

+#X connect 5 0 14 1;

+#X connect 6 0 5 0;

+#X connect 7 0 13 0;

+#X connect 8 0 17 0;

+#X connect 9 0 19 0;

+#X connect 11 0 2 0;

+#X connect 11 0 15 0;

+#X connect 12 0 11 0;

+#X connect 13 0 4 0;

+#X connect 13 1 4 1;

+#X connect 14 0 7 0;

+#X connect 15 0 3 0;

+#X connect 16 0 18 0;

+#X connect 16 0 10 0;

+#X connect 16 1 14 0;

+#X connect 16 1 6 0;

+#X connect 16 1 12 0;

+#X connect 17 0 16 0;

+#X connect 18 0 7 0;

+#X connect 18 0 5 0;

+#X connect 18 0 1 0;

+#X connect 18 0 3 0;

+#X connect 18 0 4 0;

+#X connect 18 0 0 0;

+#X connect 19 0 11 1;

diff --git a/externals/grill/vasp/pd/vasp.conv.pd b/externals/grill/vasp/pd/vasp.conv.pd
index d6350270..4036fd61 100644
--- a/externals/grill/vasp/pd/vasp.conv.pd
+++ b/externals/grill/vasp/pd/vasp.conv.pd
@@ -1,24 +1,37 @@
-#N canvas 30 70 412 386 12;

-#X obj 57 30 inlet;

-#X obj 196 31 inlet;

-#X obj 57 308 outlet;

-#X obj 94 151 vasp.rfft;

-#X obj 194 154 vasp.rfft;

-#X obj 87 238 vasp.*;

-#X obj 76 267 vasp.r!fft;

-#X obj 56 67 vasp.radio;

-#X obj 94 196 vasp.sync;

-#X connect 0 0 7 0;

-#X connect 1 0 4 0;

+#N canvas 30 70 416 515 12;

+#X obj 57 76 inlet;

+#X obj 224 76 inlet;

+#X obj 60 416 outlet;

+#X obj 97 259 vasp.rfft;

+#X obj 197 262 vasp.rfft;

+#X obj 90 346 vasp.*;

+#X obj 79 375 vasp.r!fft;

+#X obj 57 142 vasp.radio;

+#X obj 97 304 vasp.sync;

+#X obj 197 219 vasp;

+#X obj 168 172 t b;

+#X obj 223 107 vasp;

+#X obj 57 108 vasp;

+#X obj 25 185 route radio;

+#X text 26 10 real convolution;

+#X text 26 30 (currently handles only discrete vectors);

+#X connect 0 0 12 0;

+#X connect 1 0 11 0;

 #X connect 3 0 8 0;

 #X connect 4 0 8 1;

 #X connect 5 0 6 0;

 #X connect 6 0 2 0;

-#X connect 7 0 3 0;

-#X connect 7 0 4 0;

-#X connect 7 0 5 0;

-#X connect 7 0 6 0;

 #X connect 7 0 2 0;

+#X connect 7 0 13 0;

 #X connect 7 1 3 0;

+#X connect 7 1 10 0;

 #X connect 8 0 5 0;

 #X connect 8 1 5 1;

+#X connect 9 0 4 0;

+#X connect 10 0 9 0;

+#X connect 11 0 9 1;

+#X connect 12 0 7 0;

+#X connect 13 0 3 0;

+#X connect 13 0 4 0;

+#X connect 13 0 5 0;

+#X connect 13 0 6 0;

diff --git a/externals/grill/vasp/pd/vasp.db2pow.pd b/externals/grill/vasp/pd/vasp.db2pow.pd
new file mode 100644
index 00000000..64b3dd1a
--- /dev/null
+++ b/externals/grill/vasp/pd/vasp.db2pow.pd
@@ -0,0 +1,18 @@
+#N canvas 0 0 247 304 12;

+#X obj 31 66 inlet;

+#X obj 28 272 outlet;

+#X obj 31 130 vasp.exp;

+#X obj 29 242 vasp.*;

+#X obj 99 179 10;

+#X obj 98 207 log;

+#X obj 153 66 loadbang;

+#X obj 31 100 vasp./ 20;

+#X text 14 5 convert values in a vasp;

+#X text 15 23 from dB to power;

+#X connect 0 0 7 0;

+#X connect 2 0 3 0;

+#X connect 3 0 1 0;

+#X connect 4 0 5 0;

+#X connect 5 0 3 1;

+#X connect 6 0 4 0;

+#X connect 7 0 2 0;

diff --git a/externals/grill/vasp/pd/vasp.defer.pd b/externals/grill/vasp/pd/vasp.defer.pd
new file mode 100644
index 00000000..82933271
--- /dev/null
+++ b/externals/grill/vasp/pd/vasp.defer.pd
@@ -0,0 +1,28 @@
+#N canvas 363 240 469 368 12;

+#X obj 29 73 inlet;

+#X obj 30 300 outlet;

+#X text 26 10 defer a vasp message;

+#X text 26 28 (no immediate send);

+#X obj 29 268 vasp;

+#X obj 30 106 t a b;

+#X obj 66 145 f 1;

+#X msg 115 105 1;

+#X obj 98 145 + 1;

+#X obj 65 188 >= \$1;

+#X msg 65 229 defer \$1;

+#X obj 168 190 select 1;

+#X obj 212 73 inlet;

+#X text 218 95 max msgs per tick;

+#X connect 0 0 5 0;

+#X connect 4 0 1 0;

+#X connect 5 0 4 0;

+#X connect 5 1 6 0;

+#X connect 6 0 8 0;

+#X connect 6 0 9 0;

+#X connect 7 0 6 1;

+#X connect 8 0 6 1;

+#X connect 9 0 10 0;

+#X connect 9 0 11 0;

+#X connect 10 0 4 0;

+#X connect 11 0 7 0;

+#X connect 12 0 9 1;

diff --git a/externals/grill/vasp/pd/vasp.opt.pd b/externals/grill/vasp/pd/vasp.opt.pd
index 283d24da..9e4b69a9 100644
--- a/externals/grill/vasp/pd/vasp.opt.pd
+++ b/externals/grill/vasp/pd/vasp.opt.pd
@@ -1,9 +1,9 @@
-#N canvas 504 38 462 476 12;

+#N canvas 504 38 464 478 12;

 #X obj 27 11 inlet;

 #X obj 90 158 vasp.amax?;

 #X obj 35 206 route 0 1;

-#X obj 107 393 outlet;

-#X obj 165 393 outlet;

+#X obj 107 415 outlet;

+#X obj 165 415 outlet;

 #X obj 27 306 vasp;

 #X obj 47 255 t b;

 #X obj 90 116 vasp.m 2;

diff --git a/externals/grill/vasp/pd/vasp.parts.pd b/externals/grill/vasp/pd/vasp.parts.pd
new file mode 100644
index 00000000..15cd3442
--- /dev/null
+++ b/externals/grill/vasp/pd/vasp.parts.pd
@@ -0,0 +1,27 @@
+#N canvas 0 0 460 384 12;

+#X obj 39 318 outlet;

+#X obj 39 232 vasp.part \$1;

+#X obj 40 67 inlet;

+#X text 42 15 loop over vasp;

+#X obj 225 65 inlet;

+#X text 45 47 vasp;

+#X text 224 47 length;

+#X obj 62 120 vasp.defer;

+#X obj 39 165 vasp.m;

+#X obj 161 204 vasp.f?;

+#X obj 189 236 <= \$1;

+#X obj 159 268 select 1;

+#X obj 159 315 outlet;

+#X text 215 312 bang on finish;

+#X text 61 100 next part;

+#X connect 1 0 0 0;

+#X connect 1 1 7 0;

+#X connect 2 0 8 0;

+#X connect 4 0 1 1;

+#X connect 4 0 10 1;

+#X connect 7 0 8 0;

+#X connect 8 0 9 0;

+#X connect 8 1 1 0;

+#X connect 9 0 10 0;

+#X connect 10 0 11 0;

+#X connect 11 0 12 0;