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;