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_neq.pd | 52 ++++++++++++++++++++++++++++++++ 1 file changed, 52 insertions(+) create mode 100644 externals/grill/vasp/pd-help/vasp_neq.pd (limited to 'externals/grill/vasp/pd-help/vasp_neq.pd') diff --git a/externals/grill/vasp/pd-help/vasp_neq.pd b/externals/grill/vasp/pd-help/vasp_neq.pd new file mode 100644 index 00000000..15f3c905 --- /dev/null +++ b/externals/grill/vasp/pd-help/vasp_neq.pd @@ -0,0 +1,52 @@ +#N canvas 28 91 938 543 10; +#X obj 62 41 cnv 15 15 15 empty empty vasp.!= 0 10 1 14 -262144 -1 +0; +#N canvas 0 0 450 300 graph1 0; +#X array bufneq1 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 512 119 graph; +#N canvas 0 0 404 280 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 bufneq1 \, symbol bufneq2; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 766 421 pd init; +#N canvas 0 0 450 300 graph1 0; +#X array bufneq2 88200 float 0; +#X coords 0 1 88199 -1 300 100 1; +#X restore 512 248 graph; +#X text 59 98 argument/right inlet: value; +#N canvas 0 0 413 295 clear_buffers 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 564 426 pd clear_buffers; +#X text 417 248 1/true; +#X text 416 288 0/false; +#X text 60 80 not equal; +#X msg 564 399 vasp bufneq1 bufneq2; +#X text 166 358 test if a part of the function is not equal to -1; +#X obj 62 383 vasp.update; +#X obj 62 356 vasp.!= -1; +#X obj 62 325 vasp.= bufneq1; +#X msg 62 298 vasp bufneq2; +#X obj 53 444 VASP-HELP; +#X text 173 149 generate a function; +#X msg 61 150 vasp bufequ; +#X obj 61 218 vasp.update; +#X obj 61 178 vasp.= env 0 0 1 22049 0.3 22050 0.3 44099 -1 44100 -1 +66149 1 66150 0 88200; +#X connect 9 0 5 0; +#X connect 12 0 11 0; +#X connect 13 0 12 0; +#X connect 14 0 13 0; +#X connect 17 0 19 0; +#X connect 19 0 18 0; -- cgit v1.2.1