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
|
#include <stdio.h>
#include <stdlib.h>
#include <vector>
#include <memory>
#include <map>
#include <functional>
extern "C" {
#include <lua.h>
#include <lauxlib.h>
#include <lualib.h>
}
#include <irrlicht.h>
#include "../gameparts.hpp"
#include "ilight.hpp"
#include "igeneric.hpp"
#include <shared/lua_api/common.hpp>
using namespace irr;
using namespace video;
using namespace scene;
using namespace core;
extern IrrlichtDevice* device;
//{} :: scene.newlight(radius, {v3 position})
static int newiscenelight(lua_State* L){
printf("Createing light!\n");
double x,y,z;
popvector3d(L,&x,&y,&z);//radius
double radius = lua_tonumber(L,-1);
lua_pop(L,1);//
//Create the mesh
ISceneManager* smgr = device->getSceneManager();
ILightSceneNode* light = smgr->addLightSceneNode(0,vector3df(x,y,z),video::SColor(1.0f,1.0f,1.0f,1.0f),(f32)radius,(s32)-1);
//Create it's lua representation
lua_newtable(L);//{}
lua_pushlightuserdata(L,light);
lua_setfield(L,-2,"node");
//Set it's metatable
luaL_getmetatable(L, "scene.imesh");
lua_setmetatable(L, -2);
return 1;
}
//settype(self,const)
int settype(lua_State *L){
video::E_LIGHT_TYPE type = (video::E_LIGHT_TYPE)lua_tonumber(L,-1);//self,type
lua_pop(L,1);//self
lua_getfield(L,-1,"node");//self,ud_ILightSceneNode
ILightSceneNode *light = (ILightSceneNode*)lua_touserdata(L,-1);
lua_pop(L,2);//
light->setLightType(type);
return 0;
}
static const luaL_reg ilight_m[] = {
{"getpos", iscenegetpos},
{"setpos", iscenesetpos},
{"settype", settype},
{0, 0},
};
void ilight_register(lua_State* L){
lua_getglobal(L,"scene");//{scene}
lua_pushcfunction(L,newiscenelight);//{scene},newiscenelight()
lua_setfield(L,-2,"newlight");//{scene}
set_const(L,ELT_POINT);
set_const(L,ELT_SPOT);
set_const(L,ELT_DIRECTIONAL);
lua_pop(L,1);//
luaL_newmetatable(L,"scene.ilight");//scene.ilight
lua_newtable(L);//scene.ilight,{}
luaL_register(L, NULL, ilight_m);//scene.ilight,{}
lua_setfield(L,-2,"__index");//scene.ilight
lua_pop(L,1);
}
|
