diff options
Diffstat (limited to 'Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex')
| -rw-r--r-- | Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex | 18 |
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 )% |