From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.comp.tex.context/3146
Path: main.gmane.org!not-for-mail
From: "Denis B. Roegel" <Denis.Roegel@loria.fr>
Newsgroups: gmane.comp.tex.context
Subject: it also gets stuck here
Date: Wed, 1 Nov 2000 23:01:15 +0100 (MET)
Sender: owner-ntg-context@let.uu.nl
Message-ID: <200011012201.XAA01846@bar.loria.fr>
NNTP-Posting-Host: coloc-standby.netfonds.no
X-Trace: main.gmane.org 1035393901 14603 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:3146
X-Report-Spam: http://spam.gmane.org/gmane.comp.tex.context:3146

The example below also gets stuck if I uncomment the 
\setupbodyfont line.

Denis

\setupcolors[state=start]
\starttext
\startMPenvironment
%\setupbodyfont[loc,mt,ppl,pcr,10pt]
\definefont[RotFont][RegularBold]
\stopMPenvironment

\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] := btex \bfd#1 etex;
\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

\stoptext