"version 0.1.1"

svn path=/trunk/; revision=267

1 files changed, 78 insertions, 0 deletions

diff --git a/externals/grill/vasp/pd-help/vasp_mphasor.pd b/externals/grill/vasp/pd-help/vasp_mphasor.pd
new file mode 100644
index 00000000..5ad39ce7
--- /dev/null
+++ b/externals/grill/vasp/pd-help/vasp_mphasor.pd
@@ -0,0 +1,78 @@
+#N canvas 47 54 883 486 10;

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

+-1 0;

+#X obj 77 195 vasp.update;

+#X obj 77 172 vasp.* 0.5;

+#X obj 394 397 dac~;

+#X obj 394 353 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1

+-1;

+#X text 416 352 play;

+#X text 70 78 argument/right inlet: frequency in period length in samples

+;

+#N canvas 40 55 281 170 clear_buffer 0;

+#X obj 54 79 vasp.update;

+#X obj 54 56 vasp.= 0;

+#X obj 54 26 inlet;

+#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152

+8 -262144 -1 -1;

+#X connect 0 0 3 0;

+#X connect 1 0 0 0;

+#X connect 2 0 1 0;

+#X restore 534 397 pd clear_buffer;

+#X text 188 126 generate white noise;

+#X obj 77 149 vasp.noise;

+#X obj 77 218 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152

+8 -262144 -1 -1;

+#N canvas 92 108 341 266 init 0;

+#X obj 110 180 s \$0-sample-length;

+#X msg 177 126 resize \$1;

+#X obj 177 79 loadbang;

+#X msg 177 100 88200;

+#X obj 177 148 s bufmphasor;

+#X connect 1 0 4 0;

+#X connect 2 0 3 0;

+#X connect 3 0 1 0;

+#X connect 3 0 0 0;

+#X restore 673 395 pd init;

+#N canvas 4 20 454 304 Hz_to_period_length 0;

+#X floatatom 135 242 0 0 0;

+#X obj 135 142 t b f;

+#X text 168 223 period length in samples (float);

+#X floatatom 135 80 0 0 0;

+#X obj 135 206 / 1;

+#X text 180 79 frequency in Hz;

+#X obj 53 142 samplerate~;

+#X obj 53 119 loadbang;

+#X floatatom 135 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 80 396 pd Hz_to_period_length;

+#X text 72 63 multiplies a saw tooth ramp with a buffer content;

+#X msg 77 127 vasp bufmphasor;

+#X obj 464 158 wavedisplay-simple bufmphasor \$0;

+#X msg 534 374 vasp bufmphasor;

+#X obj 394 374 tabplay~ bufmphasor;

+#X text 207 243 generate an amplitude modulation;

+#X text 208 258 with 2Hz;

+#X obj 78 292 vasp.update;

+#X obj 78 315 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152

+8 -262144 -1 -1;

+#X obj 78 268 vasp.*phasor 22050;

+#X msg 78 245 vasp bufmphasor;

+#X obj 79 449 VASP-HELP;

+#X connect 1 0 10 0;

+#X connect 2 0 1 0;

+#X connect 4 0 17 0;

+#X connect 9 0 2 0;

+#X connect 14 0 9 0;

+#X connect 16 0 7 0;

+#X connect 17 0 3 0;

+#X connect 17 0 3 1;

+#X connect 20 0 21 0;

+#X connect 22 0 20 0;

+#X connect 23 0 22 0;