* command for a MP graphic
@ 2013-05-07 7:30 Roland Thiers
2013-05-07 7:51 ` Marco Patzer
0 siblings, 1 reply; 7+ messages in thread
From: Roland Thiers @ 2013-05-07 7:30 UTC (permalink / raw)
To: mailing list for ConTeXt users
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
___________________________________________________________________________________
^ permalink raw reply [flat|nested] 7+ messages in thread
* Re: command for a MP graphic
2013-05-07 7:30 command for a MP graphic Roland Thiers
@ 2013-05-07 7:51 ` Marco Patzer
2013-05-07 10:55 ` Roland Thiers
2013-05-07 11:05 ` Wolfgang Schuster
0 siblings, 2 replies; 7+ messages in thread
From: Marco Patzer @ 2013-05-07 7:51 UTC (permalink / raw)
To: ntg-context
[-- 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
___________________________________________________________________________________
^ permalink raw reply [flat|nested] 7+ messages in thread
* Re: command for a MP graphic
2013-05-07 7:51 ` Marco Patzer
@ 2013-05-07 10:55 ` Roland Thiers
2013-05-07 11:05 ` Wolfgang Schuster
1 sibling, 0 replies; 7+ messages in thread
From: Roland Thiers @ 2013-05-07 10:55 UTC (permalink / raw)
To: mailing list for ConTeXt users
Le 7 mai 13 à 09:51, Marco Patzer a écrit :
> \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
Thanks a lot Marco ! I have to think carefully on your way : I don't
understand
all these commands yet.
Roland
___________________________________________________________________________________
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
___________________________________________________________________________________
^ permalink raw reply [flat|nested] 7+ messages in thread
* Re: command for a MP graphic
2013-05-07 7:51 ` Marco Patzer
2013-05-07 10:55 ` Roland Thiers
@ 2013-05-07 11:05 ` Wolfgang Schuster
2013-05-07 20:28 ` Roland Thiers
1 sibling, 1 reply; 7+ messages in thread
From: Wolfgang Schuster @ 2013-05-07 11:05 UTC (permalink / raw)
To: mailing list for ConTeXt users
Am 07.05.2013 um 09:51 schrieb Marco Patzer <homerow@lavabit.com>:
> 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}}
\define[1]\polyreg
{\uniqueMPgraphic{polygoneregulier}{sides=#1}}
Wolfgang
___________________________________________________________________________________
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
___________________________________________________________________________________
^ permalink raw reply [flat|nested] 7+ messages in thread
* Re: command for a MP graphic
2013-05-07 11:05 ` Wolfgang Schuster
@ 2013-05-07 20:28 ` Roland Thiers
2013-05-08 4:56 ` Wolfgang Schuster
0 siblings, 1 reply; 7+ messages in thread
From: Roland Thiers @ 2013-05-07 20:28 UTC (permalink / raw)
To: mailing list for ConTeXt users
≥
Le 7 mai 13 à 13:05, Wolfgang Schuster a écrit :
>
> Am 07.05.2013 um 09:51 schrieb Marco Patzer <homerow@lavabit.com>:
>
>> 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}}
>
>
> \define[1]\polyreg
> {\uniqueMPgraphic{polygoneregulier}{sides=#1}}
>
> Wolfgang
Thank you very much for this precision, Wolfgang. I tried with two
variables and it works with this
syntax :
\startuniqueMPgraphic{polygoneregulier}
numeric u ; u:=\MPvar{unite}*cm ;
numeric n ; n:=\MPvar{sides};
rest of the code
\stopuniqueMPgraphic
\define[2]\polyreg
{\setupMPvariables[polygoneregulier][unite,sides]
\uniqueMPgraphic{polygoneregulier}{sides=#1,unite=#2}}
\starttext
%\uniqueMPgraphic{polygoneregulier}{unite=2,sides=4}
\polyreg{6}{0.5}
\stoptext
I did not find any détails on \MPvar et \setupMPvariables on the wiki,
however
Roland
> ___________________________________________________________________________________
> 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
> ___________________________________________________________________________________
___________________________________________________________________________________
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
___________________________________________________________________________________
^ permalink raw reply [flat|nested] 7+ messages in thread
* Re: command for a MP graphic
2013-05-07 20:28 ` Roland Thiers
@ 2013-05-08 4:56 ` Wolfgang Schuster
2013-05-08 6:22 ` Roland Thiers
0 siblings, 1 reply; 7+ messages in thread
From: Wolfgang Schuster @ 2013-05-08 4:56 UTC (permalink / raw)
To: mailing list for ConTeXt users
Am 07.05.2013 um 22:28 schrieb Roland Thiers <roland.thiers@gmail.com>:
> Thank you very much for this precision, Wolfgang. I tried with two variables and it works with this
> syntax :
>
> \startuniqueMPgraphic{polygoneregulier}
> numeric u ; u:=\MPvar{unite}*cm ;
> numeric n ; n:=\MPvar{sides};
> rest of the code
> \stopuniqueMPgraphic
>
> \define[2]\polyreg
> {\setupMPvariables[polygoneregulier][unite,sides]
> \uniqueMPgraphic{polygoneregulier}{sides=#1,unite=#2}}
You can define the command as
\define[2]\polyreg
{\setupMPvariables[polygoneregular][sides=#1,unite=#2]%
\uniqueMPgraphic{polygoneregular}}
where the variables are set with the \settupMPvariables command or as
\define[2]\polyreg
{\uniqueMPgraphic{polygoneregular}{sides=#1,unite=#2}}
where the variables are set in the optional argument for \uniqueMPgraphic.
> \starttext
> %\uniqueMPgraphic{polygoneregulier}{unite=2,sides=4}
> \polyreg{6}{0.5}
> \stoptext
>
> I did not find any détails on \MPvar et \setupMPvariables on the wiki, however
Both commands are mentioned in the metafun [1] manual.
[1] http://www.pragma-ade.nl/show-man-7.htm
Wolfgang
___________________________________________________________________________________
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
___________________________________________________________________________________
^ permalink raw reply [flat|nested] 7+ messages in thread
* Re: command for a MP graphic
2013-05-08 4:56 ` Wolfgang Schuster
@ 2013-05-08 6:22 ` Roland Thiers
0 siblings, 0 replies; 7+ messages in thread
From: Roland Thiers @ 2013-05-08 6:22 UTC (permalink / raw)
To: mailing list for ConTeXt users
Le 8 mai 13 à 06:56, Wolfgang Schuster a écrit :
>
> Am 07.05.2013 um 22:28 schrieb Roland Thiers
> <roland.thiers@gmail.com>:
>
>> Thank you very much for this precision, Wolfgang. I tried with two
>> variables and it works with this
>> syntax :
>>
>> \startuniqueMPgraphic{polygoneregulier}
>> numeric u ; u:=\MPvar{unite}*cm ;
>> numeric n ; n:=\MPvar{sides};
>> rest of the code
>> \stopuniqueMPgraphic
>>
>> \define[2]\polyreg
>> {\setupMPvariables[polygoneregulier][unite,sides]
>> \uniqueMPgraphic{polygoneregulier}{sides=#1,unite=#2}}
>
> You can define the command as
>
> \define[2]\polyreg
> {\setupMPvariables[polygoneregular][sides=#1,unite=#2]%
> \uniqueMPgraphic{polygoneregular}}
>
> where the variables are set with the \settupMPvariables command or as
>
> \define[2]\polyreg
> {\uniqueMPgraphic{polygoneregular}{sides=#1,unite=#2}}
>
> where the variables are set in the optional argument for
> \uniqueMPgraphic.
>
>> \starttext
>> %\uniqueMPgraphic{polygoneregulier}{unite=2,sides=4}
>> \polyreg{6}{0.5}
>> \stoptext
>>
>> I did not find any détails on \MPvar et \setupMPvariables on the
>> wiki, however
>
> Both commands are mentioned in the metafun [1] manual.
>
> [1] http://www.pragma-ade.nl/show-man-7.htm
>
> Wolfgang
Thank you Wolfgang for the correction of the syntax. I bought the
Metafun manual and began to work with it.
Great !
Roland
> ___________________________________________________________________________________
> 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
> ___________________________________________________________________________________
___________________________________________________________________________________
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
___________________________________________________________________________________
^ permalink raw reply [flat|nested] 7+ messages in thread
end of thread, other threads:[~2013-05-08 6:22 UTC | newest]
Thread overview: 7+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2013-05-07 7:30 command for a MP graphic Roland Thiers
2013-05-07 7:51 ` Marco Patzer
2013-05-07 10:55 ` Roland Thiers
2013-05-07 11:05 ` Wolfgang Schuster
2013-05-07 20:28 ` Roland Thiers
2013-05-08 4:56 ` Wolfgang Schuster
2013-05-08 6:22 ` Roland Thiers
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).