pst-eucl (29jan20)

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

1 files changed, 10 insertions, 8 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 6cc2f9b54e9..68dbf939fb5 100644
--- a/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex
+++ b/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex
@@ -1,13 +1,13 @@
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -*- Mode: Latex -*- %%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %% pst-eucl.tex --- Generation of geometric figures in euclidean geometry
 %% Copyright 2000-2013 Dominique RODRIGUEZ
-%% Copyright 2014-     Dominique RODRIGUEZ, Herbert Voß
+%% Copyright 2014-...  Dominique RODRIGUEZ, Herbert Voß
 %%
 %% 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.
 %%
-%% Author          : Dominique RODRIGUEZ (EN) <dominique.rodriguez@waika9.com>
+%% Authors         : Dominique RODRIGUEZ (EN) <dominique.rodriguez@waika9.com>
 %%                 : hv hvoss@tug.org
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % Require PSTricks and pst-node packages
@@ -20,8 +20,8 @@
 \csname PSTEuclideLoaded\endcsname
 \let\PSTEuclideLoaded\endinput
 %
-\def\fileversion{1.69}
-\def\filedate{2020/01/09}
+\def\fileversion{1.70}
+\def\filedate{2020/01/29}
 %%
 \message{`PST-Euclide v\fileversion, \filedate\space (dr,hv)}%
 %% prologue for postcript
@@ -73,7 +73,7 @@
 \iffalse
 \define@key[psset]{pst-eucl}{PosAngle}{\expandafter\psk@@Pos@Angle#1,,!}%
 \def\psk@@Pos@Angle#1,#2,#3#4#5!{%
-  \typeout{1: #1; 2: #2; 3: #3; 4: #4; 5: #5}%
+%  \typeout{1: #1; 2: #2; 3: #3; 4: #4; 5: #5}%
   \def\psk@PosAngle{#1}%
   \def\@temp{#1}%
   \ifx\@temp\@undef \typeout{Nichts machen}\else\typeout{Winkel setzen}%
@@ -89,6 +89,7 @@
 % dimension of the right angle mark
 \define@key[psset]{pst-eucl}{RightAngleSize}[4]{\def\psk@RightAngleSize{#1}}%
 \define@key[psset]{pst-eucl}{RightAngleType}[default]{\def\psk@RightAngleType{#1}}%
+\define@key[psset]{pst-eucl}{RightAngleDotDistance}[1]{\def\psk@RightAngleDotDistance{#1 }}%
 % radius of an angle mark
 \define@key[psset]{pst-eucl}{MarkAngleRadius}[0.4]{\def\psk@MarkAngleRadius{#1}}%
 \define@key[psset]{pst-eucl}{MarkAngleType}[default]{\def\psk@MarkAngleType{#1}}%
@@ -156,7 +157,8 @@
   PosAngleA=undef,
   PosAngleB=undef, PosAngleC=undef, Mark=undef, mark=undef,SegmentSymbol=MarkHashh,
   SegmentSymbolA=MarkHashh, SegmentSymbolB=MarkHash, SegmentSymbolC=MarkHashhh,
-  RightAngleSize=.4, RightAngleType=default, LabelAngleOffset=0, LabelSep=1,
+  RightAngleSize=.4, RightAngleType=default, RightAngleDotDistance=1,
+  LabelAngleOffset=0, LabelSep=1,
   LabelRefPt=c, MarkAngle=undef, MarkAngleType=default, MarkAngleRadius=.4,
   HomCoef=.5, RotAngle=60,
   CurveType=none, TransformLabel=none, Central@Sym=false, DrawCirABC=true,
@@ -465,13 +467,13 @@
 %            \psline(0,0)
 %          }
 %        \fi
-        \pstMarkAngle[MarkAngleRadius=\psk@RightAngleSize,LabelSep=\psk@RightAngleSize\space .5 mul]{#1}{#2}{#3}%
+        \pstMarkAngle[MarkAngleRadius=\psk@RightAngleSize,LabelSep=\psk@RightAngleSize\space .5 mul \psk@RightAngleDotDistance mul]{#1}{#2}{#3}%
            {\psscalebox{\psk@RightAngleSize}{\pscircle*{!.08 \psk@xdotscale\space mul}}}%
       \else
         \ifx\psk@RightAngleType\@suisseromand
           \rput{*0}%
             (!tx@EcldDict begin /N@#3 GetNode exch Atan /N@#1 GetNode exch Atan
-              2 copy lt { exch 360 sub exch } if add 2 div .45 \psk@RightAngleSize\space mul exch PtoC end)%
+              2 copy lt { exch 360 sub exch } if add 2 div .45 \psk@RightAngleSize\space mul \psk@RightAngleDotDistance mul exch PtoC end)%
               {\psscalebox{\psk@RightAngleSize}{\pscircle*{.08}}}%
             \psline(0,0)%
               (!tx@EcldDict begin /N@#3 GetNode exch Atan \psk@RightAngleSize\space exch PtoC end )%