1 files changed, 86 insertions, 0 deletions
diff --git a/externals/grill/vasp/pd/phase-random_example.pd b/externals/grill/vasp/pd/phase-random_example.pd
new file mode 100644
index 00000000..740f9ea4
--- /dev/null
+++ b/externals/grill/vasp/pd/phase-random_example.pd
@@ -0,0 +1,86 @@
+#N canvas 77 150 893 542 10;
+#X obj 75 32 cnv 15 15 15 empty empty phase-random_example 0 10 1 14
+-262144 -1 0;
+#N canvas 92 108 411 413 inside 0;
+#X obj 66 154 soundfiler;
+#X obj 84 238 s \$0-sample-length;
+#X obj 66 208 s \$0-draw_display;
+#X msg 214 206 resize \$1;
+#X obj 214 159 loadbang;
+#X obj 67 53 loadbang;
+#X msg 214 180 88200;
+#X obj 66 178 t b f f;
+#X obj 67 101 filelisthandler \$0;
+#X obj 214 228 s bufpol3;
+#X msg 67 133 read -resize \$1 bufpol3;
+#X msg 67 79 3;
+#X obj 226 254 s bufpol4;
+#X connect 0 0 7 0;
+#X connect 3 0 9 0;
+#X connect 3 0 12 0;
+#X connect 4 0 6 0;
+#X connect 5 0 11 0;
+#X connect 6 0 3 0;
+#X connect 6 0 1 0;
+#X connect 7 0 2 0;
+#X connect 7 1 1 0;
+#X connect 7 2 3 0;
+#X connect 8 0 10 0;
+#X connect 10 0 0 0;
+#X connect 11 0 8 0;
+#X restore 781 472 pd inside;
+#X obj 427 469 dac~;
+#N canvas 0 0 413 295 clear_buffers 0;
+#X obj 49 73 vasp.= 0;
+#X obj 49 49 inlet;
+#X obj 49 97 vasp.u;
+#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
+8 -262144 -1 -1;
+#X connect 0 0 2 0;
+#X connect 1 0 0 0;
+#X connect 2 0 3 0;
+#X restore 561 469 pd clear_buffers;
+#X obj 427 426 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X text 449 423 play;
+#X text 561 424 clear;
+#X obj 495 192 wavedisplay-simple bufpol3 \$0;
+#X obj 69 95 filelist \$0;
+#X obj 427 446 tabplay~ bufpol3;
+#X msg 68 188 vasp bufpol3 bufpol4;
+#X obj 68 213 vasp.cfft;
+#X obj 68 237 vasp.polar;
+#X obj 68 261 vasp.split 2;
+#X obj 101 284 vasp.noise;
+#X obj 101 308 vasp.* 3.14159;
+#X obj 68 336 vasp.join 2;
+#X obj 68 359 vasp.rect;
+#X obj 68 381 vasp.c!fft;
+#X obj 68 405 vasp.update;
+#X obj 68 428 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
+8 -262144 -1 -1;
+#X obj 720 449 table bufpol4 88200;
+#X msg 561 446 vasp bufpol3 bufpol4;
+#X text 157 213 complex fourier transformation;
+#X text 158 236 cartesian to polar coordinate conversion;
+#X text 158 258 split amplitude and phase;
+#X text 202 280 random phase;
+#X text 205 307 scale from 0 to 2*Pi;
+#X text 156 335 polar to cartesian coordinate conversion;
+#X obj 69 472 vasp.freeze;
+#X text 152 472 is an abstraction that does the same;
+#X connect 4 0 9 0;
+#X connect 9 0 2 0;
+#X connect 9 0 2 1;
+#X connect 10 0 11 0;
+#X connect 11 0 12 0;
+#X connect 12 0 13 0;
+#X connect 13 0 16 0;
+#X connect 13 1 14 0;
+#X connect 14 0 15 0;
+#X connect 15 0 16 1;
+#X connect 16 0 17 0;
+#X connect 17 0 18 0;
+#X connect 18 0 19 0;
+#X connect 19 0 20 0;
+#X connect 22 0 3 0;