summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/tkz/tkz-euclide/latex/tkz-obj-eu-lines.tex
diff options
context:
space:
mode:
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.tex25
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
}
%<--------------------------------------------------------------------------–>