context/current (May 16 10:25)

git-svn-id: svn://tug.org/texlive/trunk@44436 c570f23f-e606-0410-a88d-b1316a301751

2 files changed, 31 insertions, 2 deletions

diff --git a/Master/texmf-dist/tex/context/modules/mkiv/s-fonts-variable.lua b/Master/texmf-dist/tex/context/modules/mkiv/s-fonts-variable.lua
index 2b2aa1dfc35..43f5f0d3d04 100644
--- a/Master/texmf-dist/tex/context/modules/mkiv/s-fonts-variable.lua
+++ b/Master/texmf-dist/tex/context/modules/mkiv/s-fonts-variable.lua
@@ -18,6 +18,9 @@ local context = context
 local NC, NR, HL, ML = context.NC, context.NR, context.HL, context.ML
 local bold, monobold, mono, formattedmono = context.bold, context.monobold, context.mono, context.formatted.mono
 
+local show_glyphs = false  trackers.register("modules.fonts.variables.glyphs", function(v) show_glyphs = v end)
+local show_kerns  = false  trackers.register("modules.fonts.variables.kerns",  function(v) show_kerns  = v end)
+
 function moduledata.fonts.variable.showvariations(specification)
 
     specification = interfaces.checkedspecification(specification)
@@ -237,11 +240,21 @@ end
         context.startsubject { title = instance }
             context.start()
             context.definedfont { "name:" .. instance .. "*default" }
+            context.start()
+            if show_glyphs then
+                context.showglyphs()
+            end
+            if show_kerns then
+                context.showfontkerns()
+            end
             if sample and sample ~= "" then
                 context(sample)
             else
                 context.input("zapf.tex")
             end
+            context.stop()
+            context.blank { "big,samepage"}
+            context.showfontspacing()
             context.par()
             context.stop()
         context.stopsubject()
diff --git a/Master/texmf-dist/tex/context/modules/mkiv/s-fonts-variable.mkiv b/Master/texmf-dist/tex/context/modules/mkiv/s-fonts-variable.mkiv
index 6b84c2ebb33..64348b3245b 100644
--- a/Master/texmf-dist/tex/context/modules/mkiv/s-fonts-variable.mkiv
+++ b/Master/texmf-dist/tex/context/modules/mkiv/s-fonts-variable.mkiv
@@ -26,6 +26,18 @@
 
 \installmodulecommandluasingle \showfontvariations {moduledata.fonts.variable.showvariations}
 
+\unexpanded\def\showfontspacing
+  {\begingroup
+   \scratchskip \interwordspace plus \interwordstretch minus \interwordshrink
+   \normalexpanded{\hpack\bgroup
+      \tttf
+      sp: \the\scratchskip   \hskip\emwidth
+      es: \the\extraspace\hskip\emwidth
+      ex: \the\exheight  \hskip\emwidth
+      em: \the\emwidth   \hskip\emwidth
+   \egroup}%
+   \endgroup}
+
 \stopmodule
 
 \continueifinputfile{s-fonts-variable.mkiv}
@@ -34,6 +46,9 @@
 
 \setuphead[section][before={\testpage[5]\blank[2*big]}]
 
+\enabletrackers[modules.fonts.variables.glyphs]
+\enabletrackers[modules.fonts.variables.kerns]
+
 \starttext
 
     \startbuffer[zycon]
@@ -57,8 +72,9 @@
         \char983040\relax\par
     \stopbuffer
 
-%     \showfontkerns
-%     \showglyphs
+%     \showfontvariations
+%       [font=file:VotoSerifGX.ttf,
+%        max=6]
 
     \showfontvariations
       [font=file:adobevfprototype.otf]