Stereo Tartan 256b

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