Re: command for a MP graphic

[Marco Patzer <homerow@lavabit.com>]

[-- Attachment #1.1: Type: text/plain, Size: 1018 bytes --]

On 2013–05–07 Roland Thiers wrote:

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

Here's one way to do it:

\startuniqueMPgraphic{polygoneregulier}{sides}
  drawoptions (withpen pencircle scaled 2pt);
  numeric u ; u:=1*cm ;
  numeric n ; n:=\MPvar{sides};
  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;
  draw fullcircle scaled 6u withcolor blue;
\stopuniqueMPgraphic

%% \polyreg{<number>}
\define[1]\polyreg
  {\setupMPvariables[polygoneregulier][sides=#1]%%
   \uniqueMPgraphic{polygoneregulier}}

\starttext
  \dontleavehmode
  \dorecurse{9}{\polyreg\recurselevel\space}
\stoptext

You can extent this to be able to use key-value syntax or default
values if you like.

Marco

[-- Attachment #1.2: Digital signature --]
[-- Type: application/pgp-signature, Size: 490 bytes --]

[-- Attachment #2: Type: text/plain, Size: 485 bytes --]

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