summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/tkz-euclide/tkz-obj-eu-compass.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/latex/tkz-euclide/tkz-obj-eu-compass.tex')
-rw-r--r--Master/texmf-dist/tex/latex/tkz-euclide/tkz-obj-eu-compass.tex56
1 files changed, 22 insertions, 34 deletions
diff --git a/Master/texmf-dist/tex/latex/tkz-euclide/tkz-obj-eu-compass.tex b/Master/texmf-dist/tex/latex/tkz-euclide/tkz-obj-eu-compass.tex
index 136fee4522d..a5eaa32e06d 100644
--- a/Master/texmf-dist/tex/latex/tkz-euclide/tkz-obj-eu-compass.tex
+++ b/Master/texmf-dist/tex/latex/tkz-euclide/tkz-obj-eu-compass.tex
@@ -1,5 +1,5 @@
% tkz-obj-eu-compass.tex
-% Copyright 2020 Alain Matthes
+% Copyright 2022 Alain Matthes
% This work may be distributed and/or modified under the
% conditions of the LaTeX Project Public License, either version 1.3
% of this license or (at your option) any later version.
@@ -7,15 +7,12 @@
% http://www.latex-project.org/lppl.txt
% and version 1.3 or later is part of all distributions of LaTeX
% version 2005/12/01 or later.
-%
% This work has the LPPL maintenance status “maintained”.
-%
% The Current Maintainer of this work is Alain Matthes.
-% utf8 encoding
-\def\fileversion{3.06c}
-\def\filedate{2020/03/18}
-\typeout{2020/03/18 3.06c tkz-obj-eu-compass.tex}
+\def\fileversion{4.00}
+\def\filedate{2022/01/04}
+\typeout{2022/01/04 4.00 tkz-obj-eu-compass.tex}
\makeatletter
%<--------------------------------------------------------------------------–>
% Author Alain Matthes
@@ -27,21 +24,18 @@
% Setup Compass
%<--------------------------------------------------------------------------–>
\pgfkeys{tkzsucompass/.cd,
- line width/.code = {\global\edef\tkz@compass@lw{#1}},
- color/.code = {\global\edef\tkz@compass@color{#1}},
- style/.code = {\global\edef\tkz@compass@style{#1}},
- }
+ line width/.store in = \tkz@compass@lw,
+ color/.store in = \tkz@compass@color,
+ style/.store in = \tkz@compass@style,
+ line width = \tkz@euc@compasswidth,
+ color = \tkz@euc@compasscolor,
+ style = \tkz@euc@compassstyle,
+ /tkzsucompass/.search also = {/tikz,/tkzcompass}
+ }
%<--------------------------------------------------------------------------–>
-\def\tkzSetUpCompass{\pgfutil@ifnextchar[{\tkz@SetUpCompass}{% remove tkzActivOff 3.03
- \tkz@SetUpCompass[]}}
+\def\tkzSetUpCompass{\pgfutil@ifnextchar[{\tkz@SetUpCompass}{\tkz@SetUpCompass[]}}
%<--------------------------------------------------------------------------–>
\def\tkz@SetUpCompass[#1]{%
-\pgfkeys{tkzsucompass/.cd,
- line width = \tkz@euc@compasswidth,
- color = \tkz@euc@compasscolor,
- style = \tkz@euc@compassstyle,
- /tkzsucompass/.search also = {/tikz}
-}
\pgfqkeys{/tkzsucompass}{#1}
\tikzset{compass style/.style={color = \tkz@compass@color,
line width = \tkz@compass@lw,
@@ -59,31 +53,25 @@
% style traits pleins
%<--------------------------------------------------------------------------–>
- \pgfkeys{
- /tkzcompass/delta/.code = {\def\tkz@delta{#1}},
- /tkzcompass/length/.code = {\def\tkz@length{#1}},
- /tkzcompass/ratio/.code = {\def\tkz@ratio{#1}},
+ \pgfkeys{/tkzcompass/.cd,
+ delta/.store in = \tkz@delta,
+ length/.store in = \tkz@length,
+ length = 1,
+ delta = 0,
/tkzcompass/.unknown/.code = {\let\searchname=\pgfkeyscurrentname
- \pgfkeysalso{\searchname/.try=#1,
- /tikz/\searchname/.retry=#1}}
+ \pgfkeysalso{\searchname/.try=#1, /tikz/\searchname/.retry=#1}}
}
\def\tkzCompass{\pgfutil@ifnextchar[{\tkz@Compass}{\tkz@Compass[]}}
\def\tkz@Compass[#1](#2,#3){%
\begingroup
-\pgfkeys{%
- tkzcompass/.cd,
- length = 1,
- delta = 0,
- ratio = .5
- }
\pgfkeys{tkzcompass/.cd,#1}
-\tkzCalcLength(#2,#3)\tkzGetLength{tkz@tempLen}
+\tkz@@CalcLength(#2,#3){tkz@tempLen}
\ifnum\tkz@delta=0 %
\pgfmathsetmacro{\tkz@delta}{min(deg(\tkz@length cm/ \tkz@tempLen pt),180)/2}
\fi
\tkzFindSlopeAngle(#2,#3)\tkzGetAngle{tkz@angle}%
-\draw[shift ={(#2)},/tkzcompass/.cd,compass style,#1]%
+\draw[shift ={(#2)},compass style,/tkzcompass/.cd,#1]%
(\tkz@angle-\tkz@delta:\tkz@tempLen pt)%
arc (\tkz@angle-\tkz@delta:\tkz@angle+\tkz@delta:\tkz@tempLen pt);
\endgroup}
@@ -108,4 +96,4 @@
}%
\makeatother
-\endinput \ No newline at end of file
+\endinput \ No newline at end of file