Sorry, I was a little too enthusiastic, here here is the code :
> Le 28 avr. 2022 à 08:41, Fabrice L <fabrice.al...@gmail.com> a écrit :
>
> Hi Keith,
>
>> Le 28 avr. 2022 à 06:05, Keith McKay via ntg-context <ntg-context@ntg.nl
>> <mailto:ntg-context@ntg.nl>> a écrit :
>>
>> Hi,
>>
>> In the MWE below I define an rgb colour, myColor1, using random numbers for
>> the r, g and b components. I then use it to fill a unitsquare the size of
>> the page, which works as expected. In the loop that follows I then use the
>> defined colour, myColor1, along with white and the variable r to create
>> shades of myColor1 as in the MWE below. However, myColor1 is not recognised
>> in the loop and seems to be replaced by black, although if I use a
>> predefined colour, in this case BurntSienna from the crayola collection, it
>> works as expected. I have tried a number of ways to get this to work as
>> shown in the code but without success. I would be grateful for any
>> suggestions.
>>
>> Best Wishes
>>
>> Keith McKay
>>
>> %%%%%%%%%%%%%%%%%%%%MWE%%%%%%%%%%%%%
>> \setuppapersize[A4,portrait]
>> \usecolors[crayola]
>> \starttext
>> \dorecurse{10}{
>> \startMPpage
>> StartPage;
>> \definecolor[name="myColor1", r = uniformdeviate(1), g = uniformdeviate(1),
>> b = uniformdeviate(1) ] ;
>> fill unitsquare xscaled PaperWidth yscaled PaperHeight withcolor "myColor1";
>> for i =2 step 2 until 10:
>> r := i/10;
>> fill unitsquare xscaled 5cm yscaled .5cm shifted (1cm,i*cm)
>> withcolor(r[\MPcolor{BurntSienna},white]);
>> fill unitsquare xscaled 5cm yscaled .5cm shifted (7cm,i*cm)
>> withcolor(r[\MPcolor{myColor1}, white]);
>> fill unitsquare xscaled 5cm yscaled .5cm shifted (13cm,i*cm)
>> withcolor(r[\MPcolor{"myColor1"}, white]);
>> %fill unitsquare xscaled 5cm yscaled .5cm shifted (13cm,i*cm)
>> withcolor(r[myColor1 , white]); This line causes an error.
>> endfor;
>> StopPage;
>> \stopMPpage
>> }
>>
>> \stoptext
>> %%%%%%%%%%%%%%%%%%%%%%%%%%%end MWE%%%%%%%%%%%
>>
>
> Here is a solution, with works here, defining in another way the color «
> myColor »:
>
> \setuppapersize[A4,portrait]
> \usecolors[crayola]
> \starttext
> \dorecurse{2}{
> \startMPpage
> StartPage;
> color myColor ;
> myColor := (uniformdeviate(1),uniformdeviate(1),uniformdeviate(1));
> fill unitsquare xscaled PaperWidth yscaled PaperHeight withcolor myColor;
> for i =2 step 2 until 10:
> r := i/10;
> fill unitsquare xscaled 5cm yscaled .5cm shifted (1cm,i*cm)
> withcolor(r[\MPcolor{BurntSienna},white]);
> fill unitsquare xscaled 5cm yscaled .5cm shifted (7cm,i*cm)
> withcolor(r[\MPcolor{myColor1}, white]);
> fill unitsquare xscaled 5cm yscaled .5cm shifted (13cm,i*cm)
> withcolor(r[\MPcolor{"myColor1"}, white]);
> %fill unitsquare xscaled 5cm yscaled .5cm shifted (13cm,i*cm)
> withcolor(r[myColor1 , white]); This line causes an error.
> endfor;
> StopPage;
> \stopMPpage
> }
>
> \stoptext
I forgot to remove « myColor1 » from the others parts of the code.
\setuppapersize[A4,portrait]
\usecolors[crayola]
\starttext
\dorecurse{10}{
\startMPpage
StartPage;
color myColor ;
myColor := (uniformdeviate(1),uniformdeviate(1),uniformdeviate(1));
fill unitsquare xscaled PaperWidth yscaled PaperHeight withcolor myColor;
for i =2 step 2 until 10:
r := i/10;
fill unitsquare xscaled 5cm yscaled .5cm shifted (1cm,i*cm)
withcolor(r[\MPcolor{BurntSienna},white]);
fill unitsquare xscaled 5cm yscaled .5cm shifted (7cm,i*cm)
withcolor(r[myColor, white]);
fill unitsquare xscaled 5cm yscaled .5cm shifted (13cm,i*cm)
withcolor(r[myColor, white]);
%fill unitsquare xscaled 5cm yscaled .5cm shifted (13cm,i*cm)
withcolor(r[myColor1 , white]); This line causes an error.
endfor;
StopPage;
\stopMPpage
}
\stoptext
>
> Fabrice.
>>
>>
>> ___________________________________________________________________________________
>> If your question is of interest to others as well, please add an entry to
>> the Wiki!
>>
>> maillist : ntg-context@ntg.nl <mailto:ntg-context@ntg.nl> /
>> http://www.ntg.nl/mailman/listinfo/ntg-context
>> <http://www.ntg.nl/mailman/listinfo/ntg-context>
>> webpage : http://www.pragma-ade.nl <http://www.pragma-ade.nl/> /
>> http://context.aanhet.net <http://context.aanhet.net/>
>> archive : https://bitbucket.org/phg/context-mirror/commits/
>> <https://bitbucket.org/phg/context-mirror/commits/>
>> wiki : http://contextgarden.net <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://context.aanhet.net
archive : https://bitbucket.org/phg/context-mirror/commits/
wiki : http://contextgarden.net
___________________________________________________________________________________
