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
|
/*
* File: l_los.cc
* Summary: Lua bindings for LOS.
* Created by: Robert Vollmert
*/
#include "AppHdr.h"
#include "l_los.h"
#include "los.h"
#include "luadgn.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;
if (find_ray(a, b, *ray))
{
lua_push_ray(ls, ray);
return (1);
}
delete ray;
return (0);
}
const struct luaL_reg los_lib[] =
{
{ "findray", los_find_ray },
{ NULL, NULL }
};
#define RAY(ls, n, var) \
ray_def *var = *(ray_def **) luaL_checkudata(ls, n, RAY_METATABLE)
LUAFN(ray_accx)
{
RAY(ls, 1, ray);
lua_pushnumber(ls, ray->accx);
return (1);
}
LUAFN(ray_accy)
{
RAY(ls, 1, ray);
lua_pushnumber(ls, ray->accy);
return (1);
}
LUAFN(ray_slope)
{
RAY(ls, 1, ray);
lua_pushnumber(ls, ray->slope);
return (1);
}
LUAFN(ray_advance)
{
RAY(ls, 1, ray);
lua_pushnumber(ls, ray->advance());
return (1);
}
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_lib[] =
{
{ "accx", ray_accx },
{ "accy", ray_accy },
{ "slope", ray_slope },
{ "advance", ray_advance },
{ "pos", ray_pos },
{ NULL, NULL }
};
void luaopen_ray(lua_State *ls)
{
// luaopen_setmeta(ls, "ray", ray_lib, RAY_METATABLE);
clua_register_metatable(ls, RAY_METATABLE, ray_lib, lua_object_gc<ray_def>);
}
|
