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
|
/** \file
* \brief Bindig of iupgl to Lua 3.
*
* See Copyright Notice in "iup.h"
*/
#include <stdlib.h>
#include <lua.h>
#include <lauxlib.h>
#include "iup.h"
#include "iupgl.h"
#include "iuplua.h"
#include "iupluagl.h"
#include "il.h"
#ifdef _WIN32
#include <windows.h>
#endif
#include <GL/gl.h>
static void createglcanvas(void)
{
int tag = (int)lua_getnumber(lua_getglobal("iuplua_tag"));
lua_pushusertag(IupGLCanvas(NULL), tag);
}
static void iscurrent(void)
{
lua_pushnumber(IupGLIsCurrent(iuplua_checkihandle(1)));
}
static void makecurrent(void)
{
IupGLMakeCurrent(iuplua_checkihandle(1));
iuplua_regstring_mask((char*)glGetString(GL_VENDOR), "IUPGL_VENDOR");
iuplua_regstring_mask((char*)glGetString(GL_RENDERER), "IUPGL_RENDERER");
iuplua_regstring_mask((char*)glGetString(GL_VERSION), "IUPGL_VERSION");
}
static void swapbuffers(void)
{
IupGLSwapBuffers(iuplua_checkihandle(1));
}
static void palette(void)
{
IupGLPalette(iuplua_checkihandle(1),
luaL_check_int(2),
(float)luaL_check_number(3),
(float)luaL_check_number(4),
(float)luaL_check_number(5));
}
static void usefont(void)
{
IupGLUseFont(iuplua_checkihandle(1),
luaL_check_int(2),
luaL_check_int(3),
luaL_check_int(4));
}
static void glwait(void)
{
IupGLWait(luaL_check_int(1));
}
int iupgllua_open (void)
{
iuplua_register("iupCreateGLCanvas",createglcanvas);
iuplua_register("IupGLMakeCurrent",makecurrent);
iuplua_register("IupGLIsCurrent",iscurrent);
iuplua_register("IupGLSwapBuffers",swapbuffers);
iuplua_register("IupGLPalette",palette);
iuplua_register("IupGLUseFont",usefont);
iuplua_register("IupGLWait",glwait);
iuplua_regstring("BUFFER", "IUP_BUFFER");
iuplua_regstring("STEREO", "IUP_STEREO");
iuplua_regstring("COLOR", "IUP_COLOR");
iuplua_regstring("BUFFER_SIZE", "IUP_BUFFER_SIZE");
iuplua_regstring("RED_SIZE", "IUP_RED_SIZE");
iuplua_regstring("GREEN_SIZE", "IUP_GREEN_SIZE");
iuplua_regstring("BLUE_SIZE", "IUP_BLUE_SIZE");
iuplua_regstring("ALPHA_SIZE", "IUP_ALPHA_SIZE");
iuplua_regstring("DEPTH_SIZE", "IUP_DEPTH_SIZE");
iuplua_regstring("STENCIL_SIZE", "IUP_STENCIL_SIZE");
iuplua_regstring("ACCUM_RED_SIZE", "IUP_ACCUM_RED_SIZE");
iuplua_regstring("ACCUM_GREEN_SIZE", "IUP_ACCUM_GREEN_SIZE");
iuplua_regstring("ACCUM_BLUE_SIZE", "IUP_ACCUM_BLUE_SIZE");
iuplua_regstring("ACCUM_ALPHA_SIZE", "IUP_ACCUM_ALPHA_SIZE");
iuplua_regstring("DOUBLE", "IUP_DOUBLE");
iuplua_regstring("SINGLE", "IUP_SINGLE");
iuplua_regstring("INDEX", "IUP_INDEX");
iuplua_regstring("RGBA", "IUP_RGBA");
iuplua_regstring("YES", "IUP_YES");
iuplua_regstring("NO", "IUP_NO");
return lua_dostring("IUPGLCANVAS = {parent = IUPCANVAS}\n"
"function IUPGLCANVAS:CreateIUPelement (obj)\n"
" return iupCreateGLCanvas ()\n"
"end\n"
"function iupglcanvas (o)\n"
" return IUPGLCANVAS:Constructor (o)\n"
"end\n"
"iup.glcanvas = iupglcanvas\n"
"iup_callbacks.action.glcanvas = iup_action_canvas\n");
}
|
