summaryrefslogtreecommitdiff
path: root/tex/context/base/mkxl/font-ini.mklx
diff options
context:
space:
mode:
authorHans Hagen <pragma@wxs.nl>2020-12-24 12:51:53 +0100
committerContext Git Mirror Bot <phg@phi-gamma.net>2020-12-24 12:51:53 +0100
commit34bc3e479e76b06633436a744a30719f4d7f20f7 (patch)
treedf8933a50e51a67574b87e2a670fe45253af3c21 /tex/context/base/mkxl/font-ini.mklx
parentdfdf39bed2e7dda3f2d59c8bf71cf0fb80a317dd (diff)
downloadcontext-34bc3e479e76b06633436a744a30719f4d7f20f7.tar.gz
2020-12-24 12:15:00
Diffstat (limited to 'tex/context/base/mkxl/font-ini.mklx')
-rw-r--r--tex/context/base/mkxl/font-ini.mklx20
1 files changed, 17 insertions, 3 deletions
diff --git a/tex/context/base/mkxl/font-ini.mklx b/tex/context/base/mkxl/font-ini.mklx
index 59dea4024..af4674a6c 100644
--- a/tex/context/base/mkxl/font-ini.mklx
+++ b/tex/context/base/mkxl/font-ini.mklx
@@ -2515,16 +2515,30 @@
%D Experiment:
\installcorenamespace{scaledfont}
+\installcorenamespace{scaledfontxscale}
+\installcorenamespace{scaledfontyscale}
\installcommandhandler \??scaledfont {scaledfont} \??scaledfont
\appendtoks
- \frozen\protected\edefcsname\currentscaledfont\endcsname
- {\glyphscale\scaledfontparameter\c!scale\relax
+ \ifempty\currentscaledfont\else
+ \expandafter\integerdef\csname\??scaledfontxscale\currentscaledfont\endcsname\scaledfontparameter\c!xscale\relax
+ \expandafter\integerdef\csname\??scaledfontyscale\currentscaledfont\endcsname\scaledfontparameter\c!yscale\relax
+ \fi
+\to \everysetupscaledfont
+
+\appendtoks
+ \expandafter\integerdef\csname\??scaledfontxscale\currentscaledfont\endcsname\scaledfontparameter\c!xscale\relax
+ \expandafter\integerdef\csname\??scaledfontyscale\currentscaledfont\endcsname\scaledfontparameter\c!yscale\relax
+ \overloaded\frozen\protected\edefcsname\currentscaledfont\endcsname
+ {\glyphxscale\csname\??scaledfontxscale\currentscaledfont\endcsname
+ \glyphyscale\csname\??scaledfontyscale\currentscaledfont\endcsname
\begincsname\scaledfontparameter\c!style\endcsname}
\to \everydefinescaledfont
\setupscaledfont
- [\c!scale=1000]
+ [\c!scale=\plusthousand,
+ \c!xscale=\scaledfontparameter\c!scale,
+ \c!yscale=\scaledfontparameter\c!scale]
\protect \endinput