1 files changed, 136 insertions, 0 deletions
diff --git a/externals/grill/vasp/pd-help/vasp_sframes.pd b/externals/grill/vasp/pd-help/vasp_sframes.pd
new file mode 100644
index 00000000..510f50b4
--- /dev/null
+++ b/externals/grill/vasp/pd-help/vasp_sframes.pd
@@ -0,0 +1,136 @@
+#N canvas 39 37 929 624 10;
+#X obj 58 31 cnv 15 15 15 empty empty vasp.frames= 0 10 1 14 -262144
+-1 0;
+#N canvas 0 0 450 300 graph1 0;
+#X array bufsfram1 88200 float 0;
+#X coords 0 1 88199 -1 300 100 1;
+#X restore 544 107 graph;
+#N canvas 0 0 392 216 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 bufsfram1;
+#X msg 140 45 symbol bufsfram2;
+#X connect 0 0 2 0;
+#X connect 0 0 3 0;
+#X connect 2 0 1 0;
+#X connect 3 0 1 0;
+#X restore 798 498 pd init;
+#X obj 57 402 vasp.update;
+#X text 113 443 abbreviation;
+#N canvas 0 0 450 300 graph1 0;
+#X array bufsfram2 88200 float 0;
+#X coords 0 1 88199 -1 300 100 1;
+#X restore 545 227 graph;
+#X text 56 87 argument/right inlet: value in samples;
+#X obj 57 442 vasp.f+;
+#X obj 55 559 VASP-HELP;
+#X obj 57 378 vasp.noise;
+#X obj 58 200 vasp.update;
+#X msg 58 153 vasp bufsfram1;
+#X msg 57 261 vasp bufsfram1;
+#X obj 57 284 vasp.frames= 0.7;
+#X obj 58 176 vasp.= env -1 0 1 44100 -1 88200;
+#X floatatom 148 305 12 0 0 0 - - -;
+#X text 57 104 right outlet: frames relatively to the starting point
+of the search;
+#X text 147 319 since the search runs from the end to the left \, this
+value is negative;
+#X obj 57 356 vasp.-> bufsfram2;
+#X obj 57 502 vasp.o=;
+#X obj 190 148 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1
+-1;
+#X text 222 148 1 generate a ramp;
+#X obj 190 260 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1
+-1;
+#X text 218 274 the value 0.7 appears in the ramp;
+#X text 218 259 2 generate noise until the position \, where;
+#N canvas 77 60 429 598 dir_and_target 0;
+#X text 46 56 forward;
+#X text 48 154 backward;
+#X text 31 22 search direction;
+#X text 58 369 both;
+#X text 28 401 negative;
+#X text 58 337 positive;
+#X text 28 314 target slope;
+#X text 46 99 both (nearest);
+#X obj 185 228 vasp.noise;
+#X obj 185 249 vasp.u;
+#X msg 110 156 dir -1;
+#X msg 111 121 dir 0;
+#X msg 110 59 dir 1;
+#X obj 185 90 t a b;
+#X obj 210 111 bng 15 250 50 0 \$0-clear empty empty 0 -6 1152 8 -262144
+-1 -1;
+#X text 228 111 (clear);
+#X floatatom 234 175 12 0 0 0 - - -;
+#X msg 126 336 slope 1;
+#X msg 110 367 slope 0;
+#X msg 97 399 slope -1;
+#X obj 239 355 t a b;
+#X obj 264 376 bng 15 250 50 0 \$0-clear empty empty 0 -6 1152 8 -262144
+-1 -1;
+#X text 282 376 (clear);
+#X floatatom 300 423 12 0 0 0 - - -;
+#X text 29 290 find values with positive and/or negative slope;
+#X obj 185 197 vasp.-> bufsfram2;
+#X obj 239 481 vasp.noise;
+#X obj 239 502 vasp.u;
+#X obj 239 450 vasp.-> bufsfram2;
+#X obj 239 400 vasp.f= 0.2;
+#X obj 185 153 vasp.f= 0;
+#X msg 185 71 vasp 44101 bufsfram1;
+#X msg 239 336 vasp 0 bufsfram1;
+#X connect 8 0 9 0;
+#X connect 10 0 30 0;
+#X connect 11 0 30 0;
+#X connect 12 0 30 0;
+#X connect 13 0 30 0;
+#X connect 13 1 14 0;
+#X connect 17 0 29 0;
+#X connect 18 0 29 0;
+#X connect 19 0 29 0;
+#X connect 20 0 29 0;
+#X connect 20 1 21 0;
+#X connect 25 1 8 0;
+#X connect 26 0 27 0;
+#X connect 28 1 26 0;
+#X connect 29 0 28 0;
+#X connect 29 1 23 0;
+#X connect 30 0 25 0;
+#X connect 30 1 16 0;
+#X connect 31 0 13 0;
+#X connect 32 0 20 0;
+#X restore 586 418 pd dir_and_target;
+#X obj 538 415 cnv 15 15 15 empty empty --> 0 10 0 14 -262144 -24198
+0;
+#X msg 562 464 vasp bufsfram2;
+#N canvas 249 259 328 183 clear 0;
+#X obj 74 54 inlet;
+#X obj 74 77 vasp.= 0;
+#X obj 74 100 vasp.u;
+#X obj 168 53 r \$0-clear;
+#X msg 168 76 vasp bufsfram2;
+#X obj 168 99 vasp.= 0;
+#X connect 0 0 1 0;
+#X connect 1 0 2 0;
+#X connect 3 0 4 0;
+#X connect 4 0 5 0;
+#X restore 562 490 pd clear;
+#X text 537 398 3 more features!;
+#X text 56 56 search for a value (starting at the end) and set the
+length of the vasp according to it;
+#X text 55 482 related objects:;
+#X obj 139 502 vasp.f;
+#X obj 204 502 vasp.s;
+#X connect 9 0 3 0;
+#X connect 11 0 14 0;
+#X connect 12 0 13 0;
+#X connect 13 0 18 0;
+#X connect 13 1 15 0;
+#X connect 14 0 10 0;
+#X connect 18 1 9 0;
+#X connect 20 0 11 0;
+#X connect 22 0 12 0;
+#X connect 27 0 28 0;