pst-slpe (25oct11)

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

1 files changed, 9 insertions, 9 deletions

diff --git a/Master/texmf-dist/source/generic/pst-slpe/pst-slpe.dtx b/Master/texmf-dist/source/generic/pst-slpe/pst-slpe.dtx
index a0717360da9..8aa6f2ac5b8 100644
--- a/Master/texmf-dist/source/generic/pst-slpe/pst-slpe.dtx
+++ b/Master/texmf-dist/source/generic/pst-slpe/pst-slpe.dtx
@@ -9,6 +9,7 @@
 %% in directory macros/latex/base/lppl.txt.
 %%
 %\fi
+% \changes{v1.31}{2011/10/25}{ fix bug in psball (hv)}
 % \changes{v1.3}{2008/09/20}{ fading option (hv)}
 % \changes{v1.2}{2008/06/19}{ \textbackslash psBall (hv)}
 % \changes{v1.1}{2006/06/19}{%
@@ -65,14 +66,14 @@
 %
 %\iffalse
 %<*!prolog>
-\def\pstslpefileversion{1.3}
-\def\pstslpefiledate{2008/09/20}
+\def\pstslpefileversion{1.31}
+\def\pstslpefiledate{2011/10/25}
 %</!prolog>
 %\fi
 %
 % \title{\textsf{pst-slpe} package \\ version \pstslpefileversion}
 % \author{Martin Giese\footnote{\texttt{giese@ira.uka.de}} and 
-%         Herbert Vo\ss\footnote{\texttt{voss@pstricks.de}}}
+%         Herbert Vo\ss\footnote{\texttt{hvoss@tug.org}}}
 % \date{\pstslpefiledate}
 % \maketitle
 %
@@ -659,17 +660,16 @@
 %    \begin{macrocode}
 \def\psBall{\pst@object{psBall}}
 \def\psBall@i{\@ifnextchar(\psBall@ii{\psBall@ii(0,0)}}
-\def\psBall@ii(#1,#2)#3#4{%
+\def\psBall@ii(#1,#2)#3#4{{%
   \pst@killglue
-  \pst@dima=#4%
-  \pst@dimb=#4%
+  \pssetlength\pst@dima{#4}%%%%%  20111025 hv
+  \pst@dimb=\pst@dima%%%%%%%%%%%  20111025 hv
   \advance\pst@dima by 0.075\pst@dimb%
-  \begingroup%
   \addbefore@par{sloperadius=\the\pst@dima,fillstyle=ccslope,
-  	slopebegin=white,slopeend=#3,slopecenter=0.4 0.6,linestyle=none}%
+   slopebegin=white,slopeend=#3,slopecenter=0.4 0.6,linestyle=none}%
   \use@par%
   \pscircle(#1,#2){#4}%
-  \endgroup\ignorespaces%
+  }\ignorespaces%
 }
 %    \end{macrocode}
 %    \end{macro}