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/render_cd.lua | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 html/examples/render_cd.lua

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

diff --git a/html/examples/render_cd.lua b/html/examples/render_cd.lua
new file mode 100644
index 0000000..4af8a16
--- /dev/null
+++ b/html/examples/render_cd.lua
@@ -0,0 +1,19 @@
+require"imlua"
+require"cdlua"
+require"cdluaim"
+
+local image = im.ImageCreate(500, 500, im.RGB, im.BYTE)
+local canvas = image:cdCreateCanvas()  -- Creates a CD_IMAGERGB canvas
+
+canvas:Activate()  
+canvas:Background(cd.EncodeColor(255, 255, 255))
+canvas:Clear()
+fgcolor = cd.EncodeColor(255, 0, 0) -- red
+fgcolor = cd.EncodeAlpha(fgcolor, 50) -- semi transparent
+canvas:Foreground(fgcolor)
+canvas:Font("Times", cd.BOLD, 24)
+canvas:Text(100, 100, "Test")
+canvas:Line(0,0,100,100)
+canvas:Kill()
+
+image:Save("new.bmp", "BMP")
-- 
cgit v1.2.3