1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
--[[ builtin/vector.lua ]]--
local function wrap(op, body_wrapper, ...)
return load("return function(a, b) " .. body_wrapper(op, ...) .. "end")()
end
local function arith_mt(...)
return {
__add = wrap("+", ...),
__sub = wrap("-", ...),
__mul = wrap("*", ...),
__div = wrap("/", ...),
__mod = wrap("%", ...),
}
end
-- vec2
local mt_vec2 = arith_mt(function(op)
return [[
if type(b) == "number" then
return vec2(a.x ]] .. op.. [[ b, a.y ]] .. op .. [[ b)
else
return vec2(a.x ]] .. op.. [[ b.x, a.y ]] .. op.. [[ b.y)
end
]]
end)
function mt_vec2:__neg()
return vec2(-self.x, -self.y)
end
function mt_vec2:__tostring()
return "(" .. self.x .. ", " .. self.y .. ")"
end
function vec2(a, b)
local o = {}
if type(a) == "number" then
o.x = a
o.y = b or a
else
o.x = a.x
o.y = a.y
end
setmetatable(o, mt_vec2)
return o
end
-- vec3
local mt_vec3 = arith_mt(function(op)
return [[
if type(b) == "number" then
return vec3(a.x ]] .. op.. [[ b, a.y ]] .. op .. [[ b, a.z ]] .. op .. [[ b)
else
return vec3(a.x ]] .. op.. [[ b.x, a.y ]] .. op.. [[ b.y, a.z ]] .. op.. [[ b.z)
end
]]
end)
function mt_vec3:__neg()
return vec3(-self.x, -self.y, -self.z)
end
function mt_vec3:__tostring()
return "(" .. self.x .. ", " .. self.y .. ", " .. self.z .. ")"
end
function vec3(a, b, c)
local o = {}
if type(a) == "number" then
o.x = a
o.y = b or a
o.z = c or a
else
o.x = a.x
o.y = a.y
o.z = a.z
end
setmetatable(o, mt_vec3)
return o
end
-- box
local mt_box = arith_mt(function(op)
return "return box(a.min " .. op .. " b, a.max " .. op .. " b)"
end)
function mt_box:__neg()
return box(-self.min, -self.max)
end
function mt_box:__tostring()
return "[" .. self.min .. "; " .. self.max .. "]"
end
mt_box.__index = {
contains = function(a, b)
if type(b) == "number" or b.x then
return a.min <= b and a.max >= b
else
return a.min <= b.min and a.max >= b.max
end
end,
}
function box(a, b)
local o = {}
if type(a) == "number" or a.x then
o.min = a
o.max = b
else
o.min = a.min
o.max = a.max
end
setmetatable(o, mt_box)
return o
end
|
