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[S6]
21
22\definecolor[maincolor] [darkred]
23\definecolor[othercolor][maincolor]
24
25\startuseMPgraphic{page}
26
27    fill Page enlarged 2mm 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  - 2WidthDelta ) ;
35        numeric HeightOffset ; HeightOffset := HeightDelta + PageFraction*(PaperHeight - 2HeightDelta) ;
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,17.3pt]
68
69\setuplayout
70  [height=middle,
71   width=middle,
72   topspace=.05\paperheight,
73   backspace=.15\paperwidth,
74   header=0pt,
75   footer=0pt]
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/2015/bachotex-2015-ligatures.tex}
94%inputpresentationfile{bachotex/2015/context-2015-status.tex}
95