☰

Problemas con la salida de varias páginas al crear nodos directamente con node.write()

tag-icon • tag-icon luatex
Problemas con la salida de varias páginas al crear nodos directamente con 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

Producción

Tenga en cuenta que se corta. Esperaba que se produjera un salto de página y que el resto del contenido pasara a la página siguiente.

mala salida

Notas/Preguntas

La idea es crear nodos de párrafo completamente en Lua y enviarlos a LuaTeX usando node.write().

  • Estoy anulando la rutina de salida Plain TeX con la rutina de salida predeterminada haciendo:\output={\shipout\box255}

  • El tex.pagetotalparámetro no parece incrementarse automáticamente. No estoy seguro si eso es parte del problema.

  • Supongo que otra forma de hacer esto es llenar todo el cuadro por mi cuenta y enviarlo usando tex.shipout, pero esperaba ejercitar las rutinas de creación de páginas dentro de TeX para dividir la página en la ubicación correcta, en lugar de hacerlo en mi propio.

¿Cómo puedo arreglar esto?

Respuesta1

Resulta que es un descuido bastante tonto de mi parte. Sólo estaba ajustando el \pageheight. El \vsizeparámetro utilizado fue el establecido en la macro Plain TeX (que mide 8,9 pulgadas). Si cambio el tamaño de \vsizepara que sea un poco menor que \pageheight, entonces todo funciona bien.

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

información relacionada