Command that does not give the expected result (Metafun)

Command that does not give the expected result (Metafun)

[Fabrice Couvreur]

[-- Attachment #1.1: Type: text/plain, Size: 1040 bytes --]

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

[-- Attachment #1.2: Type: text/html, Size: 1921 bytes --]

[-- Attachment #2: ntg29.pdf --]
[-- Type: application/pdf, Size: 6185 bytes --]

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

___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
archive  : http://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________

Re: Command that does not give the expected result (Metafun)

[Hans Hagen]

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
-----------------------------------------------------------------
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
archive  : http://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________

Re: Command that does not give the expected result (Metafun)

[Fabrice Couvreur]

[-- Attachment #1.1: Type: text/plain, Size: 2353 bytes --]

Dear Hans,
I tested without understanding what \unexpanded, and of course it works !
Thank you,
Fabrice

2015-08-09 15:40 GMT+02:00 Hans Hagen <pragma@wxs.nl>:

> 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
> -----------------------------------------------------------------
>
> ___________________________________________________________________________________
> If your question is of interest to others as well, please add an entry to
> the Wiki!
>
> maillist : ntg-context@ntg.nl /
> http://www.ntg.nl/mailman/listinfo/ntg-context
> webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
> archive  : http://foundry.supelec.fr/projects/contextrev/
> wiki     : http://contextgarden.net
>
> ___________________________________________________________________________________

[-- Attachment #1.2: Type: text/html, Size: 3994 bytes --]

[-- Attachment #2: Type: text/plain, Size: 485 bytes --]

___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
archive  : http://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________

Re: Command that does not give the expected result (Metafun)

[Wolfgang Schuster]

[-- Attachment #1.1: Type: text/plain, Size: 573 bytes --]

> Fabrice Couvreur <mailto:fabrice1.couvreur@gmail.com>
> 10. August 2015 09:13
> Dear Hans,
> I tested without understanding what \unexpanded, and of course it works!
>
You can use ConTeXt’s \define command where you don’t have to think 
about \unexpanded etc., e.g.

\define[2]\ChapterCommand
   {\setbox\scratchbox\hbox to \leftmarginwidth{#1\hss}%
    \hskip-\dimexpr\leftmarginwidth+\leftmargindistance\relax
    \framed
      [background=titled,frame=off,offset=0pt]
      {\box\scratchbox
       \hskip\leftmargindistance
       #2}}

Wolfgang

[-- Attachment #1.2: Type: text/html, Size: 1987 bytes --]

[-- Attachment #2: Type: text/plain, Size: 485 bytes --]

___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
archive  : http://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________

Re: Command that does not give the expected result (Metafun)

[Fabrice Couvreur]

[-- Attachment #1.1: Type: text/plain, Size: 1384 bytes --]

Hi Wolfgang,
I will follow your advice but I will try to understand, when I have the time
, the difference between
\unexpanded\def\ChapterCommand#1#2% et \def\ChapterCommand#1#2%.
Fabrice

2015-08-10 22:38 GMT+02:00 Wolfgang Schuster <schuster.wolfgang@gmail.com>:

> Fabrice Couvreur <fabrice1.couvreur@gmail.com>
> 10. August 2015 09:13
> Dear Hans,
> I tested without understanding what \unexpanded, and of course it works !
>
> You can use ConTeXt’s \define command where you don’t have to think about
> \unexpanded etc., e.g.
>
> \define[2]\ChapterCommand
>   {\setbox\scratchbox\hbox to \leftmarginwidth{#1\hss}%
>    \hskip-\dimexpr\leftmarginwidth+\leftmargindistance\relax
>    \framed
>      [background=titled,frame=off,offset=0pt]
>      {\box\scratchbox
>       \hskip\leftmargindistance
>       #2}}
>
> Wolfgang
>
>
> ___________________________________________________________________________________
> If your question is of interest to others as well, please add an entry to
> the Wiki!
>
> maillist : ntg-context@ntg.nl /
> http://www.ntg.nl/mailman/listinfo/ntg-context
> webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
> archive  : http://foundry.supelec.fr/projects/contextrev/
> wiki     : http://contextgarden.net
>
> ___________________________________________________________________________________
>

[-- Attachment #1.2: Type: text/html, Size: 3514 bytes --]

[-- Attachment #2: Type: text/plain, Size: 485 bytes --]

___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
archive  : http://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________