On 8/24/2022 8:45 PM, Pablo Rodriguez via ntg-context wrote:
On 8/24/22 18:11, Thangalin via ntg-context wrote:
Another nice solution, Pablo, thank you.
The macron is shifted a little too far to the left
I don’t know how ConTeXt handles it internally, but placement to main
character differs with each letter:
\starttext
\doloopoverlist{\tf,\ss,\tt}
{\bgroup\recursestring\doloopoverlist{\tf,\it,\bf,\bi,\sc}
{\bgroup\recursestring\dorecurse{26}
{\character{\recurselevel}̱ }\par}\egroup}
\stoptext
just run the attached
-----------------------------------------------------------------
Hans Hagen | PRAGMA ADE
Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
tel: 038 477 53 69 | www.pragma-ade.nl | www.pragma-pod.nl
-----------------------------------------------------------------
%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}
\setupbodyfont[pagella]
\startTEXpage [offset=1dk]
\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
\stopTEXpage
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the
Wiki!
maillist : ntg-context@ntg.nl / https://www.ntg.nl/mailman/listinfo/ntg-context
webpage : https://www.pragma-ade.nl / http://context.aanhet.net
archive : https://bitbucket.org/phg/context-mirror/commits/
wiki : https://contextgarden.net
___________________________________________________________________________________