#N canvas 96 158 863 464 10;
#X obj 71 32 cnv 15 15 15 empty empty vasp.dif 0 10 1 14 -262144 -1
0;
#N canvas 40 55 247 122 clear_buffer 0;
#X obj 54 79 vasp.update;
#X obj 54 56 vasp.= 0;
#X obj 54 26 inlet;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X restore 469 375 pd clear_buffer;
#X obj 77 365 vasp.update;
#X obj 77 243 vasp.update;
#X obj 77 340 vasp.opt;
#X obj 77 315 vasp.dif;
#X text 70 61 vasp differential function;
#X text 70 77 argument/right inlet: repetition count (default 1);
#X obj 77 154 vasp.- 0.5;
#X obj 77 177 vasp.abs;
#X obj 77 199 vasp.- 0.25;
#X obj 77 220 vasp.* 4;
#N canvas 0 0 450 300 graph1 0;
#X array bufdif 20 float 0;
#X coords 0 1 19 -1 300 100 1;
#X restore 441 173 graph;
#N canvas 0 0 396 272 init 0;
#X obj 33 19 loadbang;
#X msg 33 73 \; \$1 xticks 0 1 5 \; \$1 xlabel 1.1 0 5 10 15 \; \$1
yticks 0 0.25 2 \; \$1 ylabel 20.5 -1 -0.5 0 0.5 1;
#X msg 33 45 symbol bufdif;
#X connect 0 0 2 0;
#X connect 2 0 1 0;
#X restore 690 378 pd init;
#X msg 469 354 vasp bufdif;
#X obj 77 130 vasp.phasor 10;
#X msg 77 103 vasp bufdif;
#X msg 77 293 vasp bufdif;
#X text 170 293 find the gradient of the curve;
#X text 187 101 generate triangular wave;
#X obj 79 422 VASP-HELP;
#X connect 4 0 2 0;
#X connect 5 0 4 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 3 0;
#X connect 14 0 1 0;
#X connect 15 0 8 0;
#X connect 16 0 15 0;
#X connect 17 0 5 0;