s-present-ovals.mkiv /size: 2432 b    last modification: 2020-07-01 14:35
1
%D \module
2
%D [ file=s-present-ovals,
3
%D version=2015.04.20,
4
%D title=\CONTEXT\ Style File,
5
%D subtitle=Presentation Environment Ovals,
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 This style was made for some of the font and language related presentations at
15
%D Bacho\TeX\ 2015. It's a bit boring but it suits simple presentations. It provides
16
%D no structure as each page content is kind of special.
17 18
\startmodule
[
s
-
present
-
ovals
]
19 20
\setuppapersize
[
S
6
]
21 22
\definecolor
[
maincolor
]
[
darkred
]
23
\definecolor
[
othercolor
][
maincolor
]
24 25
\startuseMPgraphic
{
page
}
26 27
fill
Page
enlarged
2
mm
withcolor
.5
[
white
,
\MPcolor
{
othercolor
}
]
;
28 29
if
NOfPages
>
1
:
30 31
numeric
PageFraction
;
PageFraction
:
=
(
RealPageNumber
-1
)
/
(
NOfPages
-1
)
;
32
numeric
WidthDelta
;
WidthDelta
:
=
2
*
PaperWidth
/
10
;
33
numeric
HeightDelta
;
HeightDelta
:
=
2
*
PaperHeight
/
10
;
34
numeric
WidthOffset
;
WidthOffset
:
=
WidthDelta
+
PageFraction
*
(
PaperWidth
-
2
WidthDelta
)
;
35
numeric
HeightOffset
;
HeightOffset
:
=
HeightDelta
+
PageFraction
*
(
PaperHeight
-
2
HeightDelta
)
;
36 37
fill
38
(
ulcorner
Page
)
shifted
(
WidthOffset
,
0
)
..
39
(
urcorner
Page
)
shifted
(
0
,
-
HeightOffset
)
..
40
(
lrcorner
Page
)
shifted
(
-
WidthOffset
,
0
)
..
41
(
llcorner
Page
)
shifted
(
0
,
HeightOffset
)
..
42
cycle
withcolor
\MPcolor
{
maincolor
}
;
43 44
clip
currentpicture
to
Page
;
45 46
fi
;
47 48
\stopuseMPgraphic
49 50
% e-mess has always been okay by definition which makes it easier to blame generators
51 52
\defineoverlay
53
[
page
]
54
[
\useMPgraphic
{
page
}
]
55 56
\setupbackgrounds
57
[
page
]
58
[
background
=
page
]
59 60
\setupalign
61
[
middle
,
broad
]
62 63
\setupcolors
64
[
textcolor
=
white
]
65 66
\setupbodyfont
67
[
pagella
,
1
7
.
3
pt
]
68 69
\setuplayout
70
[
height
=
middle
,
71
width
=
middle
,
72
topspace
=
.
0
5
\paperheight
,
73
backspace
=
.
1
5
\paperwidth
,
74
header
=
0
pt
,
75
footer
=
0
pt
]
76 77
\setupwhitespace
78
[
line
]
79 80
\setuphead
81
[
title
]
82
[
style
=
\bfb
,
83
alternative
=
middle
,
84
before
=
,
85
number
=
no
]
86 87
\stopmodule
88 89
\continueifinputfile
{
s
-
present
-
ovals
.
mkiv
}
90 91
\usemodule
[
present
-
common
]
92 93
\inputpresentationfile
{
bachotex
/
2
0
1
5
/
bachotex
-
2
0
1
5
-
ligatures
.
tex
}
94
%inputpresentationfile{bachotex/2015/context-2015-status.tex}
95