25 May
2018
25 May
'18
5:41 p.m.
On 05/24/2018 09:33 PM, Hans Hagen wrote:
[...] 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
Many thanks for the improvement, Hans. Pablo -- http://www.ousia.tk