From 3b04d038de59e63237973f15bce7dd7e8a6fb2fb Mon Sep 17 00:00:00 2001
From: Yann Herklotz <git@yannherklotz.com>
Date: Thu, 4 Aug 2022 16:30:40 +0100
Subject: Add initial presentation

---
 Makefile            |  6 ++++++
 presentation.mkiv   | 45 +++++++++++++++++++++++++++++++++++++++++++++
 type-imp-ymhgd.mkiv | 21 +++++++++++++++++++++
 3 files changed, 72 insertions(+)
 create mode 100644 Makefile
 create mode 100644 presentation.mkiv
 create mode 100644 type-imp-ymhgd.mkiv

diff --git a/Makefile b/Makefile
new file mode 100644
index 0000000..55a40ca
--- /dev/null
+++ b/Makefile
@@ -0,0 +1,6 @@
+all: presentation.pdf
+
+%.pdf: %.mkiv
+	context $<
+
+.PHONY: all
diff --git a/presentation.mkiv b/presentation.mkiv
new file mode 100644
index 0000000..e6192d2
--- /dev/null
+++ b/presentation.mkiv
@@ -0,0 +1,45 @@
+\usemodule[present-split]
+
+\setuppapersize[SW][SW]
+\setupbodyfont[ymhgd,12pt]
+
+\setupbackgrounds
+  [page]
+  [background={numberb}]
+
+\definecolor [ColorOne] [x=E0C2B8]
+\definecolor [ColorTwo] [x=ACCDC7]
+
+\defineoverlay[numberb][\useMPgraphic{numberb}]
+
+\startuseMPgraphic{numberb}
+    StartPage ;
+        picture Left, Right ;
+        numeric Shift ; Shift := -TextWidth - BackSpace - RightEdgeDistance/2 ;
+        fill Page withcolor "ColorOne" ;
+        fill Page leftenlarged Shift withcolor "ColorTwo" ;
+        if RealPageNumber > 1 :
+            Left := Right := textext("\bf\pagenumber") ysized 3cm ;
+            clip Right to boundingbox Right shifted ( bbwidth(Right)/2,0) ;
+            clip Left  to boundingbox Left  shifted (-bbwidth(Left) /2,0) ;
+            draw Left  shifted (-Shift,2.25cm) withcolor "ColorTwo" ;
+            draw Right shifted (-Shift,2.25cm) withcolor "ColorOne" ;
+        fi ;
+    StopPage ;
+\stopuseMPgraphic
+
+\setuphead[Topic][number=yes]
+
+\startdocument
+  [title=Some Quotes,
+   subtitle=that you probably know by now]
+
+    \Topic{Tufte}   \input tufte
+    \Topic{Knuth}   \input knuth
+    \Topic{Reich}   \input reich
+    \Topic{Zapf}    \input zapf
+    \Topic{Materie} \input materie
+
+    %Topic{Stork}   \input stork
+
+\stopdocument
diff --git a/type-imp-ymhgd.mkiv b/type-imp-ymhgd.mkiv
new file mode 100644
index 0000000..306022a
--- /dev/null
+++ b/type-imp-ymhgd.mkiv
@@ -0,0 +1,21 @@
+\starttypescript[mono] [iosevka]
+  \definefontsynonym[Iosevka-Regular]    [name:iosevkaslabmedium]
+  \definefontsynonym[Iosevka-Italic]     [name:iosevkaslabmediumitalic]
+  \definefontsynonym[Iosevka-Bold]       [name:iosevkaslabbold]
+  \definefontsynonym[Iosevka-BoldItalic] [name:iosevkaslabbolditalic]
+\stoptypescript
+
+\starttypescript[mono] [iosevka]
+  \setups[font:fallback:mono]
+  \definefontsynonym[Mono]           [Iosevka-Regular]    [features=default]
+  \definefontsynonym[MonoItalic]     [Iosevka-Italic]     [features=default]
+  \definefontsynonym[MonoBold]       [Iosevka-Bold]       [features=default]
+  \definefontsynonym[MonoBoldItalic] [Iosevka-BoldItalic] [features=default]
+\stoptypescript
+
+\starttypescript [ymhgd]
+  \definetypeface [ymhgd] [rm] [serif] [libertinus] [default] [rscale=1.73]
+  \definetypeface [ymhgd] [ss] [sans]  [libertinus] [default] [rscale=1.73]
+  \definetypeface [ymhgd] [tt] [mono]  [iosevka]    [default] [rscale=1.55]
+  \definetypeface [ymhgd] [mm] [math]  [libertinus] [default] [rscale=1.73]
+\stoptypescript
-- 
cgit