summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pst-plot
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2011-11-12 23:53:55 +0000
committerKarl Berry <karl@freefriends.org>2011-11-12 23:53:55 +0000
commitf134beeb5549ba25ec0b970a926a67e401b4ad5f (patch)
treefff18f5a77e54f5230ba70f0aa2e6541876b8c50 /Master/texmf-dist/tex/generic/pst-plot
parent74372e21b553b150462651de274472de3c6481f1 (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/generic/pst-plot')
-rw-r--r--Master/texmf-dist/tex/generic/pst-plot/pst-plot.tex39
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}
}}%
%