summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pst-slpe
diff options
context:
space:
mode:
authorManuel Pégourié-Gonnard <mpg@elzevir.fr>2008-06-20 21:13:15 +0000
committerManuel Pégourié-Gonnard <mpg@elzevir.fr>2008-06-20 21:13:15 +0000
commit0e5381d09e3621a166363ab885a862376cf999c8 (patch)
treeee910d742190388fd61ed756fa1b02e62cb25004 /Master/texmf-dist/tex/generic/pst-slpe
parentd815dece6f595d991bfdb3406fc0c08bdb05f5b9 (diff)
pst-slpe v1.2 2008/06/19
git-svn-id: svn://tug.org/texlive/trunk@8889 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic/pst-slpe')
-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
%%