Re: [NTG-context] question about MP drawing with dir

24 May 2018


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