\def\visualbox#1#2#3{%
  \hbox{%
    \vrule height#2depth#3\hskip-0.4pt%
    \vbox{%
      \hrule width#1\vskip-0.4pt%
      \vskip#2%
      \vskip-0.4pt\hrule
      \vskip#3%
      \vskip-0.4pt\hrule
      \vskip-#3%
    }%
    \hskip-0.4pt\vrule height#2depth#3%
  }%
}

\def\visualized#1{%
  \setbox0\hbox{#1}%
  \hbox{\copy0\hskip-\wd0\visualbox{\wd0}{\ht0}{\dp0}}%
}

\def\pagebody{\visualized{\vbox to\vsize{\boxmaxdepth\maxdepth \pagecontents}}}

\let\oldshipout=\shipout
\def\shipout#1#2{\oldshipout\vbox{\visualized{#1{#2}}}}

\newskip\intercolskip
\intercolskip=5mm

\newbox\prvnisloupec
\newbox\druhysloupec
\newdimen\orighsize
\newif\ifprvnisloupec
\def\dvasloupce{%
  \prvnisloupectrue
  \orighsize\hsize
  \advance\hsize-\intercolskip
  \divide\hsize by2%
  \output{%
    \ifprvnisloupec
      \global\prvnisloupecfalse
      \global\setbox\prvnisloupec\box255%
    \else
      \global\prvnisloupectrue
      \hsize\orighsize
      \plainoutput
    \fi
  }%
  \let\origpagebody=\pagebody
  \def\pagebody{\hbox{%
    \setbox\druhysloupec=\box255%
    \setbox255\box\prvnisloupec
    \origpagebody
    \hskip\intercolskip
    \setbox255\box\druhysloupec
    \origpagebody
    }%
  }%
}

\dvasloupce

\chyph
\tolerance800 \pretolerance800 \emergencystretch4pt
\hbadness5000
\hyphenation{�pra-vu}

{\bf �patn�:}
\def\minitab#1#2{\line{\hss#1\hss\hss#2\hss}}

\minitab {pes}{�t�k�}
\minitab {ko�ka}{m�ouk�}
\minitab {slepice}{kd�k�}

\bigskip

{\bf Dob�e:}
\def\minitab#1#2{\line{%
  \hss\hbox to0pt{\hss#1\hss}\hss
  \hss\hbox to0pt{\hss#2\hss}\hss
  }}

\minitab {pes}{�t�k�}
\minitab {ko�ka}{m�ouk�}
\minitab {slepice}{kd�k�}

\bigskip

\def\PAR{%
  \ifhmode
    \unskip \hskip\parfillskip \vadjust{\vskip\parskip}\break \fi
  \indent}

\long\def\totokse#1#2{#1%
  \expandafter{\the#1#2}}

\input epsf

\newdimen\okoli \okoli=2mm
\newdimen\obrdimen
\newif\ifvlevo
\newcount\obrcount
\newtoks\obrtoks
\newdimen\obrvlevo
\newdimen\obrsirka
% \vlozobrazek {hloubka}{k�d pro obr�zek}
\def\vlozobrazek#1#2{\par
  \setbox0=\hbox{#2}%
  \vtop to0pt{%
  \vskip#1%
  \ifvlevo
    \line{\copy0\hss}%
  \else
    \line{\hss\copy0}%
  \fi
  \vss}%
  \vskip-\baselineskip %�(pouze ��ste�n� kompenzace vlo�en�)
  \obrcount=1%
  \obrtoks={}%
  \obrsirka=\hsize
  \obrvlevo=0pt%
  \obrdimen=\wd0\advance\obrdimen by\okoli
  \advance\obrsirka by-\obrdimen
  \ifvlevo
    \advance\obrvlevo by\obrdimen
  \fi
  \obrdimen=0pt%
  \dimen0=#1\advance\dimen0by-\okoli
  \loop\ifdim\obrdimen<\dimen0%
    \totokse\obrtoks{0pt\hsize}%
    \advance\obrcount by1%
    \advance\obrdimen by\baselineskip
  \repeat
  \advance\dimen0by\ht0%
  \advance\dimen0by2\okoli
  \loop\ifdim\obrdimen<\dimen0%
    \totokse\obrtoks{\obrvlevo\obrsirka}%
    \advance\obrcount by1%
    \advance\obrdimen by\baselineskip
  \repeat
  \parshape\obrcount\the\obrtoks 0pt\hsize
}

Ob�as bychom pot�ebovali, aby makro pro �pravu po�tu ��dk� v odstavci
- {\tt \string\looseness} - fungovalo na v�ce odstavc� najednou. Pokus�me
se proto vytvo�it makro, kter� se co nejv�ce p�ibl��� chov�n�
primitiva {\tt \string\PAR}, ale p�itom ned� \TeX u pokyn k zalomen�:

\vlevotrue
\vlozobrazek{17mm}{\epsfxsize=2cm\epsfbox{tuxsit.eps}}
Ob�as bychom pot�ebovali, aby makro pro �pravu zlomu odstavce
(nap�.~-- {\tt \string\looseness} nebo
{\tt \string\parshape})~-- fungovalo na v�ce odstavc� najednou.
Pokus�me se proto vytvo�it makro, kter� se co nejv�ce p�ibl��� chov�n�
primitiva {\tt \string\par}, ale p�itom ned� \TeX u pokyn
k~zalomen�:
\PAR
Ob�as bychom pot�ebovali, aby makro pro �pravu zlomu odstavce
(nap�.~-- {\tt \string\looseness} nebo
{\tt \string\parshape})~-- fungovalo na v�ce odstavc� najednou.
Pokus�me se proto vytvo�it makro, kter� se co nejv�ce p�ibl��� chov�n�
primitiva {\tt \string\par}, ale p�itom ned� \TeX u pokyn
k~zalomen�:\footnote*{Toto je pozn�mka pod �arou.}

Ob�as bychom pot�ebovali, aby makro pro �pravu zlomu odstavce
(nap�.~-- {\tt \string\looseness} nebo
{\tt \string\parshape})~-- fungovalo na v�ce odstavc� najednou.
Pokus�me se proto vytvo�it makro, kter� se co nejv�ce p�ibl��� chov�n�
primitiva {\tt \string\par}, ale p�itom ned� \TeX u pokyn
k~zalomen�:

Ob�as bychom pot�ebovali, aby makro pro �pravu zlomu odstavce
(nap�.~-- {\tt \string\looseness} nebo
{\tt \string\parshape})~-- fungovalo na v�ce odstavc� najednou.
Pokus�me se proto vytvo�it makro, kter� se co nejv�ce p�ibl��� chov�n�
primitiva {\tt \string\par}, ale p�itom ned� \TeX u pokyn
k~zalomen�:

Ob�as bychom pot�ebovali, aby makro pro �pravu zlomu odstavce
(nap�.~-- {\tt \string\looseness} nebo
{\tt \string\parshape})~-- fungovalo na v�ce odstavc� najednou.
Pokus�me se proto vytvo�it makro, kter� se co nejv�ce p�ibl��� chov�n�
primitiva {\tt \string\par}, ale p�itom ned� \TeX u pokyn
k~zalomen�:

Ob�as bychom pot�ebovali, aby makro pro �pravu zlomu odstavce
(nap�.~-- {\tt \string\looseness} nebo
{\tt \string\parshape})~-- fungovalo na v�ce odstavc� najednou.
Pokus�me se proto vytvo�it makro, kter� se co nejv�ce p�ibl��� chov�n�
primitiva {\tt \string\par}, ale p�itom ned� \TeX u pokyn
k~zalomen�:

Ob�as bychom pot�ebovali, aby makro pro �pravu zlomu odstavce
(nap�.~-- {\tt \string\looseness} nebo
{\tt \string\parshape})~-- fungovalo na v�ce odstavc� najednou.
Pokus�me se proto vytvo�it makro, kter� se co nejv�ce p�ibl��� chov�n�
primitiva {\tt \string\par}, ale p�itom ned� \TeX u pokyn
k~zalomen�:

Ob�as bychom pot�ebovali, aby makro pro �pravu zlomu odstavce
(nap�.~-- {\tt \string\looseness} nebo
{\tt \string\parshape})~-- fungovalo na v�ce odstavc� najednou.
Pokus�me se proto vytvo�it makro, kter� se co nejv�ce p�ibl��� chov�n�
primitiva {\tt \string\par}, ale p�itom ned� \TeX u pokyn
k~zalomen�:

Ob�as bychom pot�ebovali, aby makro pro �pravu zlomu odstavce
(nap�.~-- {\tt \string\looseness} nebo
{\tt \string\parshape})~-- fungovalo na v�ce odstavc� najednou.
Pokus�me se proto vytvo�it makro, kter� se co nejv�ce p�ibl��� chov�n�
primitiva {\tt \string\par}, ale p�itom ned� \TeX u pokyn
k~zalomen�:

\vlevofalse
\vlozobrazek{17mm}{\epsfxsize=2cm\epsfbox{tuxsit.eps}}
Ob�as bychom pot�ebovali, aby makro pro �pravu zlomu odstavce
(nap�.~-- {\tt \string\looseness} nebo
{\tt \string\parshape})~-- fungovalo na v�ce odstavc� najednou.
Pokus�me se proto vytvo�it makro, kter� se co nejv�ce p�ibl��� chov�n�
primitiva {\tt \string\par}, ale p�itom ned� \TeX u pokyn
k~zalomen�:
\PAR
Ob�as bychom pot�ebovali, aby makro pro �pravu zlomu odstavce
(nap�.~-- {\tt \string\looseness} nebo
{\tt \string\parshape})~-- fungovalo na v�ce odstavc� najednou.
Pokus�me se proto vytvo�it makro, kter� se co nejv�ce p�ibl��� chov�n�
primitiva {\tt \string\par}, ale p�itom ned� \TeX u pokyn
k~zalomen�:

Ob�as bychom pot�ebovali, aby makro pro �pravu zlomu odstavce
(nap�.~-- {\tt \string\looseness} nebo
{\tt \string\parshape})~-- fungovalo na v�ce odstavc� najednou.
Pokus�me se proto vytvo�it makro, kter� se co nejv�ce p�ibl��� chov�n�
primitiva {\tt \string\par}, ale p�itom ned� \TeX u pokyn
k~zalomen�:

Ob�as bychom pot�ebovali, aby makro pro �pravu zlomu odstavce
(nap�.~-- {\tt \string\looseness} nebo
{\tt \string\parshape})~-- fungovalo na v�ce odstavc� najednou.
Pokus�me se proto vytvo�it makro, kter� se co nejv�ce p�ibl��� chov�n�
primitiva {\tt \string\par}, ale p�itom ned� \TeX u pokyn
k~zalomen�:

Ob�as bychom pot�ebovali, aby makro pro �pravu zlomu odstavce
(nap�.~-- {\tt \string\looseness} nebo
{\tt \string\parshape})~-- fungovalo na v�ce odstavc� najednou.
Pokus�me se proto vytvo�it makro, kter� se co nejv�ce p�ibl��� chov�n�
primitiva {\tt \string\par}, ale p�itom ned� \TeX u pokyn
k~zalomen�:

Ob�as bychom pot�ebovali, aby makro pro �pravu zlomu odstavce
(nap�.~-- {\tt \string\looseness} nebo
{\tt \string\parshape})~-- fungovalo na v�ce odstavc� najednou.
Pokus�me se proto vytvo�it makro, kter� se co nejv�ce p�ibl��� chov�n�
primitiva {\tt \string\par}, ale p�itom ned� \TeX u pokyn
k~zalomen�:

\topinsert

\epsfxsize=.5\hsize
\centerline{\epsfbox{tuxsit.eps}}

{\it Tux jako plovouc� objekt tak� funguje.}

\vfil
\endinsert

Ob�as bychom pot�ebovali, aby makro pro �pravu zlomu odstavce
(nap�.~-- {\tt \string\looseness} nebo
{\tt \string\parshape})~-- fungovalo na v�ce odstavc� najednou.
Pokus�me se proto vytvo�it makro, kter� se co nejv�ce p�ibl��� chov�n�
primitiva {\tt \string\par}, ale p�itom ned� \TeX u pokyn
k~zalomen�:

Ob�as bychom pot�ebovali, aby makro pro �pravu zlomu odstavce
(nap�.~-- {\tt \string\looseness} nebo
{\tt \string\parshape})~-- fungovalo na v�ce odstavc� najednou.
Pokus�me se proto vytvo�it makro, kter� se co nejv�ce p�ibl��� chov�n�
primitiva {\tt \string\par}, ale p�itom ned� \TeX u pokyn
k~zalomen�:

Ob�as bychom pot�ebovali, aby makro pro �pravu zlomu odstavce
(nap�.~-- {\tt \string\looseness} nebo
{\tt \string\parshape})~-- fungovalo na v�ce odstavc� najednou.
Pokus�me se proto vytvo�it makro, kter� se co nejv�ce p�ibl��� chov�n�
primitiva {\tt \string\par}, ale p�itom ned� \TeX u pokyn
k~zalomen�:

Ob�as bychom pot�ebovali, aby makro pro �pravu zlomu odstavce
(nap�.~-- {\tt \string\looseness} nebo
{\tt \string\parshape})~-- fungovalo na v�ce odstavc� najednou.
Pokus�me se proto vytvo�it makro, kter� se co nejv�ce p�ibl��� chov�n�
primitiva {\tt \string\par}, ale p�itom ned� \TeX u pokyn
k~zalomen�:

Ob�as bychom pot�ebovali, aby makro pro �pravu zlomu odstavce
(nap�.~-- {\tt \string\looseness} nebo
{\tt \string\parshape})~-- fungovalo na v�ce odstavc� najednou.
Pokus�me se proto vytvo�it makro, kter� se co nejv�ce p�ibl��� chov�n�
primitiva {\tt \string\par}, ale p�itom ned� \TeX u pokyn
k~zalomen�:

Ob�as bychom pot�ebovali, aby makro pro �pravu zlomu odstavce
(nap�.~-- {\tt \string\looseness} nebo
{\tt \string\parshape})~-- fungovalo na v�ce odstavc� najednou.
Pokus�me se proto vytvo�it makro, kter� se co nejv�ce p�ibl��� chov�n�
primitiva {\tt \string\par}, ale p�itom ned� \TeX u pokyn
k~zalomen�:


\bye

