"version 0.1.1"

svn path=/trunk/; revision=267

1 files changed, 135 insertions, 0 deletions

diff --git a/externals/grill/vasp/pd/wavedisplay-simple.pd b/externals/grill/vasp/pd/wavedisplay-simple.pd
new file mode 100644
index 00000000..e735fa0a
--- /dev/null
+++ b/externals/grill/vasp/pd/wavedisplay-simple.pd
@@ -0,0 +1,135 @@
+#N canvas 200 200 300 120 10;

+#N canvas 154 41 402 182 inside 0;

+#N canvas 183 206 183 114 wavetable 0;

+#X obj 30 22 table \$1 44100;

+#X restore 62 51 pd wavetable;

+#X text 146 50 contains the sample;

+#N canvas 46 30 530 612 drawdisplay 0;

+#X obj 168 398 vasp.frames 20;

+#X obj 168 429 vasp.offset 0;

+#X msg 83 83 bang;

+#X obj 168 137 0;

+#X obj 168 225 t f f f;

+#X obj 181 114 + 1;

+#X obj 168 252 *;

+#X text 45 80 start;

+#X text 262 215 (reset);

+#X obj 168 479 vasp.max?;

+#X obj 168 505 vasp.min?;

+#X obj 325 275 t f f;

+#X obj 83 128 until 1;

+#X obj 83 107 300;

+#X obj 251 527 tabwrite \$0+;

+#X obj 217 573 tabwrite \$0-;

+#X msg 168 345 vasp \$1;

+#X obj 168 317 symbol \$1;

+#X obj 325 254 / 300;

+#X obj 251 504 clip -1 1;

+#X obj 217 548 clip -1 1;

+#X obj 168 162 moses 299;

+#X msg 242 217 0;

+#X obj 217 196 t f b;

+#X obj 325 229 r \$0-sample-length;

+#X obj 83 46 r \$0-draw_display;

+#X obj 168 281 t b f;

+#X obj 344 449 r \$0-bounds-;

+#X obj 344 475 r \$0-bounds+;

+#X connect 0 0 1 0;

+#X connect 1 0 9 0;

+#X connect 2 0 13 0;

+#X connect 3 0 5 0;

+#X connect 3 0 21 0;

+#X connect 4 0 6 0;

+#X connect 4 1 14 1;

+#X connect 4 2 15 1;

+#X connect 5 0 3 1;

+#X connect 6 0 26 0;

+#X connect 9 0 10 0;

+#X connect 9 1 19 0;

+#X connect 10 1 20 0;

+#X connect 11 0 6 1;

+#X connect 11 1 0 1;

+#X connect 12 0 3 0;

+#X connect 13 0 12 0;

+#X connect 16 0 0 0;

+#X connect 17 0 16 0;

+#X connect 18 0 11 0;

+#X connect 19 0 14 0;

+#X connect 20 0 15 0;

+#X connect 21 0 4 0;

+#X connect 21 1 23 0;

+#X connect 22 0 1 1;

+#X connect 22 0 3 1;

+#X connect 23 0 4 0;

+#X connect 23 1 22 0;

+#X connect 24 0 18 0;

+#X connect 25 0 2 0;

+#X connect 26 0 17 0;

+#X connect 26 1 1 1;

+#X connect 27 0 19 1;

+#X connect 27 0 20 1;

+#X connect 28 0 19 2;

+#X connect 28 0 20 2;

+#X restore 62 74 pd drawdisplay;

+#X text 160 73 draws the display;

+#N canvas 149 160 294 134 init 0;

+#X obj 33 19 loadbang;

+#X obj 33 86 s \$0-;

+#X msg 33 44 xticks 0 30 5 \, ylabel 315 -1 -0.5 0 0.5 \, yticks 0

+0.25 2;

+#X connect 0 0 2 0;

+#X connect 2 0 1 0;

+#X restore 61 97 pd init;

+#N canvas 0 0 424 148 makelocal 0;

+#X obj 83 72 s \$0-draw_display;

+#X obj 83 46 r \$2-draw_display;

+#X obj 216 45 r \$2-sample-length;

+#X obj 216 71 s \$0-sample-length;

+#X connect 1 0 0 0;

+#X connect 2 0 3 0;

+#X restore 61 129 pd makelocal;

+#X restore 369 90 pd inside;

+#X text 374 15 this display shows the min and max of all samples that

+a pixel represents;

+#X text 375 46 arguments: name of array \, \$0 of the parent patch

+;

+#X obj 0 0 cnv 15 300 120 empty empty empty 20 12 0 14 -225271 -66577

+0;

+#N canvas 0 0 450 300 graph1 0;

+#X array \$0- 300 float 0;

+#X array \$0+ 300 float 0;

+#X coords 0 1 300 -1 300 120 1;

+#X restore 0 0 graph;

+#X obj 438 70 inlet;

+#X text 480 69 individual length;

+#N canvas 71 382 599 303 individual 0;

+#X obj 319 150 s \$0-sample-length;

+#X obj 73 58 inlet;

+#X msg 369 173 resize \$1;

+#X obj 369 196 s \$1;

+#X obj 127 253 send \$0-;

+#X text 139 73 resize and sample-length;

+#X text 138 58 for individual bounds \, ticks and label \,;

+#X obj 41 182 unpack 0 0 0 0;

+#X obj 40 230 s \$0-bounds-;

+#X obj 40 207 s \$0-bounds+;

+#X msg 127 150 bounds \$1 \$2 \$3 \$4;

+#X obj 127 124 route bounds ylabel yticks;

+#X msg 151 175 ylabel \$1 \$2 \$3 \$4;

+#X msg 166 197 yticks \$1 \$2 \$3 \$4;

+#X connect 1 0 11 0;

+#X connect 2 0 3 0;

+#X connect 7 1 9 0;

+#X connect 7 3 8 0;

+#X connect 10 0 4 0;

+#X connect 11 0 7 0;

+#X connect 11 0 10 0;

+#X connect 11 1 12 0;

+#X connect 11 2 13 0;

+#X connect 11 3 0 0;

+#X connect 11 3 2 0;

+#X connect 12 0 4 0;

+#X connect 13 0 4 0;

+#X restore 438 90 pd individual;

+#X connect 5 0 7 0;

+#X coords 0 0 1 1 300 120 1;