\definefont

["Denis B. Roegel" <Denis.Roegel@loria.fr>]

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