diff options
Diffstat (limited to 'externals/grill/vasp/pd/phase-random_example.pd')
-rw-r--r-- | externals/grill/vasp/pd/phase-random_example.pd | 86 |
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; |