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

Thanks for the answers concerning my typo (ouline!),
\setupbodyfont[ber,pcr,10pt] (which works, but where
is my font configuration defined?), \RotFont (which
works now with \useMPlibrary[txt]), \bgroup/\egroup, etc.

However, I still can't manage to make TraceRot work.
Below is my exact example. I do not see tha characters
framed.

Denis

\useMPlibrary[txt]
\setupcolors[state=start]
\starttext

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

\startuseMPgraphic{followtokens}
  path RotPath; RotPath:=fullcircle scaled 5cm;
\stopuseMPgraphic

\startMPinclusions
  boolean TraceRot; TraceRot := true;
\stopMPinclusions

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

\def\followtokens#1%
  {\vbox\bgroup
   \MPtoks\emptytoks
   \resetMPdrawing
   \startMPdrawing
     \includeMPgraphic{followtokens}
     picture pic[];  numeric len[],n;n:=0;
    \stopMPdrawing
    \handletokens#1\with\processfollowingtoken
    \startMPdrawing
      numeric al,pl,at,wid,pos; pair ap,ad;
      al:=arclength RotPath;
      pl:=(al-len[n])/(n-1);
      for i=1 upto n:
        wid:=abs(xpart lrcorner pic[i]-xpart llcorner pic[i]);
        pos := len[i]-wid/2+(i-1)*pl;
        at := arctime pos of RotPath;
        ap := point at of RotPath;
        ad := direction at of RotPath;
        draw pic[i]
          shifted (-wid/2,0)
          rotated (angle(ad)) shifted ap;
      endfor;
    \stopMPdrawing
    \MPdrawingdonetrue
    \getMPdrawing
    \resetMPdrawing
    \egroup} 

\followtokens{We now follow some arbitrary path ...}

\stoptext