diff options
author | Norbert Preining <norbert@preining.info> | 2022-02-09 03:00:53 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2022-02-09 03:00:53 +0000 |
commit | 8363587176bd1746ab2d65ee183b196e6d3458cf (patch) | |
tree | 64a89e6416d2b23d149b3dd918af467ae0b7441a /macros/latex/contrib/tkz/tkz-euclide/latex/tkz-obj-eu-lines.tex | |
parent | 98810f6d7d064e61186d0ce674c4ee9de47a1f55 (diff) |
CTAN sync 202202090300
Diffstat (limited to 'macros/latex/contrib/tkz/tkz-euclide/latex/tkz-obj-eu-lines.tex')
-rw-r--r-- | macros/latex/contrib/tkz/tkz-euclide/latex/tkz-obj-eu-lines.tex | 25 |
1 files changed, 19 insertions, 6 deletions
diff --git a/macros/latex/contrib/tkz/tkz-euclide/latex/tkz-obj-eu-lines.tex b/macros/latex/contrib/tkz/tkz-euclide/latex/tkz-obj-eu-lines.tex index 8f9811c76f..fddfca0723 100644 --- a/macros/latex/contrib/tkz/tkz-euclide/latex/tkz-obj-eu-lines.tex +++ b/macros/latex/contrib/tkz/tkz-euclide/latex/tkz-obj-eu-lines.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.03} -\def\filedate{2022/01/19} -\typeout{2022/01/19 4.03 tkz-obj-eu-lines.tex} +\def\fileversion{4.05b} +\def\filedate{2022/02/07} +\typeout{2022/02/07 4.05b tkz-obj-eu-lines.tex} \makeatletter %<--------------------------------------------------------------------------–> % les lignes @@ -205,12 +205,18 @@ %<-------------------------------------------------------------------------–> \def\tkzTgtFromP(#1,#2)(#3){% \begingroup - \tkzDefMidPoint(#1,#3) \tkz@@CalcLengthcm(#1,#2){tkz@radone} + \tkzDefMidPoint(#1,#3) \tkz@@CalcLengthcm(tkzPointResult,#1){tkz@radtwo} \tkzInterCCR(#1,\tkz@radone)(tkzPointResult,\tkz@radtwo){% - tkzFirstPointResult}{% - tkzSecondPointResult}% + tkzFirstPointResult}{tkzSecondPointResult}% + \tkzFindAngle(#3,tkzFirstPointResult,#1) \tkzGetAngle{tkz@an} + \ifdim\tkz@an pt<180 pt\relax% + \else + \pgfnodealias{tkzPointTmp}{tkzSecondPointResult} + \pgfnodealias{tkzSecondPointResult}{tkzFirstPointResult} + \pgfnodealias{tkzFirstPointResult}{tkzPointTmp} + \fi \endgroup } %<-------------------------------------------------------------------------–> @@ -221,6 +227,13 @@ \tkzInterCCR(#1,#2)(tkzPointResult,\tkzLengthResult){% tkzFirstPointResult}{% tkzSecondPointResult}% + \tkzFindAngle(#3,tkzFirstPointResult,#1) \tkzGetAngle{tkz@an} + \ifdim\tkz@an pt<180 pt\relax% + \else + \pgfnodealias{tkzPointTmp}{tkzSecondPointResult} + \pgfnodealias{tkzSecondPointResult}{tkzFirstPointResult} + \pgfnodealias{tkzFirstPointResult}{tkzPointTmp} + \fi \endgroup } %<--------------------------------------------------------------------------–> |