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
___________________________________________________________________________________

Reply via email to