SourceBrowser

s-present-simple.mkiv /size: 3040 b last modification: 2020-07-01 14:35
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
20\setuppapersize
21  [
S
6
6
]
[
S
6
6
]
22
23\setuplayout
24  [
height
=
middle
,
25   width
=
middle
,
26   header
=
0
pt
,
27   footer
=
0
pt
,
28   backspace
=
2
cm
,
29   topspace
=
2
cm
]
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
 5
mm
 withcolor
 "
maincolor
"
 ;
40    StopPage
 ;
41\stopreusableMPgraphic
42
43\startreusableMPgraphic
{
next
}
44    fill
 ultriangle
 scaled
 .15
PaperWidth
 withcolor
 white
 ;
45\stopreusableMPgraphic
46
47\startreusableMPgraphic
{
last
}
48    fill
 boundingbox
(
ultriangle
 scaled
 .15
PaperWidth
)
 withcolor
 white
 ;
49\stopreusableMPgraphic
50
51\startuniqueMPgraphic
{
bullit
}
52    fill
 ultriangle
 scaled
 2
ExHeight
 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
,
1
4
.
4
pt
]
91}
 {
92    \setupbodyfont
[
pagella
,
1
4
.
4
pt
]
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
=
2
mm
]
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
-
0
0
1
.
tex
}
152
Source Browser ?
