% tkz-tools-angles.tex % Copyright 2022 Alain Matthes % This work may be distributed and/or modified under the % conditions of the LaTeX Project Public License, either version 1.3 % of this license or (at your option) any later version. % The latest version of this license is in % http://www.latex-project.org/lppl.txt % and version 1.3 or later is part of all distributions of LaTeX % version 2005/12/01 or later. % This work has the LPPL maintenance status “maintained”. % The Current Maintainer of this work is Alain Matthes. \def\fileversion{4.25c} \def\filedate{2022/09/23} \typeout{2022/09/23 4.25c tkz-tools-eu-angles.tex} \makeatletter %<--------------------------------------------------------------------------–> %<--------------------------------------------------------------------------–> % thanks karu : http://tex.stackexchange.com/questions/151667/tkzgetangle-strange-behavior/196224#196224 % \tkzGetAngle strange behavior % defines \tkz@FirstAngle and \tkz@SecondAngle sens trigo %<--------------------------------------------------------------------------–> \def\tkzNormalizeAngle(#1,#2){% \begingroup \pgfmathparse{#1}\xdef\tkz@FirstAngle{\pgfmathresult}% \pgfmathparse{#2}\xdef\tkz@SecondAngle{\pgfmathresult}% \pgfmathgreaterthan{\tkz@FirstAngle}{0} \ifdim\pgfmathresult pt=1 pt\relax% \pgfmathgreaterthan{\tkz@FirstAngle}{\tkz@SecondAngle} \ifdim\pgfmathresult pt=1 pt\relax% \pgfmathsubtract{\tkz@FirstAngle}{360} \xdef\tkz@FirstAngle{\pgfmathresult}% \fi \else \pgfmathgreaterthan{\tkz@FirstAngle}{\tkz@SecondAngle} \ifdim\pgfmathresult pt=1 pt\relax% \pgfmathadd{\tkz@SecondAngle}{360} \xdef\tkz@SecondAngle{\pgfmathresult}% \fi \fi \endgroup } %<--------------------------------------------------------------------------–> % Angle % Recherche l'angle formé par #1 et #2 par rapport à l'horizontale %<--------------------------------------------------------------------------–> \def\tkzFindSlopeAngle(#1,#2){% \begingroup \pgfmathanglebetweenpoints{\pgfpointanchor{#1}{center}}{% \pgfpointanchor{#2}{center}} \global\let\tkzAngleResult\pgfmathresult \endgroup } %<--------------------------------------------------------------------------–> % Angle avec trois nodes %<--------------------------------------------------------------------------–> \def\tkzFindAngle(#1,#2,#3){% new code 2016 \begingroup \tkzFindSlopeAngle(#2,#1)\tkzGetAngle{tkz@FirstAngle} \tkzFindSlopeAngle(#2,#3)\tkzGetAngle{tkz@SecondAngle} \tkzNormalizeAngle(\tkz@FirstAngle,\tkz@SecondAngle) \edef\tkz@Angle{\fpeval{\tkz@SecondAngle-\tkz@FirstAngle}} \global\let\tkzAngleResult\tkz@Angle \endgroup } %<--------------------------------------------------------------------------–> % Find angle %<--------------------------------------------------------------------------–> \def\tkzGetAngle#1{% \global\expandafter\edef\csname #1\endcsname{\tkzAngleResult} } \makeatother \endinput