s-present-luatex.mkiv /size: 3143 b    last modification: 2020-07-01 14:35
1
%D \module
2
%D [ file=s-present-luatex,
3
%D version=2016.04.30, % around
4
%D title=\CONTEXT\ Style File,
5
%D subtitle=Presentation Environment Banner,
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
%D As with older presentations we use the \LUA\ moon as page counter. The rest
15
%D of the style is simple because I got bored of all this fancy stepping for
16
%D simple presentations.
17 18
%D Beware: this presentation is meant for my own use and not a general purpose
19
%D presentation style. It is a rather dumb module but served its purpose well.
20 21
\startmodule
[
present
-
luatex
]
22 23
\useMPlibrary
[
lua
]
24 25
\setupbodyfont
26
[
dejavu
,
1
7
.
3
pt
]
27 28
\startuseMPgraphic
{
page
}
29
StartPage
;
30
luaorbitcolor
:
=
white
;
31
fill
Page
withcolor
(
.5
white
-
luaplanetcolor
)
;
32
draw
anchored
.
urt
(
image
(
drawluapagenumbergoround
)
xsized
150
pt
,
urcorner
Page
shifted
(
-15
pt
,
-10
pt
)
)
;
33
if
RealPageNumber
>
1
:
34
begingroup
;
35
save
p
,
q
;
picture
p
,
q
;
36
p
:
=
textext
(
"
\ssbf\setstrut\strut \documentvariable{mp:title}
"
)
xsized
150
pt
;
37
q
:
=
textext
(
"
\ssbf\setstrut\strut \documentvariable{mp:subtitle}
"
)
xsized
150
pt
;
38
setbounds
q
to
boundingbox
(
p
)
;
39
draw
anchored
.
lrt
(
p
,
lrcorner
Page
shifted
(
-15
pt
,
90
pt
)
)
withcolor
luaplanetcolor
;
40
draw
anchored
.
lrt
(
q
,
lrcorner
Page
shifted
(
-15
pt
,
55
pt
)
)
withcolor
luaholecolor
;
41
endgroup
;
42
fi
;
43
fill
Field
[
Text
]
[
Text
]
enlarged
10
pt
withcolor
(
.5
white
-
luaplanetcolor
)
/
1.5
;
44
StopPage
;
45
\stopuseMPgraphic
46 47
\defineoverlay
48
[
page
]
49
[
\useMPgraphic
{
page
}
]
50 51
\setupbackgrounds
52
[
page
]
53
[
background
=
page
]
54 55
\setuppapersize
56
[
S
6
]
57 58
\setuplayout
59
[
backspace
=
5
0
pt
,
60
cutspace
=
2
0
0
pt
,
61
topspace
=
4
0
pt
,
62
bottomspace
=
4
0
pt
,
63
margin
=
0
pt
,
64
footer
=
0
pt
,
65
header
=
0
pt
,
66
width
=
middle
,
67
height
=
middle
]
68 69
\setupmakeup
70
[
standard
]
71
[
top
=
\vfil
,
72
bottom
=
\vfilll
,
73
setups
=
standardmakeup
,
74
align
=
middle
,
75
color
=
white
]
76 77
\setupcolors
78
[
textcolor
=
white
]
79 80
\startsetups
standardmakeup
81
\setupwhitespace
82
[
big
]
83
\stopsetups
84 85
\setupdocument
86
[
title
=
Title
,
87
subtitle
=
Subtitle
,
88
location
=
\currentdate
,
89
mp
:
title
=
title
,
90
mp
:
subtitle
=
subtitle
]
91 92
\startsetups
document
:
start
93 94
\startstandardmakeup
[
bottom
=
,
top
=]
95 96
\raggedcenter
97 98
\vfil\vfil
99
\dontleavehmode
\scale
[
width
=
1
.
0
0
\textwidth
]
{
\ssbf
\documentvariable
{
title
}}
100
\vfil
101
\dontleavehmode
\scale
[
width
=
0
.
7
5
\textwidth
]
{
\ssbf
\documentvariable
{
subtitle
}}
102
\vfil
103
\dontleavehmode
\scale
[
width
=
0
.
6
5
\textwidth
]
{
\ssbf
\documentvariable
{
location
}}
104
\vfil
105
\dontleavehmode
\scale
[
width
=
0
.
4
5
\textwidth
]
{
\ssbf
\documentvariable
{
author
}}
106
\vfil\vfil\vfil
107 108
\stopstandardmakeup
109 110
\stopsetups
111 112
\stopmodule
113 114
\continueifinputfile
{
s
-
present
-
luatex
.
mkiv
}
115 116
\usemodule
[
present
-
common
]
117 118
\inputpresentationfile
{
context
/
2
0
1
6
/
context
-
2
0
1
6
-
luatex
.
tex
}
119