Not only, it is also true with the code below :

<= div class=3D"gmail_default" style=3D"font-family:verdana,sans-serif">\start= MPcode
=C2=A0 =C2=A0 path p, q, r, b ;
=C2=A0 =C2=A0 p =C2=A0:=3D uni= tsquare xyscaled (4cm,4cm) ;
=C2=A0 =C2=A0 z[0] =3D (2cm,0cm) ;
=C2= =A0 =C2=A0 z[1] =3D (2cm,4cm) ;
=C2=A0 =C2=A0 z[2] =3D (0cm,2cm) ;
= =C2=A0 =C2=A0 q :=3D llcorner p--z[0]--z[1]--z[2]--cycle ;
=C2=A0 =C2=A0= r :=3D unitsquare xyscaled (1cm,1cm) shifted(0,3cm) ;
=C2=A0 =C2=A0 b := =3D (0cm,0cm) -- lrcorner r -- lrcorner p -- cycle;
=C2=A0
=C2=A0 = =C2=A0 draw r anglestriped (1,45,2) withcolor green;
=C2=A0 =C2=A0 draw = b anglestriped (1,45,2) withcolor green;
=C2=A0 =C2=A0
=C2=A0 =C2=A0 = draw b withcolor darkgreen;
=C2=A0 =C2=A0 draw r withcolor darkgreen;=C2=A0 =C2=A0 draw p;
=C2=A0 =C2=A0 =C2=A0 =C2=A0
=C2=A0 =C2=A0 labe= l.llft("B", p) ;
=C2=A0 =C2=A0 label.lrt("C", p) ;=C2=A0 =C2=A0 label.ulft("A", p) ;
=C2=A0 =C2=A0 label.urt(&= quot;D", p) ;
=C2=A0 =C2=A0 label.urt("F", lrcorner r) ;<= br>=C2=A0 =C2=A0 label.lft("E", llcorner r) ;
=C2=A0 =C2=A0 la= bel.top("G", urcorner r) ;
=C2=A0
=C2=A0 \stopMPcode

Le=C2=A0dim. 2 oct. 2022 =C3=A0=C2=A011:21, Floris van Manen via ntg-co= ntext <ntg-context@ntg.nl> = a =C3=A9crit=C2=A0:

On 02/10/2022 10:55, Fabrice Couvreur via ntg-context wrote:
> Initially, there was a bug with maro numberstriped() and Hans suggeste= d
> another sensible approach to me, but you don't get the same shape = of the
> hatches depending on the dimensions of the squares.

some unexpected side effect show up when the unitsquare is xyscaled to a rectangle like (2.5cm,1cm)
it seems related to the angle chosen

e.g.

\startMPcode

path p, q, r, b ;
p=C2=A0 :=3D unitsquare xyscaled (4cm,4cm) ;
q :=3D unitsquare xyscaled (1cm,1cm) shifted(0,3cm) ;
r :=3D unitsquare xyscaled (2.5cm,1cm) shifted(1cm,3cm) ;
b :=3D unitsquare xyscaled (3cm,3cm) shifted(1cm,0) ;

draw r anglestriped (1,35,2) withcolor red;
draw q anglestriped (1,35,2) withcolor green;
draw b anglestriped (1,35,2) withcolor cyan;
draw p;
draw q;
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
___________________________________________________________________________= ________
If your question is of interest to others as well, please add an entry to t= he Wiki!

maillist : ntg-cont= ext@ntg.nl / https://www.ntg.nl/mailman/listinfo/= ntg-context
webpage=C2=A0 : https://www.pragma-ade.nl / http://context.aanhet.net
archive=C2=A0 : https://bitbucket.org/phg/context-m= irror/commits/
wiki=C2=A0 =C2=A0 =C2=A0: https://contextgarden.net
___________________________________________________________________________= ________