1
2
3
4
5
6
7
8
9
10
11
12
13
14\writestatus { loading }{ ConTeXt TeX Logos }
15
16
17
18
19
20\unprotect
21
22\unexpanded \def \TeX
23 { \dontleavehmode
24 \begingroup
25 T
26 \setbox \scratchbox \hbox { M }
27 \kern . 1 6 6 7 \wd \scratchbox
28 \lower . 5 \exheight \hbox { E }
29 \kern . 1 2 5 \wd \scratchbox
30 X
31 \endgroup }
32
33\unexpanded \def \TeXsuffix { \wordboundary \TeX }
34\unexpanded \def \TeXprefix { \TeX \wordboundary }
35
36\unexpanded \def \ConTeXt
37 { \dontleavehmode
38 \begingroup
39 Con
40 \wordboundary
41 \setbox \scratchboxone \hbox { T \kern \zeropoint e }
42 \setbox \scratchboxtwo \hbox { Te }
43 \discretionary { }{}{ \kern\dimexpr\wd \scratchboxtwo \wd \scratchboxone \relax }
44 \TeX t
45 \endgroup }
46
47\unexpanded \def \PPCHTeX { ppch \TeX }
48\unexpanded \def \PRAGMA { Pragma ADE }
49
50\unexpanded \def \LaTeX
51 { \dontleavehmode
52 \begingroup
53 \setbox \scratchbox \hbox { L }
54 \scratchdimen \ht \scratchbox
55 \setbox \scratchbox \hbox { \doresetattribute { case } \txx A }
56 L \kern . 5 5 \wd \scratchbox
57 \raise \scratchdimen \hbox { \lower\ht \scratchbox \copy \scratchbox }
58 \kern . 2 \wd \scratchbox \TeX
59 \endgroup }
60
61\unexpanded \def \TaBlE
62 { T
63 \kern . 2 7 \emwidth \lower . 5 \exheight \hbox { A }
64 \kern . 1 8 \emwidth B
65 \kern . 1 \emwidth \lower . 5 \exheight \hbox { L }
66 \kern . 0 7 5 \emwidth E }
67
68\unexpanded \def \PiCTeX
69 { P
70 \kern . 1 2 \emwidth \lower . 5 \exheight \hbox { I }
71 \kern . 0 7 5 \emwidth C
72 \kern . 1 1 \emwidth \TeX }
73
74\def \syst_logos_ams_script # 1
75 { \normalstartimath
76 \cal \ifdim \bodyfontsize > 1 . 1 \emwidth \scriptstyle\fi # 1
77 \normalstopimath }
78
79\unexpanded \def \AmSTeX
80 { \dontleavehmode
81 \syst_logos_ams_script A
82 \kern . 1 6 6 7 \emwidth \lower . 5 \exheight \hbox { \syst_logos_ams_script M }
83 \kern . 1 2 5 \emwidth \syst_logos_ams_script S
84 \TeX }
85
86\unexpanded \def \LamSTeX
87 { L
88 \kern . 4 \emwidth \raise . 3 \exheight \hbox { \syst_logos_ams_script A }
89 \kern . 2 5 \emwidth \lower . 4 \exheight \hbox { \syst_logos_ams_script M }
90 \kern . 1 \emwidth { \syst_logos_ams_script S }
91 \TeX }
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108\unexpanded \def \Context
109 { \dontleavehmode
110 \begingroup
111 C
112 \kern . 0 6 6 7 \emwidth
113 \getscaledglyph { . 8 } \empty {
114 O \kern . 0 6 6 7 \emwidth
115 N
116 \discretionary { }{}{ \kern . 0 5 4 9 \emwidth }
117 T
118 \doifelseitalic
119 { \kern . 1 \emwidth }
120 { \kern . 1 6 6 7 \emwidth }
121 \lower . 5 \exheight \hbox { E }
122 \doifelseitalic
123 \empty
124 { \kern . 1 1 em }
125 X
126 \kern . 0 5 5 \emwidth
127 T
128 }
129 \endgroup }
130
131
132
133
134\let \logofont \nullfont
135
136
137
138\unexpanded \def \setMFPfont
139 { \font \logofont = logo
140 \ifx \fontalternative \s!bf\s!bf \else
141 \ifx \fontalternative \s!it\s!sl \else
142 \ifx \fontalternative \s!sl\s!sl \else
143 \ifx \fontalternative \s!bi\s!bf \else
144 \ifx \fontalternative \s!bs\s!bf \else
145 \fi\fi\fi\fi\fi
146 1 0 at \currentfontscale \bodyfontsize
147 \logofont }
148
149\def \syst_logos_meta_hyphen
150 { \discretionary { \vrule \s!height . 3 3 \emwidth \s!depth . 2 7 \emwidth \s!width . 3 3 \emwidth }{}{}}
151
152\unexpanded \def \MetaFont
153 { \dontleavehmode
154 \begingroup
155 \setMFPfont META \syst_logos_meta_hyphen FONT
156 \endgroup }
157
158
159
160
161
162
163
164
165
166\unexpanded \def \MetaPost
167 { MetaPost }
168
169\unexpanded \def \MetaFun
170 { MetaFun }
171
172
173
174
175
176
177
178
179
180
181
182\unexpanded \def \METAFONT { \MetaFont }
183\unexpanded \def \METAPOST { \MetaPost }
184\unexpanded \def \PPCHTEX { \PPCHTeX }
185\unexpanded \def \CONTEXT { \ConTeXt }
186\unexpanded \def \METAFUN { \MetaFun }
187
188\unexpanded \def \TEX { \TeX }
189\unexpanded \def \LATEX { \LaTeX }
190\unexpanded \def \PICTEX { \PiCTeX }
191\unexpanded \def \TABLE { \TaBlE }
192\unexpanded \def \AMSTEX { \AmSTeX }
193\unexpanded \def \LAMSTEX { \LamSTeX }
194\unexpanded \def \INRSTEX { inrs \TeX }
195
196
197
198
199
200
201\unexpanded \def \eTeX { \mathematics { \varepsilon } \TeX }
202\unexpanded \def \pdfTeX { pdf \wordboundary \TeX }
203\unexpanded \def \pdfeTeX { pdfe \wordboundary \TeX }
204\unexpanded \def \luaTeX { lua \wordboundary \TeX }
205\unexpanded \def \Lua { Lua }
206\unexpanded \def \luajitTeX { lua \wordboundary jit \wordboundary \TeX }
207\unexpanded \def \luametaTeX { lua \wordboundary meta \wordboundary \TeX }
208
209
210
211
212\def \syst_logos_xetex_e
213 { \setbox \scratchbox \hbox { E }
214 \raise\dimexpr\ht \scratchbox \dp \scratchbox \relax\hbox { \rotate [ \c!rotation = 1 8 0 ] { \box \scratchbox }}}
215
216\unexpanded \def \XeTeX
217 { X \lower . 5 \exheight
218 \hbox
219 { \kern . 1 5 \emwidth
220 \iffontchar \font " 0 1 8 E \relax
221 \char " 0 1 8 E
222 \else
223 \ifx \fontalternative \s!bf \mirror { E } \else
224 \ifx \fontalternative \s!it \syst_logos_xetex_e \else
225 \ifx \fontalternative \s!sl \syst_logos_xetex_e \else
226 \ifx \fontalternative \s!bi \syst_logos_xetex_e \else
227 \ifx \fontalternative \s!bs \syst_logos_xetex_e \else
228 \mirror { E } \fi\fi\fi\fi\fi
229 \fi }
230 \kern . 1 6 6 7 \emwidth \TeX }
231
232\let \ETEX \eTeX
233\let \PDFTEX \pdfTeX
234\let \PDFETEX \pdfeTeX
235\let \LUATEX \luaTeX
236\let \LUAJITTEX \luajitTeX
237\let \LuaTeX \luaTeX
238\let \LuaMetaTeX\luametaTeX
239\let \LUAMETATEX\luametaTeX
240\let \XETEX \XeTeX
241
242\unexpanded \def \LuaTeX
243 { \dontleavehmode
244 \begingroup
245 Lua
246
247 \setbox 0 \hbox { aT }
248 \setbox 2 \hbox { a \kern \zeropoint T }
249 \ifdim \wd 0 = \wd 2
250
251 \setbox 0 \hbox { oT }
252 \setbox 2 \hbox { o \kern \zeropoint T }
253 \ifdim \wd 0 = \wd 2
254
255 \setbox 0 \hbox { To }
256 \setbox 2 \hbox { T \kern \zeropoint o }
257
258 \fi
259 \ifdim \wd 0 = \wd 2 \else
260 \kern\dimexpr\wd 0 \wd 2 \relax
261 \fi
262 \fi
263 \TeX
264 \endgroup }
265
266\unexpanded \def \LuajitTeX
267 { \dontleavehmode
268 \begingroup
269
270 Luajit \kern \zeropoint \TeX
271 \endgroup }
272
273\let \luaTeX \LuaTeX
274\let \luajitTeX\LuajitTeX
275\let \LUATEX \LuaTeX
276\let \LUAJITTEX\LuajitTeX
277
278\unexpanded \def \MKII { MkII }
279\unexpanded \def \MKIV { MkIV }
280\unexpanded \def \MKVI { MkVI }
281\unexpanded \def \MKXL { MkXL }
282\unexpanded \def \MKLX { MkLX }
283\unexpanded \def \MKIX { MkIX }
284\unexpanded \def \MKXI { MkXI }
285
286\unexpanded \def \MPII { MpII }
287\unexpanded \def \MPIV { MpIV }
288\unexpanded \def \MPVI { MpVI }
289\unexpanded \def \MPXL { MpXL }
290\unexpanded \def \MPLX { MpLX }
291
292\unexpanded \def \LMTX { lmtx }
293
294\appendtoks
295 \def \ConTeXt { ConTeXt }
296 \def \MetaPost { MetaPost }
297 \def \MetaFont { MetaFont }
298 \def \MetaFun { MetaFun }
299 \def \TeX { TeX }
300 \def \TeXsuffix { TeX }
301 \def \TeXprefix { TeX }
302 \def \LuaTeX { LuaTeX }
303 \def \LuajitTeX { LuajitTeX }
304 \def \LuaMetaTeX { LuaMetaTeX }
305 \let\wordboundary \empty
306\to \everysimplifycommands
307
308\protect \endinput
309 |