summaryrefslogtreecommitdiff
path: root/macros/luatex/generic/barracuda/test/test-code39/003-code39-test.tex
blob: 884cdd0df497b492ba90b3d073a7572866bd7056 (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
42
43
44
45
46
47
48
49
50
% !TeX program = LuaTeX
% Copyright (C) 2020 Roberto Giacomelli

\newbox\mybox
\nopagenumbers

Test 1: the same Code 39 symbol drawing multiple time on the same canvas

\directlua{
local barracuda = require "barracuda"
local c39 = assert(
    barracuda:barcode()
        :new_encoder("code39")
)
local symbol = assert(c39:from_string("ABCDEF12QJ31+"))

local ok, err = c39:set_param("text_vpos", "top")
assert(ok, err)

local canvas = barracuda:new_canvas()
symbol:append_ga(canvas)

local ok, err = symbol:set_param("text_hpos", "center")
assert(ok, err)
symbol:append_ga(canvas, tex.sp "4.5cm")

local ok, err = symbol:set_param("text_hpos", "right")
assert(ok, err)
symbol:append_ga(canvas, tex.sp "9.0cm")

local ok, err = c39:set_param("text_vpos", "bottom")
assert(ok, err)

local ok, err = symbol:set_param("text_hpos", "left")
symbol:append_ga(canvas, 0, tex.sp "-2.0cm")

local ok, err = symbol:set_param("text_hpos", "center")
assert(ok, err)
symbol:append_ga(canvas, tex.sp "4.5cm", tex.sp "-2.0cm")

local ok, err = symbol:set_param("text_hpos", "right")
assert(ok, err)
symbol:append_ga(canvas, tex.sp "9.0cm", tex.sp "-2.0cm")

local drv = barracuda:get_driver()
drv:ga_to_hbox(canvas, "mybox")
}\box\mybox
\bye