diff options
Diffstat (limited to 'macros/latex/contrib/tkz/tkz-elements/latex/tkz_elements_circle.lua')
-rw-r--r-- | macros/latex/contrib/tkz/tkz-elements/latex/tkz_elements_circle.lua | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/macros/latex/contrib/tkz/tkz-elements/latex/tkz_elements_circle.lua b/macros/latex/contrib/tkz/tkz-elements/latex/tkz_elements_circle.lua index e22e3eefd0..708e7b7af3 100644 --- a/macros/latex/contrib/tkz/tkz-elements/latex/tkz_elements_circle.lua +++ b/macros/latex/contrib/tkz/tkz-elements/latex/tkz_elements_circle.lua @@ -1,6 +1,6 @@ -- tkz_elements-circles.lua --- date 2024/02/04 --- version 2.00c +-- date 2024/03/25 +-- version 2.20c -- 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 @@ -82,9 +82,9 @@ end -- real -- ----------------------- function circle: power (pt) - local d + local d d = point.abs (self.center - pt) - return d * d - self.radius * self.radius + return d * d - self.radius * self.radius end ----------------------- -- points -- @@ -140,7 +140,7 @@ function circle: tangent_from (pt) t1,t2 = tangent_from_ (self.center,self.through,pt) return line :new (pt,t1),line : new (pt,t2) end - -- version 1.80 + function circle: radical_axis (C) local t1,t2 if self.radius > C.radius then @@ -151,7 +151,6 @@ function circle: tangent_from (pt) return line :new (t1,t2) end - -- version 1.80 function circle: radical_center (C1,C2) if C2 == nil then if self.radius > C1.radius then @@ -163,7 +162,7 @@ else return radical_center3 (self,C1,C2) end end - -- version 1.80 + function circle : radical_circle (C1,C2) local rc if C2 == nil then |