luametalatex/luametalatex-pdf-font-node.lua

43 lines
1.5 KiB
Lua

local writer = require'luametalatex-nodewriter'
local utils = require'luametalatex-pdf-utils'
local to_bp, strip_floats = utils.to_bp, utils.strip_floats
local prepared = {}
return {
buildfont = function(pdf, fontdir, usedcids)
local designsize = fontdir.designsize
local scale = 1/to_bp(designsize)
local bbox = {0, 0, 0, 0}
local matrix = {scale, 0, 0, scale, 0, 0}
local widths = {}
local first_cid = usedcids[1][1]-1
local charprocs = {}
local prev = 0
local characters = fontdir.characters
local prepared = assert(prepared[fontdir])
for i=1,#usedcids do
local used = usedcids[i]
local glyph = characters[used[1]]
for j=prev+1,used[1]-first_cid-1 do
widths[j] = 0
end
prev = used[1]-first_cid
widths[prev] = to_bp(glyph.width)
charprocs[i] = string.format("/G%i %i 0 R", used[1], prepared[used[1]])
end
return bbox, matrix, pdf:indirect(nil, strip_floats('[' .. table.concat(widths, ' ') .. ']')), '<<' .. table.concat(charprocs) .. '>>'
end,
prepare = function(fontdir, usedglyphs, pdf, fontdirs, allusedglyphs)
local state = prepared[fontdir]
if not state then
state = {}
prepared[fontdir] = state
end
for gid in next, usedglyphs do if tonumber(gid) and not state[gid] then
local stream, annots
stream, state.resources, annots = writer(pdf, fontdir.characters[gid].node, fontdirs, allusedglyphs, nil, state.resources)
state[gid] = pdf:stream(nil, '', stream)
assert(annots == '')
end end
end,
}