summaryrefslogtreecommitdiff
path: root/html
diff options
context:
space:
mode:
Diffstat (limited to 'html')
-rw-r--r--html/examples/multitest.lua71
1 files changed, 71 insertions, 0 deletions
diff --git a/html/examples/multitest.lua b/html/examples/multitest.lua
new file mode 100644
index 0000000..8fb8542
--- /dev/null
+++ b/html/examples/multitest.lua
@@ -0,0 +1,71 @@
+-- Enhanced from a script written by Wim Langers
+
+require'cdlua'
+require'iuplua'
+require'iupluacd'
+require'cdluapdf'
+
+function DrawInCanvas(canvas)
+ -- If you want that your coordinates means the same thing independent from the driver
+ -- then set the Window to be the your "world" coordinate system
+ canvas:wWindow(0, 50, 0, 50)
+
+ -- The you just have to choose how this "world" will be showed in the canvas by setting the Viewport
+ -- Since you set a square world, set a square Viewport to keep the aspect ratio
+ local width, height = canvas:GetSize()
+ local square_size = width
+ if (width > height) then square_size = height end
+ canvas:wViewport(0, square_size, 0, square_size)
+
+ -- The file drivers will have the same size all the time, but the dialog you can change its size
+ -- since this is dinamically changed, the drawing will scale on screen when the dialog is resized
+ -- if you do not want that, you can set wWindow and wViewport in another place in the code
+
+ canvas:Foreground(cd.BLACK)
+ canvas:TextAlignment(cd.CENTER)
+ canvas:TextOrientation(0)
+
+ -- size in mm actually do not depend on the transformation
+ canvas:wFont('Courier', cd.BOLD, 3) -- size in mm
+ canvas:wLineWidth(0.25) -- size in mm
+
+ canvas:wRect(10,10 + 8,10 + 1,10 + 7)
+ canvas:wText(10 + 2,10 + 2,'S')
+ canvas:wText(10 + 2,10 + 5,'R')
+ canvas:wText(10 + 6,10 + 5,'Q')
+ canvas:wArc(10 + 9,10 + 2,2,2,0,360)
+ canvas:wSector(20,20,2,2,0,360)
+end
+
+-- PS
+canvas = cd.CreateCanvas(cd.PS,'test.ps -l0 -r0 -b0 -t0 -o') -- no margins, landscape as a rotation, default size A4, 300 DPI
+DrawInCanvas(canvas)
+cd.KillCanvas(canvas)
+
+-- PDF
+canvas = cd.CreateCanvas(cd.PDF,'test.pdf -o') -- landscape as just a swith between w and h, default size A4, 300 DPI
+DrawInCanvas(canvas)
+cd.KillCanvas(canvas)
+
+-- SVG
+canvas = cd.CreateCanvas(cd.SVG,'test.svg 50x50') -- size in mm, 96 DPI
+DrawInCanvas(canvas)
+cd.KillCanvas(canvas)
+
+
+
+-- Screen
+iupCanvas = iup.canvas{scrollbar = 'yes'}
+dlg = iup.dialog{iupCanvas, title="Canvas Test", size="100x100"}
+function iupCanvas:map_cb()
+ canvas = cd.CreateCanvas(cd.IUP,self) -- store the CD canvas in a IUP attribute
+end
+
+function iupCanvas:action()
+ canvas:Activate()
+ canvas:Clear()
+ DrawInCanvas(canvas)
+end
+
+dlg:show()
+iup.MainLoop()