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
|