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
|
if not modules then modules = { } end modules ['font-pat'] = {
version = 1.001,
comment = "companion to font-ini.mkiv",
author = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
copyright = "PRAGMA ADE / ConTeXt Development Team",
license = "see context related readme files"
}
-- This functiononality is nowadays provided via lfg files so what you see here
-- is more an example.
local match, lower = string.match, string.lower
-- Older versions of latin modern didn't have the designsize set so for them we
-- get it from the name reporter moved to elsewhere.
local fonts = fonts
local otf = fonts.handlers.otf
local patches = otf.enhancers.patches
local register = patches.register
local report = patches.report
-- local function patch(data,filename)
-- if not metadata.design_size or metadata.design_size == 0 then
-- local ds = match(file.basename(lower(filename)),"(%d+)")
-- if ds then
-- report("font %a has design size %a",filename,ds)
-- metadata.design_size = tonumber(ds) * 10
-- end
-- end
-- end
--
-- register("after","migrate metadata","^lmroman", patch)
-- register("after","migrate metadata","^lmsans", patch)
-- register("after","migrate metadata","^lmtypewriter",patch)
-- For some reason (either it's a bug in the font, or it's a problem in the
-- library) the palatino arabic fonts don't have the mkmk features properly
-- set up.
register("after","rehash features","^palatino.*arabic", function (data,filename)
local gpos = data.gpos
if gpos then
for k=1,#gpos do
local v = gpos[k]
if not v.features and v.type == "gpos_mark2mark" then
report("mkmk feature, name %a", v.name)
v.features = {
{
scripts = {
arab = {
["ara "] = true,
["far "] = true,
["urd "] = true,
["dflt"] = true,
}
},
tag = "mkmk",
}
}
end
end
end
end)
-- -- this code is now in lm-math.lfg
--
-- local function patch(data,filename)
-- local uni_to_ind = data.map.map
-- if not uni_to_ind[0x391] then
-- -- beware, this is a hack, features for latin often don't apply to greek
-- -- but lm has not much features anyway (and only greek for math)
-- report("adding 13 greek capitals")
-- uni_to_ind[0x391] = uni_to_ind[0x41]
-- uni_to_ind[0x392] = uni_to_ind[0x42]
-- uni_to_ind[0x395] = uni_to_ind[0x45]
-- uni_to_ind[0x397] = uni_to_ind[0x48]
-- uni_to_ind[0x399] = uni_to_ind[0x49]
-- uni_to_ind[0x39A] = uni_to_ind[0x4B]
-- uni_to_ind[0x39C] = uni_to_ind[0x4D]
-- uni_to_ind[0x39D] = uni_to_ind[0x4E]
-- uni_to_ind[0x39F] = uni_to_ind[0x4F]
-- uni_to_ind[0x3A1] = uni_to_ind[0x52]
-- uni_to_ind[0x3A4] = uni_to_ind[0x54]
-- uni_to_ind[0x3A7] = uni_to_ind[0x58]
-- uni_to_ind[0x396] = uni_to_ind[0x5A]
-- end
-- end
--
-- register("after","prepare glyphs","^lmroman", patch)
-- register("after","prepare glyphs","^lmsans", patch)
-- register("after","prepare glyphs","^lmtypewriter",patch)
--
-- -- this code is now in cambria-math.lfg and asana-math.lfg
--
-- local function patch_domh(data,filename,threshold)
-- local m = data.metadata.math
-- if m then
-- local d = m.DisplayOperatorMinHeight or 0
-- if d < threshold then
-- report("DisplayOperatorMinHeight(%s -> %s)",d,threshold)
-- m.DisplayOperatorMinHeight = threshold
-- end
-- end
-- end
--
-- register("after","check math parameters","cambria", function(data,filename) patch_domh(data,filename,2800) end)
-- register("after","check math parameters","cambmath",function(data,filename) patch_domh(data,filename,2800) end)
-- register("after","check math parameters","asana", function(data,filename) patch_domh(data,filename,1350) end)
|
