How to run Typesetting in MetaPost example (MetaFun)?

How to run Typesetting in MetaPost example (MetaFun)?

[Verhaag, G.C.H.M.]

Hi,

I wanted to try (using ConTeXt minimals MkIV) the example on page 228 of 
the MetaFun manual, dealing with typesetting in MetaPost.

The code is given as:

\resetMPdrawing
\startMPdrawing
 picture pic[] ;
 numeric wid[], len[], pos[], n ;
 wid[0] := len[0] := pos[0] := n := 0 ;
\stopMPdrawing

\def\whatever#1%
 {\appendtoks#1\to\MPtoks
  \setbox\MPbox=\hbox{\bfd\the\MPtoks}%
  \startMPdrawing
   n := n + 1 ; len[n] := \the\wd\MPbox ;
  \stopMPdrawing
  \startMPdrawing[-]
   pic[n] := textext("\bfd\setstrut\strut#1") ;
   pic[n] := pic[n] shifted - llcorner pic[n] ;
  \stopMPdrawing}

\handletokens MetaPost is Fun!\with\whatever

But is won't run. The following message is generated:

\@@toks ->\MPtoks

\dodoappendtoks ->\dodoglobal \@@toks
                                      \@EAEAEA {\@EA \the \@EA \@@toks 
\the ...
\whatever #1->\appendtoks #1\to \MPtoks
                                        \setbox \MPbox =\hbox {\bfd \the 
\MP...
\dodohandletokenstwo *#1->\dododohandletokens {#1}
                                                  \dohandletokens
<argument> M
            etaPost is Fun!
\handletokens ...ndletokens {#2}\dohandletokens #1
                                                  \end
l.96 \handletokens MetaPost is Fun!\with\whatever

Anybody any idea?

Regards,
Gerard Verhaag
___________________________________________________________________________________
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: How to run Typesetting in MetaPost example (MetaFun)?

[Verhaag, G.C.H.M.]

Verhaag, G.C.H.M. wrote:

> Hi,
>
> I wanted to try (using ConTeXt minimals MkIV) the example on page 228 
> of the MetaFun manual, dealing with typesetting in MetaPost.
>
> The code is given as:
>
> \resetMPdrawing
> \startMPdrawing
> picture pic[] ;
> numeric wid[], len[], pos[], n ;
> wid[0] := len[0] := pos[0] := n := 0 ;
> \stopMPdrawing
>
> \def\whatever#1%
> {\appendtoks#1\to\MPtoks
>  \setbox\MPbox=\hbox{\bfd\the\MPtoks}%
>  \startMPdrawing
>   n := n + 1 ; len[n] := \the\wd\MPbox ;
>  \stopMPdrawing
>  \startMPdrawing[-]
>   pic[n] := textext("\bfd\setstrut\strut#1") ;
>   pic[n] := pic[n] shifted - llcorner pic[n] ;
>  \stopMPdrawing}
>
> \handletokens MetaPost is Fun!\with\whatever
>
> But is won't run. The following message is generated:
>
> \@@toks ->\MPtoks
>
> \dodoappendtoks ->\dodoglobal \@@toks
>                                      \@EAEAEA {\@EA \the \@EA \@@toks 
> \the ...
> \whatever #1->\appendtoks #1\to \MPtoks
>                                        \setbox \MPbox =\hbox {\bfd 
> \the \MP...
> \dodohandletokenstwo *#1->\dododohandletokens {#1}
>                                                  \dohandletokens
> <argument> M
>            etaPost is Fun!
> \handletokens ...ndletokens {#2}\dohandletokens #1
>                                                  \end
> l.96 \handletokens MetaPost is Fun!\with\whatever
>
> Anybody any idea?
>
> Regards,
> Gerard Verhaag
> ___________________________________________________________________________________ 
>
> 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
> ___________________________________________________________________________________ 
>
>
Hi,

I'm in need of help to get the example as described in the MetaFun 
manual running, because I want to use text around a path!

So, I started reading the chapter about 'Typesetting in METAPOST' and 
wanted to try the examples as given in that chapter, but without succes!

The problem seem to be the MPtoks macro. According to the text in this 
chapter this low level macro (and MPbox and appendtoks) are already 
defined, but are they really?

The version of context minimals I use at the moment is:

MTXrun | current version: 2011.01.18 19:34

Any suggestions are very much welcomed! Thanks in advance!

Regards,
Gerard
___________________________________________________________________________________
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: How to run Typesetting in MetaPost example (MetaFun)?

[Peter Rolf]

Am 19.01.2011 14:35, schrieb Verhaag, G.C.H.M.:
> Verhaag, G.C.H.M. wrote:
> 
>> Hi,
>>
>> I wanted to try (using ConTeXt minimals MkIV) the example on page 228
>> of the MetaFun manual, dealing with typesetting in MetaPost.
>>
>> The code is given as:
>>
>> \resetMPdrawing
>> \startMPdrawing
>> picture pic[] ;
>> numeric wid[], len[], pos[], n ;
>> wid[0] := len[0] := pos[0] := n := 0 ;
>> \stopMPdrawing
>>
>> \def\whatever#1%
>> {\appendtoks#1\to\MPtoks
>>  \setbox\MPbox=\hbox{\bfd\the\MPtoks}%
>>  \startMPdrawing
>>   n := n + 1 ; len[n] := \the\wd\MPbox ;
>>  \stopMPdrawing
>>  \startMPdrawing[-]
>>   pic[n] := textext("\bfd\setstrut\strut#1") ;
>>   pic[n] := pic[n] shifted - llcorner pic[n] ;
>>  \stopMPdrawing}
>>
>> \handletokens MetaPost is Fun!\with\whatever
>>
>> But is won't run. The following message is generated:
>>
>> \@@toks ->\MPtoks
>>
>> \dodoappendtoks ->\dodoglobal \@@toks
>>                                      \@EAEAEA {\@EA \the \@EA \@@toks
>> \the ...
>> \whatever #1->\appendtoks #1\to \MPtoks
>>                                        \setbox \MPbox =\hbox {\bfd
>> \the \MP...
>> \dodohandletokenstwo *#1->\dododohandletokens {#1}
>>                                                  \dohandletokens
>> <argument> M
>>            etaPost is Fun!
>> \handletokens ...ndletokens {#2}\dohandletokens #1
>>                                                  \end
>> l.96 \handletokens MetaPost is Fun!\with\whatever
>>
>> Anybody any idea?
>>
>> Regards,
>> Gerard Verhaag
>> ___________________________________________________________________________________
>>
>> 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
>> ___________________________________________________________________________________
>>
>>
> Hi,
> 
> I'm in need of help to get the example as described in the MetaFun
> manual running, because I want to use text around a path!
> 
> So, I started reading the chapter about 'Typesetting in METAPOST' and
> wanted to try the examples as given in that chapter, but without succes!
> 
> The problem seem to be the MPtoks macro. According to the text in this
> chapter this low level macro (and MPbox and appendtoks) are already
> defined, but are they really?
> 
> The version of context minimals I use at the moment is:
> 
> MTXrun | current version: 2011.01.18 19:34
> 
> Any suggestions are very much welcomed! Thanks in advance!
> 

Hi Gerard,

how about an alternative way to deal with this?

1. draw the text with Inkscape (put text on a path);
   I think there is even a tutorial for this.
2. select the graphic and save it as *.eps
3. use pstoedit to convert it into *.mp

   pstoedit -v -ssp -f "mpost:" foo.eps foo.mp

4. edit/scale the metapost graphic as you like


Best wishes,  Peter
___________________________________________________________________________________
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: How to run Typesetting in MetaPost example (MetaFun)?

[Aditya Mahajan]

On Tue, 18 Jan 2011, Verhaag, G.C.H.M. wrote:

> Hi,
>
> I wanted to try (using ConTeXt minimals MkIV) the example on page 228 of the 
> MetaFun manual, dealing with typesetting in MetaPost.

I haven't look at the metapost manual ... but

> The code is given as:
>
> \resetMPdrawing
> \startMPdrawing
> picture pic[] ;
> numeric wid[], len[], pos[], n ;
> wid[0] := len[0] := pos[0] := n := 0 ;
> \stopMPdrawing
>
> \def\whatever#1%
> {\appendtoks#1\to\MPtoks
> \setbox\MPbox=\hbox{\bfd\the\MPtoks}%
> \startMPdrawing
>  n := n + 1 ; len[n] := \the\wd\MPbox ;
> \stopMPdrawing
> \startMPdrawing[-]
>  pic[n] := textext("\bfd\setstrut\strut#1") ;
>  pic[n] := pic[n] shifted - llcorner pic[n] ;
> \stopMPdrawing}
>
> \handletokens MetaPost is Fun!\with\whatever
>
> But is won't run. The following message is generated:

The actual error message said

! Undefined control sequence.
\@@toks ->\MPtoks

So add

\newtoks\MPtoks

After which you get

! Undefined control sequence.
\whatever ...endtoks #1\to \MPtoks \setbox \MPbox

so add

\newbox\MPbox

After that the file compiles but you get an empty image. There are two 
things missing in the code. First you don't tell actually draw the 
metapost drawing. for that, add

\MPdrawingdonetrue \getMPdrawing \resetMPdrawing


Still an empty page. Again the pic[n] is calculated but never drawn. So 
add

   draw p[n] shifted (n*1cm,0) ;

(or perhaps along a more sophisticated path),

and now you have a working example:

\newtoks\MPtoks
\newbox\MPbox

\resetMPdrawing
\startMPdrawing
   picture p[] ;
   numeric wid[], len[], pos[], n ;
   wid[0] := len[0] := pos[0] := n := 0 ;
\stopMPdrawing

\def\whatever#1%
{\appendtoks#1\to\MPtoks
  \setbox\MPbox=\hbox{\bfd\the\MPtoks}%
  \startMPdrawing
   n := n + 1 ; len[n] := \the\wd\MPbox ;
   p[n] := textext("\bfd\setstrut\strut#1") ;
   p[n] := p[n] shifted - llcorner p[n] ;
   draw p[n] shifted (n*1cm,0) ;
  \stopMPdrawing}

\starttext
\handletokens MetaPost is Fun!\with\whatever

\MPdrawingdonetrue \getMPdrawing \resetMPdrawing

\stoptext

You could also have just used the macros from meta-txt:

\useMPlibrary[txt]

\startMPdefinitions
   newpath RotPath ;
   RotPath = fullcircle scaled 3cm ;
\stopMPdefinitions

\starttext
\followtokens{Metapost is fun \quad}
\stoptext

@Hans: Perhaps we can have a more ConTeXtist interface to this macro:

\definetextonepath
    [whatever]
    [color=...,
     style=...,
     mp=..., % path specification
    ]

\whatever{Metapost is fun}

Aditya
___________________________________________________________________________________
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: How to run Typesetting in MetaPost example (MetaFun)?

[Verhaag, G.C.H.M.]

Aditya Mahajan wrote:

> On Tue, 18 Jan 2011, Verhaag, G.C.H.M. wrote:
>
>> Hi,
>>
>> I wanted to try (using ConTeXt minimals MkIV) the example on page 228 
>> of the MetaFun manual, dealing with typesetting in MetaPost.
>
>
> I haven't look at the metapost manual ... but
>
>> The code is given as:
>>
>> \resetMPdrawing
>> \startMPdrawing
>> picture pic[] ;
>> numeric wid[], len[], pos[], n ;
>> wid[0] := len[0] := pos[0] := n := 0 ;
>> \stopMPdrawing
>>
>> \def\whatever#1%
>> {\appendtoks#1\to\MPtoks
>> \setbox\MPbox=\hbox{\bfd\the\MPtoks}%
>> \startMPdrawing
>>  n := n + 1 ; len[n] := \the\wd\MPbox ;
>> \stopMPdrawing
>> \startMPdrawing[-]
>>  pic[n] := textext("\bfd\setstrut\strut#1") ;
>>  pic[n] := pic[n] shifted - llcorner pic[n] ;
>> \stopMPdrawing}
>>
>> \handletokens MetaPost is Fun!\with\whatever
>>
>> But is won't run. The following message is generated:
>
>
> The actual error message said
>
> ! Undefined control sequence.
> \@@toks ->\MPtoks
>
> So add
>
> \newtoks\MPtoks
>
> After which you get
>
> ! Undefined control sequence.
> \whatever ...endtoks #1\to \MPtoks \setbox \MPbox
>
> so add
>
> \newbox\MPbox
>
> After that the file compiles but you get an empty image. There are two 
> things missing in the code. First you don't tell actually draw the 
> metapost drawing. for that, add
>
> \MPdrawingdonetrue \getMPdrawing \resetMPdrawing
>
>
> Still an empty page. Again the pic[n] is calculated but never drawn. 
> So add
>
>   draw p[n] shifted (n*1cm,0) ;
>
> (or perhaps along a more sophisticated path),
>
> and now you have a working example:
>
> \newtoks\MPtoks
> \newbox\MPbox
>
> \resetMPdrawing
> \startMPdrawing
>   picture p[] ;
>   numeric wid[], len[], pos[], n ;
>   wid[0] := len[0] := pos[0] := n := 0 ;
> \stopMPdrawing
>
> \def\whatever#1%
> {\appendtoks#1\to\MPtoks
>  \setbox\MPbox=\hbox{\bfd\the\MPtoks}%
>  \startMPdrawing
>   n := n + 1 ; len[n] := \the\wd\MPbox ;
>   p[n] := textext("\bfd\setstrut\strut#1") ;
>   p[n] := p[n] shifted - llcorner p[n] ;
>   draw p[n] shifted (n*1cm,0) ;
>  \stopMPdrawing}
>
> \starttext
> \handletokens MetaPost is Fun!\with\whatever
>
> \MPdrawingdonetrue \getMPdrawing \resetMPdrawing
>
> \stoptext
>
> You could also have just used the macros from meta-txt:
>
> \useMPlibrary[txt]
>
> \startMPdefinitions
>   newpath RotPath ;
>   RotPath = fullcircle scaled 3cm ;
> \stopMPdefinitions
>
> \starttext
> \followtokens{Metapost is fun \quad}
> \stoptext
>
> @Hans: Perhaps we can have a more ConTeXtist interface to this macro:
>
> \definetextonepath
>    [whatever]
>    [color=...,
>     style=...,
>     mp=..., % path specification
>    ]
>
> \whatever{Metapost is fun}
>
> Aditya

Hi,

Okay, that makes things more clear, but couldn't find this in the 
manual! Maybe it is very obvious to someone more familiar with METAPOST.

Well, I also tried the nice macro example on page 232 of the MetaFun 
manual by Hans, and got of course the same problems. But after I added the

\newtoks\MPtoks
\newbox\MPbox

definitions to the file, it worked!

Also the Inkscape alternative is very useful, thanks for helping me out!

Regards,
Gerard
___________________________________________________________________________________
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: How to run Typesetting in MetaPost example (MetaFun)?

[luigi scarso]

You can also use mkii as command line drawing tool:
#> mtxrun texexec test.tex

\starttext
\startTEXpage
\resetMPdrawing
\startMPdrawing
picture pic[] ;
numeric wid[], len[], pos[], n ;
wid[0] := len[0] := pos[0] := n := 0 ;
\stopMPdrawing

\def\whatever#1%
{\appendtoks#1\to\MPtoks
 \setbox\MPbox=\hbox{\bfd\the\MPtoks}%
 \startMPdrawing
 n := n + 1 ; len[n] := \the\wd\MPbox ;
 \stopMPdrawing
 \startMPdrawing[-]
 pic[n] := textext("\bfd\setstrut\strut#1") ;
 pic[n] := pic[n] shifted - llcorner pic[n] ;
 \stopMPdrawing}

\handletokens MetaPost is Fun!\with\whatever

\startMPdrawing
     pair len ; len := origin ;
     for i=1 upto n :
       draw pic[i] shifted len ;
       draw boundingbox pic[i] shifted len
          withpen pencircle scaled .25pt withcolor red ;
       len := len+(xpart lrcorner pic[i]-xpart llcorner pic[i],0) ;
     endfor ;
\stopMPdrawing

\MPdrawingdonetrue\getMPdrawing

\stopTEXpage
\stoptext


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