diff options
Diffstat (limited to 'macros/latex/contrib/tkz/tkz-euclide/latex/tkz-obj-eu-circles-by.tex')
-rw-r--r-- | macros/latex/contrib/tkz/tkz-euclide/latex/tkz-obj-eu-circles-by.tex | 51 |
1 files changed, 19 insertions, 32 deletions
diff --git a/macros/latex/contrib/tkz/tkz-euclide/latex/tkz-obj-eu-circles-by.tex b/macros/latex/contrib/tkz/tkz-euclide/latex/tkz-obj-eu-circles-by.tex index c4824009ce..506ec8c739 100644 --- a/macros/latex/contrib/tkz/tkz-euclide/latex/tkz-obj-eu-circles-by.tex +++ b/macros/latex/contrib/tkz/tkz-euclide/latex/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 %<--------------------------------------------------------------------------–> |