From 5a422aba704c375a307a902bafe658342e209906 Mon Sep 17 00:00:00 2001
From: scuri <scuri>
Date: Fri, 17 Oct 2008 06:10:15 +0000
Subject: First commit - moving from LuaForge to SourceForge

---
 src/lua5/imlua_convert.c | 79 ++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 79 insertions(+)
 create mode 100644 src/lua5/imlua_convert.c

(limited to 'src/lua5/imlua_convert.c')

diff --git a/src/lua5/imlua_convert.c b/src/lua5/imlua_convert.c
new file mode 100644
index 0000000..5ec73c9
--- /dev/null
+++ b/src/lua5/imlua_convert.c
@@ -0,0 +1,79 @@
+/** \file
+ * \brief IM Lua 5 Binding
+ *
+ * See Copyright Notice in im_lib.h
+ * $Id: imlua_convert.c,v 1.1 2008/10/17 06:16:32 scuri Exp $
+ */
+
+#include "im.h"
+#include "im_image.h"
+#include "im_convert.h"
+
+#include <lua.h>
+#include <lauxlib.h>
+
+#include "imlua.h"
+#include "imlua_image.h"
+#include "imlua_aux.h"
+
+/*****************************************************************************\
+ im.ConvertDataType(src_image, dst_image, cpx2real, gamma, abssolute, cast_mode)
+\*****************************************************************************/
+static int imluaConvertDataType (lua_State *L)
+{
+  imImage* src_image = imlua_checkimage(L, 1);
+  imImage* dst_image = imlua_checkimage(L, 2);
+  int cpx2real = luaL_checkint(L, 3);
+  float gamma = (float) luaL_checknumber(L, 4);
+  int abssolute = luaL_checkint(L, 5);
+  int cast_mode = luaL_checkint(L, 6);
+
+  imlua_matchcolorspace(L, src_image, dst_image);
+  imlua_pusherror(L, imConvertDataType(src_image, dst_image, cpx2real, gamma, abssolute, cast_mode));
+  return 1;
+}
+
+/*****************************************************************************\
+ im.ConvertColorSpace(src_image, dst_image)
+\*****************************************************************************/
+static int imluaConvertColorSpace (lua_State *L)
+{
+  imImage* src_image = imlua_checkimage(L, 1);
+  imImage* dst_image = imlua_checkimage(L, 2);
+
+  imlua_matchdatatype(L, src_image, dst_image);
+  imlua_pusherror(L, imConvertColorSpace(src_image, dst_image));
+  return 1;
+}
+
+/*****************************************************************************\
+ im.ConvertToBitmap(src_image, dst_image, cpx2real, gamma, abssolute, cast_mode)
+\*****************************************************************************/
+static int imluaConvertToBitmap (lua_State *L)
+{
+  imImage* src_image = imlua_checkimage(L, 1);
+  imImage* dst_image = imlua_checkimage(L, 2);
+  int cpx2real = luaL_checkint(L, 3);
+  float gamma = (float) luaL_checknumber(L, 4);
+  int abssolute = luaL_checkint(L, 5);
+  int cast_mode = luaL_checkint(L, 6);
+
+  imlua_matchsize(L, src_image, dst_image);
+  imlua_matchcheck(L, imImageIsBitmap(dst_image), "image must be a bitmap");
+
+  imlua_pusherror(L, imConvertToBitmap(src_image, dst_image, cpx2real, gamma, abssolute, cast_mode));
+  return 1;
+}
+
+static const luaL_reg imconvert_lib[] = {
+  {"ConvertDataType", imluaConvertDataType},
+  {"ConvertColorSpace", imluaConvertColorSpace},
+  {"ConvertToBitmap", imluaConvertToBitmap},
+  {NULL, NULL}
+};
+
+void imlua_open_convert (lua_State *L)
+{
+  /* "im" table is at the top of the stack */
+  luaL_register(L, NULL, imconvert_lib);
+}
-- 
cgit v1.2.3