Re: metafun

[Hans Hagen <pragma@wxs.nl>]

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
-------------------------------------------------------------------------