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
     withpattern image (
             draw (llcorner unitsquare -- urcorner unitsquare) scaled 5mm ;
             % how to get the corner dots
       )
       withpatternscale 1/8
       withpen pencircle scaled 1pt
       withcolor cyan;
       ;
     draw b
       withpattern image (
             draw (llcorner unitsquare -- urcorner unitsquare) scaled 5mm ;
             % how to get the corner dots
       )
       withpatternscale 1/16
       withpen pencircle scaled 1pt
       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



Le mer. 28 sept. 2022 à 21:05, Henning Hraban Ramm via ntg-context <
ntg-context@ntg.nl> a écrit :

> Am 28.09.22 um 15:29 schrieb Hans Hagen via ntg-context:
> > On 9/28/2022 3:11 PM, Fabrice Couvreur via ntg-context wrote:
> >> PS : What 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 corners with
> > "blobs of ink"
>
> Otherwise, a BLOB is a “binary large object”, e.g. if you save image
> data to a database.
>
> Hraban
>
>
> ___________________________________________________________________________________
> 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
>
> ___________________________________________________________________________________
>