diff options
Diffstat (limited to 'tex/context/base/s-fnt-31.mkiv')
-rw-r--r-- | tex/context/base/s-fnt-31.mkiv | 180 |
1 files changed, 0 insertions, 180 deletions
diff --git a/tex/context/base/s-fnt-31.mkiv b/tex/context/base/s-fnt-31.mkiv deleted file mode 100644 index 24f7f2d7e..000000000 --- a/tex/context/base/s-fnt-31.mkiv +++ /dev/null @@ -1,180 +0,0 @@ -%D \module -%D [ file=s-fnt-31, -%D version=2011.01.02, % about -%D title=\CONTEXT\ Style File, -%D subtitle=Comparing Fonts, -%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. - -% begin info -% -% title : compare glyphs in fonts -% -% comment : show glyphs in several fonts alongside in order to to compare coverage -% status : experimental, used for luatex testing -% -% end info - -\startluacode - -local format, upper, find = string.format, string.upper, string.find -local chardata = characters.data - -function fonts.tracers.coverage(fontfiles,pattern) -- todo: patterns - - local present, names = { }, { } - local pattern = pattern and upper(pattern) - - for i=1,#fontfiles do - local fontname = format("testfont-%s",i) - local fontfile = fontfiles[i] - local fontsize = tex.dimen.bodyfontsize - local id, fontdata = fonts.definers.define { - name = fontfile, - size = fontsize, - cs = fontname, - } - for k, v in next, fontdata.characters do - present[k] = true - end - names[i] = fontname - end - - local t = { } - - context.starttabulate {"|Tr" .. string.rep("|l",#names) .. "|" } - for i=1,#fontfiles do - local file = fontfiles[i] - t[#t+1] = i .. "=" .. file - context.NC() - context(i) - context.NC() - context.type(file) - context.NC() - context.NR() - end - context.stoptabulate() - - context.setupfootertexts { - table.concat(t," ") - } - - context.starttabulate {"|Tl" .. string.rep("|c",#names) .. "|Tl|" } - context.NC() - context.type("unicode") - context.NC() - for i=1,#names do - context.type(i) - context.NC() - end - context.type("description") - context.NC() - context.NR() - context.HL() - for k, v in table.sortedpairs(present) do - local description = chardata[k].description - if not pattern or (pattern == k) or (description and find(description,pattern)) then - context.NC() - context(format("%05X",k)) - context.NC() - for i=1,#names do - context.getvalue(names[i]) - context.char(k) - context.NC() - end - context(description) - context.NC() - context.NR() - end - end - context.stoptabulate() - -end - -\stopluacode - -\continueifinputfile{s-fnt-31.mkiv} - -\setupbodyfont[10pt] - -\setupfootertexts - [style=\ttx] - -\setuplayout - [backspace=1cm, - topspace=1cm, - footer=1cm, - header=0cm, - height=middle, - width=middle] - -\starttext - -% \startluacode -% fonts.tracers.coverage { -% "pirat.ttf", -% } -% \stopluacode - -% \startluacode -% fonts.tracers.coverage { -% -- "cambria.ttf", -% "lbr.afm", -% "LucidaBrightRegular.ttf", -% "lbi.afm", -% "LucidaBrightItalic.ttf", -% "lbd.afm", -% "LucidaBrightDemiBold.ttf", -% "lbdi.afm", -% "LucidaBrightDemiItalic.ttf", -% } -% \stopluacode - -% \startluacode -% fonts.tracers.coverage ( { -% "LucidaBrightRegular.ttf", -% "cambria.ttf", -% "iwona-regular.otf", -% "texgyrepagella-regular.otf", -% "texgyretermes-regular.otf", -% "texgyrebonum-regular.otf", -% "antpolt-regular.otf", -% }, "OGONEK") -% \stopluacode - -% \loadfontgoodies[lucida-math] -% \loadfontgoodies[lm-math] - -% \startluacode -% fonts.tracers.coverage { -% "LucidaBrightRegular.ttf", -% "LucidaBrightOne@lucida-math", -% "cambria.ttc(Cambria Math)", -% "xits-math.otf", -% "LMMath10-Regular@lmroman10-math", -% } -% \stopluacode - -% \loadfontgoodies[px-math] -% \loadfontgoodies[lm-math] - -\startluacode - fonts.tracers.coverage { - "cambria.ttc(Cambria Math)", - "xits-math.otf", - "stixmath-regular.otf", - -- "lmmath-regular", - -- "LMMath10-Regular@lmroman10-math", - -- "pxmath@px-math", - -- "lucida-math.otf", - -- "lucida-math-demi.otf", - -- "LinLibertine_Re-4.7.5.otf", - } -\stopluacode - -\stoptext |