Source Browser ?

1%D \module
2%D   [      file=s-present-simple, % was: s-pre-68,
3%D        version=2009.08.28,
4%D          title=\CONTEXT\ Style File,
5%D       subtitle=Presentation Environment Simple,
6%D         author=Hans Hagen,
7%D           date=\currentdate,
8%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
9%C
10%C This module is part of the \CONTEXT\ macro||package and is
11%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
12%C details.
13
14\usemodule[present-stepwise]
15
16\startmodule[present-simple]
17
18% style
19
\setuppapersize
21  [S66][S66]
22
23\setuplayout
24  [height=middle,
25   width=middle,
26   header=0pt,
27   footer=0pt,
28   backspace=2cm,
29   topspace=2cm]
30
31\setupinteraction
32  [state=start,
33   click=no]
34
35\definecolor[maincolor][r=.4]
36
37\startreusableMPgraphic{page}
38    StartPage ;
39        fill Page enlarged 5mm withcolor "maincolor" ;
40    StopPage ;
41\stopreusableMPgraphic
42
43\startreusableMPgraphic{next}
44    fill ultriangle scaled .15PaperWidth withcolor white ;
45\stopreusableMPgraphic
46
47\startreusableMPgraphic{last}
48    fill boundingbox(ultriangle scaled .15PaperWidth) withcolor white ;
49\stopreusableMPgraphic
50
51\startuniqueMPgraphic{bullit}
52    fill ultriangle scaled 2ExHeight withcolor white ;
53\stopuniqueMPgraphic
54
55\definelayer
56  [extra]
57  [width=\paperwidth,
58   height=\paperheight]
59
60\defineoverlay
61  [page]
62  [\reuseMPgraphic{page}]
63
64\setupbackgrounds
65  [page]
66  [background={page,extra}]
67
68\setupcolors
69  [state=start,
70   textcolor=white]
71
72\setuphead
73  [chapter]
74  [style=\bfc]
75
76\definehead
77  [Title]
78  [title]
79
80\definesymbol
81  [MyBullet]
82  [\uniqueMPgraphic{bullit}]
83
84\setupitemgroup
85  [itemize]
86  [each]
87  [symbol=MyBullet]
88
89\doifelsemode {asintended,atpragma} {
90    \setupbodyfont[cambria,14.4pt]
91} {
92    \setupbodyfont[pagella,14.4pt]
93}
94
95% interface
96
97\unexpanded\def\StartItems
98  {\begingroup
99   \StartSteps
100   \startitemize
101   \unexpanded\def\StartItems{\startitemize\unexpanded\def\StopItems{\stopitemize}}}
102
103\unexpanded\def\StopItems
104  {\FlushStep
105   \stopitemize
106   \NextPageSymbol
107   \StopSteps
108   \endgroup}
109
110\unexpanded\def\Item
111  {\unexpanded\def\Item{\FlushStep\item}
112   \item}
113
114\unexpanded\def\NextPageSymbol
115  {\setlayer
116     [extra]
117     [preset=rightbottom,offset=2mm]
118     {\ifnum\realpageno=\lastpage\relax
119       \reuseMPgraphic{last}%
120      \else\ifnum\realpageno>\plusone
121       \reuseMPgraphic{next}%
122      \fi\fi
123      \FlushStep}}
124
125\unexpanded\def\TitlePage#1#2%
126  {\startstandardmakeup[bottom=,top=]
127   \scale[width=\textwidth]{\framed[align=flushleft,foregroundstyle=\bf,frame=off]{#1}}
128   \vfilll
129   \hfill\scale[width=.5\textwidth]{\framed[align=flushright,foregroundstyle=\bf,frame=off]{#2}}
130   \stopstandardmakeup}
131
132\unexpanded\def\StartTopic#1%
133  {\Title{#1}}
134
135\unexpanded\def\StopTopic
136  {\page}
137
138\startsetups document:start
139    \TitlePage
140      {\documentvariable{title}}
141      {\documentvariable{author}\\
142       \documentvariable{location}}
143\stopsetups
144
145\stopmodule
146
147\continueifinputfile{s-present-simple.mkiv}
148
149\usemodule[present-common]
150
151\inputpresentationfile{examples/present-simple-001.tex}
152