[NTG-context] question about MP drawing with dir

[Hans Hagen]

On 5/24/2018 9:01 PM, Pablo Rodriguez wrote:
> Dear Alan,
> 
> I have the following sample (as I wrote, this is addictive ;-)):
> 
>    \startMPpage
>      draw fullcircle scaled (.06TextWidth - .05LineHeight);
> 
>      for m=1 step 2 until 10 :
>          path s ; s := (dir30--dir150--dir315--dir90--dir225--cycle)
>              scaled m;
>          n := (m * 50) ;
>          o := (m / 5) ;
>          for i=0 upto n :
>            draw textext("\utfchar{"EB09}")
>              scaled (o * .025) shifted point (i/n*length s) of s ;
>          endfor
>      endfor
>    \stopMPpage

reusing a picture is more efficient

\startMPpage
     draw fullcircle scaled (.06TextWidth - .05LineHeight);
     picture t ; t := textext("\cldcontext{utf.char(0xEB09)}") ;
     for m=1 step 2 until 10 :
         path s ; s := (dir30--dir150--dir315--dir90--dir225--cycle) 
scaled m;
         n := (m * 50) ;
         o := (m / 5) ;
         for i=0 upto n :
           draw t scaled (o * .025) shifted point (i/n*length s) of s ;
         endfor
     endfor
\stopMPpage




-- 

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