diff options
Diffstat (limited to 'macros/latex/contrib/tkz/tkz-elements/latex/tkz_elements_functions_circles.lua')
-rw-r--r-- | macros/latex/contrib/tkz/tkz-elements/latex/tkz_elements_functions_circles.lua | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/macros/latex/contrib/tkz/tkz-elements/latex/tkz_elements_functions_circles.lua b/macros/latex/contrib/tkz/tkz-elements/latex/tkz_elements_functions_circles.lua index 33477340d3..fe72c68c27 100644 --- a/macros/latex/contrib/tkz/tkz-elements/latex/tkz_elements_functions_circles.lua +++ b/macros/latex/contrib/tkz/tkz-elements/latex/tkz_elements_functions_circles.lua @@ -1,6 +1,6 @@ -- tkz_elements_functions_circles.lua --- date 2024/01/16 --- version 1.82c +-- date 2024/02/04 +-- version 2.00c -- Copyright 2024 Alain Matthes -- This work may be distributed and/or modified under the -- conditions of the LaTeX Project Public License, either version 1.3 @@ -53,14 +53,13 @@ function inversion_ (c,p,pt) end function circles_position_ (c1,r1,c2,r2) - local d,max,min,epsilon - epsilon = 10^(-12) + local d,max,min d = point.mod(c1-c2) max = r1+r2 min = math.abs ( r1 - r2) if d > max then return "outside" - elseif math.abs(d - max) < epsilon then return "outside tangent" -- epsilon - elseif math.abs(d - min) < epsilon then return "inside tangent" -- epsilon + elseif math.abs(d - max) < tkz_epsilon then return "outside tangent" -- epsilon + elseif math.abs(d - min) < tkz_epsilon then return "inside tangent" -- epsilon elseif d < min then return "inside" else return "intersect" end |