Screenshots Lua Source Code

Get the source code here: simpledraw.lua.

 

function SimpleDraw()

-- Get size in pixels to be used for computing coordinates.

w, h = canvas:GetSize()

-- Clear the background to be white

canvas:Background(cd.WHITE)

canvas:Clear()

 

-- Draw a reactangle and a polyline at the bottom-left area,

-- using a thick line with transparency.

-- Notice that transparency is only supported in a few drivers,

-- and line join is not supported in the IMAGERGB driver.

canvas:LineWidth(3)

canvas:LineStyle(cd.CONTINUOUS)

canvas:Foreground(cd.EncodeAlpha(cd.DARK_MAGENTA, 128))

canvas:Rect(100, 200, 100, 200)

canvas:Begin(cd.OPEN_LINES)

canvas:Vertex(300, 250)

canvas:Vertex(320, 270)

canvas:Vertex(350, 260)

canvas:Vertex(340, 200)

canvas:Vertex(310, 210)

canvas:End()

-- Draw the red diagonal line with a custom line style.

-- Notice that line styles are not supported in the IMAGERGB driver.

canvas:Foreground(cd.RED)

canvas:LineWidth(3)

dashes = {20, 15, 5, 5}

canvas:LineStyleDashes(dashes, 4)

canvas:LineStyle(cd.CUSTOM)

canvas:Line(0, 0, w-1, h-1)

 

-- Draw the blue diagonal line with a pre-defined line style.

-- Notice that the pre-defined line style is dependent on the driver.

canvas:Foreground(cd.BLUE)

canvas:LineWidth(10)

canvas:LineStyle(cd.DOTTED)

canvas:Line(0, h-1, w-1, 0)

 

-- Reset line style and width

canvas:LineStyle(cd.CONTINUOUS)

canvas:LineWidth(1)

-- Draw an arc at bottom-left, and a sector at bottom-right.

-- Notice that counter-clockwise orientation of both.

canvas:InteriorStyle(cd.SOLID)

canvas:Foreground(cd.MAGENTA)

canvas:Sector(w-100, 100, 100, 100, 50, 180)

canvas:Foreground(cd.RED)

canvas:Arc(100, 100, 100, 100, 50, 180)

 

-- Draw a solid filled rectangle at center.

canvas:Foreground(cd.YELLOW)

canvas:Box(w/2 - 100, w/2 + 100, h/2 - 100, h/2 + 100)

 

-- Prepare font for text.

canvas:TextAlignment(cd.CENTER)

canvas:TextOrientation(70)

canvas:Font("Times", cd.BOLD, 24)

 

-- Draw text at center, with orientation,

-- and draw its bounding box.

-- Notice that in some drivers the bounding box is not precise.

irect = canvas:GetTextBounds(w/2, h/2, "cdMin Draw (ηγν)")

canvas:Foreground(cd.RED)

canvas:Begin(cd.CLOSED_LINES)

canvas:Vertex(irect[1], irect[2])

canvas:Vertex(irect[3], irect[4])

canvas:Vertex(irect[5], irect[6])

canvas:Vertex(irect[7], irect[8])

canvas:End()

canvas:Foreground(cd.BLUE)

canvas:Text(w/2, h/2, "cdMin Draw (ηγν)")

 

-- Prepare World Coordinates

canvas:wViewport(0,w-1,0,h-1)

if (w>h) then

    canvas:wWindow(0,w/h,0,1)

else

    canvas:wWindow(0,1,0,h/w)

end

 

-- Draw a filled blue rectangle in WC

canvas:wBox(0.20, 0.30, 0.40, 0.50)

canvas:Foreground(cd.RED)

 

-- Draw the diagonal of that rectangle in WC

canvas:wLine(0.20, 0.40, 0.30, 0.50)

 

-- Prepare Vector Text in WC.

canvas:wVectorCharSize(0.07)

 

-- Draw vector text, and draw its bounding box.

-- We also use this text to show when we are using a contextplus driver.

canvas:Foreground(cd.RED)

if (contextplus) then

    drect = canvas:wGetVectorTextBounds("WDj-Plus", 0.25, 0.35)

else

    drect = canvas:wGetVectorTextBounds("WDj", 0.25, 0.35)

end

canvas:Begin(cd.CLOSED_LINES)

canvas:wVertex(drect[1], drect[2])

canvas:wVertex(drect[3], drect[4])

canvas:wVertex(drect[5], drect[6])

canvas:wVertex(drect[7], drect[8])

canvas:End()

canvas:LineWidth(2)

canvas:LineStyle(cd.CONTINUOUS)

if (contextplus) then

    canvas:wVectorText(0.25, 0.35, "WDj-Plus")

else

    canvas:wVectorText(0.25, 0.35, "WDj")

end

 

-- Reset line width

canvas:LineWidth(1)

 

-- Draw a filled path at center-right (looks like a weird fish).

-- Notice that in PDF the arc is necessarily a circle arc, and not an ellipse.

canvas:Foreground(cd.GREEN)

canvas:Begin(cd.PATH)

canvas:PathSet(cd.PATH_MOVETO)

canvas:Vertex(w/2 + 200, h/2)

canvas:PathSet(cd.PATH_LINETO)

canvas:Vertex(w/2 + 230, h/2 + 50)

canvas:PathSet(cd.PATH_LINETO)

canvas:Vertex(w/2 + 250, h/2 + 50)

canvas:PathSet(cd.PATH_CURVETO)

canvas:Vertex(w/2+150+150, h/2+200-50) -- control point for start

canvas:Vertex(w/2+150+180, h/2+250-50) -- control point for end

canvas:Vertex(w/2+150+180, h/2+200-50) -- end point

canvas:PathSet(cd.PATH_CURVETO)

canvas:Vertex(w/2+150+180, h/2+150-50)

canvas:Vertex(w/2+150+150, h/2+100-50)

canvas:Vertex(w/2+150+300, h/2+100-50)

canvas:PathSet(cd.PATH_LINETO)

canvas:Vertex(w/2+150+300, h/2-50)

canvas:PathSet(cd.PATH_ARC)

canvas:Vertex(w/2+300, h/2) -- center

canvas:Vertex(200, 100) -- width, height

canvas:Vertex(-30*1000, -170*1000) -- start angle, end angle (degrees / 1000)

canvas:PathSet(cd.PATH_FILL)

canvas:End()

 

-- Draw 3 pixels at center left.

canvas:Pixel(10, h/2+0, cd.RED)

canvas:Pixel(11, h/2+1, cd.GREEN)

canvas:Pixel(12, h/2+2, cd.BLUE)

 

-- Draw 4 mark types, distributed near each corner.

canvas:Foreground(cd.RED)

canvas:MarkSize(30)

canvas:MarkType(cd.PLUS)

canvas:Mark(200, 200)

canvas:MarkType(cd.CIRCLE)

canvas:Mark(w - 200, 200)

canvas:MarkType(cd.HOLLOW_CIRCLE)

canvas:Mark(200, h - 200)

canvas:MarkType(cd.DIAMOND)

canvas:Mark(w - 200, h - 200)

 

-- Draw all the line style possibilities at bottom.

-- Notice that they have some small differences between drivers.

canvas:LineWidth(1)

canvas:LineStyle(cd.CONTINUOUS)

canvas:Line(0, 10, w, 10)

canvas:LineStyle(cd.DASHED)

canvas:Line(0, 20, w, 20)

canvas:LineStyle(cd.DOTTED)

canvas:Line(0, 30, w, 30)

canvas:LineStyle(cd.DASH_DOT)

canvas:Line(0, 40, w, 40)

canvas:LineStyle(cd.DASH_DOT_DOT)

canvas:Line(0, 50, w, 50)

 

-- Draw all the hatch style possibilities in the top-left corner.

-- Notice that they have some small differences between drivers.

canvas:Hatch(cd.VERTICAL)

canvas:Box(0, 50, h - 60, h)

canvas:Hatch(cd.FDIAGONAL)

canvas:Box(50, 100, h - 60, h)

canvas:Hatch(cd.BDIAGONAL)

canvas:Box(100, 150, h - 60, h)

canvas:Hatch(cd.CROSS)

canvas:Box(150, 200, h - 60, h)

canvas:Hatch(cd.HORIZONTAL)

canvas:Box(200, 250, h - 60, h)

canvas:Hatch(cd.DIAGCROSS)

canvas:Box(250, 300, h - 60, h)

 

-- Draw 4 regions, in diamond shape,

-- at top, bottom, left, right,

-- using different interior styles.

 

-- At top, not filled polygon, notice that the last line style is used.

canvas:Begin(cd.CLOSED_LINES)

canvas:Vertex(w/2, h - 100)

canvas:Vertex(w/2 + 50, h - 150)

canvas:Vertex(w/2, h - 200)

canvas:Vertex(w/2 - 50, h - 150)

canvas:End()

 

-- At left, hatch filled polygon

canvas:Hatch(cd.DIAGCROSS)

canvas:Begin(cd.FILL)

canvas:Vertex(100, h/2)

canvas:Vertex(150, h/2 + 50)

canvas:Vertex(200, h/2)

canvas:Vertex(150, h/2 - 50)

canvas:End()

 

-- At right, pattern filled polygon

canvas:Pattern(pattern)

canvas:Begin(cd.FILL)

canvas:Vertex(w - 100, h/2)

canvas:Vertex(w - 150, h/2 + 50)

canvas:Vertex(w - 200, h/2)

canvas:Vertex(w - 150, h/2 - 50)

canvas:End()

-- At bottom, stipple filled polygon

canvas:Stipple(stipple)

canvas:Begin(cd.FILL)

canvas:Vertex(w/2, 100)

canvas:Vertex(w/2 + 50, 150)

canvas:Vertex(w/2, 200)

canvas:Vertex(w/2 - 50, 150)

canvas:End()

 

-- Draw two beziers at bottom-left

canvas:Begin(cd.BEZIER)

canvas:Vertex(100, 100)

canvas:Vertex(150, 200)

canvas:Vertex(180, 250)

canvas:Vertex(180, 200)

canvas:Vertex(180, 150)

canvas:Vertex(150, 100)

canvas:Vertex(300, 100)

canvas:End()

 

-- Draw the image on the top-right corner but increasing its actual size,

-- and uses the complete image

canvas:PutImageRectRGBA(imagergba, w - 400, h - 310, 3*IMAGE_SIZE, 3*IMAGE_SIZE, 0, 0, 0, 0)

 

-- Adds a new page, or

-- flushes the file, or

-- flushes the screen, or

-- swap the double buffer.

canvas:Flush()

end