diff options
Diffstat (limited to 'Master/texmf-dist/tex/generic/pst-plot/pst-plot.tex')
-rw-r--r-- | Master/texmf-dist/tex/generic/pst-plot/pst-plot.tex | 46 |
1 files changed, 27 insertions, 19 deletions
diff --git a/Master/texmf-dist/tex/generic/pst-plot/pst-plot.tex b/Master/texmf-dist/tex/generic/pst-plot/pst-plot.tex index e89b28864ed..0b97daebec3 100644 --- a/Master/texmf-dist/tex/generic/pst-plot/pst-plot.tex +++ b/Master/texmf-dist/tex/generic/pst-plot/pst-plot.tex @@ -1,4 +1,4 @@ -% $Id: pst-plot.tex 428 2010-11-28 16:22:11Z herbert $ +% $Id: pst-plot.tex 447 2011-01-19 15:23:33Z herbert $ %% BEGIN pst-plot.tex %% %% plotting functions and data with PSTricks. @@ -20,8 +20,8 @@ \ifx\PSTFPloaded\endinput\else \input pst-fp.tex \fi \ifx\MultidoLoaded\endinput\else \input multido.tex \fi % -\def\fileversion{1.25} -\def\filedate{2010/11/27} +\def\fileversion{1.26} +\def\filedate{2011/01/19} \message{ v\fileversion, \filedate\space (tvz,hv)} % \edef\TheAtCode{\the\catcode`\@} @@ -415,8 +415,10 @@ D\space##1% \psset[pst-plot]{plotpoints=50} % %the following works only for plotstyle line, polygon and bezier -\define@key[psset]{pst-plot}{yMaxValue}[-1.0]{\def\psk@yMaxValue{#1 }} -\psset[pst-plot]{yMaxValue=-1.0} +\define@key[psset]{pst-plot}{yMaxValue}[1.e30]{\def\psk@yMaxValue{#1 }} +\psset{yMaxValue=1.e30} +\define@key[psset]{pst-plot}{yMinValue}[-1.e30]{\def\psk@yMinValue{#1 }} +\psset{yMinValue=-1.e30} % can be in PS syntax (eg 1e1.2) and must be positiv! negative values % will beignored % @@ -428,10 +430,13 @@ D\space##1% % \def\beginqp@line{\pst@oplineto} \def\doqp@line{ - \psk@yMaxValue 0 gt - { dup abs \psk@yMaxValue \pst@number\psyunit mul gt - { moveto }{ L } ifelse } - { L } ifelse + dup + \psk@yMaxValue \pst@number\psyunit mul gt + { moveto }{ + dup + \psk@yMinValue \pst@number\psyunit mul lt + { moveto }{ L } ifelse + } ifelse } \def\endqp@line{% \ifPst@variableLW \addto@pscode{ \pst@flattenpath }\fi% @@ -449,10 +454,13 @@ D\space##1% % \def\beginqp@polygon{moveto } \def\doqp@polygon{ - \psk@yMaxValue 0 gt - { dup abs \psk@yMaxValue \pst@number\psyunit mul gt - { moveto }{ L } ifelse } - { L } ifelse + dup + \psk@yMaxValue \pst@number\psyunit mul gt + { moveto }{ + dup + \psk@yMinValue \pst@number\psyunit mul lt + { moveto }{ L } ifelse + } ifelse } \def\endqp@polygon{% \addto@pscode{closepath}% @@ -478,12 +486,12 @@ D\space##1% \def\testqp@dots{\@psttrue} % \def\beginqp@bezier{/n 0 def \pst@oplineto} -\def\doqp@bezier{/n n 1 add def n 3 mod 0 eq { % we need 3 points - \psk@yMaxValue 0 gt - { dup % last y value - abs \psk@yMaxValue\space \pst@number\psyunit mul gt - { moveto pop pop pop pop }{ curveto } ifelse } - { curveto } ifelse +\def\doqp@bezier{/n n 1 add def n 3 mod 0 eq { % we need 3 points + dup \psk@yMaxValue\space \pst@number\psyunit mul gt + { moveto pop pop pop pop} + { dup \psk@yMinValue\space \pst@number\psyunit mul lt + { moveto pop pop pop pop}{ curveto } ifelse + } ifelse } if } \def\endqp@bezier{% |