diff options
author | Karl Berry <karl@freefriends.org> | 2011-11-12 23:53:55 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2011-11-12 23:53:55 +0000 |
commit | f134beeb5549ba25ec0b970a926a67e401b4ad5f (patch) | |
tree | fff18f5a77e54f5230ba70f0aa2e6541876b8c50 /Master/texmf-dist/tex | |
parent | 74372e21b553b150462651de274472de3c6481f1 (diff) |
pst-plot (10nov11)
git-svn-id: svn://tug.org/texlive/trunk@24581 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex')
-rw-r--r-- | Master/texmf-dist/tex/generic/pst-plot/pst-plot.tex | 39 |
1 files changed, 26 insertions, 13 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 809ac605698..12eaf98bae8 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 598 2011-11-03 12:58:47Z herbert $ +% $Id: pst-plot.tex 601 2011-11-07 10:26:05Z 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.33} -\def\filedate{2011/11/02} +\def\fileversion{1.34} +\def\filedate{2011/11/07} \message{ v\fileversion, \filedate\space (tvz,hv)} % \edef\TheAtCode{\the\catcode`\@} @@ -331,18 +331,31 @@ D\space##1% 0 1 m 1 sub { % Index on stack dup /Index ED NArray exch get LowerQuartil sub abs IQL sub 0 gt { - newpath 0 NArray Index get 2 0 360 arc gsave - 1 0 0 setrgbcolor fill grestore - stroke closepath - NArray Index 1 add get /MinVal ED }{ exit } ifelse + gsave +% newpath + 0 NArray Index get 2 0 360 arc gsave + 1 0 0 setrgbcolor fill stroke + grestore + NArray Index LowerQuartil UpperQuartil LowerQuartil sub \pst@IQLfactor\space mul sub + dup /MinVal ED put % replace with 1.5 IQL +% NArray Index 1 add get /MinVal ED + } { exit } ifelse } for m 1 sub -1 0 { % Index on stack dup /Index ED NArray exch get UpperQuartil sub abs IQL sub 0 gt { - newpath 0 NArray Index get 2 0 360 arc gsave - 1 0 0 setrgbcolor fill grestore - stroke closepath - NArray Index 1 sub get /MaxVal ED }{ exit } ifelse +% newpath + gsave + 0 NArray Index get 2 0 360 arc gsave + 1 0 0 setrgbcolor fill stroke + grestore + NArray Index UpperQuartil LowerQuartil sub \pst@IQLfactor\space mul UpperQuartil add + dup /MaxVal ED put % replace with 1.5 IQL +% closepath +% NArray Index 1 sub get dup +% IQL 1.5 mul UpperQuartil add gt { pop IQL 1.5 mul UpperQuartil add dup +% NArray } if /MaxVal ED + }{ exit } ifelse } for % Endwidth neg MaxVal moveto % we are on top @@ -357,7 +370,7 @@ D\space##1% \pst@number\pslinewidth SLW \pst@usecolor\pslinecolor \tx@setStrokeTransparency - \tx@setStrokeTransparency +% \tx@setStrokeTransparency \@nameuse{psls@\pslinestyle} stroke grestore @@ -373,7 +386,7 @@ D\space##1% \pst@number\pslinewidth SLW \pst@usecolor\pslinecolor \tx@setStrokeTransparency - \tx@setStrokeTransparency +% \tx@setStrokeTransparency \@nameuse{psls@solid} }}% % |