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