podpis s parchantem

[Pavel Calábek]

>
> zdravim
>
> pouzivam makro \podpis z tbn
> (
> \def\podpis #1\par{\unskip
>
\nobreak\hfill\penalty71\hskip2em\hbox{}
\nobreak\hfill
>   \hbox{\it #1\/}\par}
> )
> na sazeni nazvu zdroje pod uryvky
textu, jelikoz tech uryvku je
> celkem hodne za sebou a ja potrebuji
setrit mistem.
>
   Kromě rucniho vloženi
\vadjust{\nobreak} je mozno vysadit
inkriminovany
odstavec do boxu, z nej odebrat posledni
dva radky, pred ne vložit vhodnou
penaltu a box pak vysadit. tj. neco
podobneho jako v TBN

 \def\podpis #1\kon{\unskip

\nobreak\hfill\penalty71\hskip2em\hbox{}
\nobreak\hfill
 \hbox{\it #1\/}\par}

 \def\sejmimezery{\skip0=\lastskip
\unskip
   \advance\skip0 by\lastskip \unskip
   \advance\skip0 by\lastskip \unskip}

\def\podepsany #1\podpis
#2\par{\setbox2=\vbox{#1\podpis #2\kon}
\setbox1=\vbox{\unvbox2 \sejmimezery
\setbox2=\vbox{\vskip\skip0}
\setbox0=\lastbox\sejmimezery\unpenalty
\setbox2=\vbox{\penalty10000\vskip\skip0
\box0 \unvbox2}
\setbox0=\lastbox\sejmimezery\unpenalty
\setbox2=\vbox{\penalty10000\vskip\skip0
\box0 \unvbox2}
\unvbox2}\unvbox1\par}

Pouziti pri standardnim nastaveni TeXu

\topskip=12pt
\baselineskip=12pt plus 12pt
\vsize=3\baselineskip

\podepsany
A aaaa aaaaaaaa aaaaaaa aaaa aaaa aaa
aaa aaaa aaaa
aaaaaaaaa aaaaaaaa aaaaaaa aaaa aaaa aaa
aaa aaaa aaaa
aaaaaaaaa aaaaaaaa aaaaaaa aaaa aaaa aaa
aaa aaaa aaaa
aaaaaaaaa aaaaaaaa aaaaaaa aaaa aaaa aaa
aaa aaaa aaaa
aaaa aaaa aaa aaa aaaa aaaa
aaaaaaaaa aaaaaaaa aaaaaaa aaaa aaaa aaa
aaa aaaa aaaa
aaaa aaaa aaa aaa aaaa aaaa
aaaaaaaaa aaaaaaaa aaaaaaa aaaa aaaa aaa
aaa
\podpis Ferdinand Mravenec

\podepsany
A aaaa aaaaaaaa aaaaaaa aaaa aaaa aaa
aaa aaaa aaaa
aaaaaaaaa aaaaaaaa aaaaaaa aaaa aaaa aaa
aaa aaaa aaaa
aaaaaaaaa aaaaaaaa aaaaaaa aaaa aaaa aaa
aaa aaaa aaaa
aaaaaaaaa aaaaaaaa aaaaaaa aaaa aaaa aaa
aaa aaaa aaaa
aaaa aaaa aaa aaa aaaa aaaa
\podpis Ferdinand Mravenec

samozřejme je možne toto makro dale
vylepšovat (například tak,
aby se použilo automaticky na odstavec,
ve kterem je makro podpis,
případně aby zkoumalo, zda se podpis
odsunul na další řádek a pak
se teprve použilo atd.) Doufam, ze neco
takoveho pro inspiraci staci.



\bye

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.felk.cvut.cz/pipermail/cstex/attachments/20020919/d38e32f6/attachment-0002.html>