"version 0.1.1"

svn path=/trunk/; revision=267

1 files changed, 63 insertions, 0 deletions

diff --git a/externals/grill/vasp/pd-help/vasp_cosc.pd b/externals/grill/vasp/pd-help/vasp_cosc.pd
new file mode 100644
index 00000000..bbc4941c
--- /dev/null
+++ b/externals/grill/vasp/pd-help/vasp_cosc.pd
@@ -0,0 +1,63 @@
+#N canvas 47 54 885 488 10;

+#N canvas 0 0 452 302 Hz_to_period_length 0;

+#X floatatom 125 238 0 0 0;

+#X obj 125 142 t b f;

+#X text 164 238 period length in samples (float);

+#X floatatom 125 80 0 0 0;

+#X obj 125 206 / 1;

+#X text 170 79 frequency in Hz;

+#X obj 53 142 samplerate~;

+#X obj 53 119 loadbang;

+#X floatatom 125 175 5 0 0;

+#X connect 1 0 8 0;

+#X connect 1 1 4 1;

+#X connect 3 0 1 0;

+#X connect 4 0 0 0;

+#X connect 6 0 8 0;

+#X connect 7 0 6 0;

+#X connect 8 0 4 0;

+#X restore 78 302 pd Hz_to_period_length;

+#X obj 71 32 cnv 15 15 15 empty empty vasp.cosc 0 10 1 14 -262144 -1

+0;

+#N canvas 0 0 450 300 graph1 0;

+#X array bufcosc1 88200 float 0;

+#X coords 0 1 88199 -1 300 100 1;

+#X restore 500 96 graph;

+#N canvas 0 0 400 276 init 0;

+#X obj 33 19 loadbang;

+#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100

+66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5

+1;

+#X msg 33 45 symbol bufcosc1 \, symbol bufcosc2;

+#X connect 0 0 2 0;

+#X connect 2 0 1 0;

+#X restore 781 387 pd init;

+#X text 71 83 optional argument/right inlet: frequency in period length

+in samples;

+#X obj 77 241 vasp.update;

+#X obj 77 218 vasp.* 0.5;

+#X msg 503 360 vasp bufcosc1 bufcosc2;

+#N canvas 40 55 247 122 clear_buffers 0;

+#X obj 54 79 vasp.update;

+#X obj 54 56 vasp.= 0;

+#X obj 54 26 inlet;

+#X connect 1 0 0 0;

+#X connect 2 0 1 0;

+#X restore 503 383 pd clear_buffers;

+#N canvas 0 0 450 300 graph1 0;

+#X array bufcosc2 88200 float 0;

+#X coords 0 1 88199 -1 300 100 1;

+#X restore 501 228 graph;

+#X text 71 63 vasp complex sine wave generator;

+#X text 241 123 generate a complex sinewave;

+#X text 241 135 at 1 Hz into two buffers;

+#X obj 77 194 vasp.cosc 44100;

+#X msg 77 127 vasp bufcosc1 bufcosc2;

+#X floatatom 162 168 7 0 0;

+#X text 239 168 set period length (samples);

+#X obj 79 424 VASP-HELP;

+#X connect 6 0 5 0;

+#X connect 7 0 8 0;

+#X connect 13 0 6 0;

+#X connect 14 0 13 0;

+#X connect 15 0 13 1;