[cstex] Jak zjistit skutečnou šířku textu na praporek

[Jan Sustek]

Dobrý den, nabízím makro \zjistinejdelsi, které vezme nějaký odstavcový 
text, klidně několik odstavců, klidně ručně nalámaný, a uloží do proměnné \
tmpdim šířku nejširšího řádku. Například u uvedeného textu sázeného na 150pt
má nejširší řádek 123pt.

\input opmac

\long\def\zjistinejdelsi#1{
  \setbox0=\vbox{#1\par
    \tmpdim0pt
    \loop \unskip \unpenalty \setbox2=\lastbox
      \ifhbox2
      \setbox4=\hbox{\unhbox2}%
      \ifdim\wd4>\tmpdim \tmpdim=\wd4 \fi
    \repeat
  \expandafter}\expandafter\tmpdim\the\tmpdim\relax}

\hsize150pt
\rightskip0ptplus\hsize
\zjistinejdelsi{Sto roků v~šachtě žil, mlčel jsem. Sto roků kopal jsem $\
arccos x+\arccos y$. Za $\sqrt{\sqrt{100\,000\,000}}$~let v~rameni bezmasém 
svaly mi v~železo ztuhly.}
\the\tmpdim
\bye

Mějte se
Jan Šustek

---------- Původní e-mail ----------
Od: Marcel Svitalský <marcel.svitalsky at centrum.cz>
Komu: Czech and Slovak TeX-related mailing list <cstex at cs.felk.cvut.cz>
Datum: 9. 7. 2017 12:27:29
Předmět: [cstex] Jak zjistit skutečnou šířku textu na praporek 
" 
Zdravím veleváženou konferenci! ;-)

Rád bych se zeptal, jak mohu plain-TeX-ovými prostředky zjistit skutečnou 
šířku textu, jenž není vysázen do bloku, nýbrž používá raggedright, ručně 
zalámané řádky typu veršů atp., čili vlastně jak mohu najít (změřit) 
maximální délku několika předem neznámých řádků.

Děkuji a zdravím

-- 
Marcel Svitalský  

_______________________________________________ 
csTeX mailing list 
csTeX at cs.felk.cvut.cz 
https://lists.felk.cvut.cz/mailman/listinfo/cstex 
"
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.felk.cvut.cz/pipermail/cstex/attachments/20170710/26f150a3/attachment-0002.html>