1 files changed, 69 insertions, 0 deletions
diff --git a/tex/context/base/s-fnt-29.mkiv b/tex/context/base/s-fnt-29.mkiv
new file mode 100644
index 000000000..86f40e2f8
--- /dev/null
+++ b/tex/context/base/s-fnt-29.mkiv
@@ -0,0 +1,69 @@
+%D \module
+%D   [      file=s-fnt-29,
+%D        version=2010.09.27,
+%D          title=\CONTEXT\ Style File,
+%D       subtitle=Tracing Shapes,
+%D         author=Hans Hagen,
+%D           date=\currentdate,
+%D      copyright=PRAGMA-ADE]
+%C
+%C This module is part of the \CONTEXT\ macro||package and is
+%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
+%C details.
+
+\startluacode
+
+    function fonts.tracers.shapes() -- todo: ranges
+        local NC, NR = context.NC, context.NR
+        local char = context.char
+        local chrs = fonts.identifiers[font.current()].characters
+     -- local desc = fonts.identifiers[font.current()].descriptions
+        context.starttabulate { "|l|c|c|c|c|l|" }
+            context.FL()
+                NC() context("unicode")
+                NC() context("glyph")
+                NC() context("shape")
+                NC() context("lower")
+                NC() context("upper")
+             -- NC() context("name")
+                NC() context("description")
+                NC() NR()
+            context.TL()
+            for k, v in next, characters.data do
+                if chrs[k] then
+                    NC() context("0x%05X",k)
+                    NC() char(k)
+                    NC() char(v.shcode)
+                    NC() char(v.lccode or k)
+                    NC() char(v.uccode or k)
+                 -- NC() context(desc[k].name)
+                    NC() context(v.description)
+                    NC() NR()
+                end
+            end
+        context.stoptabulate()
+    end
+
+\stopluacode
+
+\doifnotmode{demo}{\endinput}
+
+\setupbodyfont[dejavu,tt,9pt]
+
+\setuplayout
+  [backspace=1cm,
+   topspace=1cm,
+   footer=1cm,
+   header=0cm,
+   height=middle,
+   width=middle]
+
+\setupfootertexts
+  []
+  [\fontname\font\quad\pagenumber]
+
+\starttext
+
+    \ctxlua{fonts.tracers.shapes()}
+
+\stoptext