![](https://secure.gravatar.com/avatar/46562c7d27388490d62e8d7a5bc960dd.jpg?s=120&d=mm&r=g)
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 -----------------------------------------------------------------