From b0fde116adcede86e4876352e1d3d5978a7e8cde Mon Sep 17 00:00:00 2001 From: Thomas Grill Date: Mon, 31 Mar 2003 02:41:01 +0000 Subject: "" svn path=/trunk/; revision=515 --- externals/grill/vasp/pd/rndup2.pd | 48 ++++++++++++++++++++ externals/grill/vasp/pd/vasp.cconj.pd | 18 ++++++++ externals/grill/vasp/pd/vasp.cconv.pd | 81 ++++++++++++++++++++++------------ externals/grill/vasp/pd/vasp.conv.pd | 45 ++++++++++++------- externals/grill/vasp/pd/vasp.db2pow.pd | 18 ++++++++ externals/grill/vasp/pd/vasp.defer.pd | 28 ++++++++++++ externals/grill/vasp/pd/vasp.opt.pd | 6 +-- externals/grill/vasp/pd/vasp.parts.pd | 27 ++++++++++++ 8 files changed, 224 insertions(+), 47 deletions(-) create mode 100644 externals/grill/vasp/pd/rndup2.pd create mode 100644 externals/grill/vasp/pd/vasp.cconj.pd create mode 100644 externals/grill/vasp/pd/vasp.db2pow.pd create mode 100644 externals/grill/vasp/pd/vasp.defer.pd create mode 100644 externals/grill/vasp/pd/vasp.parts.pd (limited to 'externals/grill/vasp/pd') 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; -- cgit v1.2.1