Add text

3 files changed, 194 insertions, 37 deletions

diff --git a/presentation.mkiv b/presentation.mkiv
index e6192d2..0d283db 100644
--- a/presentation.mkiv
+++ b/presentation.mkiv
@@ -1,45 +1,18 @@
 \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}]
+\startdocument
+  [title=On Formalising Predicated Execution and Predicate-Aware Scheduling,
+   subtitle=Yann Herklotz,
+   location=INI'22]
 
-\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
+\Topic{Forms of Predicated Execution}
 
-\setuphead[Topic][number=yes]
+\Topic{Knuth}
 
-\startdocument
-  [title=Some Quotes,
-   subtitle=that you probably know by now]
+\Topic{Reich}
 
-    \Topic{Tufte}   \input tufte
-    \Topic{Knuth}   \input knuth
-    \Topic{Reich}   \input reich
-    \Topic{Zapf}    \input zapf
-    \Topic{Materie} \input materie
+\Topic{Zapf}
 
-    %Topic{Stork}   \input stork
+\Topic{Materie}
 
 \stopdocument
diff --git a/s-present-split.mkiv b/s-present-split.mkiv
new file mode 100644
index 0000000..ae3b1df
--- /dev/null
+++ b/s-present-split.mkiv
@@ -0,0 +1,184 @@
+%D \module
+%D   [      file=s-present-split, % s-pre-14,
+%D        version=1999.08.20,
+%D          title=\CONTEXT\ Style File,
+%D       subtitle=Presentation Environment Split,
+%D         author=Hans Hagen,
+%D           date=\currentdate,
+%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
+%C
+%C This module is part of the \CONTEXT\ macro||package and is
+%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
+%C details.
+
+%D In the process of making a couple of simple styles for \EUROTEX\ 99, I came to
+%D this one. The joke is in the pagenumber. This style can be used for short
+%D presentations with much text.
+
+\startmodule[present-split]
+
+
+\setupbodyfont[ymhgd,12pt]
+
+%D Since we expect text, we can best be very tolerant.
+
+\setuptolerance
+  [verytolerant,stretch]
+
+%D As most styles we choose a large screen page size.
+
+\setuppapersize[SW][SW]
+
+\setuplayout
+  [width=fit,
+   rightedge=4cm,
+   margin=0pt,
+   rightedgedistance=1cm,
+   height=middle,
+   header=0pt,
+   footer=0pt,
+   topspace=1cm,
+   backspace=1cm]
+
+\setupbackgrounds
+  [page]
+  [background={numberb}]
+
+%D We only use two colors, named \type {ColorOne} and \type {ColorTwo}:
+
+\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
+
+%D We use the simple label typesetting present in \METAPOST\ because digits are
+%D seldom kerned so real \TEX ing is not needed. As in the previous method, we let
+%D the graphics overlap so that we don't get white lines due to rounding problems in
+%D viewers.
+%D
+%D We put a button behind the text (this overlay is calculated each page).
+
+\defineoverlay
+  [nextpage]
+  [\overlaybutton{nextpage}]
+
+\setupbackgrounds
+  [text]
+  [backgroundoffset=.5cm,
+   background=nextpage]
+
+%D We still have to turn on interaction mode.
+
+\setupinteraction
+  [state=start,
+   display=new,
+   menu=on]
+
+\setupinteraction
+  [color=,
+   contrastcolor=]
+
+%D Next we define structuring commands.
+
+\definehead[Topic]  [chapter] \setuphead[Topic]  [style=\ssc\bf]
+\definehead[Subject][section] \setuphead[Subject][style=\ssa\bf]
+
+\setuphead
+  [Topic,Subject]
+  [number=no,
+   after={\blank[big]}]
+
+%D Because we will provide a menu, we don't offer lists.
+
+\let\Topics  \gobbleoneargument
+\let\Subjects\relax
+
+%D The table of contents goes to the right edge.
+
+\startinteractionmenu[right]
+  \setupinteraction
+    [color=black,
+     contrastcolor=Two]
+  \placelist
+    [Topic]
+    [alternative=f,
+     frame=off,
+     criterium=all,]
+  \vfill
+\stopinteractionmenu
+
+\setuplist
+  [Topic]
+  [width=\rightedgewidth,
+   maxwidth=\rightedgewidth,
+   style=\ssxx\bf,
+   width=fit]
+
+%D We safe some space:
+
+\setupwhitespace
+  [medium]
+
+\setupblank
+  [medium]
+
+%D In the titlepage, we still use the \TEX\ overlays, so that we don't have to
+%D define a second graphic.
+
+\unexpanded\def\TitlePage#1%
+  {\StartTitlePage#1\StopTitlePage}
+
+\unexpanded\def\StartTitlePage
+  {\startstandardmakeup
+   \setupalign[middle]
+   \enforced\protected\def\\{\vfil\ssa\setupinterlinespace}
+   \ssc\bf\setupinterlinespace
+   \vfil}
+
+\unexpanded\def\StopTitlePage
+  {\vfil\vfil\vfil
+   \stopstandardmakeup}
+
+\startsetups document:start
+    \StartTitlePage
+        \documentvariable{title}
+        \doifsomething {\documentvariable{subtitle}} {
+            \\
+            \documentvariable{subtitle}
+        }
+        \doifsomething {\documentvariable{location}} {
+            \\
+            \documentvariable{location}
+        }
+    \StopTitlePage
+\stopsetups
+
+\startsetups document:stop
+    %
+\stopsetups
+
+\stopmodule
+
+%D This is it.
+
+\continueifinputfile{s-present-split.mkiv}
+
+\usemodule[present-common]
+
+\inputpresentationfile{examples/present-split-001.tex}
diff --git a/type-imp-ymhgd.mkiv b/type-imp-ymhgd.mkiv
index 306022a..ccc0301 100644
--- a/type-imp-ymhgd.mkiv
+++ b/type-imp-ymhgd.mkiv
@@ -15,7 +15,7 @@
 
 \starttypescript [ymhgd]
   \definetypeface [ymhgd] [rm] [serif] [libertinus] [default] [rscale=1.73]
-  \definetypeface [ymhgd] [ss] [sans]  [libertinus] [default] [rscale=1.73]
+  \definetypeface [ymhgd] [ss] [sans]  [lato] [default] [rscale=1.73]
   \definetypeface [ymhgd] [tt] [mono]  [iosevka]    [default] [rscale=1.55]
   \definetypeface [ymhgd] [mm] [math]  [libertinus] [default] [rscale=1.73]
 \stoptypescript