\definefont

\definefont

[Denis B. Roegel]

Another example of font problem is given below.
First, as in the previous examples, if I put `pos',
`ppl', or `pcr' in \setupbodyfont, the second run of pdfetex 
gets stuck. Second, how do I access \RotFont below?
\definefont[RotFont][RegularBold] doesn't make
it accessible since I run into an error.
Finally, this example (from the metafun manual
page 141, September 25 version) uses \vbox\bgroup...\egroup.
Why not \vbox{...} which seems to work too?

Thanks,

Denis

\setupcolors[state=start]
\starttext

\startMPenvironment
%\setupbodyfont[loc,mt,ppl,pcr,10pt]
%\setupbodyfont[loc,mt,10pt]
\definefont[RotFont][RegularBold]
\stopMPenvironment

% doesn't work if \bfd is replaced by \RotFont

\def\processrotationtoken#1%
  {\appendtoks#1\to\MPtoks
   \setbox\MPbox=\hbox{\bfd\the\MPtoks}%
   \startMPdrawing
     n:=n+1;len[n]:=\the\wd\MPbox;
   \stopMPdrawing
   \startMPdrawing[1]
     pic[n]:=btex \bfd#1 etex;
   \stopMPdrawing}

\def\rotatetokens#1#2#3#4% delta extra radius tokens
  {\vbox\bgroup
   \MPtoks\emptytoks
   \resetMPdrawing
   \startMPdrawing
     picture pic[];
     numeric wid,len[],rot;
     numeric delta,extra,radius,n,r;
     len[0]:=n:=0;
     delta:=#1;extra:=#2;radius:=#3;
    \stopMPdrawing
    \handletokens#4\with\processrotationtoken
    \startMPdrawing
      r:=len[n]/Pi;
      for i=1 upto n:
        wid:=abs(xpart lrcorner pic[i]-xpart llcorner pic[i]);
        rot := extra+delta-((len[i]-.5wid)/len[n])*(180+2delta);
        draw pic[i]
          rotatedaround (origin,-270) shifted (-r-radius,
           ypart-.5[ulcorner pic[i],llcorner pic[i]])
          rotatedaround (origin,rot);
      endfor;
    \stopMPdrawing
    \MPdrawingdonetrue
    \getMPdrawing
    \resetMPdrawing
    \egroup} 

\startcombination[3*1]
  {\rotatetokens {0} {0}{0}{Does it work ok?}} {A}
  {\rotatetokens {20} {0}{0}{Does it work ok?}} {B}
  {\rotatetokens {20} {30}{0}{Does it work ok?}} {C}
\stopcombination

\stoptext

Re: \definefont

[Hans Hagen]

At 02:02 AM 11/2/00 +0100, Denis B. Roegel wrote:
>
>Another example of font problem is given below.
>First, as in the previous examples, if I put `pos',
>`ppl', or `pcr' in \setupbodyfont, the second run of pdfetex 
>gets stuck. Second, how do I access \RotFont below?
>\definefont[RotFont][RegularBold] doesn't make
>it accessible since I run into an error.
>Finally, this example (from the metafun manual
>page 141, September 25 version) uses \vbox\bgroup...\egroup.
>Why not \vbox{...} which seems to work too?
>
>Thanks,
>
>Denis
>
>\setupcolors[state=start]
>\starttext
>
>\startMPenvironment
>%\setupbodyfont[loc,mt,ppl,pcr,10pt]
>%\setupbodyfont[loc,mt,10pt]
>\definefont[RotFont][RegularBold]
>\stopMPenvironment
>
>% doesn't work if \bfd is replaced by \RotFont

That's because the MPenvironment is invisible for the rest of tex, so you
need to define that font also in your document pramble. 

\useMPlibrary[txt]

will load some of the code presented in the metafun manual, you may want to
take a look in that file.

Concerning \bgroup and \egroup: \bgroup={ and \egroup=} so these are
equivalents. You may even say: \vbox{bla\egroup. What alternative is use
depends on (1) is I open/close a box in different macros [impossible with
{}] or (2) on how I think the macro def looks best [which is quite
personal].  

Hans 
-------------------------------------------------------------------------
                                                  Hans Hagen | PRAGMA ADE
                      Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
 tel: +31 (0)38 477 53 69 | fax: +31 (0)38 477 53 74 | www.pragma-ade.com
-------------------------------------------------------------------------