SourceBrowser

x-setups-overview.mkiv /size: 9 Kb last modification: 2020-07-01 14:35
1%D \module
2%D   [       file=setups-overview, % x-set-12,
3%D        version=2016.04.05, % 2004.10.31,
4%D         remark=setupx.tex: 1998.07.20 and later,
5%D          title=\CONTEXT\ Setup Definitions,
6%D       subtitle=Macro Definitions,
7%D         author={Hans Hagen & Wolfgang Schuster},
8%D           date=\currentdate,
9%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
10%C
11%C This module is part of the \CONTEXT\ macro||package and is
12%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
13%C details.
14
15% context --interface=en --global --result=setup-en         x-setups-overview.mkiv --mode=setups:save
16% context --interface=en --global --result=setup-mapping-en x-setups-overview.mkiv --mode=setups:mapping
17
18% \enablemode[setups:save]
19
20% \enablemode[setups:mapping]
21
22\usemodule[setups-basics]
23
24\unprotect
25
26\definecolor[TitleColor][r=.375,g=.125,b=.125]
27\definecolor[TitleColor][r=.125,g=.375,b=.125]
28\definecolor[TitleColor][r=.125,g=.125,b=.375]
29\definecolor[TitleColor][r=.375,g=.375,b=.125]
30\definecolor[TitleColor][r=.375,g=.125,b=.375]
31\definecolor[TitleColor][r=.125,g=.375,b=.375]
32
33\definecolor[TitleColor][r=.25,g=.20,b=.15]
34\definecolor[TitleColor][r=.25,g=.15,b=.20]
35\definecolor[TitleColor][r=.20,g=.15,b=.25]
36\definecolor[TitleColor][r=.20,g=.25,b=.15]
37\definecolor[TitleColor][r=.15,g=.20,b=.25]
38\definecolor[TitleColor][r=.15,g=.25,b=.20]
39
40\doifelsemode {setups:traditional} {
41
42    \startinterface english  \loadsetups[cont-en.xml] \stopinterface
43    \startinterface dutch    \loadsetups[cont-nl.xml] \stopinterface
44    \startinterface german   \loadsetups[cont-de.xml] \stopinterface
45    \startinterface french   \loadsetups[cont-fr.xml] \stopinterface
46    \startinterface italian  \loadsetups[cont-it.xml] \stopinterface
47    \startinterface czech    \loadsetups[cont-cs.xml] \stopinterface
48    \startinterface romanian \loadsetups[cont-ro.xml] \stopinterface
49
50} {
51
52    \loadsetups[i-context.xml]
53
54}
55
56\startinterface english  \definecolor[LocalColor][r=.25,g=.75,b=.25]    \stopinterface
57\startinterface dutch    \definecolor[LocalColor][r=.75,g=.25,b=.25]    \stopinterface
58\startinterface german   \definecolor[LocalColor][r=.25,g=.25,b=.75]    \stopinterface
59\startinterface french   \definecolor[LocalColor][r=.75,g=.75,b=.25]    \stopinterface
60\startinterface italian  \definecolor[LocalColor][r=.25,g=.75,b=.75]    \stopinterface
61\startinterface czech    \definecolor[LocalColor][r=.75,g=.25,b=.75]    \stopinterface
62\startinterface romanian \definecolor[LocalColor][r=.5,g=.4,b=.3]       \stopinterface
63%                        \definecolor[LocalColor][r=.5,g=.3,b=.4]
64%                        \definecolor[LocalColor][r=.4,g=.3,b=.5]
65%                        \definecolor[LocalColor][r=.4,g=.5,b=.3]
66%                        \definecolor[LocalColor][r=.3,g=.4,b=.5]
67%                        \definecolor[LocalColor][r=.3,g=.5,b=.4]
68
69\startinterface english  \definecolor[TitleColor][r=.375,g=.125,b=.125] \stopinterface
70\startinterface dutch    \definecolor[TitleColor][r=.125,g=.375,b=.125] \stopinterface
71\startinterface german   \definecolor[TitleColor][r=.125,g=.125,b=.375] \stopinterface
72\startinterface french   \definecolor[TitleColor][r=.375,g=.375,b=.125] \stopinterface
73\startinterface italian  \definecolor[TitleColor][r=.375,g=.125,b=.375] \stopinterface
74\startinterface czech    \definecolor[TitleColor][r=.125,g=.375,b=.375] \stopinterface
75\startinterface romanian \definecolor[TitleColor][r=.25,g=.20,b=.15]    \stopinterface
76%                        \definecolor[TitleColor][r=.25,g=.15,b=.20]
77%                        \definecolor[TitleColor][r=.20,g=.15,b=.25]
78%                        \definecolor[TitleColor][r=.20,g=.25,b=.15]
79%                        \definecolor[TitleColor][r=.15,g=.20,b=.25]
80%                        \definecolor[TitleColor][r=.15,g=.25,b=.20]
81
82\definecolor [lightgray] [s=.9]
83\definecolor [darkgray]  [s=.1]
84
85\usetypescript[palatino]
86
87\doifelsemode {setups:mapping} {
88    \setupbodyfont[palatino,8pt]
89} {
90    \setupbodyfont[palatino,9pt]
91}
92
93\defineoverlay
94  [cover]
95  [\hbox to \paperwidth{\hss\reuseMPgraphic{cover+back}}]
96
97\defineoverlay
98  [back]
99  [\hbox to \paperwidth{\reuseMPgraphic{cover+back}\hss}]
100
101\startreusableMPgraphic{cover+back}
102    numeric h, w; boolean mapping ; path p, q, r ; color f, d , c ; pair s ;
103    h := OverlayHeight ; w := 2*OverlayWidth ;
104    r := unitsquare xyscaled (w,h) ;
105    fill r withcolor resolvedcolor("lightgray") ;
106  % mapping := lua.mp.processingmode("setups:mapping") ;
107    mapping := lua.mp("processingmode","setups:mapping") ;
108    if mapping :
109        set_grid(w,h,w/8,w/160) ;
110        pickup pensquare yscaled (w/80) ;
111    else :
112        set_grid(w,h,w/8,w/16) ;
113        pickup pencircle scaled (w/100) ;
114    fi ;
115    forever :
116        s := center r randomized (w,h) ;
117        if new_on_grid(xpart s, ypart s) :
118            c := resolvedcolor("lightgray") ;
119            d := .5[resolvedcolor("LocalColor"),c] randomized (.5,.9) ;
120            f := c randomized (.5,.9) ;
121            s := (dx,dy) ;
122            if mapping :
123                p := (-w/4,0) -- (w/4,0) ;
124                p := (-w/4,0) -- origin ;
125                q := origin -- ( w/4,0) ;
126                draw p shifted s withcolor d ;
127                draw q shifted s withcolor f ;
128            else :
129                p := fullsquare xyscaled(w/4,w/8) ;
130                q := (-4w,ypart ulcorner p) -- .5[ulcorner p, urcorner p] -- (4w,ypart urcorner p) ;
131                q := q shifted (0,-w/24) ;
132                p := p randomized (w/40,w/40) ;
133                q := q randomized (0,w/100) ;
134                q := q cutafter  (p cutafter  point 3 of p) ;
135                q := q cutbefore (p cutbefore point 3 of p) ;
136                fill p shifted s withcolor f ;
137                draw p shifted s withcolor d ;
138                draw q shifted s withcolor d ;
139            fi ;
140        fi ;
141        exitif grid_full ;
142    endfor ;
143
144    setbounds currentpicture to r ;
145\stopreusableMPgraphic
146
147\definelayout
148  [titlepage]
149  [\c!backspace=1cm,
150   \c!topspace=1cm,
151   \c!width=\v!middle,
152   \c!height=\v!middle,
153   \c!header=0pt,
154   \c!footer=0pt]
155
156\setuplayout
157  [\c!backspace=2cm,
158   \c!topspace=1.5cm,
159   \c!bottomspace=0.5cm,
160   \c!header=0cm,
161   \c!footer=1cm,
162   \c!width=\v!middle,
163   \c!height=\v!middle]
164
165\doifmode {setups:mapping} {
166    \setuplayout
167      [\c!backspace=1cm]
168}
169
170\setuppagenumbering
171  [\c!location=\v!footer,
172   \c!alternative=\v!doublesided]
173
174\setupsetup
175  [\c!criterium=\v!all]
176
177\setupframedtexts
178  [setuptext]
179  [\c!before=\blank,
180   \c!after=\blank,
181   \c!frame=\v!on,
182   \c!rulethickness=1pt,
183   \c!framecolor=TitleColor]
184
185\setupunderbar
186  [\c!rulethickness=1pt,
187   \c!rulecolor=TitleColor]
188
189\dontcomplain
190
191\starttext
192
193\setupbackgrounds
194  [\v!rightpage]
195  [\c!background=cover]
196
197\setuplayout
198  [titlepage]
199
200\startsetups text:commands
201    \startinterface dutch    \strut commando's   \par \stopinterface
202    \startinterface english  \strut commands     \par \stopinterface
203    \startinterface german   \strut befehle      \par \stopinterface
204    \startinterface french   \strut commandes    \par \stopinterface
205    \startinterface czech    \strut p\v{r}ikazy  \par \stopinterface
206    \startinterface italian  \strut comandi      \par \stopinterface
207    \startinterface romanian \strut comenzile    \par \stopinterface
208\stopsetups
209
210\startsetups text:uppercase
211    \startinterface dutch    NL\stopinterface
212    \startinterface english  EN\stopinterface
213    \startinterface german   DE\stopinterface
214    \startinterface french   FR\stopinterface
215    \startinterface czech    CS\stopinterface
216    \startinterface italian  IT\stopinterface
217    \startinterface romanian RO\stopinterface
218\stopsetups
219
220\startsetups text:lowercase
221    \startinterface dutch    \strut nl / nederlands     \par \stopinterface
222    \startinterface english  \strut en / english        \par \stopinterface
223    \startinterface german   \strut de / deutsch        \par \stopinterface
224    \startinterface french   \strut fr / fran\c{c}ais   \par \stopinterface
225    \startinterface czech    \strut cs / \v{c}esk\'y    \par \stopinterface
226    \startinterface italian  \strut it / italiano       \par \stopinterface
227    \startinterface romanian \strut ro / rom\^{a}n\u{a} \par \stopinterface
228\stopsetups
229
230\startmakeup[\v!standard]
231    \dontcomplain
232    \setupalign[\v!left]
233    \startcolor[TitleColor]
234    \definedfont[RegularBold at 100pt]\setstrut
235    \strut Con\TeX t \par
236    \definedfont[RegularBold at 50pt]\setstrut
237    \setups[text:commands]
238    \vfill
239    \definedfont[RegularBold at 150pt]\setstrut
240    \setups[text:uppercase]
241    \stopcolor
242\stopmakeup
243
244\setuplayout % needed ?
245
246\setupbackgrounds
247  [\v!rightpage]
248  [\c!background=]
249
250\startmakeup[\v!standard]
251    \dontcomplain
252    \startcolor[TitleColor]
253        \definedfont[RegularBold at 100pt]\setstrut
254        \setupalign[\v!flushright]
255        \strut Con\TeX t \par
256        \definedfont[RegularBold at 50pt]\setstrut
257        \setups[text:commands]
258    \stopcolor
259    \vfill
260    \start
261        \switchtobodyfont[15pt]
262        \setuptabulate[before=,after=]
263        \dontleavehmode \hfill \hbox \bgroup
264            \starttabulate[|l|l|]
265                \BC language   \EQ \setups[text:lowercase] \NC \NR
266                \BC version    \EQ \currentdate \NC \NR
267                \BC maintainer \EQ Wolfgang Schuster \NC\NR
268                \BC comments   \EQ \tt ntg-context@ntg.nl \NC \NR
269            \stoptabulate
270        \egroup
271    \stop
272\stopmakeup
273
274\protect
275
276\doifelsemode {setups:mapping} {
277    \placeeverysetupname
278} {
279    \placeeverysetup
280}
281
282\unprotect
283
284\page[\v!yes,\v!blank,\v!right,\v!left]
285
286\setuplayout
287  [titlepage]
288
289\setupbackgrounds
290  [\v!leftpage]
291  [\c!background=back]
292
293\startmakeup[\v!standard][\c!page=]
294    \dontcomplain
295    \startcolor[TitleColor]
296    \definedfont[RegularBold at 24pt]\setupinterlinespace
297    \setupalign[\v!left]
298    \vfill
299    PRAGMA ADE \par
300    Ridderstraat 27 \par
301    8061GH Hasselt NL \par
302    www.pragma-ade.com \par
303    \stopcolor
304\stopmakeup
305
306\protect
307
308\stoptext
309
Source Browser ?
