[cstex] Délka východového řádku

[Marcel Svitalský]

Děkuji, tohle ve skutečnosti — v předchozím emailu jsem se mýlil — po
úpravě funguje!

\newdimen\lastlinewidth
\newdimen\lastlinewidthfree

\def\testlastline{%
  \ifhmode $$ \advance\predisplaysize by -1.6667em%
  \global\lastlinewidth=\predisplaysize%
  \predisplaysize=\maxdimen%
  \abovedisplayskip=-\baselineskip%
  \belowdisplayskip=0pt $$\endgraf\fi}

\def\typesetorbreak#1{\setbox0=\hbox{#1}%
  \testlastline%
  \lastlinewidthfree=\hsize%
  \advance\lastlinewidthfree by -\lastlinewidth%
  \par%
  \ifdim\wd0>\lastlinewidthfree\vskip
.5\baselineskip\fi\noindent\strut\hfill#1%
}


\hsize 10cm
blabla blabla blabla blabla blabla blabla blabla blabla blla blabla
blabla blabla blabla blabla blabla blblabla blabla blabla blabla blabla
blabla blabla blabla blabla blabla blabla blab \typesetorbreak{aaaaaa}


blablaaaaaaa blablaaaaaaa blablaaaaaaa \typesetorbreak{aaaaaa}

\bye

Zdravím,
Marcel Svitalský


On 11. 06. 20 23:45, Tomas Hala wrote:
> Dobrý večer,
>
> zkuste toto:
>
> \newdimen\lastlinewidth
> \newdimen\lastlinewidthfree
>
> \def\testlastline{%
>   \ifhmode $$ \advance\predisplaysize by -1.6667em%
>   \global\lastlinewidth=\predisplaysize%
>   \predisplaysize=\maxdimen%
>   \abovedisplayskip=-\baselineskip%
>   \belowdisplayskip=0pt $$\endgraf\fi}
>
> \def\typesetorbreak#1{\setbox0=\hbox{#1}%
>   \testlastline%
>   \lastlinewidthfree=\textwidth%
>   \advance\lastlinewidthfree by -\lastlinewidth%
>   \hskip\lastlinewidth%
>   \ifdim\wd0>\lastlinewidthfree\par\fi#1%
> }
>
> \def\typesetorbreak#1{#1}
>
> \hsize 10cm
> blabla \typesetorbreak{aaaaaa}
>
> \hsize 1cm
> blabla \typesetorbreak{aaaaaa}
>
> \bye
>
> Přiznám se, že to není úplně z mé hlavy, základní myšlenku jsem kdysi
> objevil (myslím) v TBN.
>
> Zdraví
>
> Tomáš Hála
>
>
> Thu, Jun 11, 2020 ve 11:18:19PM +0200 Marcel Svitalský napsal(a):
> #    Dobrý den,
> # 
> #    existuje prosím nějaký způsob, jak zjistit skutečnou délku (tj. po
> #    provedení odst. zlomu) východového řádku právě ukončeného odstavce?
> # 
> #    Příklad: chci za odstavec běžného textu vložit doprava zarovnaný řádek s
> #    nějakým odkazem či jinou informací, avšak pokud se potkává s východovým
> #    řádkem (tj. délka východového řádku plus délka odkazu plus něco málo je
> #    větší než \hsize), chci před tento řádek vložit půlřádkovou vertikální
> #    mezeru, a to celé bych chtěl dělat automaticky.
> # 
> #    Děkuji, s pozdravem,
> #    Marcel Svitalský
>
>
>
>
> # _______________________________________________
> # csTeX mailing list
> # csTeX at cs.felk.cvut.cz
> # https://lists.felk.cvut.cz/mailman/listinfo/cstex
>
>
>                                          Tomáš Hála
> --------------------------------------------------------------------
> Mendelova univerzita, Provozně ekonomická fakulta, ústav informatiky
> Zemědělská 1, CZ-613 00 Brno,  tel. +420 545 13 22 28
> --------------------------------------------------------------------
> http://akela.mendelu.cz/~thala
> _______________________________________________
> csTeX mailing list
> csTeX at cs.felk.cvut.cz
> https://lists.felk.cvut.cz/mailman/listinfo/cstex

-------------- next part --------------
A non-text attachment was scrubbed...
Name: pEpkey.asc
Type: application/pgp-keys
Size: 2472 bytes
Desc: not available
URL: <http://lists.felk.cvut.cz/pipermail/cstex/attachments/20200612/501bb837/attachment.bin>