pst-plot 1.60 (3Mar)

git-svn-id: svn://tug.org/texlive/trunk@33076 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 21 insertions, 15 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 fea5086587e..ac549681f1f 100644
--- a/Master/texmf-dist/tex/generic/pst-plot/pst-plot.tex
+++ b/Master/texmf-dist/tex/generic/pst-plot/pst-plot.tex
@@ -19,8 +19,8 @@
 \ifx\PSTFPloaded\endinput\else   \input pst-fp.tex  \fi
 \ifx\MultidoLoaded\endinput\else \input multido.tex \fi
 %
-\def\fileversion{1.59}
-\def\filedate{2014/02/18}
+\def\fileversion{1.60}
+\def\filedate{2014/02/28}
 \message{ v\fileversion, \filedate\space (tvz,hv)}
 %
 \edef\TheAtCode{\the\catcode`\@}
@@ -389,6 +389,9 @@ D\space##1%
 %
 \define@key[psset]{pst-plot}{IQLfactor}{\pst@checknum{#1}\pst@IQLfactor}
 \psset[pst-plot]{IQLfactor=1.5}
+\define@key[psset]{pst-plot}{postAction}[]{\def\psk@postAction{%
+  \ifx\relax#1\relax\else\pst@number\psyunit div #1 \pst@number\psyunit mul \fi }}
+\psset[pst-plot]{postAction=}
 %
 \def\psBoxplot@ii{%
   \addto@pscode{
@@ -434,7 +437,7 @@ D\space##1%
      NArray exch get LowerQuartil sub abs IQL sub 0 gt { 
        \psk@dotsize
        \@nameuse{psds@\psk@dotstyle}
-       0 NArray Index get 
+       0 NArray Index get \psk@postAction
        Dot
        NArray Index LowerQuartil UpperQuartil LowerQuartil sub \pst@IQLfactor\space mul sub 
        dup /MinVal ED put % replace with 1.5 IQL
@@ -447,7 +450,7 @@ D\space##1%
 %       newpath 
        \psk@dotsize
        \@nameuse{psds@\psk@dotstyle}
-       0 NArray Index get 
+       0 NArray Index get \psk@postAction\space
        Dot
        NArray Index UpperQuartil LowerQuartil sub \pst@IQLfactor\space mul UpperQuartil add 
        dup /MaxVal ED put % replace with 1.5 IQL
@@ -455,14 +458,17 @@ D\space##1%
      }{ exit } ifelse
    } for
 %
-   Endwidth neg MaxVal moveto			% we are on top
-   Endwidth dup add 0 rlineto 
-   0 MaxVal moveto 
-   0 UpperQuartil lineto			% upper quartil
-   0 LowerQuartil moveto
-   0 MinVal lineto 
-   Endwidth neg MinVal moveto 
+   Endwidth neg MaxVal \psk@postAction moveto			% we are on top / lower whisker
    Endwidth dup add 0 rlineto 
+   0 MaxVal \psk@postAction moveto 
+   0 UpperQuartil \psk@postAction lineto			% upper quartil
+%% 
+   MinVal \psk@postAction MaxVal \psk@postAction lt {
+     0 LowerQuartil \psk@postAction moveto			% line to lower whisker
+     0 MinVal \psk@postAction lineto 
+     Endwidth neg MinVal \psk@postAction moveto 
+     Endwidth dup add 0 rlineto 
+   } if
    gsave
    \pst@number\pslinewidth SLW
    \pst@usecolor\pslinecolor
@@ -472,13 +478,13 @@ D\space##1%
    stroke
    grestore
    newpath
-   Barwidth neg LowerQuartil moveto	% lower quartil
-   Barwidth neg UpperQuartil lineto
+   Barwidth neg LowerQuartil \psk@postAction moveto	% lower quartil
+   Barwidth neg UpperQuartil \psk@postAction lineto
    Barwidth dup add 0 rlineto
-   Barwidth LowerQuartil lineto
+   Barwidth LowerQuartil \psk@postAction lineto
    closepath
    gsave \pst@usecolor\psfillcolor \tx@setTransparency fill grestore
-   Barwidth neg Median moveto		% median
+   Barwidth neg Median \psk@postAction moveto		% median
    Barwidth dup add 0 rlineto
    \pst@number\pslinewidth SLW
    \pst@usecolor\pslinecolor