[NTG-context] withcolor does not apply when anglestriped

[Hans Hagen]

On 1/21/2022 12:01 AM, Damien Thiriet via ntg-context wrote:
> Hello list,
> 
> 
> I noticed today that anglestriped does not take
> withcolor into account. Givent this MWE
> 
> \starttext
> \startMPpage
> 
> path p;
> p:= fullsquare scaled 20;
> draw p anglestriped (1,60,4) withcolor red;
> 
> \stopMPpage
> \stoptext
> 
> p is in black, while I'd expect red
this will work:

   path p ; p:= fullsquare scaled 20;
   draw image ( draw p anglestriped (1,60,4) ) withcolor red;

but this is way more (meta)fun:

     draw (fullsquare scaled 4cm)
         withpattern image (
           draw (bottomboundary p) rotated -60
               withcolor "darkblue" ;
         )
         withpatternscale (1/10,1/10)
         withpen pencircle scaled 1mm
     ;

(examples in the test suite)

Hans

-----------------------------------------------------------------
                                           Hans Hagen | PRAGMA ADE
               Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
        tel: 038 477 53 69 | www.pragma-ade.nl | www.pragma-pod.nl
-----------------------------------------------------------------