[NTG-context] curved

14 Dec 2021

      Hi Hraban,

follow up on chat ...

\starttext

\startMPcode % {doublefun}

mfun_bend_tolerance := 0.002; % double : 131/65536
mfun_bend_tolerance := 0.02 ; % scaled

vardef iscurved(expr p, i, tolerance) =
     save d, b, r ; boolean r ; r := true ;
     d :=     (xpart precontrol   i    of p) - (xpart postcontrol (i-1) 
of p) ;
     b := abs((xpart postcontrol (i-1) of p) - (xpart point       (i-1) 
of p) - d);
     if b <= tolerance :
         b := abs((xpart point i of p) - (xpart precontrol i of p) - d) ;
         if b <= tolerance :
             d :=     (ypart precontrol   i    of p) - (ypart 
postcontrol (i-1) of p) ;
             b := abs((ypart postcontrol (i-1) of p) - (ypart point 
   (i-1) of p) - d) ;
             if b <= tolerance :
                 b := abs((ypart point i of p) - (ypart precontrol i of 
p) - d) ;
                 if b <= tolerance :
                     r := false ;
                 fi ;
             fi ;
         fi ;
     fi ;
     r
enddef ;

path p ; p := fullcircle scaled 10cm ;
path q ; q := fullsquare scaled 10cm ;
path r ; r := fullsquare scaled 10cm randomized 1cm ;

draw p ; draw q ; draw r ;

message(iscurved(p,2,0.02));
message(iscurved(q,2,0.02));
message(iscurved(r,2,0.02));

\stopMPcode

\stoptext

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