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

\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 := (0cm,0cm) -- lrcorner r -- lrcorner p -- cycle;
 
    draw r anglestriped (1,45,2) withcolor green;
    draw b anglestriped (1,45,2) withcolor green;
   
    draw b withcolor darkgreen;
    draw r withcolor darkgreen;
    draw p;
       
    label.llft("B", p) ;
    label.lrt("C", p) ;
    label.ulft("A", p) ;
    label.urt("D", p) ;
    label.urt("F", lrcorner r) ;
    label.lft("E", llcorner r) ;
    label.top("G", urcorner r) ;
 
  \stopMPcode

Le dim. 2 oct. 2022 à 11:21, Floris van Manen via ntg-context <ntg-context@ntg.nl> a écrit :


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 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  := unitsquare xyscaled (4cm,4cm) ;
q := unitsquare xyscaled (1cm,1cm) shifted(0,3cm) ;
r := unitsquare xyscaled (2.5cm,1cm) shifted(1cm,3cm) ;
b := 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 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
___________________________________________________________________________________