☰

Problemas com saída de várias páginas ao construir nós diretamente com node.write()

tag-icon • tag-icon luatex
Problemas com saída de várias páginas ao construir nós diretamente com node.write()

MWE

mwe.tex

\directlua{tex.enableprimitives('',tex.extraprimitives())}
\output={\shipout\box255}
\pagewidth=210mm
\pageheight=2in
\hoffset=1in
\voffset=1in
\directlua{dofile("mwe.lua")}
\end

mwe.lua

tex.outputmode = 1

-- Build a simple paragraph node from given text. This code does not do any complex shaping etc.
--
-- adapted from: http://tex.stackexchange.com/questions/114568/can-i-create-a-node-list-from-some-text-entirely-within-lua
local function text_to_paragraph(text)
  local current_font = font.current()
  local font_params = font.getfont(current_font).parameters

  local para_head = node.new("local_par")

  local last = para_head

  local indent = node.new("hlist",3)
  indent.width = tex.parindent
  indent.dir = "TRT"
  last.next = indent
  last = indent

  for c in text:gmatch"." do  -- FIXME use utf8 lib
    local v = string.byte(c)
    local n
    if v < 32 then
      goto skipchar
    elseif v == 32 then
      n = node.new("glue",13)
      node.setglue(n, font_params.space, font_params.space_shrink, font_params.space_stretch)
    else
      n = node.new("glyph", 1)
      n.font = current_font
      n.char = v
      n.lang = tex.language
      n.uchyph = 1
      n.left = tex.lefthyphenmin
      n.right = tex.righthyphenmin
    end
    last.next = n
    last = n
    ::skipchar::
  end

  -- now add the final parts: a penalty and the parfillskip glue
  local penalty = node.new("penalty", 0)
  penalty.penalty = 10000

  local parfillskip = node.new("glue", 14)
  parfillskip.stretch = 2^16
  parfillskip.stretch_order = 2

  last.next = penalty
  penalty.next = parfillskip

  node.slide(para_head)
  return para_head
end

local content = "Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum."

for i = 1,3 do
  local head = text_to_paragraph(content)
  -- Break the paragraph into vertically stacked boxes
  local vbox = tex.linebreak(head, { hsize = tex.hsize })
  node.write(vbox)
  node.write(node.copy(tex.parskip))
  node.write(node.copy(tex.baselineskip))
  print("PAGE TOTAL " .. tex.pagetotal)
end

Saída

Observe que ele é cortado. Eu esperava que ocorresse uma quebra de página e que o restante do conteúdo passasse para a próxima página.

saída ruim

Notas/Perguntas

A ideia é criar nós de parágrafo inteiramente em Lua e alimentá-los no LuaTeX usando node.write().

  • Estou substituindo a rotina de saída do Plain TeX pela rotina de saída padrão fazendo:\output={\shipout\box255}

  • O tex.pagetotalparâmetro não parece se incrementar automaticamente. Não tenho certeza se isso é parte do problema

  • Acho que outra maneira de fazer isso é preencher a caixa inteira sozinho e enviá-la usando tex.shipout, mas eu esperava exercitar as rotinas de construção de páginas dentro do TeX para quebrar a página no local certo, em vez de fazer isso no meu ter.

Como posso consertar isso?

Responder1

Acontece que é um descuido muito bobo da minha parte. Eu estava apenas ajustando o \pageheight. O \vsizeparâmetro usado foi aquele definido na macro Plain TeX (que é 8,9 pol.). Se eu alterar o tamanho para \vsizeum pouco menor que \pageheight, as coisas funcionarão bem.

\directlua{tex.enableprimitives('',tex.extraprimitives())}
\output={\shipout\box255}
\pagewidth=210mm
\pageheight=2in
\vsize=1in
\hoffset=1in
\voffset=1in
\directlua{dofile("mwe.lua")}
\end

informação relacionada