pst-eucl (24sep12)

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

4 files changed, 5 insertions, 10 deletions

diff --git a/Master/texmf-dist/doc/generic/pst-eucl/Changes b/Master/texmf-dist/doc/generic/pst-eucl/Changes
index e4357bf0235..f59cf7de94d 100644
--- a/Master/texmf-dist/doc/generic/pst-eucl/Changes
+++ b/Master/texmf-dist/doc/generic/pst-eucl/Changes
@@ -1,4 +1,5 @@
 pst-eucl.pro --------
+1.01 2012/09/21	 - fix for introduced bug
 1.00 2011/08/05	 - fix bug in /InterLines
 
 
diff --git a/Master/texmf-dist/dvips/pst-eucl/pst-eucl.pro b/Master/texmf-dist/dvips/pst-eucl/pst-eucl.pro
index 0cf220ee4dc..0641b4a2383 100644
--- a/Master/texmf-dist/dvips/pst-eucl/pst-eucl.pro
+++ b/Master/texmf-dist/dvips/pst-eucl/pst-eucl.pro
@@ -1,6 +1,6 @@
 %!
 % PostScript prologue for pst-eucl.tex.
-% Version 1.00 2011/08/04
+% Version 1.01 2012/09/21
 % For distribution, see pstricks.tex.
 %
 /tx@EcldDict 40 dict def tx@EcldDict begin
@@ -43,8 +43,8 @@
 /ABDist { 3 -1 roll sub dup mul 3 1 roll sub dup mul add sqrt } bind def
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %% x1 y1 x2 y2 -> x2-x1  y2-y1
-%/ABVect { 3 -1 roll exch sub 3 1 roll sub exch } bind def
-/ABVect { 3 -1 roll sub 3 1 roll exch sub exch } bind def
+/ABVect { 3 -1 roll exch sub 3 1 roll sub exch } bind def
+%/ABVect { 3 -1 roll sub 3 1 roll exch sub exch } bind def  %% wrong version
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %% x1 y1 x2 y2 x3 y3 x4 y4 -> x y
 /InterLines {
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 2824cbf2326..b9ea64bf746 100644
--- a/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex
+++ b/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex
@@ -144,7 +144,6 @@
 \def\@curve{curve}
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 \iffalse  %%%%%%%%%%  \pst@newnode is already defined in pst-node
-%% CORRECTION OF BUG
 \def\pst@newnode#1#2#3#4{%
 % DG/SR modification begin - Nov.  9, 2000 - Patch 11
   \pst@killglue
@@ -152,11 +151,6 @@
 \leavevmode
 \pst@getnode{#1}\pst@thenode
 \pst@Verb{%
-  #3 \tx@UserCoor
-%  startGlobal
-  /N-#1.y\space exch def
-  /N-#1.x\space exch def
-%  endGlobal
 \pst@nodedict
 {#3}
 \ifx\psk@name\relax false \else \psk@name true \fi
diff --git a/Master/texmf-dist/tex/latex/pst-eucl/pst-eucl.sty b/Master/texmf-dist/tex/latex/pst-eucl/pst-eucl.sty
index c704e0b0494..d2d74707b2b 100644
--- a/Master/texmf-dist/tex/latex/pst-eucl/pst-eucl.sty
+++ b/Master/texmf-dist/tex/latex/pst-eucl/pst-eucl.sty
@@ -8,6 +8,6 @@
   [\filedate\space v\fileversion\space `PST-eucl' (dr)]
 \IfFileExists{pst-eucl.pro}{%
   \ProvidesFile{pst-eucl.pro}
-    [2011/08/04 v. 1.00,  PostScript prologue file (hv)]
+    [2012/09/21 v. 1.01,  PostScript prologue file (hv)]
     \@addtofilelist{pst-eucl.pro}}{}%
 \endinput