summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pstricks-add
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2013-11-18 22:19:06 +0000
committerKarl Berry <karl@freefriends.org>2013-11-18 22:19:06 +0000
commit0da77091613d23e308c8c0af45ac4302397734a0 (patch)
tree68e6f39deb83553722e71701f13809d31c9d68e3 /Master/texmf-dist/tex/generic/pstricks-add
parent0bf5834566c9466f262a76c7d73f5c44da9cbd2d (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/generic/pstricks-add')
-rw-r--r--Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex38
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
}%