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
|
/*
* File: l_los.cc
* Summary: Lua bindings for LOS.
* Created by: Robert Vollmert
*/
#include "AppHdr.h"
#include "l_libs.h"
#include "cluautil.h"
#include "coord.h"
#include "los.h"
#include "ray.h"
#define RAY_METATABLE "dgn.ray"
void lua_push_ray(lua_State *ls, ray_def *ray)
{
ray_def **rayref = clua_new_userdata<ray_def *>(ls, RAY_METATABLE);
*rayref = ray;
}
LUAFN(los_find_ray)
{
GETCOORD(a, 1, 2, map_bounds);
GETCOORD(b, 3, 4, map_bounds);
ray_def *ray = new ray_def;
// XXX: opc_no_trans to fit with you.see_cell_no_trans
// in findray test case.
if (find_ray(a, b, *ray, opc_no_trans))
{
lua_push_ray(ls, ray);
return (1);
}
delete ray;
return (0);
}
#define VECT(v, p1, p2) \
geom::vector v; \
v.x = luaL_checknumber(ls, p1); \
v.y = luaL_checknumber(ls, p2);
LUAFN(los_make_ray)
{
VECT(s, 1, 2);
VECT(d, 3, 4);
ray_def *ray = new ray_def(geom::ray(s.x, s.y, d.x, d.y));
lua_push_ray(ls, ray);
return (1);
}
LUAFN(los_cell_see_cell)
{
COORDS(p, 1, 2);
COORDS(q, 3, 4);
PLUARET(number, cell_see_cell(p, q));
}
const struct luaL_reg los_dlib[] =
{
{ "findray", los_find_ray },
{ "make_ray", los_make_ray },
{ "cell_see_cell", los_cell_see_cell },
{ NULL, NULL }
};
#define RAY(ls, n, var) \
ray_def *var = *(ray_def **) luaL_checkudata(ls, n, RAY_METATABLE)
LUAFN(ray_start)
{
RAY(ls, 1, ray);
lua_pushnumber(ls, ray->r.start.x);
lua_pushnumber(ls, ray->r.start.y);
return (2);
}
LUAFN(ray_dir)
{
RAY(ls, 1, ray);
lua_pushnumber(ls, ray->r.dir.x);
lua_pushnumber(ls, ray->r.dir.y);
return (2);
}
LUAFN(ray_advance)
{
RAY(ls, 1, ray);
ray->advance();
return (0);
}
LUAFN(ray_pos)
{
RAY(ls, 1, ray);
coord_def p = ray->pos();
lua_pushnumber(ls, p.x);
lua_pushnumber(ls, p.y);
return (2);
}
static const struct luaL_reg ray_dlib[] =
{
{ "start", ray_start },
{ "dir", ray_dir },
{ "advance", ray_advance },
{ "pos", ray_pos },
{ NULL, NULL }
};
void luaopen_ray(lua_State *ls)
{
clua_register_metatable(ls, RAY_METATABLE, ray_dlib, lua_object_gc<ray_def>);
}
|
