Re: About macro numberstriped ()

[Hans Hagen via ntg-context <ntg-context@ntg.nl>]

On 10/2/2022 11:20 AM, Floris van Manen via ntg-context wrote:
> 
> 
> On 02/10/2022 10:55, Fabrice Couvreur via ntg-context wrote:
>> Initially, there was a bug with maro numberstriped() and Hans 
>> suggested another sensible approach to me, but you don't get the same 
>> shape of the hatches depending on the dimensions of the squares.
> 
> some unexpected side effect show up when the unitsquare is xyscaled to a 
> rectangle like (2.5cm,1cm)
> it seems related to the angle chosen
> 
> e.g.
> 
> 
> 
> \startMPcode
> 
> path p, q, r, b ;
> p  := unitsquare xyscaled (4cm,4cm) ;
> q := unitsquare xyscaled (1cm,1cm) shifted(0,3cm) ;
> r := unitsquare xyscaled (2.5cm,1cm) shifted(1cm,3cm) ;
> b := unitsquare xyscaled (3cm,3cm) shifted(1cm,0) ;
> 
> draw r anglestriped (1,35,2) withcolor red;
> draw q anglestriped (1,35,2) withcolor green;
> draw b anglestriped (1,35,2) withcolor cyan;
> draw p;
> draw q;
> 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

for that you can patch mp-tool.mpxl (l 676):

         maximum := max (xpart llcorner mask, xpart urcorner mask, ypart 
llcorner mask, ypart urcorner mask) ;
         minimum := min (xpart llcorner mask, xpart urcorner mask, ypart 
llcorner mask, ypart urcorner mask) ;
         % a hack:
maximum := maximum + max(xpart urcorner shape, ypart urcorner shape);
minimum := minimum - max(xpart urcorner shape, ypart urcorner shape);

a bit overkill but it seems to work

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
-----------------------------------------------------------------
___________________________________________________________________________________
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
___________________________________________________________________________________