"version 0.1.1"

svn path=/trunk/; revision=267

1 files changed, 90 insertions, 0 deletions

diff --git a/externals/grill/vasp/pd-help/vasp_set.pd b/externals/grill/vasp/pd-help/vasp_set.pd
new file mode 100644
index 00000000..161b4774
--- /dev/null
+++ b/externals/grill/vasp/pd-help/vasp_set.pd
@@ -0,0 +1,90 @@
+#N canvas 21 60 881 576 10;

+#X obj 61 33 cnv 15 15 15 empty empty vasp.= 0 10 1 14 -262144 -1 0

+;

+#X text 56 66 set a vasp to a value;

+#X text 55 81 optional argument/right inlet: value/vasp;

+#X msg 56 166 vasp bufset;

+#X obj 56 188 vasp.noise;

+#X obj 56 211 vasp.* 0.5;

+#X text 142 164 generate noise;

+#X obj 56 232 vasp.update;

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

+8 -262144 -1 -1;

+#X obj 56 385 vasp.= 0;

+#X obj 112 342 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1

+-1;

+#X obj 56 406 vasp.update;

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

+8 -262144 -1 -1;

+#X text 446 103 select a region by drawing inside the wavedisplay:

+mouse+spacebar (select) or mouse+"s" (shift).;

+#N canvas 109 162 310 376 tovaspdata 0;

+#X obj 107 305 outlet;

+#X obj 107 92 unpack;

+#X obj 107 232 runden;

+#X obj 107 210 - 0;

+#X text 191 251 offset;

+#X obj 107 156 t b f;

+#X obj 107 185 0;

+#X text 111 250 length;

+#X obj 188 233 runden;

+#X obj 107 274 pack;

+#X obj 107 72 change2;

+#X obj 107 115 t f f;

+#X obj 107 47 inlet;

+#X connect 1 0 11 0;

+#X connect 1 1 6 1;

+#X connect 2 0 9 0;

+#X connect 3 0 2 0;

+#X connect 5 0 6 0;

+#X connect 5 1 3 1;

+#X connect 6 0 3 0;

+#X connect 8 0 9 1;

+#X connect 9 0 0 0;

+#X connect 10 0 1 0;

+#X connect 11 0 5 0;

+#X connect 11 1 8 0;

+#X connect 12 0 10 0;

+#X restore 447 302 pd tovaspdata;

+#X msg 447 330 set vasp \$1 bufset \$2;

+#X obj 447 145 wavedisplay-select bufset \$0;

+#X msg 56 315 vasp bufset;

+#X text 134 314 set all samples to zero;

+#X text 136 339 set selected samples to zero;

+#N canvas 0 0 261 214 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 559 465 pd clear_buffer;

+#X msg 559 439 vasp bufset;

+#X text 177 472 <-- click to open more examples;

+#X text 57 138 use vasp.= to clear a buffer;

+#X obj 53 473 vaspset_examples;

+#X obj 51 533 VASP-HELP;

+#N canvas 280 291 407 308 inside 0;

+#X obj 82 165 s \$0-sample-length;

+#X msg 138 90 resize \$1;

+#X obj 138 43 loadbang;

+#X msg 138 64 88200;

+#X obj 138 112 s bufset;

+#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 709 420 pd inside;

+#X connect 3 0 4 0;

+#X connect 4 0 5 0;

+#X connect 5 0 7 0;

+#X connect 7 0 8 0;

+#X connect 9 0 11 0;

+#X connect 10 0 9 0;

+#X connect 11 0 12 0;

+#X connect 14 0 15 0;

+#X connect 15 0 9 0;

+#X connect 17 0 9 0;

+#X connect 21 0 20 0;