diff options
| author | Karl Berry <karl@freefriends.org> | 2013-11-18 22:19:06 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2013-11-18 22:19:06 +0000 |
| commit | 0da77091613d23e308c8c0af45ac4302397734a0 (patch) | |
| tree | 68e6f39deb83553722e71701f13809d31c9d68e3 /Master/texmf-dist/tex | |
| parent | 0bf5834566c9466f262a76c7d73f5c44da9cbd2d (diff) | |
pstricks-add (18nov13)
git-svn-id: svn://tug.org/texlive/trunk@32179 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex')
| -rw-r--r-- | Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex | 38 |
1 files changed, 25 insertions, 13 deletions
diff --git a/Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex b/Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex index 3c2a480e948..37c0a3ccd0c 100644 --- a/Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex +++ b/Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex @@ -1,4 +1,4 @@ -%% $Id: pstricks-add.tex 825 2013-09-18 12:10:17Z herbert $ +%% $Id: pstricks-add.tex 847 2013-11-13 18:44:15Z herbert $ %% %% %% This is file `pstricks-add.tex', @@ -31,8 +31,8 @@ \ifx\PSTXKeyLoaded\endinput\else \input pst-xkey \fi \ifx\PSTmathLoaded\endinput\else \input pst-math \fi % -\def\fileversion{3.61} -\def\filedate{2013/09/18} +\def\fileversion{3.62} +\def\filedate{2013/11/13} \message{`pstricks-add' v\fileversion, \filedate\space (dr,hv)} % \edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax @@ -1277,6 +1277,8 @@ a add \else\ifx#1s\let\psk@StepType\f@ur \else\let\psk@StepType\tw@\fi\fi\fi\fi} \psset{StepType=lower} % alternative StepType=upper/inf/sup/Riemann +\define@boolkey[psset]{pstricks-add}[Pst@]{noVerticalLines}[true]{}% +\psset{noVerticalLines=false} % \def\psStep{\def\pst@par{}\pst@object{psStep}} \def\psStep@i(#1,#2)#3#4{% @@ -1290,16 +1292,20 @@ a add \ifcase\psk@StepType % 0->lower, height is always f(x) x scx 0 moveto #3 { - \ifPst@algebraic Func \else #4 \fi scy dup x scx exch lineto + \ifPst@algebraic Func \else #4 \fi + scy dup x scx exch \ifPst@noVerticalLines moveto \else lineto \fi /x x dx add def - x scx exch lineto x scx 0 lineto + x scx exch lineto + x scx 0 \ifPst@noVerticalLines moveto \else lineto \fi } repeat \or % 1-> upper, height is always f(x+dx) x scx 0 moveto #3 { /x x dx add def - \ifPst@algebraic Func \else #4 \fi scy dup x dx sub scx exch lineto - x scx exch lineto x scx 0 lineto + \ifPst@algebraic Func \else #4 \fi scy dup x dx sub scx exch + \ifPst@noVerticalLines moveto \else lineto \fi + x scx exch lineto + x scx 0 \ifPst@noVerticalLines moveto \else lineto \fi } repeat \or % 2-> Riemann /eps3 100 def @@ -1324,8 +1330,12 @@ a add /dx dx scx def xMinMax aload length 3 div cvi { /yMax ED /yMin ED /x ED - x yMin moveto dx 0 rlineto x dx add yMax lineto - dx neg 0 rlineto x yMin lineto } repeat + x yMin moveto + dx 0 \ifPst@noVerticalLines rmoveto \else rlineto \fi + x dx add yMax lineto + dx neg 0 \ifPst@noVerticalLines rmoveto \else rlineto \fi + x yMin \ifPst@noVerticalLines moveto \else lineto \fi + } repeat \or % 3->inf(imum) x scx 0 moveto #3 { @@ -1334,8 +1344,9 @@ a add /x x dx add def \ifPst@algebraic Func \else #4 \fi /y1 ED % right value f(x+dx) y0 y1 lt { y0 }{ y1 } ifelse % use infimum - scy dup xOld scx exch lineto - x scx exch lineto x scx 0 lineto + scy dup xOld scx exch \ifPst@noVerticalLines moveto \else lineto \fi + x scx exch lineto + x scx 0 \ifPst@noVerticalLines moveto \else lineto \fi } repeat \or % 4-> sup(remum) x scx 0 moveto @@ -1344,8 +1355,9 @@ a add /x x dx add def \ifPst@algebraic Func \else #4 \fi /y1 ED % right value f(x+dx) y0 y1 gt { y0 }{ y1 } ifelse % use supremum - scy dup x dx sub scx exch lineto - x scx exch lineto x scx 0 lineto + scy dup x dx sub scx exch \ifPst@noVerticalLines moveto \else lineto \fi + x scx exch lineto + x scx 0 \ifPst@noVerticalLines moveto \else lineto \fi } repeat \fi }% |