1 files changed, 112 insertions, 0 deletions
diff --git a/iup/srclua3/iuplua_glcanvas.c b/iup/srclua3/iuplua_glcanvas.c
new file mode 100755
index 0000000..57f696b
--- /dev/null
+++ b/iup/srclua3/iuplua_glcanvas.c
@@ -0,0 +1,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");
+}