Hi,
Is this what you are looking for?
On Sat, Oct 1, 2022 at 7:43 PM Fabrice Couvreur via ntg-context
Hi Hans, When the rectangles are not identical, how to have the same type of hatching in both ? Thanks. Fabrice
\starttext \startlinecorrection[blank] \startmidaligned \switchtobodyfont[9pt] \startMPcode path p, q, r, b ; p := unitsquare xyscaled (4cm,4cm) ; z[0] = (2cm,0cm) ; z[1] = (2cm,4cm) ; z[2] = (0cm,2cm) ; q := llcorner p--z[0]--z[1]--z[2]--cycle ; r := unitsquare xyscaled (1cm,1cm) shifted(0,3cm) ; b := unitsquare xyscaled (3cm,3cm) shifted(1cm,0) ;
draw r anglestriped (1,45,2) withcolor cyan; draw b anglestriped (1,45,2) withcolor cyan;
draw p; draw b; draw r;
label.llft("D", p) ; label.lrt("C", p) ; label.ulft("A", p) ; label.urt("B", p) ; label.urt("P", lrcorner r) ; label.lft("Q", llcorner r) ; label.top("M", urcorner r) ;
\stopMPcode \stopmidaligned \stoplinecorrection \stoptext
/Mikael