Hi Hans,
When the rectangles are not identical, how to have = the same type of hatching in both ?
Thanks.

Fabrice

\star= ttext
=C2=A0\startlinecorrection[blank]
=C2=A0 =C2=A0 =C2=A0 \startmi= daligned
=C2=A0 =C2=A0 =C2=A0 =C2=A0 \switchtobodyfont[9pt]
=C2=A0 = =C2=A0 =C2=A0 =C2=A0 \startMPcode
=C2=A0 path p, q, r, b ;
=C2=A0 p = =C2=A0:=3D unitsquare xyscaled (4cm,4cm) ;
=C2=A0 z[0] =3D (2cm,0cm) ;=C2=A0 z[1] =3D (2cm,4cm) ;
=C2=A0 z[2] =3D (0cm,2cm) ;
=C2=A0 q := =3D llcorner p--z[0]--z[1]--z[2]--cycle ;
=C2=A0 r :=3D unitsquare xysca= led (1cm,1cm) shifted(0,3cm) ;
=C2=A0 b :=3D unitsquare xyscaled (3cm,3c= m) shifted(1cm,0) ;
=C2=A0
=C2=A0 draw r
=C2=A0 =C2=A0 =C2=A0with= pattern image (
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0draw (ll= corner 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=A0withpatternscale 1/8
= =C2=A0 =C2=A0 =C2=A0 =C2=A0withpen pencircle scaled 1pt
=C2=A0 =C2=A0 = =C2=A0 =C2=A0withcolor cyan;
=C2=A0 =C2=A0 =C2=A0 =C2=A0;
=C2=A0 =C2= =A0 =C2=A0draw b
=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 -- u= rcorner 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=A0withpatternscale 1/16
=C2=A0 =C2=A0 =C2=A0 = =C2=A0withpen pencircle scaled 1pt
=C2=A0 =C2=A0 =C2=A0 =C2=A0withcolor = cyan;
=C2=A0 =C2=A0 =C2=A0 =C2=A0;

=C2=A0 =C2=A0 =C2=A0 =C2=A0dra= w p;
=C2=A0 =C2=A0 =C2=A0 =C2=A0draw b;
=C2=A0 =C2=A0 =C2=A0 =C2=A0dr= aw r;
=C2=A0 =C2=A0 =C2=A0 =C2=A0
=C2=A0 =C2=A0 =C2=A0label.llft(&quo= t;D", p) ;
=C2=A0 =C2=A0 =C2=A0label.lrt("C", p) ;
=C2= =A0 =C2=A0 =C2=A0label.ulft("A", p) ;
=C2=A0 =C2=A0 =C2=A0labe= l.urt("B", p) ;
=C2=A0 =C2=A0 =C2=A0label.urt("P", l= rcorner r) ;
=C2=A0 =C2=A0 =C2=A0label.lft("Q", llcorner r) ;<= br>=C2=A0 =C2=A0 label.top("M", urcorner r) ;
=C2=A0
=C2= =A0 \stopMPcode
=C2=A0 =C2=A0 =C2=A0 \stopmidaligned
=C2=A0 =C2=A0 \s= toplinecorrection
\stoptext

Le=C2=A0mer. 28 sept. 20= 22 =C3=A0=C2=A021:05, Henning Hraban Ramm via ntg-context <ntg-context@ntg.nl> a =C3=A9crit=C2=A0:
=

Am 28.09.22 um 15:2= 9 schrieb Hans Hagen via ntg-context:
> On 9/28/2022 3:11 PM, Fabrice Couvreur via ntg-context wrote:
>> PS :=C2=A0What is the exact meaning of the word "blobs" = because my English
>> is average ?
> in order to get 'lines' you need to fill the two opposing corn= ers with
> "blobs of ink"

Otherwise, a BLOB is a =E2=80=9Cbinary large object=E2=80=9D, e.g. if you s= ave image
data to a database.

Hraban

___________________________________________________________________________= ________
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
___________________________________________________________________________= ________