Hi Hans,
Thank you for this solution which is an approach that I did not know.
Fabrice

PS : What is the exact meaning of the word "blobs" because my English is average ?

Le mar. 27 sept. 2022 à 22:04, Hans Hagen via ntg-context <ntg-context@ntg.nl> a écrit :
On 9/27/2022 7:49 PM, Fabrice Couvreur via ntg-context wrote:
> Hello,
> I notice a strange behavior of the macro numberstriped ( ).
> Thanks.
> Fabrice
>
> \starttext
>   \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 p ;
>    draw r withcolor red;
>    draw r numberstriped (.25,20,5) withcolor magenta ;
>    draw b numberstriped (.25,20,5) withcolor magenta ;
>    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
> \stoptext
you need to find a volunteer to make the pattern have the two corner  blobs

\starttext

\startMPcode
     path p, q, r, b ;
     path p ; p  := unitsquare xyscaled (4cm,4cm) ;
     draw p ;
     draw p
         withpattern image (
             draw (llcorner unitsquare -- urcorner unitsquare) scaled 5mm ;
             % how to get the corner dots
         )
         withpatternscale 1/16
         withpen pencircle scaled 1mm
     ;
\stopMPcode

\stoptext


-----------------------------------------------------------------
                                           Hans Hagen | PRAGMA ADE
               Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
        tel: 038 477 53 69 | www.pragma-ade.nl | www.pragma-pod.nl
-----------------------------------------------------------------
___________________________________________________________________________________
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
___________________________________________________________________________________