From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.comp.tex.context/4442
Path: main.gmane.org!not-for-mail
From: Hans Hagen <pragma@wxs.nl>
Newsgroups: gmane.comp.tex.context
Subject: Re: metafun
Date: Wed, 21 Mar 2001 16:30:15 +0100
Sender: owner-ntg-context@let.uu.nl
Message-ID: <3.0.6.32.20010321163015.0133b5b0@server-1>
References: <200103211423.PAA04140@hatchling.nlr.nl>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"
X-Trace: main.gmane.org 1035395108 25770 80.91.224.250 (23 Oct 2002 17:45:08 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Wed, 23 Oct 2002 17:45:08 +0000 (UTC)
Cc: ntg-context@ntg.nl
Original-To: "guravage m.a." <guravage@nlr.nl>
In-Reply-To: <200103211423.PAA04140@hatchling.nlr.nl>
Xref: main.gmane.org gmane.comp.tex.context:4442
X-Report-Spam: http://spam.gmane.org/gmane.comp.tex.context:4442

There are dozens of methods, like: 

% interface=en output=pdftex

\setupcolors[state=start]

\starttext 

\setMPtext{1}{\framed[width=2cm,height=2cm,frame=off]{Hi There}} 
\setMPtext{2}{\framed[width=2cm,height=2cm,frame=off]{Ha Michael}} 
\setMPtext{3}{\framed[width=2cm,height=2cm,frame=off]{Is he Dutch}} 
\setMPtext{4}{\framed[width=2cm,height=2cm,frame=off]{Or Yank}} 
\setMPtext{5}{\framed[width=2cm,height=2cm,frame=off]{Or \TeX\ user}} 

\startMPcode

def circle (expr s,xy) = 
  drawoptions () ; 
  picture img ; 
  img := image 
    ( picture pic ; pic := textext(s) ; 
      path pat ; pat := fullcircle xyscaled (urcorner pic-llcorner pic) ; 
      fill pat withcolor .8white ; 
      draw pat withcolor .8red ; 
      addto currentpicture also pic ; ) ;
  draw img shifted center img shifted xy ;   
enddef ; 

z1 = ( 10,100) ; z2 = ( 50,200) ; z3 = (100,50) ; 
z4 = (200,150) ; z5 = (300,100) ;

drawoptions (withpen pencircle scaled 2pt withcolor .8green) ; 

for i=1 upto 5 : 
  for j=i upto 5 : 
    draw z[i] -- z[j] ;
  endfor ; 
endfor ; 

circle (\MPbetex{1},z1) ; circle (\MPbetex{2},z2) ;
circle (\MPbetex{3},z3) ; circle (\MPbetex{4},z4) ;
circle (\MPbetex{5},z5) ; 

\stopMPcode

\stoptext 

Hans
-------------------------------------------------------------------------
                                  Hans Hagen | PRAGMA ADE | pragma@wxs.nl
                      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
-------------------------------------------------------------------------