Hi,

Fabrice, you have a problem with the definition of the path b: this path include q and b. To see this, replace your lines with :

           draw q anglestriped (1,45,2) withcolor cyan;
           draw b anglestriped (1,45,2) withcolor red;

And you will see that the path b is drawn twice : once in red, once in cyan. So if you change your instructions to :

           draw q anglestriped (1,45,2) withcolor cyan;
           draw r anglestriped (1,45,2) withcolor cyan;

This will correct the problem, because each path is now drawn only once. 

Fabrice. 

Le 20 nov. 2023 à 14:47, Fabrice Couvreur <fabrice1.couvreur@gmail.com> a écrit :

Hi Otared,
It's true that the color seems identical.
Thanks.
Fabrice

Le dim. 19 nov. 2023 à 21:55, Otared Kavian <otared@gmail.com> a écrit :
Hi Fabrice,

It seems to me the colors are the same, although they may appear different at first sight because the « with » of the lines are different (the width is larger in the lower rectangle).

I attach the PDF created with your code.

Best regards: Otared



On 19 Nov 2023, at 18:56, Fabrice Couvreur <fabrice1.couvreur@gmail.com> wrote:

Hi,
I don't understand why the hatching of the two rectangles is not the same color. 
Thanks for your help.
Fabrice

\starttext
        \setupbodyfont[8pt]
        \startMPcode
           path p, q, r, b ;
         
           z[0] = (2cm,0cm) ;
           z[1] = (2cm,2cm) ;
           z[2] = (0cm,2cm) ;

           p := unitsquare xyscaled (9cm, 5cm) ;
           q := llcorner p--z[0]--z[1]--z[2]--cycle ;
           r := unitsquare xyscaled (7cm,3cm) shifted(2cm,2cm) ;
           b := z[2]--z[1]--ulcorner r--urcorner p--lrcorner r--z[1]--
           z[0]--llcorner p--cycle ;
           
         
           draw b anglestriped (1,45,2) withcolor cyan;
           draw q anglestriped (1,45,2) withcolor cyan;
           
           draw p ;
           
           label.llft("A", p) ;
           label.lrt("D", p) ;
           label.ulft("B", p) ;
           label.urt("C", p) ;
           label.lft("M", z[2]) ;
           label.ulft("N", z[1]) ;
           label.bot("P", z[0]) ;
           label.top("J", ulcorner r) ;
           label.rt("I", lrcorner r) ;
           label.bot(btex $x$ etex,(llcorner p+z[0])/2);
           label.lft(btex $x$ etex,(llcorner p+z[2])/2);
        \stopMPcode

\stoptext

___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / https://mailman.ntg.nl/mailman3/lists/ntg-context.ntg.nl
webpage  : https://www.pragma-ade.nl / https://context.aanhet.net (mirror)
archive  : https://github.com/contextgarden/context
wiki     : https://wiki.contextgarden.net
___________________________________________________________________________________

Otared Kavian
Phone: +33 6 88 26 70 95




___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / https://mailman.ntg.nl/mailman3/lists/ntg-context.ntg.nl
webpage  : https://www.pragma-ade.nl / https://context.aanhet.net (mirror)
archive  : https://github.com/contextgarden/context
wiki     : https://wiki.contextgarden.net
___________________________________________________________________________________
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / https://mailman.ntg.nl/mailman3/lists/ntg-context.ntg.nl
webpage  : https://www.pragma-ade.nl / https://context.aanhet.net (mirror)
archive  : https://github.com/contextgarden/context
wiki     : https://wiki.contextgarden.net
___________________________________________________________________________________