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

mo/tex/protokol.tex

+\input ltluatex.tex
+\input luatex85.sty
+\input ucwmac2.tex
+
+\setmargins{15mm}
+\setuppage
+\nopagenumbers
+
+\ucwmodule{luaofs}
+\settextsize{12}
+\baselineskip=18pt
+
+\uselanguage{czech}
+\frenchspacing
+
+\newbox\logobox
+\setbox\logobox=\putimage{width 21mm}{mo-logo.epdf}
+
+\input qrcode.tex
+\qrset{height=23mm, level=H, tight, silent}
+\newbox\codebox
+
+\def\kolo{TODO}
+\def\kat{TODO}
+
+\def\field#1#2{\hbox to #1{#2\hss}}
+\def\fillin#1{\smash{\lower 2pt\hbox to #1{\hrulefill}}}
+
+% \proto{kód}{jméno}{třída}{škola}{příklad}
+\def\proto#1#2#3#4#5{
+\setbox\codebox=\hbox{\qrcode{#1}}
+
+\line{%
+	\vhang{\copy\logobox}%
+	\qquad
+	\vhanglines{\baselineskip=14pt\vskip -5pt\hbox{\bf\kolo}\hbox{\bf\kat}}%
+	\hfil
+	\smash{\vhang{\box\codebox}}%
+}
+
+\medskip
+\prevdepth=0pt
+
+\leftline{%
+	\field{0.63\hsize}{Jméno: {\bf #2}}%
+	Třída: {\bf #3}%
+}
+\leftline{%
+	\field{0.63\hsize}{Škola: {\bf #4}}%
+	Příklad: {\bf #5}%
+}
+\leftline{%
+	\field{0.3\hsize}{List {\bf 1} ze \fillin{10mm}}%
+	\field{0.33\hsize}{Hodnotil:}%
+	Bodů:
+}
+
+\bigskip
+\hrule
+\vfill\eject
+}
+
+\def\universal{\proto{MO:*}{}{}{}{}}
+
+\def\blank{%
+\setbox\codebox=\hbox{\qrcode[height=15mm]{MO:+}}
+
+\line{%
+	\field{0.63\hsize}{Jméno:}%
+	\field{0.2\hsize}{Třída:}%
+	\hss
+	\raise\ht\strutbox\hbox{\smash{\vhang{\box\codebox}}}
+}
+\leftline{%
+	\field{0.63\hsize}{List \fillin{10mm} ze \fillin{10mm}}%
+	\field{0.2\hsize}{Příklad:}%
+}
+
+\bigskip
+\nointerlineskip
+\hbox to 0.85\hsize{\hrulefill}
+\vfill\eject
+}