1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18\startmodule[spresentovals]
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
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{spresentovals.mkiv}
90
91\usemodule[presentcommon]
92
93\inputpresentationfile{bachotex2015bachotex2015ligatures.tex}
94
95 |