<html>
  <head>
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
  </head>
  <body text="#000000" bgcolor="#FFFFFF">
    Děkuji, to je přesně co jsem potřeboval.<br>
    Marcel Svitalský<br>
    <br>
    <br>
    <div class="moz-cite-prefix">On 10.7.2017 11:26, Jan Sustek wrote:<br>
    </div>
    <blockquote type="cite"
      cite="mid:2yH.CkO%7B.1yCXLL%7BR7cP.1POqXU@seznam.cz">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ý <a class="moz-txt-link-rfc2396E" href="mailto:marcel.svitalsky@centrum.cz"><marcel.svitalsky@centrum.cz></a><br>
        Komu: Czech and Slovak TeX-related mailing list
        <a class="moz-txt-link-rfc2396E" href="mailto:cstex@cs.felk.cvut.cz"><cstex@cs.felk.cvut.cz></a><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>
        <a class="moz-txt-link-abbreviated" href="mailto:csTeX@cs.felk.cvut.cz">csTeX@cs.felk.cvut.cz</a>
        <br>
        <a class="moz-txt-link-freetext" href="https://lists.felk.cvut.cz/mailman/listinfo/cstex">https://lists.felk.cvut.cz/mailman/listinfo/cstex</a>
        <br>
      </blockquote>
      <br>
      <fieldset class="mimeAttachmentHeader"></fieldset>
      <br>
      <pre wrap="">_______________________________________________
csTeX mailing list
<a class="moz-txt-link-abbreviated" href="mailto:csTeX@cs.felk.cvut.cz">csTeX@cs.felk.cvut.cz</a>
<a class="moz-txt-link-freetext" href="https://lists.felk.cvut.cz/mailman/listinfo/cstex">https://lists.felk.cvut.cz/mailman/listinfo/cstex</a>
</pre>
    </blockquote>
    <br>
    <div class="moz-signature">-- <br>
      Marcel Svitalský<i> </i>
    </div>
  </body>
</html>