diff options
Diffstat (limited to 'Master/texmf-dist/tex/generic/pst-plot')
-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} }}% % |