summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/tkz-euclide/tkz-obj-eu-circles-by.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/latex/tkz-euclide/tkz-obj-eu-circles-by.tex')
-rw-r--r--Master/texmf-dist/tex/latex/tkz-euclide/tkz-obj-eu-circles-by.tex51
1 files changed, 19 insertions, 32 deletions
diff --git a/Master/texmf-dist/tex/latex/tkz-euclide/tkz-obj-eu-circles-by.tex b/Master/texmf-dist/tex/latex/tkz-euclide/tkz-obj-eu-circles-by.tex
index c4824009cea..506ec8c739a 100644
--- a/Master/texmf-dist/tex/latex/tkz-euclide/tkz-obj-eu-circles-by.tex
+++ b/Master/texmf-dist/tex/latex/tkz-euclide/tkz-obj-eu-circles-by.tex
@@ -10,9 +10,9 @@
% This work has the LPPL maintenance status “maintained”.
% The Current Maintainer of this work is Alain Matthes.
-\def\fileversion{4.00}
-\def\filedate{2022/01/04}
-\typeout{2022/01/04 4.00 tkz-obj-eu-circles.tex}
+\def\fileversion{4.03}
+\def\filedate{2022/01/19}
+\typeout{2022/01/19 4.03 tkz-obj-eu-circles.tex}
\makeatletter
%<--------------------------------------------------------------------------–>
% tkzCircle center and one point
@@ -44,6 +44,9 @@
\def\tkz@pttwo{#2}},
inversion/.code args={center #1 through #2}{ \def\tkz@numcby{7}
\def\tkzcenter{#1}
+ \def\tkzpoint{#2}},
+ inversion negative/.code args = {center #1 through #2}{\def\tkz@numcby{8}
+ \def\tkzcenter{#1}
\def\tkzpoint{#2}}
}
\def\tkzDefCircleBy{\pgfutil@ifnextchar[{\tkz@DefCircleBy}{\tkz@DefCircleBy[]}}
@@ -66,6 +69,8 @@
\tkzDefOrthoThroughCircle(#2,\tkz@ptone,\tkz@pttwo)
\or% 7
\tkzDefInversionCircle(#2,\tkzcenter,\tkzpoint)
+ \or% 8
+ \tkzDefInversionNegativeCircle(#2,\tkzcenter,\tkzpoint)
\fi
\endgroup
}
@@ -115,24 +120,6 @@
\endgroup
}
%<--------------------------------------------------------------------------–>
-\def\tkzDefOrthogonalCircle(#1,#2,#3){%
-\begingroup
- \tkzTgtFromP(#1,#2)(#3)
- \tkz@@CalcLengthcm(#1,tkzFirstPointResult){tkzLengthResult}
-\endgroup
-}
-%<--------------------------------------------------------------------------–>
-\def\tkzDefOrthoThroughCircle(#1,#2,#3,#4){%
-\begingroup
- \tkz@@CalcLengthcm(#1,#3){tkz@lnb}%
- \edef\tkz@lnc{\fpeval{1/\tkz@lnb}}
- \tkzVecKNorm[\tkz@lnc](#1,#3)
- \pgfnodealias{tkz@PointResult}{tkzPointResult}
- \tkzCircumCenter(tkz@PointResult,#3,#4)
- \tkz@@CalcLength(tkzPointResult,#3){tkzLengthResult}
-\endgroup
-}
-%<--------------------------------------------------------------------------–>
\def\tkzDefInversionCircle(#1,#2,#3,#4){%
\begingroup
\tkzInterLC(#3,#1)(#1,#2) \tkzGetPoints{tkz@p1}{tkz@p2}
@@ -143,17 +130,17 @@
\endgroup
}
%<--------------------------------------------------------------------------–>
-% \def\tkzDefInversionNegativeCircle(#1,#2,#3,#4){%
-% \begingroup
-% \tkzInterLC(#3,#1)(#1,#2) \tkzGetPoints{tkz@p1}{tkz@p2}
-% \tkzUInversePoint(\tkzcenter,\tkzpoint)(tkz@p1)
-% \tkzUCSym(\tkzcenter)(tkzPointResult)
-% \pgfnodealias{tkzFirstPointResult}{tkzPointResult}
-% \tkzUInversePoint(\tkzcenter,\tkzpoint)(tkz@p2)
-% \tkzUCSym(\tkzcenter)(tkzPointResult)
-% \pgfnodealias{tkzSecondPointResult}{tkzPointResult}
-% \endgroup
-% }
+\def\tkzDefInversionNegativeCircle(#1,#2,#3,#4){%
+\begingroup
+ \tkzInterLC(#3,#1)(#1,#2) \tkzGetPoints{tkz@p1}{tkz@p2}
+ \tkzUInversePoint(\tkzcenter,\tkzpoint)(tkz@p1)
+ \tkzUCSym(\tkzcenter)(tkzPointResult)
+ \pgfnodealias{tkzFirstPointResult}{tkzPointResult}
+ \tkzUInversePoint(\tkzcenter,\tkzpoint)(tkz@p2)
+ \tkzUCSym(\tkzcenter)(tkzPointResult)
+ \pgfnodealias{tkzSecondPointResult}{tkzPointResult}
+\endgroup
+}
%<--------------------------------------------------------------------------–>
% End Def Circle
%<--------------------------------------------------------------------------–>