Hi, Is this what you are looking for?
On Sat, Oct 1, 2022 at 7:43 PM Fabrice Couvreur via ntg-context <ntg-context@ntg.nl> wrote: > > 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 ___________________________________________________________________________________ If your question is of interest to others as well, please add an entry to the Wiki! maillist : ntg-context@ntg.nl / https://www.ntg.nl/mailman/listinfo/ntg-context webpage : https://www.pragma-ade.nl / http://context.aanhet.net archive : https://bitbucket.org/phg/context-mirror/commits/ wiki : https://contextgarden.net ___________________________________________________________________________________