LuaTeX y Cavafis

Sin lugar a dudas, optamos por la excelsa Old Standard, diseño de Alexej Krykov y probablemente la mejor recreación digital del estilo Didot-aplá y de su itálica Lipsiakó. Así pues, definimos un documento a 11 puntos y cargamos el paquete fontspec:

\documentclass[11pt]{article}
\usepackage{fontspec}

Cargo también un paquete de factura propia, caluacode.sty, donde incluyo el código Lua necesario para ejecutar una serie de sustituciones contextuales, especialmente las de la beta curvada sin descendente y la theta cerrada en mitad de palabra. Estas filigranas no están presentes en las páginas originales de Nea Zoí, pues son más típicas de la tradición impresora francesa. Pero nos gustan mucho y nos permitimos la licencia. Cabe señalar que la propia fuente Old Standard ya incluye las propiedades OpenType de sustitución contextual para esos dos glifos, pero su cadena condicional de caracteres no está completa, así que definí hace tiempo unas cuantas funciones en Lua del tipo fonts.handlers.otf.addfeature que incluyen todos los contextos de sustitución y pueden aplicarse a cualquier fuente que disponga de los glifos a sustituir, aunque no lleven la correspondiente propiedad OpenType². Así pues, cargo el paquete con las funciones Lua y añado cuatro propiedades OpenType que definí para estos menesteres:

\usepackage{caluacode}
\defaultfontfeatures{%
RawFeature={+contextual,
+contextual2,
+contextual3,
+contextual4}}

La interlínea del original de Nea Zoí tal vez sea algo excesiva. Pero nos mantenemos fieles y añadimos un valor algo mayor del normal (que suele ser de 1.2em, es decir, un 120% del cuerpo de letra), redefiniendo el valor del texto normal de la clase article de LaTeX:

\renewcommand{\normalsize}{\fontsize{11pt}{14pt}\selectfont}

Por último, cargamos Babel con griego politónico y la fuente:

\usepackage[greek.polytonic]{babel}
\babelfont{rm}{Old Standard}

Cargamos el macro paquete verse.sty y hacemos las definiciones pertinentes de formato. La separación estrófica del original es un tanto excesiva, pero seguimos manteniendo una cierta fidelidad. Así que:

\usepackage{verse}
\setlength{\stanzaskip}{24pt}

La fuente del título es una paloseco geométrica. Valdría una Helvetica o una Arial, pero aquí yo prefiero desviarme algo y emplear una de estilo attiká, como la excelente GFS Neohellenic de la Sociedad de Fuentes Griega:

\renewcommand{\poemtitlefont}{%
\bfseries\fontsize{15pt}{14pt}\selectfont
\centering
\fontspec{GFS Neohellenic}}
\setlength{\afterpoemtitleskip}{28pt}
\setlength{\beforepoemtitleskip}{0pt}

Aquí llegamos a la parte más divertida. Nos basta con cargar el paquete microtype.sty, que es el encargado de gestionar todas las propiedades microtipográficas de LuaTeX, especialmente la conocida como «protrusion» para los márgenes ópticos. Yo tengo definido un largo archivo de configuración con valores de márgenes ópticos y colgado de diacríticos específicos para la fuente Old Standard, de modo que si hemos declarado previamente esa fuente, microtype extraerá los valores de dicho archivo. Concretamente para el colgado de diacríticos definí también un contexto, llamado «versogriego», y microtype sólo aplicará esos valores dentro del entorno versogriego. Conviene insistir que todas esas cifras están optimizadas para la fuente Old Standard, y si se aplican a otras tipografías podríamos encontrarnos con resultados inesperados. Así comienza mi definición para los valores de colgado de diacríticos (aún en proceso de pruebas y, por tanto, experimentales):

%% Para los diacríticos al margen

\SetProtrusion
[ name = versogriego,
  load = oldstandard-default,
  context = versogriego,
  unit = 1em ]
{ encoding = {EU1,EU2,TU},
  family   = {OldStandard} }
{ Ἐ  = {212, },
  Ἑ  = {212, },
  Ἒ  = {258, },
  Ἓ  = {258, },
  Ἔ  = {286, },
  Ἕ  = {286, },
  Ἠ  = {212, }, %
  Ἡ  = {212, },
  Ἢ  = {258, },
  Ἣ  = {258, },

% (etc.)

}

Los valores de microtype funcionarían sólo en los márgenes «reales» y no en los márgenes de los versos que componemos a través del paquete verse y que no dejan de ser una variante muy modificada de un entorno list. Pero podemos aplicar antes un hacking que sugiere el autor de microtype. Por tanto, defino un comando protverso (de «protrusion en el verso»):

\makeatletter
 \newcommand*\protverso[1]{%
         {\everypar{}%
                 \setbox\z@\vbox{\noindent#1}%
                 \vbadness=\@M
                 \splittopskip=\z@
                 \global\setbox\z@=\vsplit\z@ to \baselineskip
                 \unvbox\z@ \global\setbox\z@=\lastbox
         }%
         \ifhbox\z@
         \leavevmode
         \kern\leftmarginkern\z@
         \fi
         #1}
 \makeatother

Así comenzaría nuestro documento con El funeral de Sarpedón:

\begin{document}

\poemtitle{Η ΚΗΔΕΙΑ ΤΟΥ ΣΑΡΠΗΔΟΝΟΣ}

\begin{microtypecontext}{protrusion=versogriego}

\settowidth{\versewidth}{και γύρισαν στες άλλες τους φροντίδες και δουλειές.}
 \itshape
\begin{verse}[\versewidth]\protverso
Βαρυὰν ὀδύνην ἔχει ὁ Ζεύς. Τὸν Σαρπηδόνα\\\protverso
ἐσκότωσεν ὁ Πάτροκλος· καὶ τώρα ὁρμοῦν\\\protverso
ὁ Μενοιτιάδης κ’ οἱ Ἀχαιοὶ τὸ σῶμα\\\protverso
ν’ ἁρπάξουνε καὶ νὰ τὸ ἐξευτελίσουν.

\protverso
Ἀλλὰ ὁ Ζεὺς διόλου δὲν στέργει αὐτά.\\\protverso
Τὸ ἀγαπημένο του παιδὶ ― ποὺ τὸ ἄφισε\\\protverso
καὶ χάθηκεν· ὁ Νόμος ἦταν ἔτσι ―\\\protverso
τουλάχιστον θὰ τὸ τιμήσει πεθαμένο.\\\protverso
Καὶ στέλνει, ἰδού, τὸν Φοῖβο κάτω στὴν πεδιάδα\\\protverso
ἑρμηνευμένο πῶς τὸ σῶμα νὰ νοιασθεῖ.

% (... ... ... ... ...)

% (etc.)

\end{verse}
\end{microtypecontext}
\end{document}

Y aquí se puede descargar el PDF resultante.