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

[Zdenek Wagner]

Dobrý den,

délka řádku se dá zjistit tak, že sestavím \hbox s příslušným textem a pak
se pomocí \wd zeptám na jeho šířku, tedy např:

\newdimen\maxwidth \maxwidth=0mm
\newbox\radek
...
\setbox\radek=\hbox{Nějaká řádek}
\ifdim\wd\radek>\maxwidth
  \maxwidth=\wd\radek
\fi

Řádky si musíte nějak vhodně naskládat do vhodného makra, aby je bylo možno
vybírat postupně v cyklu a po změření maximální šířky vysázet.

Mimochodem, mám vlastní makro na poezii připravené tak, aby se verše sázely
od levého okraje a pokud je verš dlouhý, automaticky se zlomí a pokračovací
řádek je zarovnán vpravo. Makro \\ je definováno tak, aby se algoritmu dalo
ručně pomoci, pokud by automatický zlom nebyl dobrý (samozřejmě je
potlačeno dělení slov). Současně řeším stránkový zlom tak, aby k němu
docházelo přdnostně mezi slokami, jen v případě hodně dlohých slok je
nastvena tolerance, po jejímž překročení se báseň zlomí uprostřed sloky.
Vstup je podobný jako u verbatim, tedy každý verš na samostatném řádku,
prázdný řádek je konec sloky, dva a více prázdných řádků po sobě jsou
ekvivalentní jednomu. Je to sice připraveno pro LaTeX, ale programoval jsem
to plainovskými konstrukcemi. Zájemcům to mohu nabídnout.


Zdeněk Wagner
http://ttsm.icpf.cas.cz/team/wagner.shtml
http://icebearsoft.euweb.cz

Dne 9. července 2017 12:10 Marcel Svitalský <marcel.svitalsky at centrum.cz>
napsal(a):

> 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/ba147130/attachment-0002.html>