diff options
Diffstat (limited to 'tex/context/modules/mkxl/m-gimmicks.mkxl')
-rw-r--r-- | tex/context/modules/mkxl/m-gimmicks.mkxl | 89 |
1 files changed, 89 insertions, 0 deletions
diff --git a/tex/context/modules/mkxl/m-gimmicks.mkxl b/tex/context/modules/mkxl/m-gimmicks.mkxl new file mode 100644 index 000000000..e2659ae99 --- /dev/null +++ b/tex/context/modules/mkxl/m-gimmicks.mkxl @@ -0,0 +1,89 @@ +%D \module +%D [ file=m-gimmicks, +%D version=2022.07.25 +%D title=\CONTEXT\ Extra Modules, +%D subtitle=Whatever comes up, +%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. + +\def\MacScale {.7}% +\def\MacRule {.05}% +\def\MacDistance {.05}% +\def\MacKern {0}% + +\protected\def\Mac + {\dontleavehmode + \begingroup + \scratchwidth \fontcharwd\font`M\relax + \scratchdistance\MacScale\fontcharwd\font`c\relax + \scratchoffset \dimexpr\fontcharht\font`M -\MacScale\fontcharht\font`c\relax + \scratchdepth \MacRule\exheight + \kern\scratchwidth + \vrule + width \scratchdistance + height \dimexpr \scratchoffset- \scratchdepth-\MacDistance\exheight\relax + depth \dimexpr-\scratchoffset+2\scratchdepth+\MacDistance\exheight\relax + \relax + \kern-\dimexpr\scratchwidth+\scratchdistance\relax + M% + \glyphscale\numexpr\numericscale\MacScale*\glyphyscale/\plusthousand\relax + \glyph + yoffset \scratchoffset `c + \kern\MacKern\emwidth + \endgroup} + +\continueifinputfile{m-gimmicks.mkxl} + +% Question on mailing list: + +\chardef\MacAnulty = \getprivateglyphslot{MacAnulty} + +\startsetups [box:demo:\number\MacAnulty] + \Mac Anulty +\stopsetups + +\registerboxglyph category {demo} unicode \MacAnulty \relax + +\startluacode + fonts.handlers.otf.addfeature { + name = "mcanulty", + type = "ligature", + nocheck = true, + data = { + -- [\number\MacAnulty] = { "M", "c", "A", "n", "u", "l", "t", "y", }, + [fonts.constructors.privateslots.MacAnulty] = { "M", "c", "A", "n", "u", "l", "t", "y", }, + } + } +\stopluacode + +\definefontfeature[whatever][default][box=demo,mcanulty=yes] + +\startTEXpage [offset=10dk] +% \def\Test#1{% +% \begingroup +% #1% +% \dostepwiserecurse{5}{8}{1}{ +% \def\MacScale{.##1}% +% \Mac Anulty +% \par +% } +% \endgroup +% } +% \Test\tf +% \Test\bf +% \Test\it +% \Test\sl +% \Test\bfb +% \def\MacScale{.6} +% \def\MacKern {-.1} +% \Mac Anulty + +\definedfont[Serif*whatever] McAnulty\quad \MacAnulty\par +\definedfont[SerifBold*whatever] McAnulty\quad \MacAnulty\par + +\stopTEXpage |