1 files changed, 20 insertions, 3 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 3ba894f1eb7..29347a0116c 100644
--- a/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex
+++ b/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex
@@ -12,8 +12,8 @@
 \ifx\PSTricksLoaded\endinput\else\input pstricks.tex\fi
 \ifx\PSTnodesLoaded\endinput\else\input pst-node.tex\fi
 \ifx\MultidoLoaded\endinput \else\input multido.tex \fi
-\def\fileversion{1.39}
-\def\filedate{2011/09/22}%
+\def\fileversion{1.40}
+\def\filedate{2011/11/16}%
 %% 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.
@@ -359,7 +359,23 @@ end}%
 %%  here we should check the angle size for right angles
 %
 %}
+\def\Pst@MarkAngle[#1]#2#3#4#5{{%  new version from 111116 hv
+  \psset{#1}%
+  \rput(#3){%
+   \psarc(0,0){\psk@MarkAngleRadius}{(#2)}{(#4)}%
+   \rput[\psk@LabelRefPt]{*0}(! tx@EcldDict begin
+     /N@#4 GetNode exch Atan /N@#2 GetNode exch Atan end
+     2 copy lt { exch 360 sub exch } if
+     add 2 div \psk@LabelAngleOffset\space add
+     \psk@LabelSep\space exch PtoC){#5}
+   \rput[\psk@LabelRefPt]{*0}(! tx@EcldDict begin
+     /N@#4 GetNode exch Atan /N@#2 GetNode exch Atan end
+     2 copy lt { exch 360 sub exch } if
+     add 2 div \psk@MarkAngleRadius\space exch PtoC)%
+       {\csname\psk@Mark\endcsname}
+}}}%
 %\def\Pst@MarkAngle@iii[#1]#2#3#4#5{%
+\iffalse
 \def\Pst@MarkAngle[#1]#2#3#4#5{%
   \bgroup\psset{#1}%            % Affectation of local parameters
   %\rput(#3){\psarc(0,0){\psk@MarkAngleRadius}{(#2)}{(#4)}}%
@@ -378,11 +394,12 @@ end}%
             /N@#3 GetNode /N@#4 GetNode ABVect Atan
             /N@#3 GetNode /N@#2 GetNode ABVect Atan
            end 2 copy lt \pslbrace exch 360 sub exch \psrbrace if add 2 div 90 add}
-      (0,0){\rput{-90}(\psk@MarkAngleRadius,0){\csname\psk@Mark\endcsname}}
+      (0,0){\rput{-90}(\psk@MarkAngleRadius,0){\csname\psk@Mark\endcsname}}%
     \fi}
     %%end modif alaindelplanque 11/2003
   \egroup%
 }%
+\fi
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %% #2 #4 #6 -> coordinates for nodes
 %% #3 #5 #7 -> nodes name