diff options
Diffstat (limited to 'Master/texmf-dist/doc/luatex/barracuda/test')
30 files changed, 419 insertions, 100 deletions
diff --git a/Master/texmf-dist/doc/luatex/barracuda/test/test-barracuda-package/01-barracuda-latex-test.pdf b/Master/texmf-dist/doc/luatex/barracuda/test/test-barracuda-package/01-barracuda-latex-test.pdf Binary files differindex a075d25db11..b05ed417eb8 100644 --- a/Master/texmf-dist/doc/luatex/barracuda/test/test-barracuda-package/01-barracuda-latex-test.pdf +++ b/Master/texmf-dist/doc/luatex/barracuda/test/test-barracuda-package/01-barracuda-latex-test.pdf diff --git a/Master/texmf-dist/doc/luatex/barracuda/test/test-barracuda-package/01-barracuda-latex-test.tex b/Master/texmf-dist/doc/luatex/barracuda/test/test-barracuda-package/01-barracuda-latex-test.tex index 33a81aeb5dd..8932f9eaaf3 100644 --- a/Master/texmf-dist/doc/luatex/barracuda/test/test-barracuda-package/01-barracuda-latex-test.tex +++ b/Master/texmf-dist/doc/luatex/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/Master/texmf-dist/doc/luatex/barracuda/test/test-barracuda-package/02-ord_iter-test.tex b/Master/texmf-dist/doc/luatex/barracuda/test/test-barracuda-package/02-ord_iter-test.tex new file mode 100644 index 00000000000..1b5d6509d48 --- /dev/null +++ b/Master/texmf-dist/doc/luatex/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/Master/texmf-dist/doc/luatex/barracuda/test/test-code128/001-code128-test.lua b/Master/texmf-dist/doc/luatex/barracuda/test/test-code128/001-code128-test.lua index 78645612dca..33dd927dc72 100644 --- a/Master/texmf-dist/doc/luatex/barracuda/test/test-code128/001-code128-test.lua +++ b/Master/texmf-dist/doc/luatex/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/Master/texmf-dist/doc/luatex/barracuda/test/test-code128/002-code128-test.pdf b/Master/texmf-dist/doc/luatex/barracuda/test/test-code128/002-code128-test.pdf Binary files differindex c3c8460bc7e..4cf993a396d 100644 --- a/Master/texmf-dist/doc/luatex/barracuda/test/test-code128/002-code128-test.pdf +++ b/Master/texmf-dist/doc/luatex/barracuda/test/test-code128/002-code128-test.pdf diff --git a/Master/texmf-dist/doc/luatex/barracuda/test/test-code128/002-code128-test.tex b/Master/texmf-dist/doc/luatex/barracuda/test/test-code128/002-code128-test.tex index eeaf60e4832..b5c081659e3 100644 --- a/Master/texmf-dist/doc/luatex/barracuda/test/test-code128/002-code128-test.tex +++ b/Master/texmf-dist/doc/luatex/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/Master/texmf-dist/doc/luatex/barracuda/test/test-code39/001-code39-test.lua b/Master/texmf-dist/doc/luatex/barracuda/test/test-code39/001-code39-test.lua index e4a8569e938..a9d8894ba06 100644 --- a/Master/texmf-dist/doc/luatex/barracuda/test/test-code39/001-code39-test.lua +++ b/Master/texmf-dist/doc/luatex/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/Master/texmf-dist/doc/luatex/barracuda/test/test-code39/002-code39-test.pdf b/Master/texmf-dist/doc/luatex/barracuda/test/test-code39/002-code39-test.pdf Binary files differindex 060a61e8929..63ced9a3423 100644 --- a/Master/texmf-dist/doc/luatex/barracuda/test/test-code39/002-code39-test.pdf +++ b/Master/texmf-dist/doc/luatex/barracuda/test/test-code39/002-code39-test.pdf diff --git a/Master/texmf-dist/doc/luatex/barracuda/test/test-code39/002-code39-test.tex b/Master/texmf-dist/doc/luatex/barracuda/test/test-code39/002-code39-test.tex index 73f91aac430..eb1693b5ba8 100644 --- a/Master/texmf-dist/doc/luatex/barracuda/test/test-code39/002-code39-test.tex +++ b/Master/texmf-dist/doc/luatex/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/Master/texmf-dist/doc/luatex/barracuda/test/test-code39/003-code39-test.pdf b/Master/texmf-dist/doc/luatex/barracuda/test/test-code39/003-code39-test.pdf Binary files differindex 66b04e61e38..544a4b34ff0 100644 --- a/Master/texmf-dist/doc/luatex/barracuda/test/test-code39/003-code39-test.pdf +++ b/Master/texmf-dist/doc/luatex/barracuda/test/test-code39/003-code39-test.pdf diff --git a/Master/texmf-dist/doc/luatex/barracuda/test/test-code39/003-code39-test.tex b/Master/texmf-dist/doc/luatex/barracuda/test/test-code39/003-code39-test.tex index a4ba3d6e81c..884cdd0df49 100644 --- a/Master/texmf-dist/doc/luatex/barracuda/test/test-code39/003-code39-test.tex +++ b/Master/texmf-dist/doc/luatex/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/Master/texmf-dist/doc/luatex/barracuda/test/test-code39/004-code39-test.pdf b/Master/texmf-dist/doc/luatex/barracuda/test/test-code39/004-code39-test.pdf Binary files differindex 3c96d9233b4..0e5bfa42d09 100644 --- a/Master/texmf-dist/doc/luatex/barracuda/test/test-code39/004-code39-test.pdf +++ b/Master/texmf-dist/doc/luatex/barracuda/test/test-code39/004-code39-test.pdf diff --git a/Master/texmf-dist/doc/luatex/barracuda/test/test-code39/004-code39-test.tex b/Master/texmf-dist/doc/luatex/barracuda/test/test-code39/004-code39-test.tex index 559dc943837..9066d4dee80 100644 --- a/Master/texmf-dist/doc/luatex/barracuda/test/test-code39/004-code39-test.tex +++ b/Master/texmf-dist/doc/luatex/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/Master/texmf-dist/doc/luatex/barracuda/test/test-code39/006-code39-test.lua b/Master/texmf-dist/doc/luatex/barracuda/test/test-code39/006-code39-test.lua index d33ad4ffaf1..1b8ee9f4a1b 100644 --- a/Master/texmf-dist/doc/luatex/barracuda/test/test-code39/006-code39-test.lua +++ b/Master/texmf-dist/doc/luatex/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/Master/texmf-dist/doc/luatex/barracuda/test/test-ean/001-13-ean-test.pdf b/Master/texmf-dist/doc/luatex/barracuda/test/test-ean/001-13-ean-test.pdf Binary files differindex 0e8abb933f9..12eac36ba17 100644 --- a/Master/texmf-dist/doc/luatex/barracuda/test/test-ean/001-13-ean-test.pdf +++ b/Master/texmf-dist/doc/luatex/barracuda/test/test-ean/001-13-ean-test.pdf diff --git a/Master/texmf-dist/doc/luatex/barracuda/test/test-ean/001-13-ean-test.tex b/Master/texmf-dist/doc/luatex/barracuda/test/test-ean/001-13-ean-test.tex index c0a4db3894e..7c7b373a6c5 100644 --- a/Master/texmf-dist/doc/luatex/barracuda/test/test-ean/001-13-ean-test.tex +++ b/Master/texmf-dist/doc/luatex/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/Master/texmf-dist/doc/luatex/barracuda/test/test-ean/002-ean-test.pdf b/Master/texmf-dist/doc/luatex/barracuda/test/test-ean/002-ean-test.pdf Binary files differindex 568050371c8..796ad29ab03 100644 --- a/Master/texmf-dist/doc/luatex/barracuda/test/test-ean/002-ean-test.pdf +++ b/Master/texmf-dist/doc/luatex/barracuda/test/test-ean/002-ean-test.pdf diff --git a/Master/texmf-dist/doc/luatex/barracuda/test/test-ean/003-ean-test.pdf b/Master/texmf-dist/doc/luatex/barracuda/test/test-ean/003-ean-test.pdf Binary files differindex baa5a5b9cd4..c52c77a8471 100644 --- a/Master/texmf-dist/doc/luatex/barracuda/test/test-ean/003-ean-test.pdf +++ b/Master/texmf-dist/doc/luatex/barracuda/test/test-ean/003-ean-test.pdf diff --git a/Master/texmf-dist/doc/luatex/barracuda/test/test-ean/005-isbn-test.pdf b/Master/texmf-dist/doc/luatex/barracuda/test/test-ean/005-isbn-test.pdf Binary files differnew file mode 100644 index 00000000000..d71e87141de --- /dev/null +++ b/Master/texmf-dist/doc/luatex/barracuda/test/test-ean/005-isbn-test.pdf diff --git a/Master/texmf-dist/doc/luatex/barracuda/test/test-ean/005-isbn-test.tex b/Master/texmf-dist/doc/luatex/barracuda/test/test-ean/005-isbn-test.tex new file mode 100644 index 00000000000..d69ff6fc283 --- /dev/null +++ b/Master/texmf-dist/doc/luatex/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/Master/texmf-dist/doc/luatex/barracuda/test/test-ean/006-issn-test.pdf b/Master/texmf-dist/doc/luatex/barracuda/test/test-ean/006-issn-test.pdf Binary files differnew file mode 100644 index 00000000000..57f3739fb7e --- /dev/null +++ b/Master/texmf-dist/doc/luatex/barracuda/test/test-ean/006-issn-test.pdf diff --git a/Master/texmf-dist/doc/luatex/barracuda/test/test-ean/006-issn-test.tex b/Master/texmf-dist/doc/luatex/barracuda/test/test-ean/006-issn-test.tex new file mode 100644 index 00000000000..576963bd810 --- /dev/null +++ b/Master/texmf-dist/doc/luatex/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/Master/texmf-dist/doc/luatex/barracuda/test/test-ean/ars.svg b/Master/texmf-dist/doc/luatex/barracuda/test/test-ean/ars.svg new file mode 100644 index 00000000000..5bfc01d0f3c --- /dev/null +++ b/Master/texmf-dist/doc/luatex/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/Master/texmf-dist/doc/luatex/barracuda/test/test-ga-pdfliteral/001-ga-pdfliteral-test.pdf b/Master/texmf-dist/doc/luatex/barracuda/test/test-ga-pdfliteral/001-ga-pdfliteral-test.pdf Binary files differindex b8a7477c7fc..b3f3336f436 100644 --- a/Master/texmf-dist/doc/luatex/barracuda/test/test-ga-pdfliteral/001-ga-pdfliteral-test.pdf +++ b/Master/texmf-dist/doc/luatex/barracuda/test/test-ga-pdfliteral/001-ga-pdfliteral-test.pdf diff --git a/Master/texmf-dist/doc/luatex/barracuda/test/test-ga-pdfliteral/001-ga-pdfliteral-test.tex b/Master/texmf-dist/doc/luatex/barracuda/test/test-ga-pdfliteral/001-ga-pdfliteral-test.tex index 1a5ed80d0c5..c51fa3dfb09 100644 --- a/Master/texmf-dist/doc/luatex/barracuda/test/test-ga-pdfliteral/001-ga-pdfliteral-test.tex +++ b/Master/texmf-dist/doc/luatex/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/Master/texmf-dist/doc/luatex/barracuda/test/test-ga-svg/002-ga-svg-test.lua b/Master/texmf-dist/doc/luatex/barracuda/test/test-ga-svg/002-ga-svg-test.lua index 8f10d6dfbf7..b5a2e3c4ae2 100644 --- a/Master/texmf-dist/doc/luatex/barracuda/test/test-ga-svg/002-ga-svg-test.lua +++ b/Master/texmf-dist/doc/luatex/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/Master/texmf-dist/doc/luatex/barracuda/test/test-i2of5/001-i2of5-test.pdf b/Master/texmf-dist/doc/luatex/barracuda/test/test-i2of5/001-i2of5-test.pdf Binary files differindex 3aa107681c4..f2dbd6f9ea6 100644 --- a/Master/texmf-dist/doc/luatex/barracuda/test/test-i2of5/001-i2of5-test.pdf +++ b/Master/texmf-dist/doc/luatex/barracuda/test/test-i2of5/001-i2of5-test.pdf diff --git a/Master/texmf-dist/doc/luatex/barracuda/test/test-i2of5/001-i2of5-test.tex b/Master/texmf-dist/doc/luatex/barracuda/test/test-i2of5/001-i2of5-test.tex index 43c652d66a8..0062b74d3e4 100644 --- a/Master/texmf-dist/doc/luatex/barracuda/test/test-i2of5/001-i2of5-test.tex +++ b/Master/texmf-dist/doc/luatex/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/Master/texmf-dist/doc/luatex/barracuda/test/test-i2of5/002-ITF14-test.pdf b/Master/texmf-dist/doc/luatex/barracuda/test/test-i2of5/002-ITF14-test.pdf Binary files differnew file mode 100644 index 00000000000..79a05eca420 --- /dev/null +++ b/Master/texmf-dist/doc/luatex/barracuda/test/test-i2of5/002-ITF14-test.pdf diff --git a/Master/texmf-dist/doc/luatex/barracuda/test/test-i2of5/002-ITF14-test.tex b/Master/texmf-dist/doc/luatex/barracuda/test/test-i2of5/002-ITF14-test.tex new file mode 100644 index 00000000000..52784b66bbc --- /dev/null +++ b/Master/texmf-dist/doc/luatex/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 + + |