Source:
f=0 m=math p=m.pi/48 h=m.floor l=m.atan n=68 o=120 function TIC()f=f+.1 d=m.sin(f)e=m.cos(f)for t=-n,n do for s=-o,o do k=(s*s+t*t)/48+1 x=s/k y=t/k z=64/k-1 q=d*x+e*y u=e*x-d*y v=d*q-e*z pix(o+s,n+t,h(l(e*q+d*z,m.sqrt(u*u+v*v))/p)~h(l(u,v)/p))end end end