summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/tkz/tkz-elements/latex/tkz_elements_functions_maths.lua
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/tkz/tkz-elements/latex/tkz_elements_functions_maths.lua')
-rw-r--r--macros/latex/contrib/tkz/tkz-elements/latex/tkz_elements_functions_maths.lua25
1 files changed, 12 insertions, 13 deletions
diff --git a/macros/latex/contrib/tkz/tkz-elements/latex/tkz_elements_functions_maths.lua b/macros/latex/contrib/tkz/tkz-elements/latex/tkz_elements_functions_maths.lua
index f38458e1f1..fd030de8c1 100644
--- a/macros/latex/contrib/tkz/tkz-elements/latex/tkz_elements_functions_maths.lua
+++ b/macros/latex/contrib/tkz/tkz-elements/latex/tkz_elements_functions_maths.lua
@@ -1,6 +1,6 @@
-- tkz_elements_functions_maths.lua
--- date 2023/11/10
--- version 1.20b
+-- date 23/12/03
+-- version 1.40c
-- 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
@@ -64,11 +64,11 @@ function islinear (z1,z2,z3)
end
function isortho (z1,z2,z3)
- local epsilon
- local dp
- epsilon = 10^(-8)
- dp = (z2-z1) .. (z3-z1)
- if math.abs(dp) < epsilon
+ local epsilon
+ local dp
+ epsilon = 10^(-8)
+ dp = (z2-z1) .. (z3-z1)
+ if math.abs(dp) < epsilon
then
return true
else
@@ -76,11 +76,6 @@ function isortho (z1,z2,z3)
end
end
-function set_lua_to_tex (t)
- for k,v in pairs(t) do
- token.set_macro(v,_ENV[v],'global')
- end
-end
function parabola (a,b,c)
local xa,xb,xc,ya,yb,yc
@@ -124,4 +119,8 @@ local dblpi
a = a + dblpi
end
return a
-end \ No newline at end of file
+end
+
+function barycenter (...)
+ return barycenter_ (...)
+end