pst-slpe v1.2 2008/06/19

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

1 files changed, 20 insertions, 3 deletions

diff --git a/Master/texmf-dist/tex/generic/pst-slpe/pst-slpe.tex b/Master/texmf-dist/tex/generic/pst-slpe/pst-slpe.tex
index c7a90d05d26..bb7a913e0e5 100644
--- a/Master/texmf-dist/tex/generic/pst-slpe/pst-slpe.tex
+++ b/Master/texmf-dist/tex/generic/pst-slpe/pst-slpe.tex
@@ -20,8 +20,12 @@
 %% original source files, as listed above, are part of the
 %% same distribution. (The sources need not necessarily be
 %% in the same archive or directory.)
-\def\pstslpefileversion{1.1}
-\def\pstslpefiledate{2005/10/05}
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN archives
+%% in directory macros/latex/base/lppl.txt.
+%%
+\def\pstslpefileversion{1.2}
+\def\pstslpefiledate{2008/06/19}
 \message{ v\pstslpefileversion, \pstslpefiledate}
 \csname PstSlopeLoaded\endcsname
 \let\PstSlopeLoaded\endinput
@@ -98,7 +102,20 @@
     5 grestore
   \psslopesteps\psx@slopecenter\space\psx@sloperadius\space\psx@slopeangle
   tx@PstSlopeDict begin RadSlopesFill end}}
-
+\def\psBall{\pst@object{psBall}}
+\def\psBall@i{\@ifnextchar(\psBall@ii{\psBall@ii(0,0)}}
+\def\psBall@ii(#1,#2)#3#4{%
+  \pst@killglue
+  \pst@dima=#4%
+  \pst@dimb=#4%
+  \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}%
+  \use@par%
+  \pscircle(#1,#2){#4}%
+  \endgroup\ignorespaces%
+}
 \catcode`\@=\TheAtCode\relax
 \endinput
 %%