summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/tkz/tkz-elements/latex/tkz_elements_functions_circles.lua
diff options
context:
space:
mode:
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.lua11
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