summaryrefslogtreecommitdiff
path: root/tex/context/base/s-fnt-31.mkiv
diff options
context:
space:
mode:
Diffstat (limited to 'tex/context/base/s-fnt-31.mkiv')
-rw-r--r--tex/context/base/s-fnt-31.mkiv180
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