summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex')
-rw-r--r--Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex41
1 files changed, 27 insertions, 14 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 124a8819b0d..56d9ef30979 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 135 2014-11-30 08:28:22Z herbert $
+%% $Id: pstricks-add.tex 137 2014-12-08 20:17:43Z herbert $
%%
%% This is file `pstricks-add.tex',
%%
@@ -30,8 +30,8 @@
\ifx\PSTXKeyLoaded\endinput\else \input pst-xkey \fi
\ifx\PSTmathLoaded\endinput\else \input pst-math \fi
%
-\def\fileversion{3.76}
-\def\filedate{2014/11/29}
+\def\fileversion{3.77}
+\def\filedate{2014/12/08}
\message{`pstricks-add' v\fileversion, \filedate\space (dr,hv)}
%
\edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax
@@ -1377,12 +1377,18 @@ a add
\or % 3->inf(imum)
x scx 0 moveto
#3 {
- \ifPst@algebraic Func \else #4 \fi /y0 ED % left value f(x)
- /xOld x def
- /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 \ifPst@noVerticalLines moveto \else lineto \fi
+ \ifPst@algebraic Func \else #4 \fi /yMin ED % Max value f(x)
+ /xStart x def
+ /xEnd xStart dx add def
+ /DX dx 100 div def
+ xStart DX xEnd {
+ /x ED
+ \ifPst@algebraic Func \else #4 \fi /yVal ED
+ yVal yMin lt { /yMin yVal def } if
+ } for
+% y0 y1 gt { y0 }{ y1 } ifelse % use supremum
+ /x xEnd def
+ yMin scy dup xStart scx exch \ifPst@noVerticalLines moveto \else lineto \fi
x scx exch lineto
x scx 0 \ifPst@noVerticalLines moveto \else lineto \fi
closepath x scx 0 moveto
@@ -1390,11 +1396,18 @@ a add
\or % 4-> sup(remum)
x scx 0 moveto
#3 {
- \ifPst@algebraic Func \else #4 \fi /y0 ED % left value f(x)
- /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 \ifPst@noVerticalLines moveto \else lineto \fi
+ \ifPst@algebraic Func \else #4 \fi /yMax ED % Max value f(x)
+ /xStart x def
+ /xEnd xStart dx add def
+ /DX dx 100 div def
+ xStart DX xEnd {
+ /x ED
+ \ifPst@algebraic Func \else #4 \fi /yVal ED
+ yVal yMax gt { /yMax yVal def } if
+ } for
+% y0 y1 gt { y0 }{ y1 } ifelse % use supremum
+ /x xEnd def
+ yMax scy dup xStart scx exch \ifPst@noVerticalLines moveto \else lineto \fi
x scx exch lineto
x scx 0 \ifPst@noVerticalLines moveto \else lineto \fi
closepath x scx 0 moveto