summaryrefslogtreecommitdiff
path: root/macros/luatex/generic/barracuda/test/test-libgeo/003-ga-svg-test.tex
blob: c3692c282e8e59cbfa0e85827e5c20d0f25ed443 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
% !TeX program = LuaTeX

\newbox\mybox
\nopagenumbers
\directlua{
local barracuda = require "barracuda"
local barcode = barracuda:barcode()
local driver = barracuda:get_driver()
local mm = driver.mm

local canvas = barracuda:new_canvas()
canvas:encode_linewidth(1*mm)

canvas:encode_dash_pattern(0, 2*mm)
canvas:encode_hline(0, 30*mm, 5*mm)

canvas:encode_dash_pattern(0, 2*mm, 4*mm)
canvas:encode_hline(0, 30*mm, 10*mm)

canvas:encode_dash_pattern(1*mm, 2*mm, 2*mm, 4*mm)
canvas:encode_hline(0, 30*mm, 15*mm)

canvas:encode_linewidth(0.05*mm)
canvas:encode_reset_pattern()
for i=0, 15 do
    canvas:encode_vline(0, 20*mm, i*2*mm)
end

canvas:encode_dash_pattern(0.5*mm, 1*mm)
canvas:encode_polyline{
    1*mm, 1*mm,
    29*mm, 1*mm,
    29*mm, 19*mm,
    1*mm, 19*mm,
    1*mm, 1*mm
}

driver:save("svg", canvas, "test")
assert(driver:ga_to_hbox(canvas, [[mybox]]))
}\leavevmode\box\mybox
\bye