From 7cdce80bc38aa7f51b1b6e29a23c27e7e43b6d82 Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Wed, 26 Oct 2011 00:52:48 +0000
Subject: pst-slpe (25oct11)

git-svn-id: svn://tug.org/texlive/trunk@24391 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/texmf-dist/tex/generic/pst-slpe/pst-slpe.tex | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

(limited to 'Master/texmf-dist/tex/generic/pst-slpe')

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 870cf8480cb..b47e3b4eb73 100644
--- a/Master/texmf-dist/tex/generic/pst-slpe/pst-slpe.tex
+++ b/Master/texmf-dist/tex/generic/pst-slpe/pst-slpe.tex
@@ -24,8 +24,8 @@
 %% of the LaTeX Project Public License Distributed from CTAN archives
 %% in directory macros/latex/base/lppl.txt.
 %%
-\def\pstslpefileversion{1.3}
-\def\pstslpefiledate{2008/09/20}
+\def\pstslpefileversion{1.31}
+\def\pstslpefiledate{2011/10/25}
 \message{ v\pstslpefileversion, \pstslpefiledate}
 \csname PstSlopeLoaded\endcsname
 \let\PstSlopeLoaded\endinput
@@ -116,17 +116,16 @@
   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{%
+\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}%
   \use@par%
   \pscircle(#1,#2){#4}%
-  \endgroup\ignorespaces%
+  }\ignorespaces%
 }
 \catcode`\@=\TheAtCode\relax
 \endinput
-- 
cgit v1.2.3