summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pst-slpe/pst-slpe.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/generic/pst-slpe/pst-slpe.tex')
-rw-r--r--Master/texmf-dist/tex/generic/pst-slpe/pst-slpe.tex23
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
%%