1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
% output=pdftex modes=demo
% nice example:
%
% \usemodule[s-fnt-02]
%
% \usetypescriptfile[type-ghz.tex]
%
% \usetypescript [sans] [optima,optima-nova] [texnansi]
%
% \setvariables
% [glyphs]
% [name-1=OptimaLT,
% name-2=OptimaNovaLT-Regular]
%
% \starttext
%
% \setups[show-glyphs]
%
% \stoptext
%
% see end, for other example (or run texexec s-fnt-02 --mode=demo)
\setvariables
[glyphs]
[frame=on,
name-1=cmr10,
name-2=cmtt10,
map-1=,
map-2=]
\setuppapersize[S4][S4]
\setupcolors[state=start]
\setuplayout[page]
\definecolor[Gray] [s=.2]
\definecolor[ColorNone][s=1,t=.5,a=1]
\definecolor[ColorOne] [r=1,t=.5,a=1]
\definecolor[ColorTwo] [g=1,t=.5,a=1]
\definecolor[BackOne] [b=1,t=.5,a=1]
\definecolor[BackTwo] [r=1,g=1,t=.5,a=1]
\setupbackgrounds
[page]
[background=color,
backgroundcolor=Gray]
\startsetups[show-glyphs]
\doifnothing{\getvariable{glyphs}{name-1}}{\endinput}
\doifnothing{\getvariable{glyphs}{name-2}}{\endinput}
\doifsomething{\getvariable{glyphs}{map-1}}{\loadmapfile[\getvariable{glyphs}{map-1}]}
\doifsomething{\getvariable{glyphs}{map-2}}{\loadmapfile[\getvariable{glyphs}{map-2}]}
\definefont[FontOne][\getvariable{glyphs}{name-1} at 280pt]
\definefont[FontTwo][\getvariable{glyphs}{name-2} at 280pt]
\dostepwiserecurse{0}{255}{1}
{\doiffontcharelse{\getvariable{glyphs}{name-1}}{\recurselevel}
{\doiffontcharelse{\getvariable{glyphs}{name-2}}{\recurselevel}
{\startstandardmakeup
\boxrulewidth=2pt
\setbox 0=\hbox{\white\ruledhbox{\FontOne \char\recurselevel}}
\setbox 2=\hbox{\white\ruledhbox{\FontTwo \char\recurselevel}}
\setbox 4=\hbox{\FontOne \ColorOne \char\recurselevel}
\setbox 6=\hbox{\FontTwo \ColorTwo \char\recurselevel}
\setbox 8=\hbox{\BackOne \ruledhbox{\FontOne \phantom{\char\recurselevel}}}
\setbox10=\hbox{\BackTwo \ruledhbox{\FontTwo \phantom{\char\recurselevel}}}
\vfill
\doifelse{\getvariable{glyphs}{frame}}{on} % too many box calculations when off, but who cares
{\hbox{\dostepwiserecurse{0}{10}{2}{\hbox to \hsize{\hss\box\recurselevel\hss}\hskip-\hsize}}}
{\hbox{\dostepwiserecurse{4} {6}{2}{\hbox to \hsize{\hss\box\recurselevel\hss}\hskip-\hsize}}}
\vfill
\tttf
\setstrut
\hbox to \hsize{\strut\hss
{\ColorOne \getvariable{glyphs}{name-1}}\quad
{\ColorTwo \getvariable{glyphs}{name-2}}\quad
{\ColorNone char \recurselevel }\hss}
\stopstandardmakeup}
{}}
{}}
\stopsetups
\doifnotmode{demo}{\endinput}
\starttext
\setups[show-glyphs]
\stoptext
|
