1 --[[ builtin/vector.lua ]]--
3 local function wrap(op, body_wrapper, ...)
4 return load("return function(a, b) " .. body_wrapper(op, ...) .. "end")()
7 local function arith_mt(...)
9 __add = wrap("+", ...),
10 __sub = wrap("-", ...),
11 __mul = wrap("*", ...),
12 __div = wrap("/", ...),
13 __mod = wrap("%", ...),
19 local mt_vec2 = arith_mt(function(op)
21 if type(b) == "number" then
22 return vec2(a.x ]] .. op.. [[ b, a.y ]] .. op .. [[ b)
24 return vec2(a.x ]] .. op.. [[ b.x, a.y ]] .. op.. [[ b.y)
29 function mt_vec2:__neg()
30 return vec2(-self.x, -self.y)
33 function mt_vec2:__tostring()
34 return "(" .. self.x .. ", " .. self.y .. ")"
40 if type(a) == "number" then
48 setmetatable(o, mt_vec2)
54 local mt_vec3 = arith_mt(function(op)
56 if type(b) == "number" then
57 return vec3(a.x ]] .. op.. [[ b, a.y ]] .. op .. [[ b, a.z ]] .. op .. [[ b)
59 return vec3(a.x ]] .. op.. [[ b.x, a.y ]] .. op.. [[ b.y, a.z ]] .. op.. [[ b.z)
64 function mt_vec3:__neg()
65 return vec3(-self.x, -self.y, -self.z)
68 function mt_vec3:__tostring()
69 return "(" .. self.x .. ", " .. self.y .. ", " .. self.z .. ")"
72 function vec3(a, b, c)
75 if type(a) == "number" then
85 setmetatable(o, mt_vec3)
91 local mt_box = arith_mt(function(op)
92 return "return box(a.min " .. op .. " b, a.max " .. op .. " b)"
95 function mt_box:__neg()
96 return box(-self.min, -self.max)
99 function mt_box:__tostring()
100 return "[" .. self.min .. "; " .. self.max .. "]"
104 contains = function(a, b)
105 if type(b) == "number" or b.x then
106 return a.min <= b and a.max >= b
108 return a.min <= b.min and a.max >= b.max
116 if type(a) == "number" or a.x then
124 setmetatable(o, mt_box)