cislovani radku odstavce, ktery je parshapeovy

[Miroslava Misakova]

Dobry den,

divala jsem se makro z TBN, ktere cisluje radky vysazeneho odstavce.
Vsechno je ok, ale jen do chvile, kdy ho pouziji s nejakym \hangafter
a pod. Makro funguje tak, ze odstavec je zalaman, pak se chvilku
unhboxuje, pridavaji se \llapem cisla (to nezmeni zlom) a znovu zalaman.
Rekla bych, ze problem je v tom, ze kdyz to TeX podruhe lame, uz zapomene
na nastaveni parshape. Co s tim? Jak si to nejak "zapamatovat", nebo jak
to resit?

diky, Mirka

% cisluj.mac
\newcount\linenum \newcount\tempnum \newbox\allparagraph
\def\begnum{\par\begingroup\linenum=0
  \def\par{\ifhmode\completepar\fi}%
  \setbox\allparagraph=\vbox\bgroup}
\def\endnum{\par\egroup\endgroup}
\def\completepar{\endgraf \global\advance\linenum by \prevgraf
  \tempnum=\linenum \setbox0=\hbox{}
  \loop \unskip \unpenalty \setbox2=\lastbox
     \ifhbox2 \global\setbox0=
          \hbox{\llap{$\scriptstyle\the\tempnum.$\hskip.7em}%
                \box2\penalty0\unhbox0}
       \advance\tempnum by-1
  \repeat
  \egroup \noindent\unhbox0\unpenalty \endgraf
%         ^^^^^^^^^^^^^^^^^^^^^^^^^^^
% tady by to chtelo zopakovat parametry (\parshape), s jakymi byl
% laman puvodni odstavec, a vse by bylo asi v poradku
  \setbox\allparagraph=\vbox\bgroup}