s-present-lines.mkiv /size: 4048 b    last modification: 2020-07-01 14:35
1%D \module
2%D   [      file=s-present-lines,
3%D        version=1017.09.01,
4%D          title=\CONTEXT\ Style File,
5%D       subtitle=Presentation Environment Balls,
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 the \CONTEXT\ 2017 meeting. According to Alan Braslau we
15%D should not display items that we discuss but for now I stick to it. As a
16%D compromise this is a simple and effective style.
17
18\startmodule[present-lines]
19
20\definecolor[backcolor][s=.6]
21\definecolor[pagecolor][s=.3]
22\definecolor[dotscolor][s=.2]
23\definecolor[maincolor][b=.6]
24
25\definecolor[maincolor][r=.6]
26
27\setuppapersize
28  [S6]
29
30\setuplayout
31  [header=0pt,
32   footer=0pt,
33   topspace=20mm,
34   backspace=20mm,
35   width=middle,
36   height=middle]
37
38\setupbackgrounds
39  [page]
40  [background=page]
41
42\defineoverlay
43  [page]
44  [\useMPgraphic{page}]
45
46\setupitemgroup
47% [color=dotscolor]
48  [color=maincolor]
49
50\definesymbol
51  [1][{\symbol[\char"25A0]}]
52
53\setupbodyfont
54  [dejavu]
55
56\startuseMPgraphic{page}
57    StartPage ;
58        numeric d ; d := 15pt ;
59        fill Page
60            enlarged 2d
61            withcolor "pagecolor" ;
62        fill Field[Text][Text]
63            enlarged 2d
64            withcolor "backcolor" ;
65        draw leftboundary Field[Text][Text]
66            bottomenlarged 3d
67            topenlarged -(d/10)
68            shifted (-d,0)
69            withpen pensquare scaled (d/5)
70            withcolor "maincolor" ;
71        draw bottomboundary Field[Text][Text]
72            leftenlarged 3d
73            rightenlarged -(d/10)
74            shifted (0,-d)
75            withpen pensquare scaled (d/5)
76            withcolor "maincolor" ;
77        draw rightboundary Field[Text][Text]
78            topenlarged 3d
79            bottomenlarged -(d/10)
80            shifted (d,0)
81            withpen pensquare scaled (d/5)
82            withcolor "maincolor" ;
83        draw topboundary Field[Text][Text]
84            rightenlarged 3d
85            leftenlarged -(d/10)
86            shifted (0,d)
87            withpen pensquare scaled (d/5)
88            withcolor "maincolor" ;
89    StopPage ;
90\stopuseMPgraphic
91
92\setuphead
93  [chapter,title]
94  [placehead=empty,
95   number=no,
96   after={\blank[disable]},
97   before=]
98
99\setuptext
100  [color=pagecolor,
101   style=\bfd]
102
103\setuptexttexts
104  [\directsetup{text:texts}]
105
106\startsetups text:texts
107    \vbox to \textheight {
108        \vfill
109        \hfill
110        \setstrut
111        \strut
112        \getmarking[chapter]
113        \getmarking[title]
114        \vskip-\strutdp
115    }
116\stopsetups
117
118\startsetups document:start
119    \startstandardmakeup
120        \startparagraph
121            % Per 01-02-2017 the Bold abstraction also makes sure that CurrentFont
122            % works well which in turn makes MixedCaps and such working.
123            \definedfont[Bold*default @ 42pt]
124            \setupinterlinespace
125            \startcolor[pagecolor]
126                \begstrut
127                    \documentvariable{title}
128                \endstrut
129            \stopcolor
130        \stopparagraph
131        \blank[2*line]
132        \determinelistcharacteristics[chapter]
133        \ifnum\listlength>10\relax
134            \startcolumns
135                \placelist[chapter][alternative=f]
136            \stopcolumns
137        \else
138            \placelist[chapter][alternative=f]
139        \fi
140        \vfill
141        \hfill
142        \bfb
143        \setstrut
144        \strut
145        \startcolor[pagecolor]
146            \documentvariable{subtitle}
147        \stopcolor
148        \vskip-\strutdp
149    \stopstandardmakeup
150\stopsetups
151
152\setupinteraction
153  [state=start,
154   color=maincolor,
155   contrastcolor=maincolor,
156   style=]
157
158\setuptyping
159  [color=maincolor]
160
161\setuptype
162  [color=maincolor]
163
164\usemodule[abr-04]
165
166\stopmodule
167
168\continueifinputfile{s-present-lines.mkiv}
169
170% \usemodule[present-common]
171
172% \inputpresentationfile{examples/....} % todo, 2017 presentations
173