[NTG-context] Command that does not give the expected result (Metafun)

Hans Hagen pragma at wxs.nl
Sun Aug 9 15:40:30 CEST 2015


On 8/9/2015 1:27 PM, Fabrice Couvreur wrote:
> Hi Hans,
> In the document Metafun, you use commands that I like, and I try to
> understand the definition and operation, which is not always easy with
> TeX commands.
> Also, in the following code, this does not give the expected result.
> Thank you.
> Fabrice
>
> \showframe
>
> \setupcolors
>    [state=start]
>
> \setuppagenumbering[location=,alternative]
>
> \startuniqueMPgraphic{titled}
> path p ;
> p := unitsquare xscaled OverlayWidth yscaled OverlayHeight ;
> pickup pencircle scaled 1mm ;
> drawoptions(withcolor .625yellow) ;
> draw llcorner p--lrcorner p ;
> setbounds currentpicture to p ;
> \stopuniqueMPgraphic
>
> \defineoverlay[titled][\uniqueMPgraphic{titled}]
>
> \def\ChapterCommand#1#2%
>    {\setbox0=\hbox to \leftmarginwidth{#1\hss}%
>     \hskip-\leftmarginwidth
>     \hskip-\leftmargindistance
>     \framed
>       [background=titled,frame=off,offset=0pt]
>       {\box0
>        \hskip\leftmargindistance
>        #2}}
>
> \setuphead
>    [chapter,section,subsection]
>    [command=\ChapterCommand,
>     color=darkred]
>
> \starttext
> \chapter{First}
> \section{First}
> \subsection{First}
> \stoptext

\unexpanded\def\ChapterCommand#1#2%

-----------------------------------------------------------------
                                           Hans Hagen | PRAGMA ADE
               Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
     tel: 038 477 53 69 | voip: 087 875 68 74 | www.pragma-ade.com
                                              | www.pragma-pod.nl
-----------------------------------------------------------------


More information about the ntg-context mailing list