summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2014-03-03 01:30:04 +0000
committerNorbert Preining <preining@logic.at>2014-03-03 01:30:04 +0000
commit28e659bbcfcb708eb292955e59ef98d3d3c72a9f (patch)
tree05a07bac7fd342bdde0be4e1808f96263e262e17 /Master/texmf-dist/tex
parent12d58bf20f1d0e51ef49ef952b676251137e8d4e (diff)
pst-plot 1.60 (3Mar)
git-svn-id: svn://tug.org/texlive/trunk@33076 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex')
-rw-r--r--Master/texmf-dist/tex/generic/pst-plot/pst-plot.tex36
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