blob: 24ab687817a72f4f83fd59afabcb2cbb728c1829 (
plain)
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
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
|
%D \module
%D [ file=font-lib,
%D version=2011.01.13, % (copied fron font-ini)
%D title=\CONTEXT\ Font Macros,
%D subtitle=Libraries,
%D author=Hans Hagen,
%D date=\currentdate,
%D copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.
\writestatus{loading}{ConTeXt Font Macros / Libraries}
\unprotect
\registerctxluafile{font-ini}{}
\registerctxluafile{font-log}{}
\registerctxluafile{font-con}{}
\registerctxluafile{font-cft}{}
\registerctxluafile{font-enc}{}
\registerctxluafile{font-agl}{} % if needed we can comment this and delay loading
\registerctxluafile{font-cid}{} % cid maps
\registerctxluafile{font-map}{optimize}
% the otf font loader:
\registerctxluafile{font-otr}{optimize} % opentype fontloader
\registerctxluafile{font-web}{} % opentype fontloader
\registerctxluafile{font-cff}{optimize} % quadratic outlines
\registerctxluafile{font-ttf}{optimize} % cubic outlines
\registerctxluafile{font-dsp}{optimize} % ... for this one
\registerctxluafile{font-hsh}{} % hashes used by context
\registerctxluafile{font-nod}{}
\registerctxluafile{font-oti}{} % otf initialization
\registerctxluafile{font-ott}{} % otf tables (first)
\registerctxluafile{font-otl}{}
\registerctxluafile{font-oto}{}
\registerctxluafile{font-otj}{}
\registerctxluafile{font-oup}{}
\registerctxluafile{font-ota}{}
\registerctxluafile{font-ots}{}
\registerctxluafile{font-otd}{}
\registerctxluafile{font-otc}{}
\registerctxluafile{font-oth}{}
\registerctxluafile{font-osd}{}
\registerctxluafile{font-ocl}{}
% we use otf code for type one
\registerctxluafile{font-onr}{optimize}
\registerctxluafile{font-one}{optimize}
\registerctxluafile{font-afk}{}
% tfm
\registerctxluafile{font-tfm}{}
% name database
\registerctxluafile{font-syn}{}
\registerctxluafile{font-trt}{}
% shapes
\registerctxluafile{font-shp}{}
% so far
\registerctxluafile{font-pat}{} % patchers
\registerctxluafile{node-fnt}{} % here
\registerctxluafile{font-mps}{} % outline fun
\registerctxluafile{font-lua}{}
\registerctxluafile{font-vir}{}
\registerctxluafile{font-enh}{}
\registerctxluafile{good-ini}{}
\registerctxluafile{good-gen}{}
\registerctxluafile{good-ctx}{}
\registerctxluafile{good-mth}{}
\registerctxluafile{font-def}{}
\registerctxluafile{font-ctx}{} % after def as it overloads
\registerctxluafile{font-ext}{}
\registerctxluafile{font-fbk}{}
\registerctxluafile{font-aux}{}
\registerctxluafile{font-lig}{} % only for experiments so try to avoid it
%D Some low level helpers
%D
%D \starttyping
%D \def\TestLookup#specification%
%D {\dolookupfontbyspec{#specification}
%D pattern: #specification, found: \dolookupnoffound
%D \blank
%D \dorecurse {\dolookupnoffound} {%
%D \recurselevel:~\dolookupgetkeyofindex{fontname}{\recurselevel}\quad
%D }%
%D \blank}
%D
%D \TestLookup{familyname=helveticaneue}
%D \TestLookup{familyname=helveticaneue,weight=bold}
%D \TestLookup{familyname=helveticaneue,weight=bold,style=italic}
%D \stoptyping
% we can also move the lookups to the fonts.namespace (of commands)
% one can also directly use the clf calls when speed is needed
\def\dolookupfontbyspec #1{\clf_fontlookupinitialize{#1}}
\def\dolookupnoffound {\clf_fontlookupnoffound}
\def\dolookupgetkeyofindex#1#2{\clf_fontlookupgetkeyofindex{#1}\numexpr#2\relax}
\def\dolookupgetkey #1{\clf_fontlookupgetkey{#1}}
\def\cleanfontname #1{\clf_cleanfontname{#1}}
\unexpanded\def\setfontofid #1{\clf_setfontofid\numexpr#1\relax}
\protect \endinput
|
