Source Browser ?

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
\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