Source Browser ?

1% language=us
2
3\startenvironment mk-environment
4
5\enablemode[dynamic-arabic] % to be checked, we loose colors
6
7\usemodule[abr-02]
8
9\usemodule[timing]
10
11\usemodule[obsolete-tokens]
12
13\useMPlibrary[dum]
14
15\dontcomplain
16
17\logo [METAPOST] {MetaPost}
18
19\setupsorting[logo][style=\sc]
20
21\startsetups ShowCollect
22    \blank
23    \flushtokens[demo]
24    \blank
25    \showtokens[demo]
26    \blank
27\stopsetups
28
29\startsetups CollapseCollectA
30    \blank
31    \testtokens[demo]
32    \flushtokens[demo]
33    \blank
34    \showtokens[demo]
35    \blank
36\stopsetups
37
38\startsetups CollapseCollectB
39    \blank
40    \flushtokens[demo]
41    \blank
42    \testtokens[demo]
43    \showtokens[demo]
44    \blank
45\stopsetups
46
47% \startmode[atpragma]
48%     \usetypescriptfile[type-ghz]
49%     \usetypescript[optima-nova-os][texnansi]
50%     \setupbodyfont[optima-os,sans,12pt]
51% \stopmode
52
53% \startnotmode[atpragma]
54%     \usetypescript[palatino][ec]
55%     \setupbodyfont[12pt,palatino]
56% \stopnotmode
57
58% \starttypescript [sans] [optima,optima-nova] [afm]
59%     \definefontsynonym [OptimaLT]                  [lte50019] [encoding=\typescriptthree,features=complete]
60%     \definefontsynonym [OptimaLT-Italic]           [lte52401] [encoding=\typescriptthree,features=complete]
61%     \definefontsynonym [OptimaLT-Bold]             [lte50021] [encoding=\typescriptthree,features=complete]
62%     \definefontsynonym [OptimaLT-BoldItalic]       [lte54379] [encoding=\typescriptthree,features=complete]
63%     \definefontsynonym [OptimaLT-Medium]           [lte53505] [encoding=\typescriptthree,features=complete]
64%     \definefontsynonym [OptimaLT-MediumItalic]     [lte53506] [encoding=\typescriptthree,features=complete]
65%     \definefontsynonym [OptimaLT-DemiBold]         [lte53507] [encoding=\typescriptthree,features=complete]
66%     \definefontsynonym [OptimaLT-DemiBoldItalic]   [lte53508] [encoding=\typescriptthree,features=complete]
67%     \definefontsynonym [OptimaLT-Black]            [lte53509] [encoding=\typescriptthree,features=complete]
68%     \definefontsynonym [OptimaLT-BlackItalic]      [lte53510] [encoding=\typescriptthree,features=complete]
69%     \definefontsynonym [OptimaLT-ExtraBlack]       [lte53511] [encoding=\typescriptthree,features=complete]
70%     \definefontsynonym [OptimaLT-ExtraBlackItalic] [lte53512] [encoding=\typescriptthree,features=complete]
71% \stoptypescript
72
73% \starttypescript [sans] [optima-nova-os] [name]
74%     \definefontsynonym [Sans]            [OptimaNova-RegularOsF]    [features=complete]
75%     \definefontsynonym [SansItalic]      [OptimaNova-ItalicOsF]     [features=complete]
76%     \definefontsynonym [SansBold]        [OptimaNova-BoldOsF]       [features=complete]
77%     \definefontsynonym [SansBoldItalic]  [OptimaNova-BoldItalicOsF] [features=complete]
78%     \definefontsynonym [SansSlanted]     [OptimaNova-ItalicOsF]     [features=complete]
79%     \definefontsynonym [SansBoldSlanted] [OptimaNova-BoldItalicOsF] [features=complete]
80%     \definefontsynonym [SansCaps]        [OptimaNova-RegularSC]     [features=complete]
81% \stoptypescript
82
83\starttypescript[optima-nova-os]
84    \definetypeface[optima-os][ss][sans][optima-nova-os] [default][features=complete]
85    \definetypeface[optima-os][rm][sans][optima-nova-os] [default][features=complete]
86    \definetypeface[optima-os][tt][mono][latin-modern]   [default][features=default,rscale=1.1]
87    \definetypeface[optima-os][mm][math][latin-modern]   [default][features=default,rscale=1.1]
88    \quittypescriptscanning
89\stoptypescript
90
91% \startmode[atpragma]
92%     \usetypescriptfile[type-ghz]
93%     \usetypescript[optima-nova-os][afm]
94%     \setupbodyfont[optima-os,sans,12pt]
95% \stopmode
96
97\startmode[atpragma]
98    \usetypescriptfile[type-hgz]
99    \usetypescript[optima-nova-os] % [afm]
100    \setupbodyfont[optima-os,sans,12pt]
101\stopmode
102
103\startnotmode[atpragma]
104    \startsetups normalbodyfont
105        \setupbodyfont[12pt,palatino]
106    \stopsetups
107\stopnotmode
108
109\setups[normalbodyfont]
110
111\definelayer
112  [page]
113  [width=\paperwidth,
114   height=\paperheight]
115
116\setuplayout
117  [location=middle,
118   marking=on,
119   width=middle,
120   height=middle,
121   footer=1.5cm,
122   header=1.5cm,
123   topspace=1.5cm]
124
125\startmode[book]
126
127%     \definepapersize
128%       [mine]
129%       [width=21cm,
130%        height=24cm]
131
132%     \setuppapersize
133%       [mine]
134%       [mine] % [oversized]
135
136%     \setuplayout % width = 15cm
137%       [topspace=1.25cm,
138%        backspace=2.5cm,
139%        cutspace=3.5cm]
140
141%     \setuplayout
142%         [scale=.80]
143
144    \setuplayout
145      [marking=on,
146       scale=\luaexpr{24/28}]
147
148\stopmode
149
150\stopmode
151
152\setupcolors
153  [state=start]
154
155\setupwhitespace
156  [big]
157
158\setuplist[chapter,section][width=5em]
159
160\definecolor[mktransparentred]   [r=.8,a=1,t=.5]
161\definecolor[mktransparentgreen] [g=.8,a=1,t=.5]
162\definecolor[mktransparentblue]  [b=.8,a=1,t=.5]
163\definecolor[mktransparentyellow][r=.8,g=.8,a=1,t=.5]
164\definecolor[mktransparentgray]  [s=.8,a=1,t=.5]
165
166\definecolor[mkcolor]            [r=.8]
167\definecolor[mkred]              [r=.8]
168\definecolor[mkgreen]            [g=.8]
169\definecolor[mkblue]             [b=.8]
170\definecolor[mktransparent]      [mktransparentred]
171
172\setuptype
173  [color=mkcolor]
174
175\setuptyping
176  [color=mkcolor]
177
178\definestartstop
179  [notabene]
180  [color=mkcolor]
181
182\setupitemgroup
183  [itemize]
184  [each]
185  [color=mkcolor,headcolor=mkcolor]
186
187\setuppagenumbering
188  [alternative=doublesided,
189   location=]
190
191\setupsection
192  [chapter]
193  [conversion=R]
194
195\setupsection
196  [section]
197  [conversion=R]
198
199\setupcaptions
200  [conversion=R]
201
202\setupfootertexts
203  []
204  [{\getmarking[chapter]\quad\pagenumber}]
205  [{\pagenumber\quad\getmarking[chapter]}]
206  []
207
208\setuphead[chapter][style=\bfc,color=mkcolor]
209\setuphead[section][style=\bfa,color=mkcolor]
210
211\stopenvironment
212