summaryrefslogtreecommitdiff
path: root/macros/luatex/generic/barracuda/test
diff options
context:
space:
mode:
Diffstat (limited to 'macros/luatex/generic/barracuda/test')
-rw-r--r--macros/luatex/generic/barracuda/test/test-barracuda-package/01-barracuda-latex-test.pdfbin3621 -> 3810 bytes
-rw-r--r--macros/luatex/generic/barracuda/test/test-barracuda-package/01-barracuda-latex-test.tex4
-rw-r--r--macros/luatex/generic/barracuda/test/test-barracuda-package/02-ord_iter-test.tex73
-rw-r--r--macros/luatex/generic/barracuda/test/test-code128/001-code128-test.lua4
-rw-r--r--macros/luatex/generic/barracuda/test/test-code128/002-code128-test.pdfbin22044 -> 22132 bytes
-rw-r--r--macros/luatex/generic/barracuda/test/test-code128/002-code128-test.tex20
-rw-r--r--macros/luatex/generic/barracuda/test/test-code39/001-code39-test.lua6
-rw-r--r--macros/luatex/generic/barracuda/test/test-code39/002-code39-test.pdfbin22618 -> 22701 bytes
-rw-r--r--macros/luatex/generic/barracuda/test/test-code39/002-code39-test.tex44
-rw-r--r--macros/luatex/generic/barracuda/test/test-code39/003-code39-test.pdfbin19827 -> 19827 bytes
-rw-r--r--macros/luatex/generic/barracuda/test/test-code39/003-code39-test.tex19
-rw-r--r--macros/luatex/generic/barracuda/test/test-code39/004-code39-test.pdfbin15243 -> 15329 bytes
-rw-r--r--macros/luatex/generic/barracuda/test/test-code39/004-code39-test.tex16
-rw-r--r--macros/luatex/generic/barracuda/test/test-code39/006-code39-test.lua2
-rw-r--r--macros/luatex/generic/barracuda/test/test-ean/001-13-ean-test.pdfbin23619 -> 23620 bytes
-rw-r--r--macros/luatex/generic/barracuda/test/test-ean/001-13-ean-test.tex40
-rw-r--r--macros/luatex/generic/barracuda/test/test-ean/002-ean-test.pdfbin10601 -> 10601 bytes
-rw-r--r--macros/luatex/generic/barracuda/test/test-ean/003-ean-test.pdfbin3901 -> 3901 bytes
-rw-r--r--macros/luatex/generic/barracuda/test/test-ean/005-isbn-test.pdfbin0 -> 19829 bytes
-rw-r--r--macros/luatex/generic/barracuda/test/test-ean/005-isbn-test.tex45
-rw-r--r--macros/luatex/generic/barracuda/test/test-ean/006-issn-test.pdfbin0 -> 14883 bytes
-rw-r--r--macros/luatex/generic/barracuda/test/test-ean/006-issn-test.tex57
-rw-r--r--macros/luatex/generic/barracuda/test/test-ean/ars.svg110
-rw-r--r--macros/luatex/generic/barracuda/test/test-ga-pdfliteral/001-ga-pdfliteral-test.pdfbin30290 -> 30290 bytes
-rw-r--r--macros/luatex/generic/barracuda/test/test-ga-pdfliteral/001-ga-pdfliteral-test.tex2
-rw-r--r--macros/luatex/generic/barracuda/test/test-ga-svg/002-ga-svg-test.lua2
-rw-r--r--macros/luatex/generic/barracuda/test/test-i2of5/001-i2of5-test.pdfbin19127 -> 19136 bytes
-rw-r--r--macros/luatex/generic/barracuda/test/test-i2of5/001-i2of5-test.tex22
-rw-r--r--macros/luatex/generic/barracuda/test/test-i2of5/002-ITF14-test.pdfbin0 -> 16052 bytes
-rw-r--r--macros/luatex/generic/barracuda/test/test-i2of5/002-ITF14-test.tex53
30 files changed, 419 insertions, 100 deletions
diff --git a/macros/luatex/generic/barracuda/test/test-barracuda-package/01-barracuda-latex-test.pdf b/macros/luatex/generic/barracuda/test/test-barracuda-package/01-barracuda-latex-test.pdf
index a075d25db1..b05ed417eb 100644
--- a/macros/luatex/generic/barracuda/test/test-barracuda-package/01-barracuda-latex-test.pdf
+++ b/macros/luatex/generic/barracuda/test/test-barracuda-package/01-barracuda-latex-test.pdf
Binary files differ
diff --git a/macros/luatex/generic/barracuda/test/test-barracuda-package/01-barracuda-latex-test.tex b/macros/luatex/generic/barracuda/test/test-barracuda-package/01-barracuda-latex-test.tex
index 33a81aeb5d..8932f9eaaf 100644
--- a/macros/luatex/generic/barracuda/test/test-barracuda-package/01-barracuda-latex-test.tex
+++ b/macros/luatex/generic/barracuda/test/test-barracuda-package/01-barracuda-latex-test.tex
@@ -1,5 +1,5 @@
% !TeX program = LuaLaTeX
-% Copyright (C) 2019 Roberto Giacomelli
+% Copyright (C) 2020 Roberto Giacomelli
% test file: make a Code39 barcodes in a LaTeX document
@@ -8,6 +8,8 @@
\begin{document}
A\barracuda{code39}{123QWE}A
+
+B\barracuda[text_vpos='top']{code39}{123QWE}B
\end{document}
diff --git a/macros/luatex/generic/barracuda/test/test-barracuda-package/02-ord_iter-test.tex b/macros/luatex/generic/barracuda/test/test-barracuda-package/02-ord_iter-test.tex
new file mode 100644
index 0000000000..1b5d6509d4
--- /dev/null
+++ b/macros/luatex/generic/barracuda/test/test-barracuda-package/02-ord_iter-test.tex
@@ -0,0 +1,73 @@
+% !TeX program = LuaTeX
+% Copyright (C) 2020 Roberto Giacomelli
+
+\directlua{
+local barracuda = require "barracuda"
+local c39 = assert(barracuda:barcode():new_encoder("code39"))
+print()
+print([[Code39: no filter argument:]])
+for _, tpar in c39:param_ord_iter() do
+ local pid = tpar.pname
+ print(pid, [[ = ]], c39[pid])
+end
+
+print()
+print([[Code39: filter == '*all':]])
+for _, tpar in c39:param_ord_iter([[*all]]) do
+ local pid = tpar.pname
+ print(pid, [[ = ]], c39[pid])
+end
+
+print()
+print([[Code39: filter == '*super':]])
+for _, tpar in c39:param_ord_iter([[*super]]) do
+ local pid = tpar.pname
+ print(pid, [[ = ]], c39[pid])
+end
+
+print()
+print([[Code39: filter == '*enc':]])
+for _, tpar in c39:param_ord_iter([[*enc]]) do
+ local pid = tpar.pname
+ print(pid, [[ = ]], c39[pid])
+end
+
+print()
+local isbn = assert(barracuda:barcode():new_encoder("ean-isbn"))
+
+print([[ISBN: No filter argument:]])
+for _, tpar in isbn:param_ord_iter() do
+ local pid = tpar.pname
+ print(pid, [[ = ]], isbn[pid])
+end
+
+print()
+print([[ISBN: filter == '*all':]])
+for _, tpar in isbn:param_ord_iter([[*all]]) do
+ local pid = tpar.pname
+ print(pid, [[ = ]], isbn[pid])
+end
+
+print()
+print([[ISBN: filter == '*super':]])
+for _, tpar in isbn:param_ord_iter([[*super]]) do
+ local pid = tpar.pname
+ print(pid, [[ = ]], isbn[pid])
+end
+
+print()
+print([[ISBN: filter == '*enc':]])
+for _, tpar in isbn:param_ord_iter([[*enc]]) do
+ local pid = tpar.pname
+ print(pid, [[ = ]], isbn[pid])
+end
+
+local c128 = assert(barracuda:barcode():new_encoder([[code128]]))
+print()
+print([[Code128: filter == '*enc':]])
+for _, tpar in c128:param_ord_iter([[*enc]]) do
+ local pid = tpar.pname
+ print(pid, [[ = ]], c128[pid])
+end
+}
+\bye
diff --git a/macros/luatex/generic/barracuda/test/test-code128/001-code128-test.lua b/macros/luatex/generic/barracuda/test/test-code128/001-code128-test.lua
index 78645612dc..33dd927dc7 100644
--- a/macros/luatex/generic/barracuda/test/test-code128/001-code128-test.lua
+++ b/macros/luatex/generic/barracuda/test/test-code128/001-code128-test.lua
@@ -1,7 +1,7 @@
--- Copyright (C) 2018 Roberto Giacomelli
+-- Copyright (C) 2020 Roberto Giacomelli
local barracuda = require "barracuda"
-local barcode = barracuda:get_barcode_class()
+local barcode = barracuda:barcode()
local c128, err = barcode:new_encoder("code128")
assert(not err, err)
diff --git a/macros/luatex/generic/barracuda/test/test-code128/002-code128-test.pdf b/macros/luatex/generic/barracuda/test/test-code128/002-code128-test.pdf
index c3c8460bc7..4cf993a396 100644
--- a/macros/luatex/generic/barracuda/test/test-code128/002-code128-test.pdf
+++ b/macros/luatex/generic/barracuda/test/test-code128/002-code128-test.pdf
Binary files differ
diff --git a/macros/luatex/generic/barracuda/test/test-code128/002-code128-test.tex b/macros/luatex/generic/barracuda/test/test-code128/002-code128-test.tex
index eeaf60e483..b5c081659e 100644
--- a/macros/luatex/generic/barracuda/test/test-code128/002-code128-test.tex
+++ b/macros/luatex/generic/barracuda/test/test-code128/002-code128-test.tex
@@ -1,5 +1,5 @@
% !TeX program = LuaTeX
-% Copyright (C) 2019 Roberto Giacomelli
+% Copyright (C) 2020 Roberto Giacomelli
\newbox\mybox
\nopagenumbers
@@ -13,7 +13,7 @@ barracuda = require "barracuda"
}
\directlua{
-local barcode = barracuda:get_barcode_class()
+local barcode = barracuda:barcode()
local c128, err = barcode:new_encoder("code128")
assert(not err, err)
@@ -34,7 +34,7 @@ second one) takes the anchor parameters from the super class Barcode, while
the second one takes anchors from itself:
\directlua{
-local barcode = barracuda:get_barcode_class()
+local barcode = barracuda:barcode()
local ok, err = barcode:set_param{ax = 1, ay = 1} % super class set up
assert(ok, err)
assert(barcode.ax == 1, "barcode ax is "..tostring(barcode.ax))
@@ -63,8 +63,9 @@ will take to super class Barcode, previously set to 1.0. So, the symbols will
be aligned to the top:
\directlua{
-local c128, err = barracuda:get_barcode_class()
- :enc_by_name "code128"; assert(c128, err)
+local c128, err = barracuda:barcode()
+ :enc_by_name "code128";
+assert(c128, err)
local s, err = c128:from_string("123456"); assert(s, err)
local canvas = barracuda:new_canvas()
@@ -84,7 +85,7 @@ Test 4: set up vertical anchor globally to 0.0, locally to the encoder to 0.5
and locally to 1.0:
\directlua{
-local barcode = barracuda:get_barcode_class()
+local barcode = barracuda:barcode()
% set ay globally to 0.0
local ok, err = barcode:set_param("ay", 0); assert(ok, err)
@@ -108,8 +109,9 @@ drv:ga_to_hbox(canvas, "mybox")
Test 5: uint() costructor and save a file with PDF literal code:
\directlua{
-local barcode = barracuda:get_barcode_class()
-local c128, err = barcode:enc_by_name("code128"); assert(c128, err)
+local barcode = barracuda:barcode()
+local c128, err = barcode:enc_by_name("code128");
+assert(c128, err)
local s, e = c128:from_uint(1234567890); assert(s, e)
local canvas = barracuda:new_canvas()
local _, errc = s:append_ga(canvas); assert(not errc, errc)
@@ -118,7 +120,7 @@ drv:ga_to_hbox(canvas, "mybox")
drv:save("native", canvas, "02-05-pdfliteral")
}\box\mybox
-That's all folk!
+That's all folks!
\bye
diff --git a/macros/luatex/generic/barracuda/test/test-code39/001-code39-test.lua b/macros/luatex/generic/barracuda/test/test-code39/001-code39-test.lua
index e4a8569e93..a9d8894ba0 100644
--- a/macros/luatex/generic/barracuda/test/test-code39/001-code39-test.lua
+++ b/macros/luatex/generic/barracuda/test/test-code39/001-code39-test.lua
@@ -1,4 +1,4 @@
--- Copyright (C) 2019 Roberto Giacomelli
+-- Copyright (C) 2020 Roberto Giacomelli
-- test Code 39 encoder
local barracuda = require "barracuda"
@@ -7,7 +7,7 @@ for k, v in pairs(barracuda) do
print(k,v)
end
-local barcode = barracuda:get_barcode_class()
+local barcode = barracuda:barcode()
local c39, err = barcode:new_encoder("code39")
assert(not err, err)
@@ -27,7 +27,7 @@ end
local symb = c39:from_string("123")
print("print internal representation of chars")
-for _, c in ipairs(symb.code) do
+for _, c in ipairs(symb._code_data) do
print(c)
end
print()
diff --git a/macros/luatex/generic/barracuda/test/test-code39/002-code39-test.pdf b/macros/luatex/generic/barracuda/test/test-code39/002-code39-test.pdf
index 060a61e892..63ced9a342 100644
--- a/macros/luatex/generic/barracuda/test/test-code39/002-code39-test.pdf
+++ b/macros/luatex/generic/barracuda/test/test-code39/002-code39-test.pdf
Binary files differ
diff --git a/macros/luatex/generic/barracuda/test/test-code39/002-code39-test.tex b/macros/luatex/generic/barracuda/test/test-code39/002-code39-test.tex
index 73f91aac43..eb1693b5ba 100644
--- a/macros/luatex/generic/barracuda/test/test-code39/002-code39-test.tex
+++ b/macros/luatex/generic/barracuda/test/test-code39/002-code39-test.tex
@@ -1,14 +1,17 @@
% !TeX program = LuaTeX
-% Copyright (C) 2019 Roberto Giacomelli
+% Copyright (C) 2020 Roberto Giacomelli
\newbox\mybox
\nopagenumbers
+\directlua{
+barracuda = require "barracuda"
+}
+
Test 1: Code 39 symbol with default parameters:
\directlua{
-local barracuda = require "barracuda"
-local c39, err = barracuda:get_barcode_class()
+local c39, err = barracuda:barcode()
:new_encoder("code39")
assert(not err, err)
@@ -19,17 +22,15 @@ local canvas = barracuda:new_canvas()
symbol:append_ga(canvas)
local drv = barracuda:get_driver()
drv:ga_to_hbox(canvas, "mybox")
-}
-\box\mybox
+}\box\mybox
Test 2: get the reference of the previous encoder and typeset two
Code 39 symbols on the same canvas, one above to the other:
\directlua{
-local barracuda = require "barracuda"
-local c39, err = barracuda:get_barcode_class()
+local c39, err = barracuda:barcode()
:enc_by_name("code39")
- assert(c39, err)
+assert(c39, err)
local s1, err = c39:from_string("ZKPQJ31"); assert(s1, err)
local s2, err = c39:from_string("RTFG746", {text_vpos="top"}); assert(s2, err)
@@ -41,17 +42,15 @@ local h2 = s2:get_param("height")
s2:append_ga(canvas, 0.0, h2 + tex.sp "5pt")
local drv = barracuda:get_driver()
drv:ga_to_hbox(canvas, "mybox")
-}
-\box\mybox
+}\box\mybox
Test 3: with the same encoder print a symbol, change globally the height,
and reprint the same symbol again on the same canvas:
\directlua{
-local barracuda = require "barracuda"
-local c39, err = barracuda:get_barcode_class()
+local c39, err = barracuda:barcode()
:enc_by_name("code39")
- assert(c39, err)
+assert(c39, err)
local s1, err = c39:from_string("ZKPQJ31"); assert(s1, err)
@@ -66,17 +65,15 @@ s1:append_ga(canvas, 0.0, h + tex.sp "5pt")
local drv = barracuda:get_driver()
drv:ga_to_hbox(canvas, "mybox")
-}
-\box\mybox
+}\box\mybox
Test 4: do the same in test 3 but change locally parameters as
height and text properties:
\directlua{
-local barracuda = require "barracuda"
-local c39, err = barracuda:get_barcode_class()
+local c39, err = barracuda:barcode()
:enc_by_name("code39")
- assert(c39, err)
+assert(c39, err)
local s1, err = c39:from_string("0123456789"); assert(s1, err)
@@ -95,16 +92,14 @@ s1:append_ga(canvas, 0.0, - tex.sp "5pt")
local drv = barracuda:get_driver()
drv:ga_to_hbox(canvas, "mybox")
-}
-\box\mybox
+}\box\mybox
Test 5: create a new encoder with a large module value:
\directlua{
-local barracuda = require "barracuda"
-local barcode = barracuda:get_barcode_class()
+local barcode = barracuda:barcode()
-local c39, err = barcode:new_encoder("code39", "e2", {module = tex.sp "0.5mm"})
+local c39, err = barcode:new_encoder("code39:e2", {module = tex.sp "0.5mm"})
assert(c39, err)
local s1, err = c39:from_string("02040608"); assert(s1, err)
@@ -114,7 +109,6 @@ s1:append_ga(canvas)
local drv = barracuda:get_driver()
drv:ga_to_hbox(canvas, "mybox")
-}
-\box\mybox
+}\box\mybox
\bye
diff --git a/macros/luatex/generic/barracuda/test/test-code39/003-code39-test.pdf b/macros/luatex/generic/barracuda/test/test-code39/003-code39-test.pdf
index 66b04e61e3..544a4b34ff 100644
--- a/macros/luatex/generic/barracuda/test/test-code39/003-code39-test.pdf
+++ b/macros/luatex/generic/barracuda/test/test-code39/003-code39-test.pdf
Binary files differ
diff --git a/macros/luatex/generic/barracuda/test/test-code39/003-code39-test.tex b/macros/luatex/generic/barracuda/test/test-code39/003-code39-test.tex
index a4ba3d6e81..884cdd0df4 100644
--- a/macros/luatex/generic/barracuda/test/test-code39/003-code39-test.tex
+++ b/macros/luatex/generic/barracuda/test/test-code39/003-code39-test.tex
@@ -1,20 +1,18 @@
% !TeX program = LuaTeX
-% Copyright (C) 2019 Roberto Giacomelli
+% Copyright (C) 2020 Roberto Giacomelli
\newbox\mybox
\nopagenumbers
-Test 3: the same Code 39 symbol drawing multiple time on the same canvas
+Test 1: the same Code 39 symbol drawing multiple time on the same canvas
\directlua{
local barracuda = require "barracuda"
-local c39, err = barracuda:get_barcode_class()
- :new_encoder("code39")
-assert(not err, err)
-local err
-local symbol
-symbol, err = c39:from_string("ABCDEF12QJ31+")
-assert(not err, err)
+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)
@@ -46,8 +44,7 @@ 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
+}\box\mybox
\bye
diff --git a/macros/luatex/generic/barracuda/test/test-code39/004-code39-test.pdf b/macros/luatex/generic/barracuda/test/test-code39/004-code39-test.pdf
index 3c96d9233b..0e5bfa42d0 100644
--- a/macros/luatex/generic/barracuda/test/test-code39/004-code39-test.pdf
+++ b/macros/luatex/generic/barracuda/test/test-code39/004-code39-test.pdf
Binary files differ
diff --git a/macros/luatex/generic/barracuda/test/test-code39/004-code39-test.tex b/macros/luatex/generic/barracuda/test/test-code39/004-code39-test.tex
index 559dc94383..9066d4dee8 100644
--- a/macros/luatex/generic/barracuda/test/test-code39/004-code39-test.tex
+++ b/macros/luatex/generic/barracuda/test/test-code39/004-code39-test.tex
@@ -1,14 +1,14 @@
% !TeX program = LuaTeX
-% Copyright (C) 2019 Roberto Giacomelli
+% Copyright (C) 2020 Roberto Giacomelli
\newbox\mybox
\nopagenumbers
-Test 4: check uint costructor:
+Test 1: check uint costructor:
\directlua{
barracuda = require "barracuda"
-local c39, err = barracuda:get_barcode_class()
+local c39, err = barracuda:barcode()
:new_encoder("code39")
assert(not err, err)
local err
@@ -21,11 +21,10 @@ symbol:append_ga(canvas)
local drv = barracuda:get_driver()
drv:ga_to_hbox(canvas, "mybox")
-}
-\box\mybox
+}\box\mybox
\directlua{
-local c39, err = barracuda:get_barcode_class()
+local c39, err = barracuda:barcode()
:enc_by_name("code39")
assert(c39, err)
local e
@@ -38,9 +37,6 @@ symbol:append_ga(canvas)
local drv = barracuda:get_driver()
drv:ga_to_hbox(canvas, "mybox")
-}
-\box\mybox
+}\box\mybox
\bye
-
-
diff --git a/macros/luatex/generic/barracuda/test/test-code39/006-code39-test.lua b/macros/luatex/generic/barracuda/test/test-code39/006-code39-test.lua
index d33ad4ffaf..1b8ee9f4a1 100644
--- a/macros/luatex/generic/barracuda/test/test-code39/006-code39-test.lua
+++ b/macros/luatex/generic/barracuda/test/test-code39/006-code39-test.lua
@@ -2,7 +2,7 @@
local cm = 1864679.8110236 -- sp
local barracuda = require "barracuda"
-local c39, err = barracuda:get_barcode_class()
+local c39, err = barracuda:barcode()
:new_encoder("code39")
assert(not err, err)
local err
diff --git a/macros/luatex/generic/barracuda/test/test-ean/001-13-ean-test.pdf b/macros/luatex/generic/barracuda/test/test-ean/001-13-ean-test.pdf
index 0e8abb933f..12eac36ba1 100644
--- a/macros/luatex/generic/barracuda/test/test-ean/001-13-ean-test.pdf
+++ b/macros/luatex/generic/barracuda/test/test-ean/001-13-ean-test.pdf
Binary files differ
diff --git a/macros/luatex/generic/barracuda/test/test-ean/001-13-ean-test.tex b/macros/luatex/generic/barracuda/test/test-ean/001-13-ean-test.tex
index c0a4db3894..7c7b373a6c 100644
--- a/macros/luatex/generic/barracuda/test/test-ean/001-13-ean-test.tex
+++ b/macros/luatex/generic/barracuda/test/test-ean/001-13-ean-test.tex
@@ -1,5 +1,5 @@
% !TeX program = LuaTeX
-% Copyright (C) 2019 Roberto Giacomelli
+% Copyright (C) 2020 Roberto Giacomelli
\newbox\mybox
\nopagenumbers
@@ -9,8 +9,8 @@ EAN encoder test.
Test 1: one simple barcode EAN13 with default parameter:
\directlua{
-local barracuda = require "barracuda"
-local barcode = barracuda:get_barcode_class()
+barracuda = require "barracuda"
+local barcode = barracuda:barcode()
local ean13, err = barcode:new_encoder("ean-13")
assert(not err, err)
@@ -30,8 +30,7 @@ drv:ga_to_hbox(canvas, "mybox")
Test 2: one simple EAN8 barcode with default parameter:
\directlua{
-local barracuda = require "barracuda"
-local barcode = barracuda:get_barcode_class()
+local barcode = barracuda:barcode()
local ean8, err = barcode:new_encoder("ean-8")
assert(not err, err)
@@ -51,8 +50,7 @@ drv:ga_to_hbox(canvas, "mybox")
Test 3: one simple EAN5 barcode with default parameter:
\directlua{
-local barracuda = require "barracuda"
-local barcode = barracuda:get_barcode_class()
+local barcode = barracuda:barcode()
local ean5, err = barcode:new_encoder("ean-5")
assert(not err, err)
local symbo, err = ean5:from_string("54495")
@@ -68,8 +66,7 @@ drv:ga_to_hbox(canvas, "mybox")
Test 4: one simple EAN2 barcode with default parameter:
\directlua{
-local barracuda = require "barracuda"
-local barcode = barracuda:get_barcode_class()
+local barcode = barracuda:barcode()
local ean2, err = barcode:new_encoder("ean-2")
assert(not err, err)
local symbo, err = ean2:from_string("53")
@@ -85,13 +82,11 @@ drv:ga_to_hbox(canvas, "mybox")
Test 5: EAN13 + EAN5 barcode with default parameter:
\directlua{
-local barracuda = require "barracuda"
-local barcode = barracuda:get_barcode_class()
+local barcode = barracuda:barcode()
local ean, err = barcode:new_encoder("ean-13+5"); assert(not err, err)
local n = 123456789012
-local c = ean:checksum(n)
-local s = n .. c
-local symbo, err = ean:from_string(s.."12345")
+local c = assert(ean:checksum(n))
+local symbo, err = ean:from_string(n..c.."12345")
assert(not err, err)
local canvas = barracuda:new_canvas()
symbo:append_ga(canvas)
@@ -104,8 +99,7 @@ drv:ga_to_hbox(canvas, "mybox")
Test 6: EAN13 + EAN2 barcode with default parameter:
\directlua{
-local barracuda = require "barracuda"
-local barcode = barracuda:get_barcode_class()
+local barcode = barracuda:barcode()
local ean, err = barcode:new_encoder("ean-13+2"); assert(not err, err)
local n = 123456789012
local c = ean:checksum(n)
@@ -123,8 +117,7 @@ drv:ga_to_hbox(canvas, "mybox")
Test 7: EAN8 + EAN5 barcode with default parameter:
\directlua{
-local barracuda = require "barracuda"
-local barcode = barracuda:get_barcode_class()
+local barcode = barracuda:barcode()
local ean, err = barcode:new_encoder("ean-8+5"); assert(not err, err)
local n = 1234567
local c = ean:checksum(n)
@@ -142,8 +135,7 @@ drv:ga_to_hbox(canvas, "mybox")
Test 8: EAN8 + EAN2 barcode with default parameter:
\directlua{
-local barracuda = require "barracuda"
-local barcode = barracuda:get_barcode_class()
+local barcode = barracuda:barcode()
local ean, err = barcode:new_encoder("ean-8+2"); assert(not err, err)
local n = 7865431
local c = ean:checksum(n)
@@ -167,8 +159,7 @@ to the object symbol.
\smallskip
\directlua{
-local barracuda = require "barracuda"
-local barcode = barracuda:get_barcode_class()
+local barcode = barracuda:barcode()
local ean, err = barcode:enc_by_name("ean-13"); assert(not err, err)
local n = 818571884348
local c = ean:checksum(n)
@@ -194,8 +185,7 @@ The parameter height is setting up in the encoder so it will be global.
\smallskip
\directlua{
-local barracuda = require "barracuda"
-local barcode = barracuda:get_barcode_class()
+local barcode = barracuda:barcode()
local ean, err = barcode:enc_by_name("ean-13"); assert(not err, err)
local ok, err = ean:set_param("height", tex.sp "5mm"); assert(ok, err)
local n = 758458535897; local c = ean:checksum(n); local s = n .. c
@@ -213,7 +203,7 @@ drv:ga_to_hbox(canvas, "mybox")
\vrule Test 10\vrule\box\mybox \vrule Test 10\vrule
\medskip
-That's all folk!
+That's all folks!
\bye
diff --git a/macros/luatex/generic/barracuda/test/test-ean/002-ean-test.pdf b/macros/luatex/generic/barracuda/test/test-ean/002-ean-test.pdf
index 568050371c..796ad29ab0 100644
--- a/macros/luatex/generic/barracuda/test/test-ean/002-ean-test.pdf
+++ b/macros/luatex/generic/barracuda/test/test-ean/002-ean-test.pdf
Binary files differ
diff --git a/macros/luatex/generic/barracuda/test/test-ean/003-ean-test.pdf b/macros/luatex/generic/barracuda/test/test-ean/003-ean-test.pdf
index baa5a5b9cd..c52c77a847 100644
--- a/macros/luatex/generic/barracuda/test/test-ean/003-ean-test.pdf
+++ b/macros/luatex/generic/barracuda/test/test-ean/003-ean-test.pdf
Binary files differ
diff --git a/macros/luatex/generic/barracuda/test/test-ean/005-isbn-test.pdf b/macros/luatex/generic/barracuda/test/test-ean/005-isbn-test.pdf
new file mode 100644
index 0000000000..d71e87141d
--- /dev/null
+++ b/macros/luatex/generic/barracuda/test/test-ean/005-isbn-test.pdf
Binary files differ
diff --git a/macros/luatex/generic/barracuda/test/test-ean/005-isbn-test.tex b/macros/luatex/generic/barracuda/test/test-ean/005-isbn-test.tex
new file mode 100644
index 0000000000..d69ff6fc28
--- /dev/null
+++ b/macros/luatex/generic/barracuda/test/test-ean/005-isbn-test.tex
@@ -0,0 +1,45 @@
+% !TeX program = LuaTeX
+\nopagenumbers
+% load package and store it in a global Lua variable
+\directlua{barracuda = require "barracuda"}
+\newbox\mybox
+
+ISBN test:
+\vskip10pt
+
+\leavevmode
+\directlua{barracuda:hbox("ean-isbn", "978-88-8154-348-9", "mybox")}
+\box\mybox
+\directlua{barracuda:hbox("ean-isbn", "978 88 8154 348 9", "mybox")}
+\box\mybox
+
+\vskip10pt
+\directlua{barracuda:hbox("ean-isbn+5", "978 88 8154 348 9-80026", "mybox")}%
+\box\mybox
+
+\vskip10pt
+ISBN 10 test, the 10-digits code is automatically converted in an ISBN 13 code:
+\vskip10pt
+\directlua{barracuda:hbox("ean-isbn", "1-78474-140-X", "mybox")}%
+\box\mybox
+
+\vskip10pt
+\directlua{barracuda:hbox("ean-isbn+5", "1-78474-140-X 12345", "mybox")}%
+\box\mybox
+
+\vskip10pt
+\directlua{barracuda:hbox("ean-isbn+2", "1-78474-140-X 99", "mybox")}%
+\box\mybox
+
+\vskip5pt
+ISBN Test: the value 'auto' for 'text\_isbn\_enabled' option means that
+the text above the symbol isn't printed if in the provided code does not
+have group chars or the length is not 10:
+\vskip5pt
+\leavevmode
+\directlua{barracuda:hbox("ean-isbn", "9788881543489", "mybox")}
+\box\mybox
+\directlua{barracuda:hbox("ean-isbn", "978-8881543489", "mybox")}
+\box\mybox
+
+\bye \ No newline at end of file
diff --git a/macros/luatex/generic/barracuda/test/test-ean/006-issn-test.pdf b/macros/luatex/generic/barracuda/test/test-ean/006-issn-test.pdf
new file mode 100644
index 0000000000..57f3739fb7
--- /dev/null
+++ b/macros/luatex/generic/barracuda/test/test-ean/006-issn-test.pdf
Binary files differ
diff --git a/macros/luatex/generic/barracuda/test/test-ean/006-issn-test.tex b/macros/luatex/generic/barracuda/test/test-ean/006-issn-test.tex
new file mode 100644
index 0000000000..576963bd81
--- /dev/null
+++ b/macros/luatex/generic/barracuda/test/test-ean/006-issn-test.tex
@@ -0,0 +1,57 @@
+% !TeX program = LuaTeX
+\nopagenumbers
+% load package and store it in a global Lua variable
+\directlua{barracuda = require "barracuda"}
+\newbox\mybox
+
+ISSN test:
+
+\vskip10pt
+\leavevmode
+\directlua{barracuda:hbox("ean-issn", "9778881543480", "mybox")}
+\box\mybox
+
+\vskip10pt
+\leavevmode
+\directlua{barracuda:hbox("ean-issn+5", "977888154348000028", "mybox")}
+\box\mybox
+
+\vskip10pt
+\leavevmode
+\directlua{
+local ars_issn = {
+ online = "9771828236001",
+ print = "9771828235004",
+}
+
+barracuda:hbox("ean-issn+5", ars_issn.online.."00028", "mybox")
+}
+\box\mybox
+
+\vskip10pt
+\leavevmode
+\directlua{barracuda:hbox("ean-issn", "1828-2350", "mybox")}
+\box\mybox
+
+\vskip10pt
+\leavevmode
+\directlua{barracuda:hbox("ean-issn", "1828-2350 [01]", "mybox")}
+\box\mybox
+
+\vskip10pt
+\leavevmode
+\directlua{barracuda:hbox("ean-issn+5", "1828-2350 [01] 00028", "mybox")}
+\box\mybox
+
+\vskip10pt
+\leavevmode
+\directlua{
+barracuda:hbox("ean-issn+2", "1828-2350 [01] 22", "mybox")
+barracuda:save("ean-issn+2", "1828-2350 [01] 22", "ars")
+}
+\box\mybox
+
+
+\bye
+
+
diff --git a/macros/luatex/generic/barracuda/test/test-ean/ars.svg b/macros/luatex/generic/barracuda/test/test-ean/ars.svg
new file mode 100644
index 0000000000..5bfc01d0f3
--- /dev/null
+++ b/macros/luatex/generic/barracuda/test/test-ean/ars.svg
@@ -0,0 +1,110 @@
+<?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!-- Created with Barracuda package (https://github.com/robitex/barracuda) -->
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+ "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<svg xmlns="http://www.w3.org/2000/svg"
+ version="1.1"
+ width="47.189752mm" height="28.039875mm"
+ viewBox="-3.629981 -27.259868 47.189752 28.039875"
+>
+ <g stroke="black">
+ <path d="M0.164999 -24.499871V-0.000000" style="stroke-width:0.329998"/>
+ <path d="M0.824996 -24.499871V-0.000000" style="stroke-width:0.329998"/>
+ </g>
+ <g stroke="black">
+ <path d="M1.814990 -24.499871V-1.649991" style="stroke-width:0.989995"/>
+ <path d="M2.969984 -24.499871V-1.649991" style="stroke-width:0.659997"/>
+ </g>
+ <g stroke="black">
+ <path d="M4.124978 -24.499871V-1.649991" style="stroke-width:0.329998"/>
+ <path d="M5.444971 -24.499871V-1.649991" style="stroke-width:0.329998"/>
+ </g>
+ <g stroke="black">
+ <path d="M6.269967 -24.499871V-1.649991" style="stroke-width:0.659997"/>
+ <path d="M7.589960 -24.499871V-1.649991" style="stroke-width:0.659997"/>
+ </g>
+ <g stroke="black">
+ <path d="M8.579955 -24.499871V-1.649991" style="stroke-width:0.659997"/>
+ <path d="M9.734949 -24.499871V-1.649991" style="stroke-width:0.989995"/>
+ </g>
+ <g stroke="black">
+ <path d="M11.219941 -24.499871V-1.649991" style="stroke-width:0.659997"/>
+ <path d="M12.209936 -24.499871V-1.649991" style="stroke-width:0.659997"/>
+ </g>
+ <g stroke="black">
+ <path d="M13.199931 -24.499871V-1.649991" style="stroke-width:0.659997"/>
+ <path d="M14.354924 -24.499871V-1.649991" style="stroke-width:0.989995"/>
+ </g>
+ <g stroke="black">
+ <path d="M15.344919 -24.499871V-0.000000" style="stroke-width:0.329998"/>
+ <path d="M16.004916 -24.499871V-0.000000" style="stroke-width:0.329998"/>
+ </g>
+ <g stroke="black">
+ <path d="M16.829911 -24.499871V-1.649991" style="stroke-width:0.659997"/>
+ <path d="M17.819906 -24.499871V-1.649991" style="stroke-width:0.659997"/>
+ </g>
+ <g stroke="black">
+ <path d="M18.974900 -24.499871V-1.649991" style="stroke-width:0.329998"/>
+ <path d="M20.624891 -24.499871V-1.649991" style="stroke-width:0.329998"/>
+ </g>
+ <g stroke="black">
+ <path d="M21.284888 -24.499871V-1.649991" style="stroke-width:0.329998"/>
+ <path d="M22.604881 -24.499871V-1.649991" style="stroke-width:0.989995"/>
+ </g>
+ <g stroke="black">
+ <path d="M23.924874 -24.499871V-1.649991" style="stroke-width:0.989995"/>
+ <path d="M25.244867 -24.499871V-1.649991" style="stroke-width:0.329998"/>
+ </g>
+ <g stroke="black">
+ <path d="M26.069863 -24.499871V-1.649991" style="stroke-width:0.659997"/>
+ <path d="M27.389856 -24.499871V-1.649991" style="stroke-width:0.659997"/>
+ </g>
+ <g stroke="black">
+ <path d="M28.379851 -24.499871V-1.649991" style="stroke-width:0.659997"/>
+ <path d="M29.699844 -24.499871V-1.649991" style="stroke-width:0.659997"/>
+ </g>
+ <g stroke="black">
+ <path d="M30.524839 -24.499871V-0.000000" style="stroke-width:0.329998"/>
+ <path d="M31.184836 -24.499871V-0.000000" style="stroke-width:0.329998"/>
+ </g>
+ <text x="-3.629981" y="0.780007" font-family="Verdana" font-size="2.877000">
+ 9 </text>
+ <text y="0.780007" font-family="Verdana" font-size="2.877000" text-anchor="middle">
+ <tspan x="2.043326">7</tspan>
+ <tspan x="4.459979">7</tspan>
+ <tspan x="6.876631">1</tspan>
+ <tspan x="9.293284">8</tspan>
+ <tspan x="11.709936">2</tspan>
+ <tspan x="14.126589">8</tspan>
+ </text>
+ <text y="0.780007" font-family="Verdana" font-size="2.877000" text-anchor="middle">
+ <tspan x="17.223246">2</tspan>
+ <tspan x="19.639899">3</tspan>
+ <tspan x="22.056551">5</tspan>
+ <tspan x="24.473204">0</tspan>
+ <tspan x="26.889856">1</tspan>
+ <tspan x="29.306509">1</tspan>
+ </text>
+ <text x="15.674918" y="-25.159868" font-family="Verdana" font-size="2.877000" text-anchor="middle">
+ ISSN 1828-2350 </text>
+ <g stroke="black">
+ <path d="M34.814817 -20.824890V-0.000000" style="stroke-width:0.329998"/>
+ <path d="M35.639812 -20.824890V-0.000000" style="stroke-width:0.659997"/>
+ </g>
+ <g stroke="black">
+ <path d="M36.959806 -20.824890V-0.000000" style="stroke-width:0.659997"/>
+ <path d="M37.949800 -20.824890V-0.000000" style="stroke-width:0.659997"/>
+ </g>
+ <g stroke="black">
+ <path d="M38.774796 -20.824890V-0.000000" style="stroke-width:0.329998"/>
+ </g>
+ <g stroke="black">
+ <path d="M39.764791 -20.824890V-0.000000" style="stroke-width:0.329998"/>
+ <path d="M40.919785 -20.824890V-0.000000" style="stroke-width:0.659997"/>
+ </g>
+ <text y="-21.154889" font-family="Verdana" font-size="2.877000" text-anchor="middle">
+ <tspan x="36.445645">2</tspan>
+ <tspan x="39.453955">2</tspan>
+ </text>
+</svg>
+
diff --git a/macros/luatex/generic/barracuda/test/test-ga-pdfliteral/001-ga-pdfliteral-test.pdf b/macros/luatex/generic/barracuda/test/test-ga-pdfliteral/001-ga-pdfliteral-test.pdf
index b8a7477c7f..b3f3336f43 100644
--- a/macros/luatex/generic/barracuda/test/test-ga-pdfliteral/001-ga-pdfliteral-test.pdf
+++ b/macros/luatex/generic/barracuda/test/test-ga-pdfliteral/001-ga-pdfliteral-test.pdf
Binary files differ
diff --git a/macros/luatex/generic/barracuda/test/test-ga-pdfliteral/001-ga-pdfliteral-test.tex b/macros/luatex/generic/barracuda/test/test-ga-pdfliteral/001-ga-pdfliteral-test.tex
index 1a5ed80d0c..c51fa3dfb0 100644
--- a/macros/luatex/generic/barracuda/test/test-ga-pdfliteral/001-ga-pdfliteral-test.tex
+++ b/macros/luatex/generic/barracuda/test/test-ga-pdfliteral/001-ga-pdfliteral-test.tex
@@ -1,7 +1,7 @@
% !TeX program = LuaTeX
% test for ga-canvas pdfliteral driver
%
-% Copyright (C) 2019 Roberto Giacomelli
+% Copyright (C) 2020 Roberto Giacomelli
% see LICENSE.txt file
---ga--- is a binary format as an istruction set similar to
diff --git a/macros/luatex/generic/barracuda/test/test-ga-svg/002-ga-svg-test.lua b/macros/luatex/generic/barracuda/test/test-ga-svg/002-ga-svg-test.lua
index 8f10d6dfbf..b5a2e3c4ae 100644
--- a/macros/luatex/generic/barracuda/test/test-ga-svg/002-ga-svg-test.lua
+++ b/macros/luatex/generic/barracuda/test/test-ga-svg/002-ga-svg-test.lua
@@ -1,7 +1,7 @@
-- test SVG driver output
local barracuda = require "barracuda"
-local barcode = barracuda:get_barcode_class()
+local barcode = barracuda:barcode()
local driver = barracuda:get_driver()
local opt = {module = 15 * 0.0254 * 186467, height = 12 * 186467}
diff --git a/macros/luatex/generic/barracuda/test/test-i2of5/001-i2of5-test.pdf b/macros/luatex/generic/barracuda/test/test-i2of5/001-i2of5-test.pdf
index 3aa107681c..f2dbd6f9ea 100644
--- a/macros/luatex/generic/barracuda/test/test-i2of5/001-i2of5-test.pdf
+++ b/macros/luatex/generic/barracuda/test/test-i2of5/001-i2of5-test.pdf
Binary files differ
diff --git a/macros/luatex/generic/barracuda/test/test-i2of5/001-i2of5-test.tex b/macros/luatex/generic/barracuda/test/test-i2of5/001-i2of5-test.tex
index 43c652d66a..0062b74d3e 100644
--- a/macros/luatex/generic/barracuda/test/test-i2of5/001-i2of5-test.tex
+++ b/macros/luatex/generic/barracuda/test/test-i2of5/001-i2of5-test.tex
@@ -1,5 +1,5 @@
% !TeX program = LuaTeX
-% Copyright (C) 2019 Roberto Giacomelli
+% Copyright (C) 2020 Roberto Giacomelli
\newbox\mybox
\nopagenumbers
@@ -11,7 +11,7 @@ Interleaved 2 of 5 encoder test.
Test 1: one simple barcode with default parameters:
\directlua{
-local barcode = barracuda:get_barcode_class()
+local barcode = barracuda:barcode()
local enc, err = barcode:new_encoder("i2of5"); assert(not err, err)
local symbo, err = enc:from_uint(54654681); assert(not err, err)
@@ -25,7 +25,7 @@ drv:ga_to_hbox(canvas, "mybox")
Test 2: one simple barcode with default parameter:
\directlua{
-local barcode = barracuda:get_barcode_class()
+local barcode = barracuda:barcode()
local enc, err = barcode:enc_by_name("i2of5"); assert(not err, err)
local symbo, err = enc:from_uint(1234567895); assert(not err, err)
local canvas = barracuda:new_canvas(); symbo:append_ga(canvas)
@@ -57,7 +57,7 @@ local code = {
5317837,
4117698,
}
-local barcode = barracuda:get_barcode_class()
+local barcode = barracuda:barcode()
local enc, err = barcode:enc_by_name("i2of5"); assert(not err, err)
for _, n in ipairs(code) do
local smbl, err = enc:from_uint(n, {check_digit_policy="verify"})
@@ -86,7 +86,7 @@ local code = {
["531783"] = 7,
["411769"] = 8,
}
-local barcode = barracuda:get_barcode_class()
+local barcode = barracuda:barcode()
local enc, err = barcode:enc_by_name("i2of5"); assert(not err, err)
for sc, ck in pairs(code) do
local n = tonumber(sc)
@@ -100,7 +100,7 @@ end
Test 3: one simple barcode with check digit automatically added:
\directlua{
-local barcode = barracuda:get_barcode_class()
+local barcode = barracuda:barcode()
local enc, err = barcode:enc_by_name("i2of5"); assert(not err, err)
local symbo, err = enc:from_uint(454473, {check_digit_policy="add"})
assert(not err, err)
@@ -114,7 +114,7 @@ drv:ga_to_hbox(canvas, "mybox")
Test 4: a second simple barcode with check digit automatically added:
\directlua{
-local barcode = barracuda:get_barcode_class()
+local barcode = barracuda:barcode()
local enc, err = barcode:enc_by_name("i2of5"); assert(not err, err)
local symbo, err = enc:from_uint(74223, {check_digit_policy="add"})
assert(not err, err)
@@ -128,7 +128,7 @@ drv:ga_to_hbox(canvas, "mybox")
Test 5: a symbol with native check digits:
\directlua{
-local barcode = barracuda:get_barcode_class()
+local barcode = barracuda:barcode()
local enc, err = barcode:enc_by_name("i2of5"); assert(not err, err)
local symbo, err = enc:from_uint(121891259, {check_digit_policy="verify"})
assert(not err, err)
@@ -142,7 +142,7 @@ drv:ga_to_hbox(canvas, "mybox")
Test 6: bearer bars please:
\directlua{
-local barcode = barracuda:get_barcode_class()
+local barcode = barracuda:barcode()
local enc, err = barcode:enc_by_name("i2of5"); assert(not err, err)
local symbo, err = enc:from_uint(747867239, {bearer_bars_enabled = true})
assert(not err, err)
@@ -156,7 +156,7 @@ drv:ga_to_hbox(canvas, "mybox")
Test 7: bearer bars all around the symbol:
\directlua{
-local barcode = barracuda:get_barcode_class()
+local barcode = barracuda:barcode()
local enc, err = barcode:enc_by_name("i2of5"); assert(not err, err)
local symbo, err = enc:from_uint(986790868, {bearer_bars_enabled = true, bearer_bars_layout="frame"})
assert(not err, err)
@@ -170,7 +170,7 @@ drv:ga_to_hbox(canvas, "mybox")
Test 8: bearer bars all around the symbol (with string costructor):
\directlua{
-local barcode = barracuda:get_barcode_class()
+local barcode = barracuda:barcode()
local enc, err = barcode:enc_by_name("i2of5"); assert(not err, err)
local symbo, err = enc:from_string("986790868", {bearer_bars_enabled = true, bearer_bars_layout="frame"})
assert(not err, err)
diff --git a/macros/luatex/generic/barracuda/test/test-i2of5/002-ITF14-test.pdf b/macros/luatex/generic/barracuda/test/test-i2of5/002-ITF14-test.pdf
new file mode 100644
index 0000000000..79a05eca42
--- /dev/null
+++ b/macros/luatex/generic/barracuda/test/test-i2of5/002-ITF14-test.pdf
Binary files differ
diff --git a/macros/luatex/generic/barracuda/test/test-i2of5/002-ITF14-test.tex b/macros/luatex/generic/barracuda/test/test-i2of5/002-ITF14-test.tex
new file mode 100644
index 0000000000..52784b66bb
--- /dev/null
+++ b/macros/luatex/generic/barracuda/test/test-i2of5/002-ITF14-test.tex
@@ -0,0 +1,53 @@
+% !TeX program = LuaTeX
+% Copyright (C) 2020 Roberto Giacomelli
+
+\newbox\mybox
+\nopagenumbers
+
+\directlua{barracuda = require "barracuda"}
+
+
+Test 2: Interleaved 2 of 5 encoder test for ITF14 variant.
+
+\directlua{
+local barcode = barracuda:barcode()
+local enc = assert(barcode:new_encoder("i2of5-ITF14"))
+local s1 = assert(enc:from_uint(1234567890123))
+
+local canvas = barracuda:new_canvas()
+s1:append_ga(canvas)
+local drv = barracuda:get_driver()
+drv:ga_to_hbox(canvas, "mybox")
+}
+\vskip 10pt
+12345678901231 is \vrule A\vrule\box\mybox \vrule A\vrule
+
+\directlua{
+local barcode = barracuda:barcode()
+local enc = assert(barcode:enc_by_name("i2of5-ITF14"))
+local s1 = assert(enc:from_string("1234567890123"))
+
+local canvas = barracuda:new_canvas()
+s1:append_ga(canvas)
+local drv = barracuda:get_driver()
+drv:ga_to_hbox(canvas, "mybox")
+}
+\vskip 10pt
+12345678901231 is \vrule A\vrule\box\mybox \vrule A\vrule
+
+\directlua{
+local barcode = barracuda:barcode()
+local enc = assert(barcode:enc_by_name("i2of5-ITF14"))
+local s1 = assert(enc:from_string("(12) 34 56 78 90 12 3"))
+
+local canvas = barracuda:new_canvas()
+s1:append_ga(canvas)
+local drv = barracuda:get_driver()
+drv:ga_to_hbox(canvas, "mybox")
+}
+\vskip 10pt
+12345678901231 is \vrule A\vrule\box\mybox \vrule A\vrule
+
+\bye
+
+