diff options
Diffstat (limited to 'Master/texmf-dist/tex/generic/pstricks/pst-plot.tex')
-rw-r--r-- | Master/texmf-dist/tex/generic/pstricks/pst-plot.tex | 38 |
1 files changed, 26 insertions, 12 deletions
diff --git a/Master/texmf-dist/tex/generic/pstricks/pst-plot.tex b/Master/texmf-dist/tex/generic/pstricks/pst-plot.tex index d2fff22ed98..0c0bd221216 100644 --- a/Master/texmf-dist/tex/generic/pstricks/pst-plot.tex +++ b/Master/texmf-dist/tex/generic/pstricks/pst-plot.tex @@ -4,8 +4,8 @@ %% See the PSTricks User's Guide for documentation. %% %% -%% COPYRIGHT 1993, 1994, 1999 by Timothy Van Zandt, tvz@nwu.edu. -%% COPYRIGHT 2007-2008 by Herbert Voss, hvoss@tug.org +%% COPYRIGHT 1993-2006 by Timothy Van Zandt, tvz@nwu.edu. +%% COPYRIGHT 2007-2009 by Herbert Voss, hvoss@tug.org %% %% This program can be redistributed and/or modified under the terms %% of the LaTeX Project Public License Distributed from CTAN @@ -24,8 +24,8 @@ \expandafter\next \fi -\def\fileversion{1.01} -\def\filedate{2008/01/26} +\def\fileversion{1.03} +\def\filedate{2008/11/24} \message{ v\fileversion, \filedate} @@ -172,7 +172,7 @@ D\space##1% \edef\psk@plotpoints{\the\pst@cntg\space}% \fi} \psset@plotpoints{50} - +% % For quick plots, define: % \beginqp@<foo> : What to do to first point (PS code only). % \doqp@<foo> : What to do to subsequent points (PS code only). @@ -275,7 +275,9 @@ n 0 eq not L pop pop } if}> % end (hv) -------------------------------------------------------------- + % +\def\psdataplot{\def\pst@par{}\pst@object{dataplot}} \def\dataplot{\def\pst@par{}\pst@object{dataplot}} \def\dataplot@i#1{% \pst@killglue @@ -305,6 +307,7 @@ n 0 eq not \addto@pscode{ D }% \@nameuse{endqp@\psplotstyle}} +\def\psfileplot{\def\pst@par{}\pst@object{fileplot}} \def\fileplot{\def\pst@par{}\pst@object{fileplot}} \def\fileplot@i#1{% \pst@killglue% @@ -322,6 +325,7 @@ n 0 eq not /m exch def /n m 2 div cvi def n { y mul m 1 roll x mul m 1 roll /m m 2 sub def } repeat> +\def\pslistplot{\def\pst@par{}\pst@object{listplot}} \def\listplot{\def\pst@par{}\pst@object{listplot}} \def\listplot@i#1{\listplot@ii{\addto@pscode{#1}}} \def\listplot@ii#1{% @@ -363,13 +367,17 @@ n 0 eq not \ignorespaces} \def\psplot@ii{% \addto@pscode{% + /ps@Exit false def % hv 2008-11-22 xy \@nameuse{beginqp@\psplotstyle} \psk@plotpoints 1 sub { /x x dx add def xy \@nameuse{doqp@\psplotstyle} + ps@Exit { exit } if % hv 2008-11-22 } repeat - /x x1 def - xy \@nameuse{doqp@\psplotstyle}}% + ps@Exit not { % hv 2008-11-22 + /x x1 def + xy \@nameuse{doqp@\psplotstyle} + } if }% \@nameuse{endqp@\psplotstyle}} \def\psplot@iii{% \addto@pscode{% @@ -386,6 +394,7 @@ n 0 eq not n 2 roll}% \@nameuse{endplot@\psplotstyle}} +\def\psparametricplot{\def\pst@par{}\pst@object{parametricplot}}% hv 2008-11-22 \def\parametricplot{\def\pst@par{}\pst@object{parametricplot}} \def\parametricplot@i#1#2#3{% \pst@killglue @@ -414,13 +423,17 @@ n 0 eq not \ignorespaces} \def\parametricplot@ii{% \addto@pscode{% + /ps@Exit false def % hv 2008-11-22 xy \@nameuse{beginqp@\psplotstyle} \psk@plotpoints 1 sub { /t t dt add def xy \@nameuse{doqp@\psplotstyle} + ps@Exit { exit } if % hv 2008-11-22 } repeat - /t t1 def - xy \@nameuse{doqp@\psplotstyle}}% + ps@Exit not { + /t t1 def + xy \@nameuse{doqp@\psplotstyle} + } if }% \@nameuse{endqp@\psplotstyle}} \def\parametricplot@iii{% \addto@pscode{% @@ -541,12 +554,13 @@ n 0 eq not \ifdim\pst@dimb=\z@\else\showoriginfalse\fi \ifnum\psk@dx=\z@ \pst@dimg=\psk@Dx\psxunit - \psDEBUG[psaxes@iv]{\textbackslash pst@dimg=\the\pst@dimg}% v.1.01 + \psDEBUG[psaxes@iv]{local:\textbackslash pst@dimg=\the\pst@dimg}% v.1.01 \ifdim\pst@dimg<\p@ \pst@cnta=\psk@Dx \edef\psk@Dx{-\the\pst@cnta} % v.1.01 - \ifnum\Pst@Debug>0 \typeout{==DEBUG== pst-plot(psaxes@iv): Dx -> -Dx (was negative)}\fi % v.1.01 + \psDEBUG[psaxes@iv]{Dx -> -Dx (was negative)}% v.1.01 \fi % v.1.01 \edef\psk@dx{\number\pst@dimg}% - \psDEBUG[psaxes@iv]{\textbackslash psk@dx=\psk@dx}% v.1.01 + \psDEBUG[psaxes@iv]{local: \textbackslash psk@dx=\psk@dx}% v.1.01 + \else\psDEBUG[psaxes@iv]{global: \textbackslash psk@dx=\psk@dx}% \fi \ifnum\psk@ticks<\tw@ \ifnum\psk@tickstyle>\z@ \else\advance\pslabelsep\psk@ticksize\p@\fi |