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