summaryrefslogtreecommitdiff
path: root/src/luaotfload-database.lua
diff options
context:
space:
mode:
Diffstat (limited to 'src/luaotfload-database.lua')
-rw-r--r--src/luaotfload-database.lua45
1 files changed, 30 insertions, 15 deletions
diff --git a/src/luaotfload-database.lua b/src/luaotfload-database.lua
index c494318..199eca8 100644
--- a/src/luaotfload-database.lua
+++ b/src/luaotfload-database.lua
@@ -928,7 +928,7 @@ local choose_size = function (sizes, askedsize)
--- exact match, this is what we were looking for
exact = index
goto skip
- elseif askedsize < low then
+ elseif askedsize <= low then
--- below range, add to the norange table
local d = low - askedsize
norange [#norange + 1] = { d, index }
@@ -1051,22 +1051,27 @@ local lookup_fontname = function (specification, name, style)
return nil, nil
end
-local design_size_dimension
-local set_size_dimension
+local design_size_dimension --- scale asked size if not using bp
+local set_size_dimension --- called from config
do
- --- cf. TeXbook p. 57
+ --- cf. TeXbook p. 57; the index stores sizes pre-scaled from bp to
+ --- sp. This allows requesting sizes we got from the TeX end
+ --- without further conversion. For the other options *pt* and *dd*
+ --- we scale the requested size as though the value in the font was
+ --- specified in the requested unit.
+
local dimens = {
- pt = function (v) return v end,
- bp = function (v) return (v * 7227) / 7200 end,
- dd = function (v) return (v * 1238) / 1157 end,
+ bp = false,
+ pt = function (v) return v * (7227 / 7200) end,
+ dd = function (v) return v * (7227 / 7200) * (1238 / 1157) end,
}
design_size_dimension = dimens.bp
set_size_dimension = function (dim)
local f = dimens [dim]
- if f then
+ if f ~= nil then
logreport ("both", 4, "db",
"Interpreting design sizes as %q, factor %.6f.",
dim, f (1.000000))
@@ -1144,7 +1149,10 @@ lookup_font_name = function (specification)
askedsize = 0
end
end
- askedsize = design_size_dimension (askedsize)
+
+ if design_size_dimension ~= false then
+ askedsize = design_size_dimension (askedsize)
+ end
resolved, subfont = lookup_familyname (specification,
name,
@@ -1359,9 +1367,16 @@ local load_font_file = function (filename, subfont)
return ret
end
+--- Design sizes in the fonts are specified in decipoints. For the
+--- index these values are prescaled to sp which is what we’re dealing
+--- with at the TeX end.
+
local get_size_info do --- too many upvalues :/
--- rawdata -> (int * int * int | bool)
+ local sp = 2^16 -- pt
+ local bp = 7227 / 7200 -- pt
+
get_size_info = function (rawinfo)
local design_size = rawinfo.design_size
local design_range_top = rawinfo.design_range_top
@@ -1372,13 +1387,13 @@ local get_size_info do --- too many upvalues :/
or design_range_top ~= 0 and design_range_top
if fallback_size then
- design_size = ((design_size or fallback_size) * 2^16) / 10
- design_range_top = ((design_range_top or fallback_size) * 2^16) / 10
- design_range_bottom = ((design_range_bottom or fallback_size) * 2^16) / 10
+ design_size = ((design_size or fallback_size) * sp) / 10
+ design_range_top = ((design_range_top or fallback_size) * sp) / 10
+ design_range_bottom = ((design_range_bottom or fallback_size) * sp) / 10
- design_size = (design_size * 7227) / 7200
- design_range_top = (design_range_top * 7227) / 7200
- design_range_bottom = (design_range_bottom * 7227) / 7200
+ design_size = design_size * bp
+ design_range_top = design_range_top * bp
+ design_range_bottom = design_range_bottom * bp
return {
design_size, design_range_top, design_range_bottom,