From 9815096db22c73cacdbb65512d1b61d633db7fa8 Mon Sep 17 00:00:00 2001 From: Thomas Grill Date: Mon, 2 Dec 2002 19:21:08 +0000 Subject: "version 0.1.1" svn path=/trunk/; revision=267 --- externals/grill/vasp/pd-help/vasp_soffset.pd | 153 +++++++++++++++++++++++++++ 1 file changed, 153 insertions(+) create mode 100644 externals/grill/vasp/pd-help/vasp_soffset.pd (limited to 'externals/grill/vasp/pd-help/vasp_soffset.pd') diff --git a/externals/grill/vasp/pd-help/vasp_soffset.pd b/externals/grill/vasp/pd-help/vasp_soffset.pd new file mode 100644 index 00000000..8a515a2a --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_soffset.pd @@ -0,0 +1,153 @@ +#N canvas 31 15 964 662 10; +#X text 54 77 argument/right inlet: value; +#X obj 58 27 cnv 15 15 15 empty empty vasp.offset= 0 10 1 14 -262144 +-1 0; +#X text 68 587 abbreviation; +#X obj 75 272 prepend set; +#N canvas 0 0 450 300 graph1 0; +#X array bufsoffs1 1000 float 0; +#X coords 0 1 999 -1 300 100 1; +#X restore 551 88 graph; +#N canvas 466 356 387 251 init 0; +#X obj 33 19 loadbang; +#X msg 33 45 symbol bufsoffs1; +#X msg 151 45 symbol bufsoffs2; +#X msg 33 71 \; \$1 xticks 0 100 10 \; \$1 xlabel 1.1 0 200 300 500 +700 800 1000 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 1100 -1 -0.5 0 0.5 +1; +#X connect 0 0 1 0; +#X connect 0 0 2 0; +#X connect 1 0 3 0; +#X connect 2 0 3 0; +#X restore 802 556 pd init; +#N canvas 0 0 450 300 graph1 0; +#X array bufsoffs2 1000 float 0; +#X coords 0 1 999 -1 300 100 1; +#X restore 551 207 graph; +#X obj 64 177 vasp.u; +#X msg 63 130 vasp bufsoffs1; +#X msg 64 221 vasp bufsoffs1; +#X msg 75 293 vasp 701 bufsoffs1 299 0; +#X obj 64 367 vasp.noise; +#X obj 64 388 vasp.u; +#X obj 159 591 vasp.o=; +#X obj 259 592 VASP-HELP; +#X text 54 95 right outlet: relative offset position in frames; +#X text 201 128 1 generate a ramp; +#X text 199 220 2 generate noise \, and start at the point \,; +#X obj 64 325 vasp.o?; +#X msg 64 346 vasp bufsoffs2 \$1; +#X text 54 59 search for a value set it as offset; +#X floatatom 161 271 5 0 0; +#X obj 170 130 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1 +-1; +#X obj 170 221 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1 +-1; +#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 683 549 pd clear_buffer; +#X msg 683 528 vasp bufsoffs2; +#X text 703 508 clear second buffer; +#X obj 683 509 bng 15 250 50 0 empty \$0-clear empty 0 -6 576 8 -262144 +-1 -1; +#X obj 162 445 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1 +-1; +#N canvas 77 60 409 578 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 183 210 vasp.noise; +#X obj 183 231 vasp.u; +#X msg 183 189 vasp bufsoffs2 \$1; +#X msg 110 156 dir -1; +#X msg 111 121 dir 0; +#X msg 110 59 dir 1; +#X obj 183 164 vasp.o?; +#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 obj 185 135 vasp.offset= 0.1; +#X msg 185 71 vasp bufsoffs1 500; +#X floatatom 276 161 5 0 0; +#X msg 126 336 slope 1; +#X msg 110 367 slope 0; +#X msg 97 399 slope -1; +#X obj 239 484 vasp.noise; +#X obj 239 505 vasp.u; +#X msg 239 463 vasp bufsoffs2 \$1; +#X obj 239 438 vasp.o?; +#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 obj 239 400 vasp.offset= 0.1; +#X floatatom 330 426 5 0 0; +#X text 29 290 find values with positive and/or negative slope; +#X msg 239 336 vasp bufsoffs1; +#X connect 8 0 9 0; +#X connect 10 0 8 0; +#X connect 11 0 18 0; +#X connect 12 0 18 0; +#X connect 13 0 18 0; +#X connect 14 0 10 0; +#X connect 15 0 18 0; +#X connect 15 1 16 0; +#X connect 18 0 14 0; +#X connect 18 1 20 0; +#X connect 19 0 15 0; +#X connect 21 0 31 0; +#X connect 22 0 31 0; +#X connect 23 0 31 0; +#X connect 24 0 25 0; +#X connect 26 0 24 0; +#X connect 27 0 26 0; +#X connect 28 0 31 0; +#X connect 28 1 29 0; +#X connect 31 0 27 0; +#X connect 31 1 32 0; +#X connect 34 0 28 0; +#X restore 612 422 pd dir_and_target; +#X obj 64 151 vasp.= env -1 0 1 500 -1 1000; +#X obj 102 496 t a b; +#X obj 127 517 bng 15 250 50 0 \$0-clear empty empty 0 -6 1152 8 -262144 +-1 -1; +#X text 145 517 (clear); +#X text 148 418 the search always starts at the offsetpoint; +#X text 566 403 more features!; +#X obj 564 419 cnv 15 15 15 empty empty --> 0 10 0 14 -262144 -24198 +0; +#X text 214 232 where the ramp is at 0.2; +#X obj 64 242 vasp.offset= 0.2; +#X text 189 443 3 start searching at frame 501; +#X msg 102 475 vasp bufsoffs1 501; +#X connect 3 0 10 0; +#X connect 8 0 30 0; +#X connect 9 0 38 0; +#X connect 11 0 12 0; +#X connect 18 0 19 0; +#X connect 19 0 11 0; +#X connect 22 0 8 0; +#X connect 23 0 9 0; +#X connect 25 0 24 0; +#X connect 27 0 25 0; +#X connect 28 0 40 0; +#X connect 30 0 7 0; +#X connect 31 0 38 0; +#X connect 31 1 32 0; +#X connect 38 0 18 0; +#X connect 38 0 3 0; +#X connect 38 1 21 0; +#X connect 40 0 31 0; -- cgit v1.2.1