Error con Lua, Luamplib y Mpgraph

Question

El siguiente código funciona bien.

\documentclass{article}
\usepackage{luamplib}
\begin{document}
\begin{mplibcode}
  input graph ;
  beginfig(0) ;
  draw begingraph(5cm,3cm)
    gdraw (0,0) for x = 1 upto 3: .. (x, x) endfor ;
  endgraph ;
  endfig ;
\end{mplibcode}
\end{document}

Sin embargo, lo siguiente no funciona.

\documentclass{article}
\usepackage{luacode}
\usepackage{luamplib}
\begin{document}
\def\plot{
   \directlua{
      tex.print("\string\\begin{mplibcode}")
      tex.print("input graph ;")
      tex.print("beginfig(0)")
      tex.print("draw begingraph(5cm,3cm)")
      tex.print("   gdraw (0,0) for x = 1 upto 3: .. (x, x) endfor ;")
      tex.print("endgraph;")
      tex.sprint("endfig;")
      tex.print("\string\\end{mplibcode}")
}
}
\plot
\end{document}

Parece haber un problema con mplibdoreplacenewlinebro catcode. ¿Cómo se puede manejar este error?

Answer 1

Dado que estás usando luamplibLua, también puedes usar la interfaz de Lua y deshacerte del archivo \being...\end{mplibcode}.

\documentclass{article}
\usepackage{luamplib}
\begin{document}
\def\plot{%
  \directlua{luamplib.process_mplibcode([[
    input graph ;
    beginfig(0)
    draw begingraph(5cm,3cm)
       gdraw (0,0) for x = 1 upto 3: .. (x, x) endfor ;
    endgraph ;
    endfig ;
  ]])}%
}
\plot
\end{document}