Willi Egger wrote:
Dear OTF-users,
Is there a simple way to get to know the features wich a given OTF has?
ok, there is one now ... (attached file goes to scripts/context/lua
>mtxrun --script font --list "zapfinoextra.*four" --info
MtxRun |
MtxRun | fontname: zapfinoextralt-four
MtxRun | fullname: ZapfinoExtraLT-Four
MtxRun | filename: zapfinoextralt-four.otf
MtxRun |
MtxRun | feature : -> latn rom
MtxRun | feature : aalt -> latn dflt
MtxRun | feature : case -> latn afk nld rom trk dflt
MtxRun | feature : crcy -> latn afk nld rom trk dflt
MtxRun | feature : dlig -> latn afk nld rom trk dflt
MtxRun | feature : dnom -> latn afk nld rom trk dflt
MtxRun | feature : dpng -> latn afk nld rom trk dflt
MtxRun | feature : frac -> latn afk nld rom trk dflt
MtxRun | feature : liga -> latn afk nld rom trk dflt
MtxRun | feature : locl -> latn afk nld rom trk dflt
MtxRun | feature : numr -> latn afk nld rom trk dflt
MtxRun | feature : ordn -> latn afk nld rom trk dflt
MtxRun | feature : ornm -> latn dflt
MtxRun | feature : sups -> latn afk nld rom trk dflt
MtxRun |
-----------------------------------------------------------------
Hans Hagen | PRAGMA ADE
Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
tel: 038 477 53 69 | fax: 038 477 53 74 | www.pragma-ade.com
| www.pragma-pod.nl
-----------------------------------------------------------------
if not modules then modules = { } end modules ['mtx-fonts'] = {
version = 1.001,
comment = "companion to mtxrun.lua",
author = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
copyright = "PRAGMA ADE / ConTeXt Development Team",
license = "see context related readme files"
}
dofile(input.find_file("font-syn.lua"))
scripts = scripts or { }
scripts.fonts = scripts.fonts or { }
function scripts.fonts.reload(verbose)
fonts.names.load(true,verbose)
end
local function showfeatures(v,n,f,s)
local filename = input.find_file(f,type) or ""
if filename ~= "" then
local ff = fontforge.open(filename)
if ff then
local data = fontforge.to_table(ff)
fontforge.close(ff)
local features = { }
local function collect(what)
if data[what] then
for _, d in ipairs(data[what]) do
if d.features then
for _, df in ipairs(d.features) do
features[df.tag] = features[df.tag] or { }
for _, ds in ipairs(df.scripts) do
features[df.tag][ds.script] =
features[df.tag][ds.script] or { }
for _, lang in ipairs(ds.langs) do
features[df.tag][ds.script][lang] = true
end
end
end
end
end
end
end
collect('gsub')
collect('gpos')
input.verbose = true
input.report("")
input.report("fontname: %s",v)
input.report("fullname: %s",n)
input.report("filename: %s",f)
input.report("")
for _, f in ipairs(table.sortedkeys(features)) do
local ff = features[f]
for _, s in ipairs(table.sortedkeys(ff)) do
local ss = ff[s]
input.report("feature : %s -> %s
%s",f,s,(table.concat(table.sortedkeys(ss), " ")):lower())
end
end
input.report("")
end
end
end
function scripts.fonts.list(pattern,reload,all,info)
if reload then
input.report("fontnames, reloading font database")
end
local t = fonts.names.list(pattern,reload)
if reload then
input.report("fontnames, done\n\n")
end
if t then
local s, w = table.sortedkeys(t), { 0, 0, 0 }
local function action(f)
for k,v in pairs(s) do
if all or v == t[v][2]:lower() then
local type, name, file, sub = unpack(t[v])
f(v,name,file,sub)
end
end
end
action(function(v,n,f,s)
if #v > w[1] then w[1] = #v end
if #n > w[2] then w[2] = #n end
if #f > w[3] then w[3] = #f end
end)
action(function(v,n,f,s)
if s then s = "(sub)" else s = "" end
if info then
showfeatures(v,n,f,s)
else
local str = string.format("%s %s %s %s",v:padd(w[1],"
"),n:padd(w[2]," "),f:padd(w[3]," "), s)
print(str:strip())
end
end)
end
end
function scripts.fonts.save(name,sub)
local function save(savename,fontblob)
if fontblob then
savename = savename:lower() .. ".lua"
input.report("fontsave, saving data in %s",savename)
table.tofile(savename,fontforge.to_table(fontblob),"return")
fontforge.close(fontblob)
end
end
if name and name ~= "" then
local filename = input.find_file(name) -- maybe also search for opentype
if filename and filename ~= "" then
local suffix = file.extname(filename)
if suffix == 'ttf' or suffix == 'otf' or suffix == 'ttc' then
local fontinfo = fontforge.info(filename)
if fontinfo then
if fontinfo[1] then
for _, v in ipairs(fontinfo) do
save(v.fontname,fontforge.open(filename,v.fullname))
end
else
save(fontinfo.fullname,fontforge.open(filename))
end
end
end
end
end
end
banner = banner .. " | font tools "
messages.help = [[
--reload generate new font database
--list [--info] list installed fonts (show info)
--save save open type font in raw table
--pattern=str filter files
--all provide alternatives
]]
if environment.argument("reload") then
local verbose = environment.argument("verbose")
scripts.fonts.reload(verbose)
elseif environment.argument("list") then
local pattern = environment.argument("pattern") or environment.files[1] or
""
local all = environment.argument("all")
local info = environment.argument("info")
local reload = environment.argument("reload")
scripts.fonts.list(pattern,reload,all,info)
elseif environment.argument("save") then
local name = environment.files[1] or ""
local sub = environment.files[2] or ""
scripts.fonts.save(name,sub)
else
input.help(banner,messages.help)
end
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the
Wiki!
maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage : http://www.pragma-ade.nl / http://tex.aanhet.net
archive : https://foundry.supelec.fr/projects/contextrev/
wiki : http://contextgarden.net
___________________________________________________________________________________
