From 30fb64f5ffae371dce9944d0701f55a764b26782 Mon Sep 17 00:00:00 2001
From: Yann Herklotz <git@yannherklotz.com>
Date: Fri, 5 Aug 2022 10:07:56 +0100
Subject: Add text

---
 s-present-split.mkiv | 184 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 184 insertions(+)
 create mode 100644 s-present-split.mkiv

(limited to 's-present-split.mkiv')

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}
-- 
cgit