pst-eucl (12mar13)

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

1 files changed, 18 insertions, 20 deletions

diff --git a/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex b/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex
index cac62bff54d..bc0593166ba 100644
--- a/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex
+++ b/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex
@@ -15,8 +15,8 @@
 \ifx\MultidoLoaded\endinput \else\input multido.tex \fi
 \csname PSTEuclideLoaded\endcsname
 \let\PSTEuclideLoaded\endinput
-\def\fileversion{1.46}
-\def\filedate{2013/01/08
+\def\fileversion{1.47}
+\def\filedate{2013/03/12
 }%
 %% This program can be redistributed and/or modified under the terms
 %% of the LaTeX Project Public License Distributed from CTAN
@@ -348,30 +348,28 @@ end}%
   \bgroup\psset{#1}%            % Affectation of local parameters
   %% not good at all, but \rput{0}(#3){\rput{(#2)}{stuff}} doesn't work...
   \rput(#3){%
-    \ifx\psk@RightAngleType\@default
+    \ifx\psk@RightAngleType\@default%
     \pspolygon(0,0)%%modif 12/2004
-           (!tx@EcldDict begin /N@#4 GetNode exch Atan \psk@RightAngleSize\space exch PtoC end)
+           (!tx@EcldDict begin /N@#4 GetNode exch Atan \psk@RightAngleSize\space exch PtoC end)%
            (!tx@EcldDict begin /N@#4 GetNode exch Atan /N@#2 GetNode exch Atan 
               2 copy sub abs 91 gt
                 { 2 copy lt { exch 360 add exch } { 360 add } ifelse  } if %%DR 2005/01/14
              %%2 copy lt { exch 360 sub exch } if
-              add 2 div 2 sqrt \psk@RightAngleSize\space mul exch PtoC end)
-           (!tx@EcldDict begin /N@#2 GetNode exch Atan \psk@RightAngleSize\space
-           exch PtoC end)
-    \else\ifx\psk@RightAngleType\@german
-    \pstMarkAngle[MarkAngleRadius=\psk@RightAngleSize,
-                  LabelSep=\psk@RightAngleSize\space .5 mul]{#2}{#3}{#4}
-       {\psscalebox{\psk@RightAngleSize}{\pscircle*{.08}}}
-    \else\ifx\psk@RightAngleType\@suisseromand
-    \rput{*0}
+              add 2 div 2 sqrt \psk@RightAngleSize\space mul exch PtoC end)%
+           (!tx@EcldDict begin /N@#2 GetNode exch Atan \psk@RightAngleSize\space exch PtoC end)%
+    \else\ifx\psk@RightAngleType\@german%
+    \pstMarkAngle[MarkAngleRadius=\psk@RightAngleSize,LabelSep=\psk@RightAngleSize\space .5 mul]{#2}{#3}{#4}%
+       {\psscalebox{\psk@RightAngleSize}{\pscircle*{.08}}}%
+    \else\ifx\psk@RightAngleType\@suisseromand%
+    \rput{*0}%
       (!tx@EcldDict begin /N@#4 GetNode exch Atan /N@#2 GetNode exch Atan 
-        2 copy lt { exch 360 sub exch } if add 2 div .45 \psk@RightAngleSize\space mul exch PtoC end)
-      {\psscalebox{\psk@RightAngleSize}{\pscircle*{.08}}}
-    \pspolygon(0,0)
-           (!tx@EcldDict begin /N@#4 GetNode exch Atan \psk@RightAngleSize\space exch PtoC end )
-           (!tx@EcldDict begin /N@#2 GetNode exch Atan \psk@RightAngleSize\space exch PtoC end )
-    \fi\fi\fi}
-  \egroup%
+        2 copy lt { exch 360 sub exch } if add 2 div .45 \psk@RightAngleSize\space mul exch PtoC end)%
+      {\psscalebox{\psk@RightAngleSize}{\pscircle*{.08}}}%
+    \pspolygon(0,0)%
+           (!tx@EcldDict begin /N@#4 GetNode exch Atan \psk@RightAngleSize\space exch PtoC end )%
+           (!tx@EcldDict begin /N@#2 GetNode exch Atan \psk@RightAngleSize\space exch PtoC end )%
+    \fi\fi\fi}%
+  \egroup\ignorespaces%  hv 20130312
 }%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %% #2 #3 #4 -> 3 nodes for defining the angle