1 files changed, 83 insertions, 28 deletions

diff --git a/externals/grill/vasp/pd-help/vasp_sframes.pd b/externals/grill/vasp/pd-help/vasp_sframes.pd
index 510f50b4..6e7ee2d1 100644
--- a/externals/grill/vasp/pd-help/vasp_sframes.pd
+++ b/externals/grill/vasp/pd-help/vasp_sframes.pd
@@ -1,4 +1,4 @@
-#N canvas 39 37 929 624 10;

+#N canvas 39 37 931 626 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;

@@ -16,7 +16,7 @@
 #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 restore 798 533 pd init;

 #X obj 57 402 vasp.update;

 #X text 113 443 abbreviation;

 #N canvas 0 0 450 300 graph1 0;

@@ -45,8 +45,28 @@ value is negative;
 #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 obj 540 400 cnv 15 15 15 empty empty --> 0 10 0 14 -262144 -24198

+0;

+#X msg 562 499 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 525 pd clear;

+#X text 537 376 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;

+#N canvas 77 60 522 606 dir_and_slope 0;

 #X text 46 56 forward;

 #X text 48 154 backward;

 #X text 31 22 search direction;

@@ -64,7 +84,7 @@ value is negative;
 #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 floatatom 224 177 12 0 0 0 - - -;

 #X msg 126 336 slope 1;

 #X msg 110 367 slope 0;

 #X msg 97 399 slope -1;

@@ -72,7 +92,7 @@ value is negative;
 #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 floatatom 283 426 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;

@@ -82,6 +102,14 @@ value is negative;
 #X obj 185 153 vasp.f= 0;

 #X msg 185 71 vasp 44101 bufsfram1;

 #X msg 239 336 vasp 0 bufsfram1;

+#X text 40 438 query;

+#X msg 109 436 getslope;

+#X obj 369 424 prepend set;

+#X msg 368 445;

+#X obj 317 175 prepend set;

+#X msg 316 196;

+#X text 50 191 query;

+#X msg 109 191 getdir;

 #X connect 8 0 9 0;

 #X connect 10 0 30 0;

 #X connect 11 0 30 0;

@@ -98,32 +126,59 @@ value is negative;
 #X connect 28 1 26 0;

 #X connect 29 0 28 0;

 #X connect 29 1 23 0;

+#X connect 29 2 35 0;

 #X connect 30 0 25 0;

 #X connect 30 1 16 0;

+#X connect 30 2 37 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 34 0 29 0;

+#X connect 35 0 36 0;

+#X connect 37 0 38 0;

+#X connect 40 0 30 0;

+#X restore 588 403 pd dir_and_slope;

+#X text 218 259 2 generate noise up to the position where;

+#N canvas 80 75 458 321 incl 0;

+#X obj 168 260 vasp.noise;

+#X obj 168 281 vasp.u;

+#X obj 168 214 vasp.o?;

+#X obj 170 135 t a b;

+#X obj 195 161 bng 15 250 50 0 \$0-clear empty empty 0 -6 1152 8 -262144

+-1 -1;

+#X text 213 161 (clear);

+#X floatatom 261 211 5 0 0 0 - - -;

+#X text 24 17 include current sample;

+#X obj 170 109 vasp.u;

+#X msg 68 93 incl 0;

+#X msg 68 143 incl 1;

+#X text 21 73 don't include (default);

+#X text 20 126 do include;

+#X text 21 188 query;

+#X msg 68 189 getincl;

+#X obj 300 210 prepend set;

+#X msg 170 61 vasp bufsfram1;

+#X msg 168 239 vasp bufsfram2 \$1;

+#X obj 170 86 vasp.= env 0.5 40000 -0.5 60000;

+#X msg 301 231;

+#X obj 170 185 vasp.frames= -0.5;

 #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 2 0 17 0;

+#X connect 3 0 20 0;

+#X connect 3 1 4 0;

+#X connect 8 0 3 0;

+#X connect 9 0 20 0;

+#X connect 10 0 20 0;

+#X connect 14 0 20 0;

+#X connect 15 0 19 0;

+#X connect 16 0 18 0;

+#X connect 17 0 0 0;

+#X connect 18 0 8 0;

+#X connect 20 0 2 0;

+#X connect 20 1 6 0;

+#X connect 20 2 15 0;

+#X restore 588 428 pd incl;

+#X obj 540 430 cnv 15 15 15 empty empty --> 0 10 0 14 -262144 -24198

+0;

 #X connect 9 0 3 0;

 #X connect 11 0 14 0;

 #X connect 12 0 13 0;

@@ -133,4 +188,4 @@ length of the vasp according to it;
 #X connect 18 1 9 0;

 #X connect 20 0 11 0;

 #X connect 22 0 12 0;

-#X connect 27 0 28 0;

+#X connect 25 0 26 0;