From f1f08454a69f26b09f7697a5591be470dc98a58b Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Wed, 17 Jun 2020 21:34:29 +0000
Subject: pst-eucl (17jun20)

git-svn-id: svn://tug.org/texlive/trunk@55576 c570f23f-e606-0410-a88d-b1316a301751
---
 .../texmf-dist/tex/generic/pst-eucl/pst-eucl.tex   | 25 ++++++++++++----------
 1 file changed, 14 insertions(+), 11 deletions(-)

(limited to 'Master/texmf-dist/tex')

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 c821347f8ca..8abea6715b0 100644
--- a/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex
+++ b/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex
@@ -20,8 +20,8 @@
 \csname PSTEuclideLoaded\endcsname
 \let\PSTEuclideLoaded\endinput
 %
-\def\fileversion{1.72a}
-\def\filedate{2020/06/07}
+\def\fileversion{1.73}
+\def\filedate{2020/06/17}
 %%
 \message{`PST-Euclide v\fileversion, \filedate\space (dr,hv)}%
 %% prologue for postcript
@@ -284,7 +284,8 @@
   \pnode(#1){#2}
   \xdef\@@GenCourbe{\@@GenCourbe(#2)}%%for accumulating points% DR 22032005
   \Pst@ManageParamList{#2}%
-  \@ifnextchar(\Pst@Geonode@ii{\pst@MngTransformCurve\endgroup}}% DR 22032005
+  \@ifnextchar(\Pst@Geonode@ii{\pst@MngTransformCurve\endgroup
+  }}% DR 22032005
 
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %% \pstPolygon[options](A)(B)(C)(D)...
@@ -3011,15 +3012,17 @@
 %% - offset: the seperation between label and segment
 %% - nrot: the rotation of the label
 %% - npos: the proportion of the label
-\def\pstLabelAB{\@ifnextchar[\Pst@LabelAB{\Pst@LabelAB[]}}
-\def\Pst@LabelAB[#1]#2#3#4{%
+\def\pstLabelAB{\pst@object{pstLabelAB}}
+\def\pstLabelAB@i#1#2#3{%
   \begingroup
-    \psset{linestyle=none} % default not show the rule bar.
-    \psset{offset=10pt} % default offset is 10pt
-    \psset{nrot=:U} % default rotation is :U
-    \psset{npos=0.5} % default label proportion from A to B is 0.5
-    \psset{#1}\ncline{#2}{#3}\ncput*{#4}
-  \endgroup%
+  \addbefore@par{linestyle=none,offset=10pt,nrot=:U,npos=0.5}% the defaults
+  \use@par
+  \if@star
+    \ncline{#1}{#2}\ncput*{#3}%
+  \else
+    \ncline{#1}{#2}\ncput{#3}%
+  \fi
+  \endgroup
 }%
 %% \pstExtendAB[Options]{A}{B}{distance}{C}
 %% Extend AB to C such that |BC|=distance, then create node C.
-- 
cgit v1.2.3