Hi,
I did this code to get a regular polygon with metafun, it works but I
would like to have an user command like \define or \def
to be able to choose the number of sides, n. I don't know how to do
that ...
\startbuffer[largeurdeslignes]
drawoptions (withpen pencircle scaled 2pt);
\stopbuffer
\startbuffer[polygoneregulier]
numeric u ; u:=1*cm ;
numeric n ; n:=7 ;
pair a[];
a[0]:=(0,3u);
path polygone[] ;
for i=1 upto n :
a[i]:=a[0] rotatedaround(origin,i*360/n) ;
polygone[i]:=a[i-1]--a[i];
draw polygone[i]; endfor;
\stopbuffer
\startbuffer[cercleunite]
draw fullcircle scaled 6u withcolor blue;
\stopbuffer
\define
\polyreg
{\processMPbuffer[largeurdeslignes,polygoneregulier,cercleunite]}
\starttext
\polyreg
\stoptext
Thanks, Roland Thiers
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the
Wiki!
maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage : http://www.pragma-ade.nl / http://tex.aanhet.net
archive : http://foundry.supelec.fr/projects/contextrev/
wiki : http://contextgarden.net
___________________________________________________________________________________
