diff options
Diffstat (limited to 'macros/latex/contrib/tkz/tkz-euclide/latex/tools-lua/tkz-tools-eu-lua-angles.tex')
-rw-r--r-- | macros/latex/contrib/tkz/tkz-euclide/latex/tools-lua/tkz-tools-eu-lua-angles.tex | 23 |
1 files changed, 18 insertions, 5 deletions
diff --git a/macros/latex/contrib/tkz/tkz-euclide/latex/tools-lua/tkz-tools-eu-lua-angles.tex b/macros/latex/contrib/tkz/tkz-euclide/latex/tools-lua/tkz-tools-eu-lua-angles.tex index 8005ed1933..6f54bb5ca3 100644 --- a/macros/latex/contrib/tkz/tkz-euclide/latex/tools-lua/tkz-tools-eu-lua-angles.tex +++ b/macros/latex/contrib/tkz/tkz-euclide/latex/tools-lua/tkz-tools-eu-lua-angles.tex @@ -10,9 +10,9 @@ % This work has the LPPL maintenance status “maintained”. % The Current Maintainer of this work is Alain Matthes. -\def\fileversion{5.06c} -\def\filedate{2024/02/04} -\typeout{2024/02/04 5.06c tkz-tools-lua-angles.tex} +\def\fileversion{5.10c} +\def\filedate{2024/04/19} +\typeout{2024/04/19 5.10c tkz-tools-lua-angles.tex} \makeatletter \def\tkzmathrotatepointaround#1#2#3{% \pgf@process{% @@ -75,8 +75,20 @@ token.set_macro("tkz@SecondAngle", angleB) %<--------------------------------------------------------------------------–> \def\tkzFindSlopeAngle(#1,#2){% \begingroup - \tkzmathanglebetweenpoints{#1}{#2} - \global\let\tkzAngleResult\pgfmathresult +\pgfextractx{\pgf@x}{\pgfpointanchor{#1}{center}}% +\pgfextracty{\pgf@y}{\pgfpointanchor{#1}{center}}% +\edef\tkzax{\strip@pt\pgf@x}% +\edef\tkzay{\strip@pt\pgf@y}% +\pgfextractx{\pgf@x}{\pgfpointanchor{#2}{center}}% +\pgfextracty{\pgf@y}{\pgfpointanchor{#2}{center}}% +\edef\tkzbx{\strip@pt\pgf@x}% +\edef\tkzby{\strip@pt\pgf@y}% + % \tkzmathanglebetweenpoints{#1}{#2} + % \global\let\tkzAngleResult\pgfmathresult +\directlua{ local an = math.angle(\tkzax,\tkzay,\tkzbx,\tkzby) + token.set_macro("tkzAngleResult", an ) + } + \global\let\tkzAngleResult\tkzAngleResult \endgroup } %<--------------------------------------------------------------------------–> @@ -98,5 +110,6 @@ token.set_macro("tkz@SecondAngle", angleB) \def\tkzGetAngle#1{% \global\expandafter\edef\csname #1\endcsname{\tkzAngleResult} } + \makeatother \endinput
\ No newline at end of file |