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
-----------------------------------------------------------------
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the
Wiki!
maillist : [email protected] / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage : http://www.pragma-ade.nl / http://context.aanhet.net
archive : https://bitbucket.org/phg/context-mirror/commits/
wiki : http://contextgarden.net
___________________________________________________________________________________
