Generování protokolů a zpracování scanů

mo/tex/protokol.tex

@@ -14,33 +14,34 @@
 \frenchspacing
 
 \newbox\logobox
-\setbox\logobox=\putimage{width 20mm}{mo-logo.epdf}
+\setbox\logobox=\putimage{width 21mm}{mo-logo.epdf}
 
 \input qrcode.tex
-\qrset{height=25mm, level=H, tight, silent}
+\qrset{height=23mm, level=H, tight, silent}
 \newbox\codebox
 
 \def\kolo{TODO}
+\def\kat{TODO}
 
 % \proto{kód}{jméno}{třída}{škola}{příklad}
 \def\proto#1#2#3#4#5{
 \setbox\codebox=\hbox{\qrcode{#1}}
 
 \line{%
-	\copy\logobox
+	\vhang{\copy\logobox}%
 	\qquad
-	\raise 7pt\hbox{\bf\kolo}%
+	\vhanglines{\baselineskip=14pt\vskip -5pt\hbox{\bf\kolo}\hbox{\bf\kat}}%
 	\hfil
-	\llap{\smash{\lower 16mm\box\codebox}}%
+	\llap{\smash{\vhang{\box\codebox}}}%
 }
 
 \medskip
 
 \leftline{Jméno: {\bf #2}}
 \leftline{Škola: {\bf #4}}
-\halign{##\hfil&\qquad##\hfil&\qquad\qquad##\hfil\cr
-Třída: {\bf #3}&Číslo listu:&Hodnocení:\cr
-Příklad: {\bf #5}&Počet listů:&Hodnotil:\cr
+\halign to \hsize{##\hfil\tabskip=0pt plus 1fil&##\hfil\tabskip=0pt plus 2fil&##\hfil\tabskip=50mm\cr
+Třída: {\bf #3}&Hodnocení:&Číslo listu:\cr
+Příklad: {\bf #5}&Hodnotil:&Počet listů:\cr
 }
 
 \bigskip