<html><body>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.<br><br>\input opmac<br><br>\long\def\zjistinejdelsi#1{<br> \setbox0=\vbox{#1\par<br> \tmpdim0pt<br> \loop \unskip \unpenalty \setbox2=\lastbox<br> \ifhbox2<br> \setbox4=\hbox{\unhbox2}%<br> \ifdim\wd4>\tmpdim \tmpdim=\wd4 \fi<br> \repeat<br> \expandafter}\expandafter\tmpdim\the\tmpdim\relax}<br><br>\hsize150pt<br>\rightskip0ptplus\hsize<br>\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.}<br>\the\tmpdim<br>\bye<br><br>Mějte se<br>Jan Šustek<br><br><aside>
---------- Původní e-mail ----------<br>
Od: Marcel Svitalský <marcel.svitalsky@centrum.cz><br>
Komu: Czech and Slovak TeX-related mailing list <cstex@cs.felk.cvut.cz><br>
Datum: 9. 7. 2017 12:27:29<br>
Předmět: [cstex] Jak zjistit skutečnou šířku textu na praporek
</aside><br><blockquote data-email="marcel.svitalsky@centrum.cz">
<div>
Zdravím veleváženou konferenci! ;-)<br>
<br>
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ů.<br>
<br>
Děkuji a zdravím<br>
<div>-- <br>
Marcel Svitalský<i> </i> </div>
</div>_______________________________________________
<br>csTeX mailing list
<br>csTeX@cs.felk.cvut.cz
<br>https://lists.felk.cvut.cz/mailman/listinfo/cstex
<br></blockquote></body></html>