% Makra pro testy KALIBRO
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 13. 9. 2003                Petr Ol��k

% U�ivatelsk� dokumentace je na konci tohoto souboru

\chyph           % Pou�ijte csplain
\nopagenumbers  

%%% Fonty

\input ofs [sdynamo]
%\setfonts [Helvetica/11] \setmath [//]
%\baselineskip=14pt
%\fontdef\titulfont [Helvetica-bf/24]
%\fontdef\notefont [Helvetica-nit/11] 
%\addcmd \notefont {\let\em=\nbi}
%\fontdef\ansfont [Helvetica-bi/14]
%\fontdef\numofont [Helvetica-it/7]
%\fontdef\smalltextfont [Helvetica-rm/10]

\setfonts [DynaGroteskR/11] \setmath [//]
\baselineskip=14pt
\fontdef\titulfont [DynaGroteskR-bf/24]
\fontdef\notefont [DynaGroteskRC-it/11] 
\addcmd \notefont {\let\em=\bi}
\fontdef\ansfont [DynaGroteskR-bi/14]
\fontdef\numofont [DynaGroteskR-it/7]
\fontdef\smalltextfont [DynaGroteskR-rm/10]
\fontdef\nrm [DynaGroteskRC-rm/]
\fontdef\nit [DynaGroteskRC-it/]

\let\em=\it
\font\koleckofont=cmsy10 at15pt

%%% Obr�zky

\input epsf

\def\obr #1[#2]{\hbox{\epsfxsize=#1\relax\epsfbox{#2.eps}}}

%%% Zrcadlo

\hsize=180mm  \hoffset=-1in  \advance\hoffset by 15mm
\vsize=276mm  \voffset=-1in  \advance\voffset by 12mm

%%% Z�kladn� parametry

\parindent=0pt
\emergencystretch=2em
\medskipamount =6.5pt plus 2pt minus 4pt
\bigskipamount =11pt plus 4pt minus 4pt

%%% Deklarace

\newcount \numq  \newcount \numn  \newcount\totalnumn
\newcount \linenum
\newif \ifAmode  \Amodefalse
\newcount \numframes

%%% Tisk po�adov�ho p�smene

\def\numtoLetter #1{{\count2=#1\advance\count2 by`@ \char\count2}}
\def\numtoletter #1{{\count2=#1\advance\count2 by`` \char\count2}}
\def\setletter #1 {\def\numtoLetter ##1{#1}}

%%% ��ry s definovanou tlou��kou

\let\orihrule=\hrule  \let\orivrule=\vrule 
\newdimen\defaultrulethickness \defaultrulethickness=.5dd
\def\hrule{\orihrule height\defaultrulethickness}
\def\vrule{\orivrule width\defaultrulethickness}
\def\thvrule{\orivrule width3\defaultrulethickness}

%%% Podkladov� rastr (�ed� barva)

\def\setgray#1{\special{ps: #1 setgray}}
\def\podklad #1 #2 #3 {\vbox to0pt{\kern\defaultrulethickness
   \kern#1 \hbox to0pt{\kern\defaultrulethickness \kern#2  
   \strut \setgray{.75}\vrule width#3 \setgray{0}\hss}\vss}} 
\def\nopodklad{\def\podklad ##1 ##2 ##3 {\vbox to0pt{}}} 

%%% Korekce znaku \copyright pro Helveticu

\let\oricopyright=\copyright
\def\copyright{\leavevmode\raise1pt\hbox{\setfonts[/10]\oricopyright}}

%%% V�cesloupcov� sazba

\newdimen\colsep  \colsep=1em % horiz. mezera mezi sloupci 
\newcount\tempnum             % pracovn� prom�nn�
\def\roundtolines #1{%% zaokrouhl� na cel� n�sobky vel. ��dku
   \divide #1 by\baselineskip \multiply #1 by\baselineskip}
\def\corrsize #1{%% #1 := #1 + \splittopskip - \topskip
   \advance #1 by \splittopskip \advance #1 by-\topskip}

\def\begmulti #1 {\par \def\Ncols{#1}
   \setbox0=\vbox\bgroup \penalty0
   %% \hsize := ���ka sloupce = (\hsize+\colsep) / n - \colsep
   \advance\hsize by\colsep
   \divide\hsize by\Ncols  \advance\hsize by-\colsep}
\def\endmulti{\vfil\egroup \splittopskip=\baselineskip
   \setbox1=\vsplit0 to0pt
   %% \dimen1 := velikost zbyl�ho m�sta na str�nce
   \ifdim\pagegoal=\maxdimen \dimen1=\vsize \corrsize{\dimen1}
   \else \dimen1=\pagegoal \advance\dimen1 by-\pagetotal \fi
   \ifx\uu\undefined 
     \ifdim \dimen1<2\baselineskip
       \vfil\break \dimen1=\vsize \corrsize{\dimen1} \fi
   \fi
   %% \dimen0 := v��ka n sloupcov� sazby po rozd�len� do sloupc�
   %% = (\ht0 + (n-1)\baselineskip) / n, zaokruhleno na ��dky
   \dimen0=\Ncols\baselineskip \advance\dimen0 by-\baselineskip
   \advance\dimen0 by \ht0 \divide\dimen0 by\Ncols
   \roundtolines{\dimen0}
   %% Rozd�lit sazbu n sloupc� do str�nek nebo nerozd�lit ?
   \ifx\uu\undefined
     \ifdim \dimen0>\dimen1 \splitpart  
     \else \makecolumns{\dimen0} \fi
   \else \makecolumns{\dimen0} \fi
   \ifvoid0 \else \errmessage{ztracen� text ve sloupc�ch?} \fi
   }
\def\makecolumns#1{\setbox1=\hbox{}\tempnum=0
   \loop \ifnum\Ncols>\tempnum
      \setbox1=\hbox{\unhbox1 \vsplit0 to#1 \hss}
      \advance\tempnum by1
   \repeat
   \hbox{}\nobreak\vskip-\splittopskip \nointerlineskip
   \line{\unhbox1\unskip}}
\def\splitpart{\roundtolines{\dimen1}
   \makecolumns{\dimen1} \advance\dimen0 by-\dimen1
   %% \dimen0 := v��ka _zbyl�_ n sloupcov� sazby
   %% \dimen1 := pr�zdn� m�sto na str�nce = (cca) \vsize
   \vfil\break
   \dimen1=\vsize \corrsize{\dimen1}
   %% Rozd�lit zbylou sazbu n sloupc� do v�ce str�nek ?
   \ifvoid0 \else
      \ifdim \dimen0>\dimen1 \splitpart
      \else \makecolumns{\dimen0} \fi \fi}

%%% Makro \test

\def\test #1 -- #2 #3 \par{%
   \par\vfil\break
   \message{TEST: #1, varianta: #2}
   \global\numq=0
   \line{\ifx\celkusp\undefined\prezdivkazaka\else \printuspesnost\fi
         \hfil \titulfont #1 -- #2}\vskip5mm
   \hfill #3\par\medskip}
\def\prezdivkazaka{\vbox{\hbox to60mm {\hfil\vrule height5mm}\hrule
   \nointerlineskip\vbox to0pt{\vskip2mm
   \hbox to60mm{\hss \it p�ezd�vka ��ka\hss}\vss}}}
\def\printuspesnost{\vbox{
   \hbox{\ansfont �sp�nost \celkusp~\%}
   \baselineskip=10pt \smallskip
   \hbox{\numofont (zn�n� dopln�n� o �sp�nost ot�zek,}
   \hbox{\numofont spr�vn� �e�en� a �etnost odpov�d�)}\kern-5mm}}

%%% Makro \tabule

\def\poltabule #1 [#2]{\expandafter\def\csname tabule:#1\endcsname{#2}}
\poltabule a [K�d testu]
\poltabule b [��slo �koly]
\poltabule c [T��da]
\poltabule d [��slo ��ka]
\poltabule e [Pohlav� ({\bi H} -- hoch, {\bi D} -- d�vka)]
\poltabule f [Nejvy��� dosa�en� vzd�l�n� rodi��]

\def\etabule #1 {\hskip2.5mm \rlap{\bf #1.}\kern1.1em
   \ignorespaces \csname tabule:#1\endcsname \unskip}
\outer\def\tisktabule [#1] {%
   \par \bgroup \offinterlineskip
   \def\strut{\vrule height5mm depth2.5mm width0mm}
   \podklad 0mm 0mm 46mm \hrule   
   \linkatabule \etabule a | {\bi#1} | \etabule e | \etabule i | \sublinka
   \linkatabule \etabule b |         | \etabule f | \etabule j | \sublinka
   \linkatabule \etabule c |         | \etabule g | \etabule k | \sublinka
   \linkatabule \etabule d |         | \etabule h | \etabule l | 
   \hrule height3\defaultrulethickness \egroup\bigskip\medskip}
\def\linkatabule #1| #2| #3| #4| {%
   \line{\strut \boxik 29mm {#1\hss}%
                 \boxik 17mm {\hss#2\hss}%
                 \vrule \kern-\defaultrulethickness \kern.5mm
                 \boxik 80mm {#3\hss}%
                 \boxik 10mm {\hfil}%
                 \vrule \kern-\defaultrulethickness \kern.5mm
                 \boxik 32mm {#4\hss}\vrule\hfil\thvrule}}
\def\sublinka{%
   \line{\vrule width46mm \vrule width\defaultrulethickness 
         \kern.5mm \kern-\defaultrulethickness
         \vrule width90mm \vrule width\defaultrulethickness 
         \kern.5mm \kern-\defaultrulethickness
         \leaders \vrule height\defaultrulethickness \hfil}}
\def\boxik #1 #2{\vrule \kern-\defaultrulethickness \hbox to#1{#2}}

%%% Makro \q ... jedna ot�zka

\newdimen \rulw  \rulw = 10mm                       % ���ka pol��ka pro odpov�di
\def\strut{\vrule height6.3mm depth2.2mm width0pt}  % v��ka pol��ka pro odpov�di

\outer\def\q #1 #2\par{\par \bgroup\numn=0 \global\advance \numq by 1
    \def\typq{#1}\def\uu{}\def\rr{}
    \if H\typq \expandafter \saveH \fi
    #2\qq}

\def\qq #1 \par{\def\textqq{#1}\csname beg:\typq\endcsname}

\def\n #1. {\def\tmp{#1}\ifx\tmp\empty 
   \totalnumn=\numn \expandafter \printqq
   \else \advance\numn by1 \expandafter \nn \fi}
\def\nn {\futurelet\next \donn}
\def\donn {\ifx >\next \expandafter \truenn \else \expandafter \falsenn \fi }
\def\truenn >#1 #2\n{\savenn {#1}{#2}\n}
\def\falsenn    #1\n{\savenn {}{#1}\n}
\def\savenn #1#2{%
   \ifx>\next \if|#1|\expandafter \def\csname nnOK:\the\numn\endcsname {}
              \else \expandafter \edef\csname nnOK:#1\endcsname{\the\numn}\fi
   \else      \expandafter \let\csname nnOK:\the\numn\endcsname =\relax
   \fi
   \expandafter \def\csname nnTEXT:\the\numn\endcsname {#2}}

\def\printqq{%
   \bigskip \goodbreak \runpreskrtni 
   \if O\typq \nointerlineskip
      \line{\hfil \vrule width4\defaultrulethickness \setnumframes
            \vrule width \numframes\rulw height\defaultrulethickness}\nointerlineskip
      \line{\hfil \vrule \setnumframes \hbox to\numframes\rulw{\numn=0 
            \vrule height3mm depth1mm width0pt 
            \defaultrulethickness=.4\defaultrulethickness
            \numo \loop \vrule\numo \ifnum \numn<\numframes \repeat }\thvrule}\fi
   \nointerlineskip \podklad 0mm 0mm 10mm
   \hrule \nointerlineskip 
   \line {\strut\boxik 10mm {\hfil\setfonts[/16]\bf\numtoLetter\numq\hfil}\thvrule
          \kern4mm{\notefont \if |\uu|\csname typ:\typq\endcsname
              \else {\bi �sp�nost \uu}\kern5pt 
                \if |\rr|\else redukovan� \rr\fi\fi} \hfil 
          \csname rule:\typq\endcsname}
   \nointerlineskip\line{\vrule width3\defaultrulethickness 
          height3\defaultrulethickness
          \vrule width10mm height 3\defaultrulethickness 
          height3\defaultrulethickness \hfil
          \csname botrule:\typq \endcsname}
   \par\nobreak\bigskip \nointerlineskip 
   {\bf \let\em=\bi \textqq}\par
   \csname end:\typq\endcsname}

\def\defname#1{\expandafter\def\csname#1\endcsname}

\defname {typ:H}{\zapis {\em �iteln�} v�sledek}
\defname {typ:V}{\zapis ��slo {\em jedin�} polo�ky, kter� vyhovuje zad�n�}
\defname {typ:P}{\zapis ��sla {\em v�ech} polo�ek, kter� vyhovuj� zad�n�}
\defname {typ:O}{\zapis ��sla polo�ek {\em v po�ad�}, kter� odpov�d� zad�n�}
\defname {typ:L}{odpov�� \zapis {\em �iteln�} do 
                 ��dk\ifnum\numlines=1 u\else �\fi\space pod ot�zkou}

\defname {beg:H}{\printqq}
\defname {beg:V}{\savebeforenn}
\defname {beg:P}{\savebeforenn}
\defname {beg:O}{\savebeforenn}
\defname {beg:L}{\printqq}

\defname {end:H}{\egroup}
\defname {end:V}{\nobreak\medskip\beforenn \printnn}
\defname {end:P}{\nobreak\medskip\beforenn \printnn}
\defname {end:O}{\nobreak\medskip\beforenn \printnn}
\defname {end:L}{\dolines\egroup}

\defname {rule:H}{\vrule\hbox to60mm{%
   \kern.5em\textHl\hfil\ifAmode{\ansfont\ansH}\fi \textHr\kern.5em}\thvrule} 
\defname {rule:V}{\vrule\hbox to10mm{\numn=0 \ansfont \res}\thvrule}
\defname {rule:P}{\vrule\varrules \thvrule}
\defname {rule:O}{\vrule\varrules \thvrule}
\defname {rule:L}{\thvrule}

\defname {botrule:H}{\botrule{6\rulw}}
\defname {botrule:V}{\botrule{1\rulw}}
\defname {botrule:P}{\botrule{\numframes\rulw}}
\defname {botrule:O}{\botrule{\numframes\rulw}}
\defname {botrule:L}{\relax}

\long\def\savebeforenn #1\n{\def\beforenn{#1}\n}

\def\setnumframes {\ifnum\numframes=0 \numframes=\totalnumn \fi}
\def\botrule #1{\setnumframes
   \vrule width4\defaultrulethickness height 3\defaultrulethickness
   \vrule width #1 height 3\defaultrulethickness} 
\def\varrules {\setnumframes
   \hbox to\numframes\rulw{\defaultrulethickness=.4\defaultrulethickness
   \numn=0 \tempnum=1 \ansfont \strut \res 
   \loop \vrule\res \advance\tempnum by 1 \ifnum\tempnum<\numframes \repeat}}

\def\res {\ifAmode \findnextnum 
   \ifnum\numn>\totalnumn \hfil \hbox{}\hfil \else 
      \hfil \hbox to0pt{\hss
      \if O\typq \csname nnOK:\the\numn\endcsname \else \the\numn \fi
      \hss}\hfil \fi 
   \else \hfil \fi}
\def\numo {\advance\numn by1
   \hfil \hbox to0pt{\ifnum\numn>\totalnumn \else
     \hss\numofont \uppercase\expandafter{\romannumeral\numn}.\hss\fi}\hfil}
\def\findnextnum{\advance\numn by1
   \ifnum\numn>\totalnumn \relax \else
   \expandafter \ifx \csname nnOK:\the\numn\endcsname \relax
      \expandafter \expandafter \expandafter \findnextnum \fi \fi}

\def\printnn #1\par{\global\numn=0 \doprintnn #1\egroup}
\def\doprintnn {\global\advance \numn by1
   \noindent \realizenn
      \hangindent=1.3em \endgraf      
   \ifnum \numn<\totalnumn \expandafter \doprintnn \fi}
\def\realizenn{\hbox to.9em{\ifnum\numn>\totalnumn \else \ifAmode 
   \expandafter \ifx \csname nnOK:\the\numn\endcsname \relax \else
   \if O\typq \else \kolecko \fi\fi\fi 
   \hfil \bf\the\numn.\fi\hfil}\kern.4em
   \hangindent=1.3em 
   \ifAmode \smalltextfont \fi \csname nnTEXT:\the\numn\endcsname \rm}

\def\orikolecko{\rlap{\kern-3.3pt\koleckofont\char"0D}}
\def\nekrouzkuj{\let\kolecko=\relax}
\def\krouzkuj{\let\kolecko=\orikolecko}
\krouzkuj
\def\preskrtni{\ifAmode \let\runpreskrtni=\dopreskrtni \fi}
\def\dopreskrtni{\par\vbox to0pt{\kern-.5mm
   \line{\setnumframes \dimen0=\numframes\rulw \advance\dimen0 by-5mm
   \hfil\vrule width \dimen0 height\defaultrulethickness\kern2.2mm}
   \vss}\nobreak\vskip-\baselineskip}
\let\runpreskrtni=\relax

%%% Zna�ky \col, \ecol, \leftcol, \rightcol

\def\col{\begmulti} \def\ecol{\endmulti}

\def\leftcol #1{\par\line\bgroup \def\ecol{\egroup\egroup}
  \vtop\bgroup \hsize=#1\relax}
\def\rightcol #1{\par\egroup\hss 
  \vtop\bgroup \hsize=#1\relax}

%%% Zna�ky \lines, \linspace

\newdimen\linspacedim
\def\lines #1 {\def\numlines{#1}}
\def\linspace #1 {\linspacedim=#1}
\lines 1
\linspace 10mm

\def\dolines {\vbox{\tempnum=0 
  \loop \advance\tempnum by 1 
        \vskip\linspacedim 
	\nointerlineskip \hbox to\hsize{%
	\kern\rulw \leaders \vrule height.4\defaultrulethickness \hfil}
        \ifnum \tempnum < \numlines \repeat}}

%%% Zna�ka \numframes

\numframes 9
\let\pocetpolozek=\numframes

%%% Zna�ka \tab

\def\tab #1 {\let\etab=\egroup
   \linenum=\totalnumn \advance\linenum by-1 \divide\linenum by#1
                       \advance\linenum by1
   \expandafter \ifx \csname tab:#1\endcsname \relax
   \errmessage {tab is declared only for 2, 3 or 4, no: #1}
   \def\printnn{\csname tab:4\endcsname}\def\numcols{4}\else
   \def\printnn{\csname tab:#1\endcsname}\def\numcols{#1}\fi
   \removelastskip\medskip}
\expandafter \def\csname tab:2\endcsname {%
   \par \vbox{\tabskip=0pt 
   \halign to\hsize{##\hfil\tabskip=0pt plus1fil minus1fil&
                    ##\hfil\tabskip=0pt \cr
   \ptext 1 1 & \ptext 1 2 \cr
   \ifnum \totalnumn > 2
   \ptext 2 1 & \ptext 2 2 \cr
   \ifnum \totalnumn > 4 
   \ptext 3 1 & \ptext 3 2 \cr 
   \ifnum \totalnumn > 6 
   \ptext 4 1 & \ptext 4 2 \cr 
   \ifnum \totalnumn > 8 
   \ptext 5 1 & \ptext 5 2 \cr \fi \fi \fi \fi
   }}}
\expandafter \def\csname tab:3\endcsname {%
   \par \vbox{\tabskip=0pt 
   \halign to\hsize{##\hfil\tabskip=0pt plus1fil minus1fil&
                    ##\hfil&
                    ##\hfil\tabskip=0pt \cr
   \ptext 1 1 & \ptext 1 2 & \ptext 1 3 \cr
   \ifnum \totalnumn > 3
   \ptext 2 1 & \ptext 2 2 & \ptext 2 3 \cr
   \ifnum \totalnumn > 6 
   \ptext 3 1 & \ptext 3 2 & \ptext 3 3 \cr \fi \fi
   }}}
\expandafter \def\csname tab:4\endcsname {%
   \par \vbox{\tabskip=0pt 
   \halign to\hsize{##\hfil\tabskip=0pt plus1fil minus1fil&
                    ##\hfil& ##\hfil&
                    ##\hfil\tabskip=0pt \cr
   \ptext 1 1 & \ptext 1 2 & \ptext 1 3 & \ptext 1 4 \cr
   \ifnum \totalnumn > 4
   \ptext 2 1 & \ptext 2 2 & \ptext 2 3 & \ptext 2 4 \cr
   \ifnum \totalnumn > 8 
   \ptext 3 1 & \ptext 3 2 & \ptext 3 3 & \ptext 3 4 \cr \fi \fi
   }}}
\expandafter \def\csname tab:5\endcsname {%
   \par \vbox{\tabskip=0pt 
   \halign to\hsize{##\hfil\tabskip=0pt plus1fil minus1fil&
                    ##\hfil& ##\hfil& ##\hfil&
                    ##\hfil\tabskip=0pt \cr
   \ptext 1 1 & \ptext 1 2 & \ptext 1 3 & \ptext 1 4 & \ptext 1 5 \cr
   \ifnum \totalnumn > 5
   \ptext 2 1 & \ptext 2 2 & \ptext 2 3 & \ptext 2 4 & \ptext 2 5 \cr \fi
   }}}
\expandafter \def\csname tab:6\endcsname {%
   \par \vbox{\tabskip=0pt 
   \halign to\hsize{##\hfil\tabskip=0pt plus1fil minus1fil&
                    ##\hfil& ##\hfil& ##\hfil& ##\hfil&
                    ##\hfil\tabskip=0pt \cr
   \ptext 1 1 & \ptext 1 2 & \ptext 1 3 & \ptext 1 4 & 
   \ptext 1 5 & \ptext 1 6 \cr
   \ifnum \totalnumn > 6
   \ptext 2 1 & \ptext 2 2 & \ptext 2 3 & \ptext 2 4 & 
   \ptext 2 5 & \ptext 2 6 \cr \fi
   }}}
\expandafter \def\csname tab:7\endcsname {%
   \par \vbox{\tabskip=0pt 
   \halign to\hsize{##\hfil\tabskip=0pt plus1fil minus1fil&
                    ##\hfil& ##\hfil& ##\hfil& ##\hfil&
                    ##\hfil&
                    ##\hfil\tabskip=0pt \cr
   \ptext 1 1 & \ptext 1 2 & \ptext 1 3 & \ptext 1 4 & 
   \ptext 1 5 & \ptext 1 6 & \ptext 1 7 \cr
   \ifnum \totalnumn > 7
   \ptext 2 1 & \ptext 2 2 & \ptext 2 3 & \ptext 2 4 & 
   \ptext 2 5 & \ptext 2 6 & \ptext 2 7 \cr \fi
   }}}
\expandafter \def\csname tab:8\endcsname {%
   \par \vbox{\tabskip=0pt 
   \halign to\hsize{##\hfil\tabskip=0pt plus1fil minus1fil&
                    ##\hfil& ##\hfil& ##\hfil& ##\hfil&
                    ##\hfil& ##\hfil&
                    ##\hfil\tabskip=0pt \cr
   \ptext 1 1 & \ptext 1 2 & \ptext 1 3 & \ptext 1 4 & 
   \ptext 1 5 & \ptext 1 6 & \ptext 1 7 & \ptext 1 8 \cr
   \ifnum \totalnumn > 8
   \ptext 2 1 & \ptext 2 2 & \ptext 2 3 & \ptext 2 4 & 
   \ptext 2 5 & \ptext 2 6 & \ptext 2 7 & \ptext 2 8 \cr \fi
   }}}
\expandafter \def\csname tab:9\endcsname {%
   \par \vbox{\tabskip=0pt 
   \halign to\hsize{##\hfil\tabskip=0pt plus1fil minus1fil&
                    ##\hfil& ##\hfil& ##\hfil& ##\hfil&
                    ##\hfil& ##\hfil& ##\hfil&
                    ##\hfil\tabskip=0pt \cr
   \ptext 1 1 & \ptext 1 2 & \ptext 1 3 & \ptext 1 4 & 
   \ptext 1 5 & \ptext 1 6 & \ptext 1 7 & \ptext 1 8 & \ptext 1 9 \cr
   }}}
\def\ptext #1 #2 {\relax \numn=#2 \advance \numn by-1 
   \multiply \numn by\linenum \advance\numn by#1
   \realizenn}

%%% ��slov�n� ��dk� [TBN, str. 84]

\newcount\linenum \newcount\tempnum \newbox\allparagraph 
\def\linenumbers{\par\begingroup\linenum=0
  \everypar={\setbox0=\lastbox\endgraf\setbox\allparagraph=\vbox\bgroup \everypar={}}%
  \def\par{\ifhmode\completepar\fi}}
\def\elinenumbers{\par\endgroup}
\def\completepar{\endgraf \global\advance\linenum by \prevgraf
  \tempnum=\linenum \setbox0=\hbox{}
  \loop \unskip \unpenalty \setbox2=\lastbox
     \ifhbox2 \global\setbox0=
           \hbox{\llap{\printlinenum \hskip1.2em \kern-\leftskip}%
                 \box2\penalty0\unhbox0}
       \advance\tempnum by-1
  \repeat
  \egroup {\everypar={}\leftskip=0pt \rightskip=0pt 
  \noindent\unhbox0\unpenalty \endgraf}}
\def\printlinenum{\setfonts [/10]\rm 
  \count2=\tempnum \divide\count2 by10 \multiply\count2 by10
  \ifnum\tempnum=\count2 \bf \fi
  \the\tempnum.}

%%% Zna�ky \center, \bftext, \parsize, \fsize

\def\center #1 \par {{\advance\leftskip by 0pt plus 1fil 
   \advance\rightskip by 0pt plus 1fil 
   \parindent=0pt \parfillskip=0pt \relax #1 \par} \par}
\def\right #1 \par {{\advance\leftskip by 0pt plus 1fil 
   \parindent=0pt \parfillskip=0pt \relax #1 \par} \par}
\def\bftext #1 \par {{\bf \let\em=\bi #1 \par} \par}
\def\ittext #1 \par {{\it \let\em=\bi #1 \par} \par}
\def\notetext #1 \par {{\nrm \let\em=\nit #1 \par} \par}
\def\textsize #1 #2 \par {{\baselineskip=#1pt \advance\baselineskip by2pt
   \setfonts [/#1] #2 \par} \par}
\def\fsize #1 {\setfonts[/#1]}

%%% Zna�ka \ccol  ... (controlled columns)

\newcount\cnum  \newdimen\sumpars

\def\ccol #1 #2 {\def\numcols{#1}%
   \expandafter \def \csname colsize:1\endcsname{#2}\def\firstparam{#2}
   \if*#2 \expandafter \startccol
   \else  \cnum=1 \sumpars=0pt 
   \if ?#2\else \advance \sumpars by #1\fi
   \expandafter \readccolparams \fi}
\def\startccol{\hbox to\hsize\bgroup \cnum=1
   \vtop \bgroup \sethsize \null \vskip-\baselineskip}
\def\nextcol{\egroup \hss \advance\cnum by1 
   \vtop \bgroup \sethsize \null \vskip-\baselineskip}
\def\eccol{\egroup\egroup}
\def\sethsize{\if*\firstparam                   
       \advance\hszie by-\numcols\colsep \advance\hsize by\colsep
       \divide\hsize by\numcols
   \else  
       \if ?\csname colsize:\the\cnum\endcsname 
          \advance\hsize by-\sumpars \advance\hsize by-\numcols\colsep
          \advance\hsize by\colsep 
       \else \hsize=\csname colsize:\the\cnum\endcsname \relax
   \fi \fi}  
\def\readccolparams #1 {\advance \cnum by1
   \expandafter \def \csname colsize:\the\cnum\endcsname {#1}%
   \if ?#1\else \advance \sumpars by #1\fi
   \ifnum \cnum<\numcols \relax \expandafter \readccolparams
   \else \expandafter \startccol \fi}
    
%%% Tyk�n� / vyk�n�

\def\tykame {\def\zapis{zapi� }}
\def\vykame {\def\zapis{zapi�te }}
\tykame

%%% Dal�� zna�ky

\def\newpage{\vfil\break}
\def\narrow #1 #2 {\bgroup \leftskip=#1 \rightskip=#2 \relax}
\def\enarrow{\par\egroup}
\def\odsazeni #1 {\bgroup\parindent=#1\relax}
\def\eodsazeni{\par\egroup}
\def\gobble{\bgroup \expandafter\let\csname q\endcsname=\relax 
   \let\eskippart=\fi \catcode`\{=12 \catcode`\}=12 \rungobble}
\long\def\rungobble #1\egobble{\egroup}
\let\egobble=\relax

%%% Aktivn� <text>

\catcode`<=13
\def <#1>{\ifvmode \ifAmode #1\fi \else 
   \unskip \ifAmode \nobreak\hskip.5em\hfill{\it
     \expandafter\ifx\csname nnOK:\the\numn\endcsname \relax \else
     \if O\typq \else \bi \fi\fi #1}\fi\fi}
\def\saveH [#1<#2>#3] {\def\textHl{#1}\def\ansH{#2}\def\textHr{#3}}
\def\uspesnost #1/#2 {\ifAmode \def\uu{#1}\def\rr{#2}\fi}
\def\celkovauspesnost #1 {\ifAmode \def\celkusp{#1}\fi}

\endinput %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


U�ivatelsk� dokumentace
%%%%%%%%%%%%%%%%%%%%%%%

Test KALIBRO zah�j�me pomoc�:

-------------------------------------------------------

\input kalibro

-------------------------------------------------------

Jednotliv� test zah�j�te zna�kou "\test":

-------------------------------------------------------

\test <n�zev testu><mezera>--<mezera><varianta testu>
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
<text o autorsk�ch pr�vech>
<pr�zdn� ��dek>

-------------------------------------------------------

Toto makro nakresl� z�hlav� a vlevo m�sto pro p�ezd�vku ��ka.
Pak pokra�ujte makrem \tisktabule, ov�em nejprve mus�me naplnit
obsah polo�ek tabulky pomoc� \poltabule:

------------------------------------------------------- 

\poltabule g [Dal�� studium -- 1. volba]
\poltabule h [Dal�� studium -- 2. volba]
\poltabule i [�esk� jazyk]
\poltabule j [Matematika]
\poltabule k [D�jepis]
\poltabule l [Ciz� jaz. lep��]

\tisktabule [1A]

-------------------------------------------------------

Makro vytiskne obvyklou tabulku.

Obsahy pol��ek p��eme do hranat�ch z�vorek. V p��pad� makra
\poltabule p�edch�z� p�smeno polo�ky odd�len� od hranat� z�vorky
mezerou. Makro \tisktabule obsahuje jako parametr v hranat� z�vorce
text, kter� se objev� vpravo od polo�ky a.

Polo�ky, kter� nejsou deklarov�ny pomoc� \poltabule, obsahuj� n�jakou
v�choz� hodnotu. V p��pad� polo�ek a a� f se jedn� o obvykl� texty,
kter� ov�em m��ete pomoc� \poltabule zm�nit podle vlastn� pot�eby.
V�choz� hodnota polo�ek g a� l je pr�zdn�.

Nyn� n�sleduje popis makra \q, kter� deklaruje ot�zku:

----------------------------------------------------------

\q V
<pr�zdn� ��dek>
<text ot�zky>
<pr�zdn� ��dek>
<p��kazy p�ed seznamem odpov�d�>
\n 1. <text prvn� odpov�di>
\n 2. <text druh� odpov�di>
...
\n 8. <text posledn� odpov�di>
\n .
<p��kazy po seznamu odpov�d�>
<pr�zdn� ��dek>

---------------------------------------------------------

M�sto "V" (V�b�r) je mo�no pou��t za \q je�t� p�smeno "P" (Part), "O"
(pO�ad�) nebo "L" (Linky). P�i pou�it� p�smene "H" (hodnota) n�sleduj�
za t�mto p�smenem dal�� povinn� �daje, kter� budou zm�n�ny pozd�ji.

Makro p�e�te celou konstrukci jako celek, zjist� z n� po�et ot�zek a
p��padn� odpov�di na ot�zky a pak vytiskne z�hlav� ot�zky, text ot�zky
a jednotliv� nab�dky na odpov�di. Pokud nen� aktivn� Amod (Answer mod,
viz n��e), odpov�di se netisknou a form�t tisku je vhodn� pro
testovan� osoby.  P�i aktivn�m Amodu se vytisknou do pol��ek i
odpov�di.

D�le�it� je nezapomenout pou��t "\n <te�ka>" na konci seznamu 
nab�dek odpov�d�. TeX podle toho pozn�, �e kon�� seznam nab�dek.
Pokud na to zapomenete, p�eklad skon�� s docela podez�elou (a na
dal��ch okolnostech z�vislou) chybou!

Makro generuje postupn� p�smena pro ot�zky A, B, C, D, ...
automaticky. Abyste m�li lep�� orientaci ve zdrojov�m k�du,
doporu�uji ps�t do koment��e skute�n� p�smena testu. P��klady, viz 
soubor ukazka.tex

Jednotliv� nab�dky odpov�d� jdou uvedeny zna�kou \n s touto syntax�:

---------------------------------------------------------------

\n <��slo><te�ka><mezera><p��p. zna�ka pro odpov��><mezera><text nab�dky>

---------------------------------------------------------------

<��slo> je TeXem ignorov�no, slou�� jen pro Va�� orientaci. TeX si
vygeneruje ��sla nab�dek podle sebe. Nem��ete ale <��slo> vynechat,
proto�e t�m vznik� konstrukce "\n <te�ka>", kter� ukon�uje seznam
nab�dek. Pokud p�ece jenom nechcete ps�t <��sla>, pi�te t�eba
"\n-."

P��padn� zna�ka pro odpov�� je ve tvaru ">" pro typy test� P a V:
vyzna�uje se t�m v�b�r spr�vn� odpov�di. "Nic" znamen� nespr�vnou
odpov��. U typu "O" mus� za zna�kou ">" bez mezery n�sledovat po�adov�
��slo odpov�di a to mus� b�t uvedeno u ka�d� odpov�di.

Typ testu H (Hodnota) m� pon�kud odli�nou syntaxi:

---------------------------------------------------------------

\q H [text vlevo "<"odpov��">" text vpravo]
<pr�zdn� ��dek>
<text ot�zky>
<pr�zdn� ��dek>

--------------------------------------------------------------

Nap��klad:

--------------------------------------------------------------

\q H [t�den m�: <7> dn�]

Napi�te po�et dn� v t�dnu.

--------------------------------------------------------------

��sti "text vlevo" i "text vpravo" mohou b�t pr�zdn�, zat�mco odpov��
uveden� v lomen�ch z�vork�ch je povinn�. Samoz�ejm� p�i neaktivn�m
Amodu se odpov�� nezobraz�.

Ot�zka typu L nem� nab�dky (\n), ale jen linky na vypln�n� odpov�di.
Po�et linek se nastavuje pomoc� \lines t�sn� pod ��dkem \q (p�ed
pr�zdn�m ��dkem) a vzd�lenosti mezi linkami pomoc� \linspace. P��klad:

---------------------------------------------------------------

\q L
\lines 3
\linspace 10mm

Napi�te �vahu o nesmrtelnosti chroust� na t�i ��dky

---------------------------------------------------------------

U ot�zky typu P (Part) se m��e st�t, �e ��dn� odpov�� nevyhovuje.
Za takov�ch okolnost� TeX p�i vyzna�ov�n� odpov�d� nevyp��e do pol��ek
nic. To se v p��pad� opravov�n� testu pova�uje za chybu. Odstran�n�
t�to chyby mus�te za��dit manu�ln� p�id�n�m p��kazu "\preskrtni"
t�sn� za ��dek s "\q P" p�ed prvn� pr�zdn� ��dek. Tento p��kaz
p�e�krtne v�echna pol��ka vodorovnou �arou. D�l� to samoz�ejm� jenom
tehdy, pokud je aktivn� Amod.

Pol��ek pro vypln�n� odpov�d� je u ot�zek typu P a O tolik, kolik je
ur�eno pomoc� p��kazu \pocetpolozek. Tento p��kaz pracuje glob�ln� pro
v�echny ot�zky, pokud je na za��tku dokumentu a lok�ln� pro jednu
ot�zku, pokud je t�sn� pod ��dkem \q.

Je-li \pocetpolozek rovno nule, pak TeX automaticky vytvo�� pro ka�dou
ot�zku tolik pol��ek, kolik je p�esn� v ot�zce alternativ.


Amod -- mod s aktivn�m tiskem odpov�d�
======================================

Nen�-li uvedeno jinak, je dokument zpracov�n se zaml�en�mi odpov��mi,
tj. form�t vhodn� pro testovan� osoby. Pokud nap��ete na za��tku
dokumentu (za "\input kalibro")

--------------------------------------------------------------

\Amodetrue

--------------------------------------------------------------

bude dokument zpracov�n v re�imu, kdy jsou vyzna�eny i odpov�di
-- jednak v r�me�ku (kam to p��� i testovan� osoby) a jednak krou�kem 
kolem ��sla nab�dky.

Pokud pot�ebujete naopak vypnout zobrazov�n� odpov�d� (a v p�edchoz� ��sti
dokumentu bylo zapnuto), pou�ijte "\Amodefalse".

Pokud nechcete, aby odpov�di byly zna�eny nav�c krou�kem kolem ��sla
nab�dky, pou�ijte na za��tku dokumentu:

--------------------------------------------------------------

\nekrouzkuj

--------------------------------------------------------------

Na konci ka�d� nab�dky odpov�di m��e b�t v lomen�ch z�vork�ch uveden
�daj (nap�. o po�tu ��k�, kter� takto odpov�d�li). Tento �daj je p�i
neaktivn�m Amode ignorov�n, zat�mco p�i aktivn�m Amode je tento �daj
ti�t�n vedle odpov�di.

Tento �daj nen� povinn�. P�edpokl�d� se, �e p�ed proveden�m testu nen�
zn�m, tj. v takov�m p��pad� tam nemus�te ps�t nic, ani tu dvojici
lomen�ch z�vorek.

T�sn� za ��dkem s "\q" p�ed pr�zdn�m ��dkem m��e b�t uvedeno makro
\uspesnost, kter� m� tuto syntaxi:

---------------------------------------------------------------

\uspesnost <po�et>/<jin� po�et>

---------------------------------------------------------------

Je-li toto makro uvedeno, pak TeX m�sto textu k typu ot�zky
v z�hlav� ot�zky uvede text: "�sp�nost <po�et>".
Pokud nav�c �daj <jin� po�et> je nepr�zdn�, pak TeX nav�c dod�:
"redukovan� <jin� po�et>". I kdy� je �daj <jin� po�et> pr�zdn�,
lom�tko mus� b�t uvedeno.

Samoz�ejm� uveden� makra "\uspesnost" je nepovinn�, p�edpokl�d� se, �e
p�ed proveden�m testu nebude pou�ito. P�i neaktivn�m Amode je nav�c
makro ignorov�no.

Podobn� v�znam m� makro "\celkovauspesnost" ve tvaru:

--------------------------------------------------------------

\celkovauspesnost <��slo>

--------------------------------------------------------------

Pokud se toto makro uvede p�ed zah�jen�m testu (nakrem "\test") a
pokud je Amode aktivn�, pak se m�sto prostoru pro p�ezd�vku ��ka
vytiskne v�razn� text "�sp�nost <��slo> %".

T�sn� za ��dkem s "\q" m��e tak� b�t uvedeno makro 

-------------------------------------------------------------

\setletter <p�smeno>

-------------------------------------------------------------

Pokud je toto makro uvedeno, pak p�smeno ot�zky bude ozna�eno podle
parametru makra a nikoli automaticky vygenerovan�. Tuto vlastnost
pou�ijete p�i tisku uk�zkov�ho testu ukazuj�c�ho r�zn� typy ot�zek.


Dal�� zna�ky
============

-------------------------------------------------------------

\col <��slo>
zde je text ti�t�n v <��slo> sloupc�ch
\ecol

-------------------------------------------------------------

Makro "\col <��slo>" zah�j� v�cesloupcovou sazbu.
Text je l�m�n do odstavc� v ���ce zhruba rovn� ���ce zrcadla d�len�
po�tem sloupc� <��slo>. Fakticky jsou sloupce m�rn� u���, proto�e se
po��t� s mezerami mezi sloupci o velikosti "\colsep". V�choz� hodnota:
"\colsep=1em"

Makro "\col" ... "\ecol" m��e obklopovat seznam nab�dek odpov�d�
uveden�ch makrem "\n", ale m��ete jej pou��t i v b�n�m textu.
Chov� se analogicky jako "\begmulti" ... "\endmulti" z TBN, str. 244.

------------------------------------------------------------

\tab <��slo>
seznam nab�dek odpov�d� bude v <��slo> sloupc�ch
\etab

------------------------------------------------------------

Toto makro je mo�no pou��t jen pro obklopen� seznamu nab�dek odpov�d�,
tj. nikoli v b�n�m textu. Na rozd�l od "\col" ... "\ecol"
budou sloupce nestejn� �irok� (tak, jak v nich v�jde text), posledn�
sloupec bude zarovn�n �pln� doprava a mezery mezy sloupci budou stejn�.
D�le�it� tak� je, �e nab�dky odpov�d� se v tomto p��pad� nezalamuj� do
v�ce ��dk�, tak�e se p�edpokl�d�, �e v�echny nab�dky maj� dostate�n� 
kr�tk� text.

<��slo> se p�edpokl�d� v intervalu 2 a� 9 (v�etn�). Pro testy KALIBRO
jin� po�et sloupc� asi nebude pot�eba programovat.

----------------------------------------------------------

\ccol <po�et> <mezera> <���ka1> <mezera> <���ka2 atd.> 
text pro prvn� sloupec
\nextcol
text pro druh�
\nextcol
atd...
\eccol

------------------------------------------------------------

\ccol znamen� Controlled Columns, tj. m��ete si ��ci, jak �irok� maj� 
jednotliv� sloupe�ky b�t a vyzna�it pomoc� sekvence \nextcol hranice
mezi jednotliv�mi sloupe�ky.

Parametry \ccol jsou odd�leny mezerou a prvn� parametr ozna�uje po�et
sloupc�.  Za t�mto parametrem mus� n�sledovat stejn� po�et dal��ch
parametr�, jako je deklarovan� po�et sloupc�. Vyj�mkou je p��pad
druh�ho paramertu ve tvaru hv�zdi�ky. Pak ��dn� dal�� parametr
nen�sleduje a ���ky sloupc� se nastav� rovnom�rn�, aby dohromady
vyplnily ���ku zrcadla sazby. Mezi sloupci se v takov�m p��pad� po��t�
s mezerou \colsep.

Parametr pro ���ku jednoho z deklarovan�ch sloupc� m��e b�t nahrazen
otazn�kem. To znamen�, �e tento sloupce bude m�t ���ku dopo��tanou
podle sou�tu ���ek ostatn�ch sloupc� tak, aby dohromady vyplnily ���ku
zrcadla sazby. Mezi sloupci se po��t� s mezerou \colsep.

Nestejn� vysok� sloupe�ky se zarovnaj� podle horn� hrany.

----------------------------------------------------------

\tykani   ... zapne tyk�n� v p�eddefinovan�ch pokynech (v�choz�)
\vykani   ... zapne vyk�n� v p�eddefinovan�ch pokynech

----------------------------------------------------------

Obr�zky je nutno p�ipravit do soubor� form�tu EPS a potom pou��t:

-----------------------------------------------------------

\obr <���ka-obr�zku> [<jm�no>]

-----------------------------------------------------------

kde <���ka-obr�zku> deklaruje po�adovanou ���ku obr�zku (pi�te v�etn�
jednotky) a v hranat� z�vorce n�sleduje jm�no souboru bez p��pony 
(.eps).
 
-----------------------------------------------------------

\newpage

-----------------------------------------------------------

Odstr�nkov�n�. P�i zad�n� makra "\test" za u� existuj�c� ��st
dokumentu odstr�nkuje TeX automaticky, tj. z�hlav� testu za��n� v�dy
na nov� stran�.

-----------------------------------------------------------

\nopodklad

-----------------------------------------------------------

Makro uvedeno na za��tku dokumentu vyp�n� rastrov� podklady (�edou
barvu), kterou xdvi �patn� zobrazuje. Nezapome�te p�ed fin�ln�m tiskem
toto makro deaktivovat!

-----------------------------------------------------------

... {\em zv�razn�n� text} ...

-----------------------------------------------------------

text bude zv�razn�n nej�ast�ji kurz�vou (pokud v jin�m prost�ed� nen�
�e�eno jinak)

-----------------------------------------------------------

\bftext <text odstavce>
<pr�zdn� ��dek>

-----------------------------------------------------------

Cel� odstavec bude vyti�t�n tu�n�. Je-li v odstavci pou�ita konstrukce
"{\em ...}", je vyti�t�na tu�nou kurz�vou.

-----------------------------------------------------------

\center <text odstavce>
<pr�zdn� ��dek>

-----------------------------------------------------------

Odstavec bude m�t centrov�ny ��dky. Analogicky makro "\right"
zp�sob� tisk odstavce na lev� prapor a pravou zar�ku.

Zna�ky "\bftext", "\center" je mo�n� p�ed odstavcem uv�st ob� a 
v libovoln�m po�ad�.

Analogicky jako "\bftext" pracuj� zna�ky:

-----------------------------------------------------------

\ittext               ... cel� odstavec bude vyti�t�n kurz�vou
\notetext             ... cel� odstavec bude vyti�t�n u���m p�smem
\textsize <velikost>  ... cel� odstavec bude vyti�t�n p�smem velikosti
                          <velikost>

----------------------------------------------------------

Na druh� stran� makro "\fsize <velikost>" nastav� velikost fontu ve
skupin� t�eba uvnit� odstavce a pou��v� se podobn� jako makro "\em"
nap��klad takto:

tady je text {\fsize 15 tady je v�t�� text} a tady je zase 
p�vodn� velikost.

Nyn� uvedeme dal�� p�rov� zna�ky, kter� vymezuj� zp�sob fom�tov�n�
textu a� po koncovou zna�ku stejn�ho jm�na, ale nav�c za��naj�c� 
na "e"

----------------------------------------------------------

\narrow <lev� okraj><mezera><prav� okraj>
<text, kter� m� b�t u���, t�eba i n�kolik odstavc�>
\enarrow

\odsazeni <velikost odstavcov� zar�ky>
<text, jeho� odstavce budou m�t odstavcovou zar�ku>
\eodsazeni

\gobble
<text, kter� m� b�t ignorov�n, t�eba i v�t�� ��st dokumentu>
\egobble

\linenumbers
<text, kter� m� m�t ��slovan� ��dky, t�eba i n�kolik odstavc�>
\elinenumbers

---------------------------------------------------------

�daje <lev� okraj>, <prav� okraj> a <velikost odstavcov� zar�ky>
se zad�vaj� v�etn� rozm�rov� jednotky.

Makra plainu, kter� byly pou�ity v uk�zce
=========================================

---------------------------------------------------------

\bigskip    ... ukon�� (p��padn�) odstavec a vynech� ��dek
\medskip    ... ukon�� (p��padn�) odstavec a vlo�� vert. mezeru
                o velikosti p�l ��dku
\smallskip  ... ukon�� (p��padn�) odstavec a vlo�� vert. mezeru
                o velikosti �tvrt ��dku

---------------------------------------------------------

Literatura
==========

Pro vkl�d�n� textu, kter� neobsahuj� nic speci�ln�ho ani matematick�
vzorce by mohla u�ivateli sta�it informace z dokumentu
[Prvni setkani] a d�le tato u�ivatelsk� dokumentace k makr�m. 
Nav�c m��e u�ivatel metodou "analogie" pracovat s uk�zkou 
v souboru ukazka.tex

Pro vkl�d�n� matematick�ch text� a p��padn� pro �e�en� jednoduch�ch
probl�m�, na kter� zde nen� p�ipraveno makro, vysta��te s kn��kou
[Jemny uvod].

Pokud chcete pochopit makra zde napsan� do posledn�ho detailu
a tvo�it takov� dal��, p�e�t�te si [TBN].

[Prvni setkani]  Petr Ol��k: Prvn� setk�n� s TeXem, 20 stran
                 ftp://math.feld.cvut.cz/pub/cstex/doc/prvni.pdf
[Jemny uvod]     Michael Doob: Jemn� �vod do TeXu, �esk� p�eklad:
                 ftp://math.feld.cvut.cz/pub/cstex/doc/jemny.tar.gz
[TBN]            Petr Ol��k: TeXbook naruby,
                 http://petr.olsak.net/tbn.html


Pou�it� software
================

TeX, csplain, makro OFS.

csplain: ftp://math.feld.cvut.cz/pub/cstex/base/
OFS:     ftp://math.feld.cvut.cz/pub/olsak/ofs/


Zm�ny
=====

14. 9. 2003 ... prvn� verze

13. 10. 2003:

- Zru�eno makro \tabule a nahrazeno makrem \poltabule (deklaruje pol��ka)
  a \tisktabule (vytiskne tabulku).
- Zaveden typ ot�zky L (otev�en� ot�zka, linky pro odpov�di).
- Pro pot�eby typu ot�zky L zavedeno makro \lines a \linspace.
- Zavedeno makro \pocetpolozek pro nastaveni po�tu ok�nek v ot�zk�ch
  typu P a O. P�i \pocetpolozek 0 TeX po��t� po�et polo�ek automaticky
  podle po�tu nab�dek v aktu�ln� ot�zce.
- Zavedena makra \vykame a \tykame, ktera nastavi koment��e pod
  ot�zkou do ra�imu vyk�n�, resp. tyk�n�. Implicitn�: \tykame.
- Definov�no makro \obr na za�azov�n� obr�zk�.
- Definov�no makro \ccol \nextcol \eccol pro deklaraci kontrolovan�
  velik�ch sloupe�k�.
- V dessignu: Prav� a doln� ��ry jsou siln�j��, p�sob� to plasti�t�ji.
              �ed� je pon�kud tmav��.
- V�echny zm�ny jsou podrobn� dokumentov�ny v tomto souboru.

18. 10. 2003:

- ��sla polo�ek v nab�dce jsou tu�n�.
- Linky pro odpov�di v otev�en�ch ot�zk�ch jsou krat�� a ten��.
- \hoffset-1in+12mm -> \hoffset-1in+15mm

