I just tried but I got an empty file...
Do we agree that I h= ave to replace the two lines with the other two ?
Regarding what you pro= posed, how to get the same type of hatching in both figures ?

=C2= =A0\startMPcode
=C2=A0 =C2=A0 path p, q, r, b ;
=C2=A0 =C2=A0 p =C2= =A0:=3D unitsquare 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 =C2=A0draw r
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0withpattern= image (
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0draw (llcorner = unitsquare -- urcorner unitsquare) scaled 5mm ;
=C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0% how to get the corner dots
=C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0)
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0withpatternscale 1/= 4
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0withpen pencircle scaled 1bp
=C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0withcolor green
=C2=A0 =C2=A0 =C2=A0;
= =C2=A0 =C2=A0 draw b
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0withpattern image= (
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0draw (llcorner unitsq= uare -- urcorner unitsquare) scaled 5mm ;
=C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0 =C2=A0% how to get the corner dots
=C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0)
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0withpatternscale 1/16=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0withpen pencircle scaled 1bp
=C2=A0 = =C2=A0 =C2=A0 =C2=A0 =C2=A0withcolor green
=C2=A0 =C2=A0 =C2=A0;
=C2= =A0 =C2=A0
=C2=A0 =C2=A0
=C2=A0 =C2=A0 draw b =C2=A0withpen pencircle= scaled 1bp =C2=A0withcolor darkgreen;
=C2=A0 =C2=A0 draw r =C2=A0withpe= n pencircle scaled 1bp =C2=A0withcolor darkgreen;
=C2=A0 =C2=A0 draw p;<= br>=C2=A0 =C2=A0 =C2=A0 =C2=A0
=C2=A0 =C2=A0 label.llft("B", p= ) ;
=C2=A0 =C2=A0 label.lrt("C", p) ;
=C2=A0 =C2=A0 label.u= lft("A", p) ;
=C2=A0 =C2=A0 label.urt("D", p) ;
= =C2=A0 =C2=A0 label.urt("F", lrcorner r) ;
=C2=A0 =C2=A0 label= .lft("E", llcorner r) ;
=C2=A0 =C2=A0 label.top("G",= urcorner r) ;
=C2=A0
=C2=A0 \stopMPcode

Le=C2=A0dim. 2 oct= . 2022 =C3=A0=C2=A011:52, Hans Hagen via ntg-context <ntg-context@ntg.nl> a =C3=A9crit=C2=A0:

On 10/2/2022 11:20 AM, F= loris van Manen via ntg-context wrote:
>
>
> On 02/10/2022 10:55, Fabrice Couvreur via ntg-context wrote:
>> Initially, there was a bug with maro numberstriped() and Hans
>> suggested another sensible approach to me, but you don't get t= he 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

for that you can patch mp-tool.mpxl (l 676):

=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0maximum :=3D max (xpart llcorner mask, xp= art urcorner mask, ypart
llcorner mask, ypart urcorner mask) ;
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0minimum :=3D min (xpart llcorner mask, xp= art urcorner mask, ypart
llcorner mask, ypart urcorner mask) ;
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0% a hack:
maximum :=3D maximum + max(xpart urcorner shape, ypart urcorner shape);
minimum :=3D minimum - max(xpart urcorner shape, ypart urcorner shape);

a bit overkill but it seems to work

Hans

-----------------------------------------------------------------
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0Hans Hagen | PRAGMA ADE
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0Ridderstraat 27 | 80= 61 GH Hasselt | The Netherlands
=C2=A0 =C2=A0 =C2=A0 =C2=A0 tel: 038 477 53 69 | www.pragma-ade.nl | www.= pragma-pod.nl
-----------------------------------------------------------------
___________________________________________________________________________= ________
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
___________________________________________________________________________= ________

--00000000000012b65105ea0b300d-- --===============9151617279088880634== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: base64 Content-Disposition: inline X19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19f X19fX19fX19fX19fX19fX19fX19fX19fX18KSWYgeW91ciBxdWVzdGlvbiBpcyBvZiBpbnRlcmVz dCB0byBvdGhlcnMgYXMgd2VsbCwgcGxlYXNlIGFkZCBhbiBlbnRyeSB0byB0aGUgV2lraSEKCm1h aWxsaXN0IDogbnRnLWNvbnRleHRAbnRnLm5sIC8gaHR0cHM6Ly93d3cubnRnLm5sL21haWxtYW4v bGlzdGluZm8vbnRnLWNvbnRleHQKd2VicGFnZSAgOiBodHRwczovL3d3dy5wcmFnbWEtYWRlLm5s IC8gaHR0cDovL2NvbnRleHQuYWFuaGV0Lm5ldAphcmNoaXZlICA6IGh0dHBzOi8vYml0YnVja2V0 Lm9yZy9waGcvY29udGV4dC1taXJyb3IvY29tbWl0cy8Kd2lraSAgICAgOiBodHRwczovL2NvbnRl eHRnYXJkZW4ubmV0Cl9fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19f X19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fCg== --===============9151617279088880634==--