diff options
Diffstat (limited to 'macros/latex/contrib/tkz/tkz-euclide/latex/tkz-tools-eu-math.tex')
-rw-r--r-- | macros/latex/contrib/tkz/tkz-euclide/latex/tkz-tools-eu-math.tex | 24 |
1 files changed, 18 insertions, 6 deletions
diff --git a/macros/latex/contrib/tkz/tkz-euclide/latex/tkz-tools-eu-math.tex b/macros/latex/contrib/tkz/tkz-euclide/latex/tkz-tools-eu-math.tex index 4c088a8cba..be764238f2 100644 --- a/macros/latex/contrib/tkz/tkz-euclide/latex/tkz-tools-eu-math.tex +++ b/macros/latex/contrib/tkz/tkz-euclide/latex/tkz-tools-eu-math.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.22c} -\def\filedate{2022/07/28} -\typeout{2022/07/28 4.22c tkz-tools-eu-math.tex} +\def\fileversion{4.23c} +\def\filedate{2022/08/24} +\typeout{2022/08/24 4.23c tkz-tools-eu-math.tex} \makeatletter %<--------------------------------------------------------------------------> % \tkzpointnormalised# @@ -194,11 +194,21 @@ %<---------------------------------------------------------–> \def\tkzDefRadicalAxis(#1,#2)(#3,#4){% \begingroup -\tkz@@CalcLengthcm(#1,#3){tkz@da} +\tkz@@CalcLengthcm(#1,#3){tkz@d} \tkz@@CalcLengthcm(#1,#2){tkz@ra} \tkz@@CalcLengthcm(#3,#4){tkz@rb} -\edef\tkzMathResult{\fpeval{(\tkz@ra+\tkz@rb)}} -\ifdim \tkzMathResult pt < \tkz@da pt\relax% +\edef\tkzMathResult{\fpeval{\tkz@d-(\tkz@ra+\tkz@rb)}} +\edef\tkzMathResultb{\fpeval{abs(\tkz@d-(\tkz@ra+\tkz@rb))}} +\edef\tkzMathResultc{\fpeval{abs(\tkz@d-abs(\tkz@ra-\tkz@rb))}} +\ifdim \tkzMathResultc pt < 0.1 pt\relax% + \tkzURotateAngle(#2,90)(#3) \tkzGetPoint{tkzFirstPointResult} + \tkzURotateAngle(#2,-90)(#3) \tkzGetPoint{tkzSecondPointResult} +\else +\ifdim \tkzMathResultb pt < 0.1 pt\relax% + \tkzURotateAngle(#2,90)(#3) \tkzGetPoint{tkzFirstPointResult} + \tkzURotateAngle(#2,-90)(#3) \tkzGetPoint{tkzSecondPointResult} + \else +\ifdim \tkzMathResult pt > 1 pt\relax% \tkzURotateAngle(#1,60)(#3) \tkzGetPoint{tkz@aux} \tkzInterCC(#1,#2)(tkz@aux,#1) \tkzGetPoints{tkz@pta}{tkz@ptb} \tkzInterCC(#3,#4)(tkz@aux,#1) \tkzGetPoints{tkz@ptc}{tkz@ptd} @@ -209,6 +219,8 @@ \else \tkzInterCCR(#1,\tkz@ra)(#3,\tkz@rb){tkzFirstPointResult}{tkzSecondPointResult} \fi +\fi +\fi \endgroup } \makeatother |