From 24ae0c3844b308d81bc4684e57817d43c0b29a13 Mon Sep 17 00:00:00 2001
From: Norbert Preining <norbert@preining.info>
Date: Sat, 16 Jul 2022 03:00:55 +0000
Subject: CTAN sync 202207160300

---
 .../tkz/tkz-euclide/latex/tkz-obj-eu-lines.tex     | 74 +++++++++++++++-------
 1 file changed, 52 insertions(+), 22 deletions(-)

(limited to 'macros/latex/contrib/tkz/tkz-euclide/latex/tkz-obj-eu-lines.tex')

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 9dce18f48e..b07f40bc10 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,29 +10,29 @@
 % This work has the LPPL maintenance status “maintained”.
 % The Current Maintainer of this work is Alain Matthes.
 
-\def\fileversion{4.051b}
-\def\filedate{2022/02/25} 
-\typeout{2022/02/25 4.051b tkz-obj-eu-lines.tex}   
+\def\fileversion{4.2c}
+\def\filedate{2022/07/14} 
+\typeout{2022/07/14 4.2c tkz-obj-eu-lines.tex}   
 \makeatletter
 %<--------------------------------------------------------------------------–>
 %                          les lignes
 %<--------------------------------------------------------------------------–>
-\def\tkz@numl{0}
-\pgfkeys{/tkzDefLine/.cd,
-  mediator/.code           =  \def\tkz@numl{0},
-  perpendicular/.code args =  {through #1} {\def\tkz@numl{1}%
+\def\tkz@numline{0}
+\pgfkeys{/tkzdefline/.cd,
+  mediator/.code           =  \def\tkz@numline{0},
+  perpendicular/.code args =  {through #1} {\def\tkz@numline{1}%
                                             \def\tkz@through{#1}},
-  orthogonal/.code args    =  {through #1} {\def\tkz@numl{1}%
+  orthogonal/.code args    =  {through #1} {\def\tkz@numline{1}%
                                             \def\tkz@through{#1}}, 
-  parallel/.code args      =  {through #1}{\def\tkz@numl{2}%
+  parallel/.code args      =  {through #1}{\def\tkz@numline{2}%
                                            \def\tkz@through{#1}},   
-  bisector/.code           =  \def\tkz@numl{3},
-  bisector out/.code       =  \def\tkz@numl{4},
-  symmedian/.code          =  \def\tkz@numl{5},
-  tangent at/.code         = {#1}{\def\tkz@numl{6} \def\tkz@ptat{#1}},
-  tangent from/.code       = {#1}{\def\tkz@numl{7} \def\tkz@ptfrom{#1}},
-  median/.code             =  \def\tkz@numl{8},
-  altitude/.code           = \def\tkz@numl{9},
+  bisector/.code           =  \def\tkz@numline{3},
+  bisector out/.code       =  \def\tkz@numline{4},
+  symmedian/.code          =  \def\tkz@numline{5},
+  altitude/.code           =  \def\tkz@numline{6},
+  euler/.code              =  \def\tkz@numline{7},
+  tangent from/.code       =  \def\tkz@numline{8} \def\tkz@ptfrom{#1},
+  tangent at/.code         =  \def\tkz@numline{9} \def\tkz@ptat{#1},
   K/.code                  =  \def\tkz@koeff{#1},
   K                        =  1,
   normed/.is if            =  tkz@line@normed,
@@ -43,9 +43,9 @@
 \def\tkzDefLine{\pgfutil@ifnextchar[{\tkz@DefLine}{\tkz@DefLine[]}}
 \def\tkz@DefLine[#1](#2){% 
 \begingroup
-\pgfkeys{/tkzDefLine/.cd,K=1}  
-\pgfqkeys{/tkzDefLine}{#1}  
-\ifcase\tkz@numl%
+%\pgfkeys{/tkzdefline/.cd,K=1}  
+\pgfqkeys{/tkzdefline}{#1}  
+\ifcase\tkz@numline%
  % first case 0
  \tkzDefMediatorLine(#2)  
   \or% 1
@@ -58,10 +58,14 @@
   \tkzDefBisectorOutLine(#2)
   \or% 5
   \tkzDefSymmedianLine(#2)
-  \or% 6
-  \tkzTgtAt(#1)(#2)  
+    \or% 6
+  \tkzDefAltitudeLine(#2)
   \or% 7
-  \tkzTgtFromP(#1)(#2)
+   \tkzDefEulerLine(#2)
+   \or% 8
+   \tkzTgtFromP(#2)(\tkz@ptfrom)
+ \or% 9
+   \tkzTgtAt(#2)(\tkz@ptat)
   \fi    
 \endgroup
 }
@@ -194,6 +198,32 @@
 \endgroup
 }
 %<--------------------------------------------------------------------------–>
+%              Altitude Line
+%<--------------------------------------------------------------------------–>
+\def\tkzDefAltitudeLine(#1,#2,#3){%
+\begingroup
+   \pgfinterruptboundingbox
+   \tkzUProjection(#1,#3)(#2)
+   \pgfnodealias{ort@pta}{tkzPointResult}
+   \endpgfinterruptboundingbox  
+\endgroup
+}
+%<--------------------------------------------------------------------------–>
+%              Euler Line
+%<--------------------------------------------------------------------------–>
+\def\tkzDefEulerLine(#1,#2,#3){%
+\begingroup
+  \pgfinterruptboundingbox
+  \tkzOrthoCenter(#1,#2,#3)  
+  \pgfnodealias{euler@pt1}{tkzPointResult}
+   \tkzEulerCenter(#1,#2,#3)  
+   \pgfnodealias{euler@pt2}{tkzPointResult}
+   \pgfnodealias{tkzSecondPointResult}{euler@pt2}
+   \pgfnodealias{tkzFirstPointResult}{euler@pt1}
+   \endpgfinterruptboundingbox  
+\endgroup
+}
+%<--------------------------------------------------------------------------–>
 %    tangente à cercle passant par un point donné
 %<--------------------------------------------------------------------------–>
    
-- 
cgit v1.2.3

