pst-eucl (22sep11)

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

3 files changed, 11 insertions, 12 deletions

diff --git a/Master/texmf-dist/doc/generic/pst-eucl/Changes b/Master/texmf-dist/doc/generic/pst-eucl/Changes
index e12416e28b7..6e59e1c0bf5 100644
--- a/Master/texmf-dist/doc/generic/pst-eucl/Changes
+++ b/Master/texmf-dist/doc/generic/pst-eucl/Changes
@@ -3,6 +3,7 @@ pst-eucl.pro --------
 
 
 pst-eucl.tex --------
+1.39 2011/09/22	 - fixed introduced bug in \psInterCC
 1.38 2011/08/05	 - set nodes directly with \pnode(!..) istead of \rput
 1.37 2011/05/05	 - rewrite of \pstMarkAngle (hv)
 1.36 2010/08/23	 - fix for \pstMarkAngle (hv)
diff --git a/Master/texmf-dist/doc/generic/pst-eucl/README b/Master/texmf-dist/doc/generic/pst-eucl/README
index 30a7d657df3..0585043a7ef 100644
--- a/Master/texmf-dist/doc/generic/pst-eucl/README
+++ b/Master/texmf-dist/doc/generic/pst-eucl/README
@@ -2,8 +2,8 @@
 			 the pst-eucl package
 
 
-VERSION   pre-1.38
-DATE      august 2011
+VERSION   pre-1.39
+DATE      sept 2011
 
 LICENCE
 -------
@@ -25,7 +25,7 @@ Then you should consider making a donation:
 
        my address:
 			    La Grand'Terre
-		    07460 Saint André de Cruzières
+		    07460 Saint André de Cruziéres
 				FRANCE
 
 INSTALLATION
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 fafcfa61f22..3ba894f1eb7 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.38}
-\def\filedate{2011/08/07}%
+\def\fileversion{1.39}
+\def\filedate{2011/09/22}%
 %% 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.
@@ -972,7 +972,7 @@ end}%
 \def\pstInterCC{\@ifnextchar[\Pst@InterCC{\Pst@InterCC[]}}%
 \def\Pst@InterCC[#1]#2#3#4#5#6#7{%
   \bgroup\psset{#1}%        % Affectation of local parameters
-  \pnode(#2){%
+  \rput(#2){%
     \rput(!
       tx@EcldDict begin
         \ifx\psk@RadiusA\@undef
@@ -1005,15 +1005,13 @@ end}%
         exch Atan dup /xoC exch def Rotate /Glby exch def /Glbx exch def
         xoC Rotate
       end
-      \pst@number\psyunit div exch \pst@number\psxunit div exch
-      2 copy
-      /#6.Y exch def /#6.X exch def % save the coors for futher use
-    ){#6}%
-    \pnode(!
+      \pst@number\psyunit div exch \pst@number\psxunit div exch)
+    {\pnode{#6}}%
+    \rput(!
       tx@EcldDict begin
         Glbx \pst@number\psxunit div Glby \pst@number\psyunit div
       end)%
-    {#7}%
+    {\pnode{#7}}%
     }%
   \bgroup\ifx\psk@PosAngleA\@undef\else\psset{PosAngle=\psk@PosAngleA}\fi
   \ifx\psk@PointSymbolA\@undef\else\psset{PointSymbol=\psk@PointSymbolA}\fi