Re: C with macron

[Hans Hagen via ntg-context <ntg-context@ntg.nl>]

[-- Attachment #1: Type: text/plain, Size: 928 bytes --]

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
-----------------------------------------------------------------

[-- Attachment #2: m-gimmicks.mkxl --]
[-- Type: text/plain, Size: 1708 bytes --]

%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

[-- Attachment #3: Type: text/plain, Size: 496 bytes --]

___________________________________________________________________________________
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
___________________________________________________________________________________