<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1250">
<META NAME="Generator" CONTENT="MS Exchange Server version 6.0.6249.1">
<TITLE>RE: podpis s parchantem</TITLE>
</HEAD>
<BODY>
<!-- Converted from text/plain format -->
<BR>
<P><FONT SIZE=2>> </FONT>
<BR><FONT SIZE=2>> zdravim</FONT>
<BR><FONT SIZE=2>> </FONT>
<BR><FONT SIZE=2>> pouzivam makro \podpis z tbn</FONT>
<BR><FONT SIZE=2>> (</FONT>
<BR><FONT SIZE=2>> \def\podpis #1\par{\unskip</FONT>
<BR><FONT SIZE=2>> \nobreak\hfill\penalty71\hskip2em\hbox{}\nobreak\hfill</FONT>
<BR><FONT SIZE=2>> \hbox{\it #1\/}\par}</FONT>
<BR><FONT SIZE=2>> )</FONT>
<BR><FONT SIZE=2>> na sazeni nazvu zdroje pod uryvky textu, jelikoz tech uryvku je</FONT>
<BR><FONT SIZE=2>> celkem hodne za sebou a ja potrebuji setrit mistem.</FONT>
<BR><FONT SIZE=2>> </FONT>
<BR><FONT SIZE=2> Kromě rucniho vloženi \vadjust{\nobreak} je mozno vysadit inkriminovany</FONT>
<BR><FONT SIZE=2>odstavec do boxu, z nej odebrat posledni dva radky, pred ne vložit vhodnou </FONT>
<BR><FONT SIZE=2>penaltu a box pak vysadit. tj. neco podobneho jako v TBN</FONT>
</P>
<P><FONT SIZE=2> \def\podpis #1\kon{\unskip</FONT>
<BR><FONT SIZE=2> \nobreak\hfill\penalty71\hskip2em\hbox{}\nobreak\hfill</FONT>
<BR><FONT SIZE=2> \hbox{\it #1\/}\par}</FONT>
</P>
<P><FONT SIZE=2> \def\sejmimezery{\skip0=\lastskip \unskip</FONT>
<BR><FONT SIZE=2> \advance\skip0 by\lastskip \unskip</FONT>
<BR><FONT SIZE=2> \advance\skip0 by\lastskip \unskip}</FONT>
</P>
<P><FONT SIZE=2>\def\podepsany #1\podpis #2\par{\setbox2=\vbox{#1\podpis #2\kon}</FONT>
<BR><FONT SIZE=2>\setbox1=\vbox{\unvbox2 \sejmimezery</FONT>
<BR><FONT SIZE=2>\setbox2=\vbox{\vskip\skip0}</FONT>
<BR><FONT SIZE=2>\setbox0=\lastbox\sejmimezery\unpenalty</FONT>
<BR><FONT SIZE=2>\setbox2=\vbox{\penalty10000\vskip\skip0 \box0 \unvbox2}</FONT>
<BR><FONT SIZE=2>\setbox0=\lastbox\sejmimezery\unpenalty</FONT>
<BR><FONT SIZE=2>\setbox2=\vbox{\penalty10000\vskip\skip0 \box0 \unvbox2}</FONT>
<BR><FONT SIZE=2>\unvbox2}\unvbox1\par}</FONT>
</P>
<P><FONT SIZE=2>Pouziti pri standardnim nastaveni TeXu</FONT>
</P>
<P><FONT SIZE=2>\topskip=12pt</FONT>
<BR><FONT SIZE=2>\baselineskip=12pt plus 12pt</FONT>
<BR><FONT SIZE=2>\vsize=3\baselineskip</FONT>
</P>
<P><FONT SIZE=2>\podepsany</FONT>
<BR><FONT SIZE=2>A aaaa aaaaaaaa aaaaaaa aaaa aaaa aaa aaa aaaa aaaa</FONT>
<BR><FONT SIZE=2>aaaaaaaaa aaaaaaaa aaaaaaa aaaa aaaa aaa aaa aaaa aaaa</FONT>
<BR><FONT SIZE=2>aaaaaaaaa aaaaaaaa aaaaaaa aaaa aaaa aaa aaa aaaa aaaa</FONT>
<BR><FONT SIZE=2>aaaaaaaaa aaaaaaaa aaaaaaa aaaa aaaa aaa aaa aaaa aaaa</FONT>
<BR><FONT SIZE=2>aaaa aaaa aaa aaa aaaa aaaa</FONT>
<BR><FONT SIZE=2>aaaaaaaaa aaaaaaaa aaaaaaa aaaa aaaa aaa aaa aaaa aaaa</FONT>
<BR><FONT SIZE=2>aaaa aaaa aaa aaa aaaa aaaa</FONT>
<BR><FONT SIZE=2>aaaaaaaaa aaaaaaaa aaaaaaa aaaa aaaa aaa aaa</FONT>
<BR><FONT SIZE=2>\podpis Ferdinand Mravenec</FONT>
</P>
<P><FONT SIZE=2>\podepsany</FONT>
<BR><FONT SIZE=2>A aaaa aaaaaaaa aaaaaaa aaaa aaaa aaa aaa aaaa aaaa</FONT>
<BR><FONT SIZE=2>aaaaaaaaa aaaaaaaa aaaaaaa aaaa aaaa aaa aaa aaaa aaaa</FONT>
<BR><FONT SIZE=2>aaaaaaaaa aaaaaaaa aaaaaaa aaaa aaaa aaa aaa aaaa aaaa</FONT>
<BR><FONT SIZE=2>aaaaaaaaa aaaaaaaa aaaaaaa aaaa aaaa aaa aaa aaaa aaaa</FONT>
<BR><FONT SIZE=2>aaaa aaaa aaa aaa aaaa aaaa</FONT>
<BR><FONT SIZE=2>\podpis Ferdinand Mravenec</FONT>
</P>
<P><FONT SIZE=2>samozřejme je možne toto makro dale vylepšovat (například tak,</FONT>
<BR><FONT SIZE=2>aby se použilo automaticky na odstavec, ve kterem je makro podpis, </FONT>
<BR><FONT SIZE=2>případně aby zkoumalo, zda se podpis odsunul na další řádek a pak</FONT>
<BR><FONT SIZE=2>se teprve použilo atd.) Doufam, ze neco takoveho pro inspiraci staci.</FONT>
</P>
<BR>
<BR>
<P><FONT SIZE=2>\bye</FONT>
<BR><FONT SIZE=2> </FONT>
</P>
</BODY>
</HTML>