How to define an array of colors in Metafun

How to define an array of colors in Metafun

[Otared Kavian]

Hi all,

I have a family of graphs to draw in Metapost and I would like to attribute a different color to each of them according to the value of a certain variable.
Assuming that the path mygraph(j) depends on the variable j, which is computed within a lua code and passed to Metapost, I wonder if it is possible to define an array of colors named mycolor, so that I could say

	draw mygraph(j) withcolor mycolor(j) ;

Here the variable j takes integer values (say between 1 and 10), and one would have defined mycolor(1) through mycolor(10).

Thanks in advance for any help: Otared K.
___________________________________________________________________________________
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://context.aanhet.net
archive  : https://bitbucket.org/phg/context-mirror/commits/
wiki     : http://contextgarden.net
___________________________________________________________________________________

Re: How to define an array of colors in Metafun

[Hans Hagen]

On 6/20/2020 4:48 PM, Otared Kavian wrote:
> Hi all,
> 
> I have a family of graphs to draw in Metapost and I would like to attribute a different color to each of them according to the value of a certain variable.
> Assuming that the path mygraph(j) depends on the variable j, which is computed within a lua code and passed to Metapost, I wonder if it is possible to define an array of colors named mycolor, so that I could say
> 
> 	draw mygraph(j) withcolor mycolor(j) ;
> 
> Here the variable j takes integer values (say between 1 and 10), and one would have defined mycolor(1) through mycolor(10).
\startMPpage
     string MyColors[] ;
     path   MyPaths [] ;

     MyPaths[1] := fullcircle scaled 3cm; MyColors[1] := "red";
     MyPaths[8] := fullsquare scaled 3cm; MyColors[8] := "green";

     draw MyPaths[1] withcolor MyColors[1] ;
     draw MyPaths[8] withcolor MyColors[8] ;
\stopMPpage


-----------------------------------------------------------------
                                           Hans Hagen | PRAGMA ADE
               Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
        tel: 038 477 53 69 | www.pragma-ade.nl | www.pragma-pod.nl
-----------------------------------------------------------------
___________________________________________________________________________________
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://context.aanhet.net
archive  : https://bitbucket.org/phg/context-mirror/commits/
wiki     : http://contextgarden.net
___________________________________________________________________________________