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
|
#include "common/je_lua_common.h"
#include "common/je_lua_object.h"
#include "libjin/jin.h"
#include "je_lua_bitmap.h"
using namespace JinEngine::Graphics;
namespace JinEngine
{
namespace Lua
{
const char* Jin_Lua_Bitmap = "Bitmap";
LUA_IMPLEMENT inline Bitmap* checkBitmap(lua_State* L)
{
LuaObject* luaObj = luax_checkobject(L, 1, Jin_Lua_Bitmap);
return luaObj->getObject<Bitmap>();
}
LUA_IMPLEMENT int l_gc(lua_State* L)
{
LuaObject* luaObj = (LuaObject*)luax_checktype(L, 1, Jin_Lua_Bitmap);
luaObj->release();
return 0;
}
LUA_IMPLEMENT int l_getWidth(lua_State* L)
{
Bitmap* bitmap = checkBitmap(L);
int w = bitmap->getWidth();
luax_pushinteger(L, w);
return 1;
}
LUA_IMPLEMENT int l_getHeight(lua_State* L)
{
Bitmap* bitmap = checkBitmap(L);
int h = bitmap->getHeight();
luax_pushinteger(L, h);
return 1;
}
LUA_IMPLEMENT int l_getSize(lua_State* L)
{
Bitmap* bitmap = checkBitmap(L);
int w = bitmap->getWidth();
int h = bitmap->getHeight();
luax_pushinteger(L, w);
luax_pushinteger(L, h);
return 2;
}
LUA_IMPLEMENT int l_getPixel(lua_State* L)
{
Bitmap* bitmap = checkBitmap(L);
int x = luax_checkinteger(L, 2);
int y = luax_checkinteger(L, 3);
Color col = bitmap->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;
}
LUA_IMPLEMENT int l_setPixel(lua_State* L)
{
Bitmap* bitmap = 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);
bitmap->setPixel(Color(r, g, b, a), x, y);
return 0;
}
LUA_IMPLEMENT int l_clone(lua_State* L)
{
Bitmap* bitmap = checkBitmap(L);
Bitmap* b = bitmap->clone();
LuaObject* luaObj = luax_newinstance(L, Jin_Lua_Bitmap, new Shared(b));
return 1;
}
LUA_EXPORT void luaopen_Bitmap(lua_State* L)
{
luaL_Reg methods[] = {
{ "__gc", l_gc },
{ "getWidth", l_getWidth },
{ "getHeight", l_getHeight },
{ "getSize", l_getSize },
{ "getPixel", l_getPixel },
{ "setPixel", l_setPixel },
{ "clone", l_clone },
{ 0, 0 }
};
luax_newtype(L, Jin_Lua_Bitmap, methods);
}
} // namespace Graphics
} // namespace JinEngine
|
