From 0a5f59a9aa25b3de7e9659b39ad201aaf7eb5a67 Mon Sep 17 00:00:00 2001
From: Hans Hagen <pragma@wxs.nl>
Date: Fri, 27 Sep 2019 20:24:34 +0200
Subject: 2019-09-27 18:10:00

---
 tex/context/modules/mkiv/s-present-luatex.mkiv | 118 +++++++++++++++++++++++++
 1 file changed, 118 insertions(+)
 create mode 100644 tex/context/modules/mkiv/s-present-luatex.mkiv

(limited to 'tex/context/modules/mkiv/s-present-luatex.mkiv')

diff --git a/tex/context/modules/mkiv/s-present-luatex.mkiv b/tex/context/modules/mkiv/s-present-luatex.mkiv
new file mode 100644
index 000000000..079860bf9
--- /dev/null
+++ b/tex/context/modules/mkiv/s-present-luatex.mkiv
@@ -0,0 +1,118 @@
+%D \module
+%D   [      file=s-present-luatex,
+%D        version=2016.04.30, % around
+%D          title=\CONTEXT\ Style File,
+%D       subtitle=Presentation Environment Banner,
+%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 As with older presentations we use the \LUA\ moon as page counter. The rest
+%D of the style is simple because I got bored of all this fancy stepping for
+%D simple presentations.
+
+%D Beware: this presentation is meant for my own use and not a general purpose
+%D presentation style. It is a rather dumb module but served its purpose well.
+
+\startmodule[present-luatex]
+
+\useMPlibrary[lua]
+
+\setupbodyfont
+  [dejavu,17.3pt]
+
+\startuseMPgraphic{page}
+    StartPage ;
+        luaorbitcolor := white ;
+        fill Page withcolor (.5white - luaplanetcolor) ;
+        draw anchored.urt(image(drawluapagenumbergoround) xsized 150pt,urcorner Page shifted (-15pt,-10pt)) ;
+        if RealPageNumber > 1 :
+            begingroup;
+                save p, q; picture p, q;
+                p := textext("\ssbf\setstrut\strut \documentvariable{mp:title}")    xsized 150pt ;
+                q := textext("\ssbf\setstrut\strut \documentvariable{mp:subtitle}") xsized 150pt ;
+                setbounds q to boundingbox(p);
+                draw anchored.lrt(p,lrcorner Page shifted (-15pt, 90pt)) withcolor luaplanetcolor ;
+                draw anchored.lrt(q,lrcorner Page shifted (-15pt, 55pt)) withcolor luaholecolor ;
+            endgroup;
+        fi ;
+        fill Field[Text][Text] enlarged 10pt withcolor (.5white - luaplanetcolor)/1.5 ;
+    StopPage ;
+\stopuseMPgraphic
+
+\defineoverlay
+  [page]
+  [\useMPgraphic{page}]
+
+\setupbackgrounds
+  [page]
+  [background=page]
+
+\setuppapersize
+  [S6]
+
+\setuplayout
+  [backspace=50pt,
+   cutspace=200pt,
+   topspace=40pt,
+   bottomspace=40pt,
+   margin=0pt,
+   footer=0pt,
+   header=0pt,
+   width=middle,
+   height=middle]
+
+\setupmakeup
+  [standard]
+  [top=\vfil,
+   bottom=\vfilll,
+   setups=standardmakeup,
+   align=middle,
+   color=white]
+
+\setupcolors
+  [textcolor=white]
+
+\startsetups standardmakeup
+    \setupwhitespace
+      [big]
+\stopsetups
+
+\setupdocument
+  [title=Title,
+   subtitle=Subtitle,
+   location=\currentdate,
+   mp:title=title,
+   mp:subtitle=subtitle]
+
+\startsetups document:start
+
+    \startstandardmakeup[bottom=,top=]
+
+        \raggedcenter
+
+        \vfil\vfil
+        \dontleavehmode\scale[width=1.00\textwidth]{\ssbf\documentvariable{title}}
+        \vfil
+        \dontleavehmode\scale[width=0.75\textwidth]{\ssbf\documentvariable{subtitle}}
+        \vfil
+        \dontleavehmode\scale[width=0.65\textwidth]{\ssbf\documentvariable{location}}
+        \vfil
+        \dontleavehmode\scale[width=0.45\textwidth]{\ssbf\documentvariable{author}}
+        \vfil\vfil\vfil
+
+    \stopstandardmakeup
+
+\stopsetups
+
+\stopmodule
+
+\continueifinputfile{s-present-luatex.mkiv}
+
+\usemodule[present-common]
+
+\inputpresentationfile{context/2016/context-2016-luatex.tex}
-- 
cgit v1.2.3