1 files changed, 151 insertions, 0 deletions
diff --git a/tex/context/modules/mkiv/s-present-simple.mkiv b/tex/context/modules/mkiv/s-present-simple.mkiv
new file mode 100644
index 000000000..4fadf1f9f
--- /dev/null
+++ b/tex/context/modules/mkiv/s-present-simple.mkiv
@@ -0,0 +1,151 @@
+%D \module
+%D   [      file=s-present-simple, % was: s-pre-68,
+%D        version=2009.08.28,
+%D          title=\CONTEXT\ Style File,
+%D       subtitle=Presentation Environment Simple,
+%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.
+
+\usemodule[present-stepwise]
+
+\startmodule[present-simple]
+
+% style
+
+\setuppapersize
+  [S66][S66]
+
+\setuplayout
+  [height=middle,
+   width=middle,
+   header=0pt,
+   footer=0pt,
+   backspace=2cm,
+   topspace=2cm]
+
+\setupinteraction
+  [state=start,
+   click=no]
+
+\definecolor[maincolor][r=.4]
+
+\startreusableMPgraphic{page}
+    StartPage ;
+        fill Page enlarged 5mm withcolor "maincolor" ;
+    StopPage ;
+\stopreusableMPgraphic
+
+\startreusableMPgraphic{next}
+    fill ultriangle scaled .15PaperWidth withcolor white ;
+\stopreusableMPgraphic
+
+\startreusableMPgraphic{last}
+    fill boundingbox(ultriangle scaled .15PaperWidth) withcolor white ;
+\stopreusableMPgraphic
+
+\startuniqueMPgraphic{bullit}
+    fill ultriangle scaled 2ExHeight withcolor white ;
+\stopuniqueMPgraphic
+
+\definelayer
+  [extra]
+  [width=\paperwidth,
+   height=\paperheight]
+
+\defineoverlay
+  [page]
+  [\reuseMPgraphic{page}]
+
+\setupbackgrounds
+  [page]
+  [background={page,extra}]
+
+\setupcolors
+  [state=start,
+   textcolor=white]
+
+\setuphead
+  [chapter]
+  [style=\bfc]
+
+\definehead
+  [Title]
+  [title]
+
+\definesymbol
+  [MyBullet]
+  [\uniqueMPgraphic{bullit}]
+
+\setupitemgroup
+  [itemize]
+  [each]
+  [symbol=MyBullet]
+
+\doifelsemode {asintended,atpragma} {
+    \setupbodyfont[cambria,14.4pt]
+} {
+    \setupbodyfont[pagella,14.4pt]
+}
+
+% interface
+
+\unexpanded\def\StartItems
+  {\begingroup
+   \StartSteps
+   \startitemize
+   \unexpanded\def\StartItems{\startitemize\unexpanded\def\StopItems{\stopitemize}}}
+
+\unexpanded\def\StopItems
+  {\FlushStep
+   \stopitemize
+   \NextPageSymbol
+   \StopSteps
+   \endgroup}
+
+\unexpanded\def\Item
+  {\unexpanded\def\Item{\FlushStep\item}
+   \item}
+
+\unexpanded\def\NextPageSymbol
+  {\setlayer
+     [extra]
+     [preset=rightbottom,offset=2mm]
+     {\ifnum\realpageno=\lastpage\relax
+       \reuseMPgraphic{last}%
+      \else\ifnum\realpageno>\plusone
+       \reuseMPgraphic{next}%
+      \fi\fi
+      \FlushStep}}
+
+\unexpanded\def\TitlePage#1#2%
+  {\startstandardmakeup[bottom=,top=]
+   \scale[width=\textwidth]{\framed[align=flushleft,foregroundstyle=\bf,frame=off]{#1}}
+   \vfilll
+   \hfill\scale[width=.5\textwidth]{\framed[align=flushright,foregroundstyle=\bf,frame=off]{#2}}
+   \stopstandardmakeup}
+
+\unexpanded\def\StartTopic#1%
+  {\Title{#1}}
+
+\unexpanded\def\StopTopic
+  {\page}
+
+\startsetups document:start
+    \TitlePage
+      {\documentvariable{title}}
+      {\documentvariable{author}\\
+       \documentvariable{location}}
+\stopsetups
+
+\stopmodule
+
+\continueifinputfile{s-present-simple.mkiv}
+
+\usemodule[present-common]
+
+\inputpresentationfile{examples/present-simple-001.tex}