summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/luatex/barracuda/test/test-upc/001-upca-test.tex
blob: 3be12aa50267e8f58d222b46e6432328bb2f37dc (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
% Copyright (C) 2019-2022 Roberto Giacomelli

\newbox\mybox
\nopagenumbers

UPC encoder test.

Test 1: one simple barcode UPC-A with default parameter:

\directlua{
barracuda = require "barracuda"
local barcode = barracuda:barcode()
barcode:set_param("debug_bbox", "qz")
local upca, err = barcode:new_encoder("upc-A")
assert(not err, err)

local symbo, err = upca:from_string("042100005264")
assert(not err, err)

local canvas = barracuda:new_canvas()
symbo:draw(canvas)

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

\bigskip\directlua{
local barcode = barracuda:barcode()
barcode:set_param("debug_bbox", "none")
local upca = assert(barcode:enc_by_name("upc-A"))

local symbo = assert(upca:new("012345678905"))
local canvas = barracuda:new_canvas()
symbo:draw(canvas)

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