diff options
Diffstat (limited to 'macros/latex/contrib/tkz/tkz-elements/latex/tkz_elements_line.lua')
-rw-r--r-- | macros/latex/contrib/tkz/tkz-elements/latex/tkz_elements_line.lua | 19 |
1 files changed, 16 insertions, 3 deletions
diff --git a/macros/latex/contrib/tkz/tkz-elements/latex/tkz_elements_line.lua b/macros/latex/contrib/tkz/tkz-elements/latex/tkz_elements_line.lua index 2ea0c1fa84..1143659bfb 100644 --- a/macros/latex/contrib/tkz/tkz-elements/latex/tkz_elements_line.lua +++ b/macros/latex/contrib/tkz/tkz-elements/latex/tkz_elements_line.lua @@ -1,6 +1,6 @@ -- tkz_elements_lines.lua --- date 23/12/14 --- version 1.60c +-- date 23/12/24 +-- version 1.72c -- Copyright 2023 Alain Matthes -- This work may be distributed and/or modified under the -- conditions of the LaTeX Project Public License, either version 1.3 @@ -268,7 +268,7 @@ end function line: mediator () local m m = midpoint_ (self.pa,self.pb) - return line : new (m,rotation_ (m,math.pi/2,self.pb)) + return line : new (rotation_ (m,-math.pi/2,self.pb),rotation_ (m,math.pi/2,self.pb)) end ------------------- -- Result -> circle @@ -281,6 +281,19 @@ function line: circle_swap () return circle : new (self.pb,self.pa) end +function line : diameter () + local c = midpoint_ (self.pa,self.pb) + return circle : new (c,self.pb) +end + +function line : apollonius (k) + local z1,z2,c + z1 = barycenter_ ({self.pa,1},{self.pb,k}) + z2 = barycenter_ ({self.pa,1},{self.pb,-k}) + c = midpoint_ (z1,z2) + return circle : new (c,z2) +end + ---------------------- -- Result -> triangle ---------------------- |