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