From 193cd3427108bd127e09f391f7fe51f6b62590e9 Mon Sep 17 00:00:00 2001
From: scuri <scuri>
Date: Fri, 26 Jun 2009 17:14:56 +0000
Subject: *** empty log message ***

---
 html/examples/screencapture.lua | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 html/examples/screencapture.lua

(limited to 'html/examples/screencapture.lua')

diff --git a/html/examples/screencapture.lua b/html/examples/screencapture.lua
new file mode 100644
index 0000000..16eb94e
--- /dev/null
+++ b/html/examples/screencapture.lua
@@ -0,0 +1,13 @@
+require"imlua"
+require"cdlua"
+require"cdluaim"
+
+local canvas = cd.CreateCanvas(cd.NATIVEWINDOW, nil)
+canvas:Activate()
+local w, h = canvas:GetSize()
+local image = im.ImageCreate(w, h, im.RGB, im.BYTE)    
+image:cdCanvasGetImage(canvas, 0, 0)
+error = image:Save("screencapture.jpg", "JPEG")
+image:Destroy()        
+if (error) then print("error = "..error) end
+
-- 
cgit v1.2.3