From 5d213a11fa35dc5eea7b2b45c009d414cccb88ad Mon Sep 17 00:00:00 2001
From: Yves Rizoud <yrizoud@gmail.com>
Date: Sun, 21 Feb 2010 18:15:15 +0000
Subject: [PATCH] Lua: New clearpicture command

git-svn-id: svn://pulkomandy.tk/GrafX2/trunk@1358 416bcca6-2ee7-4201-b75f-2eb2f807beb1
---
 factory.c | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/factory.c b/factory.c
index f17c3b87..5397b1bc 100644
--- a/factory.c
+++ b/factory.c
@@ -247,6 +247,23 @@ int L_GetPictureSize(lua_State* L)
   return 2;
 }
 
+int L_ClearPicture(lua_State* L)
+{
+  int c;
+  int nb_args=lua_gettop(L);
+  
+  LUA_ARG_LIMIT (1, "clearpicture");
+  LUA_ARG_NUMBER(1, "clearpicture", c, INT_MIN, INT_MAX);
+  
+  if (Stencil_mode && Config.Clear_with_stencil)
+    Clear_current_image_with_stencil(c,Stencil);
+  else
+    Clear_current_image(c);
+  Redraw_layered_image();
+  
+  return 0; // no values returned for lua
+}
+
 int L_PutPicturePixel(lua_State* L)
 {
   int x;
@@ -971,6 +988,7 @@ void Button_Brush_Factory(void)
     lua_register(L,"getsparepicturepixel",L_GetSparePicturePixel);
     lua_register(L,"getsparecolor",L_GetSpareColor);
     lua_register(L,"getsparetranscolor",L_GetSpareTransColor);
+    lua_register(L,"clearpicture",L_ClearPicture);
     
 
     // For debug only