From 9815096db22c73cacdbb65512d1b61d633db7fa8 Mon Sep 17 00:00:00 2001 From: Thomas Grill Date: Mon, 2 Dec 2002 19:21:08 +0000 Subject: "version 0.1.1" svn path=/trunk/; revision=267 --- externals/grill/vasp/pd-help/vasp_rfft.pd | 74 +++++++++++++++++++++++++++++++ 1 file changed, 74 insertions(+) create mode 100644 externals/grill/vasp/pd-help/vasp_rfft.pd (limited to 'externals/grill/vasp/pd-help/vasp_rfft.pd') diff --git a/externals/grill/vasp/pd-help/vasp_rfft.pd b/externals/grill/vasp/pd-help/vasp_rfft.pd new file mode 100644 index 00000000..d7bbb31f --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_rfft.pd @@ -0,0 +1,74 @@ +#N canvas 24 75 893 495 10; +#X obj 75 32 cnv 15 15 15 empty empty vasp.rfft 0 10 1 14 -262144 -1 +0; +#N canvas 92 108 371 312 inside 0; +#X obj 66 154 soundfiler; +#X obj 180 207 s \$0-sample-length; +#X obj 66 208 s \$0-draw_display; +#X msg 234 164 resize \$1; +#X obj 234 117 loadbang; +#X obj 67 53 loadbang; +#X msg 234 138 88200; +#X obj 67 101 filelisthandler \$0; +#X msg 67 79 3; +#X obj 234 186 s bufrfft; +#X msg 67 133 read \$1 bufrfft; +#X obj 66 178 t b; +#X connect 0 0 11 0; +#X connect 3 0 9 0; +#X connect 4 0 6 0; +#X connect 5 0 8 0; +#X connect 6 0 3 0; +#X connect 6 0 1 0; +#X connect 7 0 10 0; +#X connect 8 0 7 0; +#X connect 10 0 0 0; +#X connect 11 0 2 0; +#X restore 761 385 pd inside; +#X obj 329 388 dac~; +#X obj 329 345 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 351 342 play; +#X text 463 343 clear; +#X obj 69 121 filelist \$0; +#X msg 463 365 vasp bufrfft; +#N canvas 0 0 413 295 clear_buffer 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 463 388 pd clear_buffer; +#X obj 329 365 tabplay~ bufrfft; +#X obj 519 137 wavedisplay-simple bufrfft \$0; +#X text 157 345 inverse real fft; +#X obj 68 371 vasp.update; +#X obj 68 394 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X msg 68 320 vasp bufrfft; +#X obj 68 345 vasp.r!fft; +#X text 71 60 real fft; +#X text 72 73 in opposite to cfft there is only one real input buffer +; +#X text 73 86 imaginary part of the fft is assumed to be zero; +#X text 157 239 real fft; +#X obj 68 265 vasp.update; +#X obj 68 288 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 +8 -262144 -1 -1; +#X msg 68 214 vasp bufrfft; +#X obj 68 239 vasp.rfft; +#X obj 61 456 VASP-HELP; +#X text 103 456 - vasp overview; +#X connect 3 0 9 0; +#X connect 7 0 8 0; +#X connect 9 0 2 0; +#X connect 9 0 2 1; +#X connect 12 0 13 0; +#X connect 14 0 15 0; +#X connect 15 0 12 0; +#X connect 20 0 21 0; +#X connect 22 0 23 0; +#X connect 23 0 20 0; -- cgit v1.2.1