From 7b271baae19db1528fbe6621bdf50af89a5a336b Mon Sep 17 00:00:00 2001
From: Hans Hagen <pragma@wxs.nl>
Date: Fri, 22 Feb 2019 20:29:46 +0100
Subject: 2019-02-22 19:43:00

---
 tex/context/modules/mkiv/s-fonts-effects.mkiv | 59 +++++++++++++++++++++++++++
 1 file changed, 59 insertions(+)
 create mode 100644 tex/context/modules/mkiv/s-fonts-effects.mkiv

(limited to 'tex/context/modules/mkiv/s-fonts-effects.mkiv')

diff --git a/tex/context/modules/mkiv/s-fonts-effects.mkiv b/tex/context/modules/mkiv/s-fonts-effects.mkiv
new file mode 100644
index 000000000..9b712938b
--- /dev/null
+++ b/tex/context/modules/mkiv/s-fonts-effects.mkiv
@@ -0,0 +1,59 @@
+%D \module
+%D   [      file=s-fonts-basics, % was s-fnt-01,
+%D        version=2006.10.10, % guess
+%D          title=\CONTEXT\ Style File,
+%D       subtitle=Listing Glyphs in Large 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.
+
+%D This module is just a check for \type {luatex-basics-prepare}.
+
+\startmodule[fonts-effects]
+
+\startluacode
+moduledata.fonts         = moduledata.fonts         or { }
+moduledata.fonts.effects = moduledata.fonts.effects or { }
+
+function moduledata.fonts.effects.showfonteffect()
+    local effect = fonts.hashes.properties[true].effect
+    if effect then
+        local context = context
+        local BC, NC, EQ, NR = context.BC, context.NC, context.EQ, context.NR
+        context.starttabulate { "||||||||" }
+            BC() context("id")      EQ() context(font.current())
+            BC() context("factor")  EQ() context(effect.factor)
+            BC() context("wdelta")  EQ() context(effect.wdelta)
+            NC() NR()
+            BC() context("effect")  EQ() context(effect.effect)
+            BC() context("hfactor") EQ() context(effect.hfactor)
+            BC() context("hdelta")  EQ() context(effect.hdelta)
+            NC() NR()
+            BC() context("width")   EQ() context(effect.width)
+            BC() context("vfactor") EQ() context(effect.vfactor)
+            BC() context("ddelta")  EQ() context(effect.ddelta)
+            NC() NR()
+        context.stoptabulate()
+    end
+end
+\stopluacode
+
+\installmodulecommandluasingle \showfonteffect {moduledata.fonts.effects.showfonteffect}
+
+\stopmodule
+
+\continueifinputfile{s-fonts-effects.mkiv}
+
+\usemodule[art-01]
+
+\starttext
+
+    \definedfont[Serif*default,boldened] An example.
+
+    \showfonteffect
+
+\stopmodule
-- 
cgit v1.2.3