summaryrefslogtreecommitdiff
path: root/html/examples/simpledraw.lua
diff options
context:
space:
mode:
Diffstat (limited to 'html/examples/simpledraw.lua')
-rw-r--r--html/examples/simpledraw.lua345
1 files changed, 345 insertions, 0 deletions
diff --git a/html/examples/simpledraw.lua b/html/examples/simpledraw.lua
new file mode 100644
index 0000000..cd6f77f
--- /dev/null
+++ b/html/examples/simpledraw.lua
@@ -0,0 +1,345 @@
+require"cdlua"
+
+STYLE_SIZE = 10
+pattern = cd.CreatePattern(STYLE_SIZE, STYLE_SIZE)
+stipple = cd.CreateStipple(STYLE_SIZE, STYLE_SIZE)
+
+for p = 0, STYLE_SIZE*STYLE_SIZE-1 do
+ pattern[p] = cd.WHITE
+end
+
+pattern[11] = cd.RED
+pattern[21] = cd.RED
+pattern[31] = cd.RED
+pattern[41] = cd.RED
+pattern[51] = cd.RED
+pattern[12] = cd.RED
+pattern[22] = cd.RED
+pattern[32] = cd.RED
+pattern[42] = cd.RED
+pattern[52] = cd.RED
+pattern[13] = cd.RED
+pattern[23] = cd.RED
+pattern[33] = cd.RED
+pattern[43] = cd.RED
+pattern[53] = cd.RED
+pattern[14] = cd.RED pattern[15] = cd.RED
+pattern[24] = cd.RED pattern[25] = cd.RED
+pattern[34] = cd.RED pattern[35] = cd.RED
+pattern[44] = cd.RED pattern[45] = cd.RED
+pattern[54] = cd.RED pattern[55] = cd.RED
+
+pattern[26] = cd.BLUE pattern[37] = cd.BLUE
+pattern[36] = cd.BLUE pattern[47] = cd.BLUE
+pattern[46] = cd.BLUE pattern[57] = cd.BLUE
+pattern[56] = cd.BLUE pattern[67] = cd.BLUE
+
+pattern[48] = cd.BLUE pattern[62] = cd.GREEN
+pattern[58] = cd.BLUE pattern[63] = cd.GREEN
+pattern[68] = cd.BLUE pattern[64] = cd.GREEN
+pattern[78] = cd.BLUE pattern[65] = cd.GREEN
+ pattern[66] = cd.GREEN
+
+pattern[73] = cd.GREEN pattern[84] = cd.GREEN
+pattern[74] = cd.GREEN pattern[85] = cd.GREEN
+pattern[75] = cd.GREEN pattern[86] = cd.GREEN
+pattern[76] = cd.GREEN pattern[87] = cd.GREEN
+pattern[77] = cd.GREEN pattern[88] = cd.GREEN
+
+-- initialize the stipple buffer with cross pattern
+for l = 0, STYLE_SIZE-1 do
+ for c = 0, STYLE_SIZE-1 do
+ if ((c % 4) == 0) then
+ stipple[l*STYLE_SIZE + c] = 1
+ else
+ stipple[l*STYLE_SIZE + c] = 0
+ end
+ end
+end
+
+IMAGE_SIZE = 100
+imagergba = cd.CreateImageRGBA(IMAGE_SIZE, IMAGE_SIZE)
+
+-- initialize the alpha image buffer with a degrade from transparent to opaque
+for l = 0, IMAGE_SIZE-1 do
+ for c = 0, IMAGE_SIZE-1 do
+ if (l == 0 or l == IMAGE_SIZE-1 or c == 0 or c == IMAGE_SIZE-1) then
+ imagergba.r[l*IMAGE_SIZE + c] = 0
+ imagergba.g[l*IMAGE_SIZE + c] = 0
+ imagergba.b[l*IMAGE_SIZE + c] = 0
+ else
+ if (l > IMAGE_SIZE/2) then
+ imagergba.r[l*IMAGE_SIZE + c] = 95
+ imagergba.g[l*IMAGE_SIZE + c] = 143
+ imagergba.b[l*IMAGE_SIZE + c] = 95
+ else
+ imagergba.r[l*IMAGE_SIZE + c] = 255
+ imagergba.g[l*IMAGE_SIZE + c] = 95
+ imagergba.b[l*IMAGE_SIZE + c] = 95
+ end
+ end
+
+ imagergba.a[l*IMAGE_SIZE + c] = (c*255)/(IMAGE_SIZE-1);
+ end
+end
+
+
+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 its full area
+ 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
+
+
+canvas = cd.CreateCanvas(cd.SVG, "cd_svg.svg 270.933x198.543 4.72441")
+
+SimpleDraw(canvas)
+
+-- Destroys the canvas and releases internal memory,
+-- important for file based drivers to close the file.
+canvas:Kill()
generated by cgit v1.2.3 (git 2.25.1) at 2024-07-01 09:35:38 +0000