From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.comp.tex.context/3147
Path: main.gmane.org!not-for-mail
From: "Denis B. Roegel" <Denis.Roegel@loria.fr>
Newsgroups: gmane.comp.tex.context
Subject: \definefont
Date: Thu, 2 Nov 2000 02:02:13 +0100 (MET)
Sender: owner-ntg-context@let.uu.nl
Message-ID: <200011020102.CAA03300@bar.loria.fr>
NNTP-Posting-Host: coloc-standby.netfonds.no
X-Trace: main.gmane.org 1035393901 14604 80.91.224.250 (23 Oct 2002 17:25:01 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Wed, 23 Oct 2002 17:25:01 +0000 (UTC)
Cc: roegel@lorraine.loria.fr
Original-To: ntg-context@ntg.nl
Xref: main.gmane.org gmane.comp.tex.context:3147
X-Report-Spam: http://spam.gmane.org/gmane.comp.tex.context:3147

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