Hi,
Initially, there was a bug with maro numberstriped() and Hans suggested another sensible approach to me, but you don't get the same shape of the hatches depending on the dimensions of the squares.
Your solution works perfectly but I'm trying to understand the action of the parameters:
the first ?
the second represents the angle in degrees that the segments make
the third represents the gap between two segments
Thanks

Fabrice

Le sam. 1 oct. 2022 à 21:46, Mikael Sundqvist via ntg-context <ntg-context@ntg.nl> a écrit :

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
___________________________________________________________________________________