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
|
#include "lua/modules/luax.h"
#include "lua/modules/types.h"
#include "lua/common/common.h"
#include "libjin/jin.h"
namespace jin
{
namespace lua
{
using namespace jin::graphics;
typedef Ref<Bitmap>& BitmapRef;
static inline BitmapRef checkBitmap(lua_State* L)
{
Proxy* proxy = (Proxy*)luax_checktype(L, 1, JIN_GRAPHICS_BITMAP);
return proxy->getRef<Bitmap>();
}
static int l_gc(lua_State* L)
{
BitmapRef ref = checkBitmap(L);
ref.release();
return 0;
}
static int l_getWidth(lua_State* L)
{
BitmapRef ref = checkBitmap(L);
int w = ref->getWidth();
luax_pushinteger(L, w);
return 1;
}
static int l_getHeight(lua_State* L)
{
BitmapRef ref = checkBitmap(L);
int h = ref->getHeight();
luax_pushinteger(L, h);
return 1;
}
static int l_getSize(lua_State* L)
{
BitmapRef ref = checkBitmap(L);
int w = ref->getWidth();
int h = ref->getHeight();
luax_pushinteger(L, w);
luax_pushinteger(L, h);
return 2;
}
static int l_getPixel(lua_State* L)
{
BitmapRef ref = checkBitmap(L);
int x = luax_checkinteger(L, 2);
int y = luax_checkinteger(L, 3);
Color col = ref->getPixel(x, y);
luax_pushinteger(L, col.r);
luax_pushinteger(L, col.g);
luax_pushinteger(L, col.b);
luax_pushinteger(L, col.a);
return 4;
}
static int l_setPixel(lua_State* L)
{
BitmapRef ref = checkBitmap(L);
int x = luax_checkinteger(L, 2);
int y = luax_checkinteger(L, 3);
if (!luax_istable(L, 4))
{
luax_typerror(L, 4, "table");
return 1;
}
unsigned int r = luax_rawgetnumber(L, 4, 1);
unsigned int g = luax_rawgetnumber(L, 4, 2);
unsigned int b = luax_rawgetnumber(L, 4, 3);
unsigned int a = luax_rawgetnumber(L, 4, 4);
ref->setPixel(Color(r, g, b, a), x, y);
return 0;
}
static int l_clone(lua_State* L)
{
BitmapRef ref = checkBitmap(L);
Bitmap* bitmap = ref.getObject();
Bitmap* b = Bitmap::clone(bitmap);
Proxy* proxy = (Proxy*)luax_newinstance(L, JIN_GRAPHICS_BITMAP, sizeof(Proxy));
proxy->bind(new Ref<Bitmap>(b, JIN_GRAPHICS_BITMAP));
return 1;
}
static const luaL_Reg f[] = {
{ "__gc", l_gc },
{ "getWidth", l_getWidth },
{ "getHeight", l_getHeight },
{ "getSize", l_getSize },
{ "getPixel", l_getPixel },
{ "setPixel", l_setPixel },
{ "clone", l_clone },
{ 0, 0 }
};
int luaopen_Bitmap(lua_State* L)
{
luax_newtype(L, JIN_GRAPHICS_BITMAP, f);
return 0;
}
} // graphics
} // jin
|
