From 79257f580c7cb107aa292318fea76c20de6e046e Mon Sep 17 00:00:00 2001
From: Martin Mares <mj@ucw.cz>
Date: Thu, 1 Jul 2021 13:11:18 +0200
Subject: [PATCH] =?UTF-8?q?Protokoly:=20TeXov=C3=A1=20makra=20na=20sazbu?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 mo/tex/protokol.tex | 83 +++++++++++++++++++++++++++++++++++++++++++++
 mo/tex/test.tex     | 13 +++++++
 2 files changed, 96 insertions(+)
 create mode 100644 mo/tex/protokol.tex
 create mode 100644 mo/tex/test.tex

diff --git a/mo/tex/protokol.tex b/mo/tex/protokol.tex
new file mode 100644
index 00000000..c666e111
--- /dev/null
+++ b/mo/tex/protokol.tex
@@ -0,0 +1,83 @@
+\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
+}
diff --git a/mo/tex/test.tex b/mo/tex/test.tex
new file mode 100644
index 00000000..46363532
--- /dev/null
+++ b/mo/tex/test.tex
@@ -0,0 +1,13 @@
+\input protokol.tex
+
+\def\kolo{Krajské kolo 70. ročníku Matematické olympiády}
+\def\kat{Kategorie P, Zlínský kraj}
+
+\proto{MO:70-P-III-1:12345}{Pokusný Králík}{4/4}{Gymnázium Na Paloučku, Králíky}{P-III-1}
+\proto{MO:70-P-III-2:12345}{Pokusný Králík}{4/4}{Gymnázium Na Paloučku, Králíky}{P-III-2}
+\proto{MO:70-P-III-3:12345}{Pokusný Králík}{4/4}{Gymnázium Na Paloučku, Králíky}{P-III-3}
+\proto{MO:70-P-III-4:12345}{Pokusný Králík}{4/4}{Gymnázium Na Paloučku, Králíky}{P-III-4}
+\universal
+\blank
+
+\bye
-- 
GitLab