☰

Loop até o final de uma página

tag-icon • tag-icon loops
Loop até o final de uma página

Quero preencher uma página com uma única palavra ou frase repetida indefinidamente. Em seguida, imprimirei esta página. Por exemplo,

\documentclass[12pt]{article}

\usepackage[margin=0.5in]{geometry}
\usepackage{pgffor}

\begin{document}
\thispagestyle{empty}
\pagestyle{empty}
\setlength{\parindent}{0cm}
\def\Phrase{Phrase to repeat }
\def\repititions{400}%The issue is with the number 400.

\foreach \n in {0,...,\repititions}{\Phrase}
\end{document}

No entanto, cheguei ao número 400por tentativa e erro. Isso não é realmente um problema, pois imprimirei a página para que possa definir o número \repetitioncomo arbitrariamente grande. Pelo contrário, é um aborrecimento.

Então, minha pergunta é:

Existe uma maneira de interromper o loop no final de uma página, em vez de calcular o valor 400por tentativa e erro?

Responder1

O construtor de páginas é assíncrono e o TeX não tem nenhuma pista de onde uma página termina ao compor um parágrafo. Somente quando um parágrafo termina, as decisões de quebra de página são tomadas.

Minha estratégia é construir o parágrafo gigantesco em uma caixa que é então comparada à altura desejada do texto. Se ainda estiver abaixo, prepara-se uma nova caixa com mais repetições. Quando tivermos material suficiente (a altura da página mais três linhas só para ter certeza), a caixa é dividida na altura desejada e colocada na página atual.

\documentclass[12pt]{article}

\usepackage[
  margin=0.5in,
  heightrounded, % whole number of lines on the page
  showframe,     % just for the example
]{geometry}
\usepackage{expl3}

\ExplSyntaxOn
% faster than \pgffor
\cs_set_eq:NN \repeatphrase \prg_replicate:nn
\ExplSyntaxOff

\pagestyle{empty}
\setlength{\parindent}{0cm}

\begin{document}

\def\Phrase{Phrase to repeat }
\count255=200 % or anything that seems fit
\loop
  \typeout{Trying \the\count255\space\space repetitions}
  \setbox0=\vbox{\repeatphrase{\count255}{\Phrase}}
  \ifdim\ht0<\dimexpr\textheight+3\baselineskip\relax
  \advance\count255 by 20
\repeat

\setbox0=\vbox to \textheight{
  \vbadness=10000 % remove a spurious message
  \vsplit0 to \textheight
}
\unvbox0

\end{document}

As mensagens no terminal e no arquivo de log são

Trying 200 repetitions
Trying 220 repetitions
Trying 240 repetitions
Trying 260 repetitions
Trying 280 repetitions
Trying 300 repetitions
Trying 320 repetitions

O ponto de partida é 200, uma estimativa aproximada do que é necessário (pode-se começar em 1, mas não parece significativo).

insira a descrição da imagem aqui

Observe que o LaTeX não possui interface pública \vsplit, então temos que recorrer à programação de nível inferior.

Aqui está uma expl3versão completa que é essencialmente a mesma. Acabei de adicionar uma pequena flexibilidade ao salto entre linhas para melhor preencher a página.

\documentclass[12pt]{article}

\usepackage[
  margin=0.5in,
  heightrounded, % whole number of lines on the page
  showframe,     % just for the example
]{geometry}
\usepackage{xparse}

\ExplSyntaxOn
\NewDocumentCommand{\fillpage}{O{200}m}
 {
  \clearpage
  \egreg_fillpage:nn { #1 } { #2 }
  \clearpage
 }

\int_new:N \l__egreg_fillpage_copies_int
\box_new:N \l__egreg_fillpage_box

\cs_new_protected:Npn \egreg_fillpage:nn #1 #2
 {
  \int_set:Nn \l__egreg_fillpage_copies_int { #1 }
  \bool_do_until:nn
   {
    \dim_compare_p:nNn { \box_ht:N \l__egreg_fillpage_box } > { \textheight + 3\baselineskip }
   }
   {
    \typeout{Trying~\int_eval:n { \l__egreg_fillpage_copies_int }~repetitions}
    \vbox_set:Nn \l__egreg_fillpage_box
     {
      \skip_set:Nn \baselineskip { 1\baselineskip plus 0.1pt }
      \prg_replicate:nn { \l__egreg_fillpage_copies_int } { #2 }
     }
    \int_add:Nn \l__egreg_fillpage_copies_int { 20 }
   }
  \vbox_set_split_to_ht:NNn \l__egreg_fillpage_box \l__egreg_fillpage_box { \textheight }
  \box_use_drop:N \l__egreg_fillpage_box
 }
\ExplSyntaxOff

\pagestyle{empty}
\setlength{\parindent}{0cm}

\begin{document}

\fillpage{Phrase to repeat }

\end{document}

O comando \fillpagepossui um argumento opcional para definir o número inicial de repetições (padrão 200), então

\fillpage[300]{Phrase to repeat }

começaria em 300.

Responder2

Minha solução faz apenas uma impressão de texto repetido na caixa temporária0. Então esta box0 é \vsplitpara a página atual.

A macro \toendpage{repeated text}é fornecida. Esta macro preenche a página atual desde o ponto atual (é irrelevante se estiver no início ou no meio da página) até o final da página.

A macro \toendpageprecisa fazer um cálculo de quantas repetições do texto precisamos. Este número deve ser suficientemente grande, por isso é calculado como

(1.3 * \hsize/largura_do_texto + 1) * linhas_no_\pagegoal

A macro segue:

\newcount\tmpnum
\def\toendpage#1{\par \bgroup
   \setbox0=\hbox{#1}
   \null \nobreak \vskip-\baselineskip % we need to set \pagegoal and set zero \prevdepth
   \dimen0=\pagegoal
   \divide\dimen0 by\baselineskip
   \tmpnum=\dimen0                % \tmpnum= number of lines in \pagegoal
   \dimen0=1.3\hsize   
   \divide\dimen0 by\wd0          % \dimen0= number of text in 1.3\hsize     
   \advance\dimen0 by1sp          % increased by one
   \multiply\dimen0 by\tmpnum     % \dimen0= number of repeats of the text
   \tmpnum=0
   \setbox0=\vbox{\null \loop #1\advance\tmpnum by1 \ifnum\tmpnum<\dimen0 \repeat}
   \vbadness=10000
   \dimen0=\pagegoal \advance\dimen0 by-\pagetotal
   \setbox0=\vsplit0 to\dimen0    % \vsplit to the end of the current page
   \unvbox0
   \vfil\break \egroup
}

Usage:        
\toendpage{This is repeated text. }

informação relacionada