k=0 function TIC()cls()for j=0,719,60 do for i=0,180,.5 do b=i*.017 z=50*math.sin(b+1.57)u=50*math.sin(b)n=k*.017+j*.017+b*2X=u*math.sin(n+1.57)Y=u*math.sin(n)X2=127+(Y-X)*.9Y2=67+z-(Y+X)/2X1=u*math.sin(.6+n+1.57)Y1=u*math.sin(.6+n)X3=127+(Y1-X1)*.9Y3=67+z-(Y1+X1)/2w=.6*(X+Y)+z/2v=.6*(X1+Y1)+z/2if((w<0)or(v<0))and j//360==1then line(X2,Y2,X3,Y3,15)end if((w>0)or(v>0))and j//360==0then line(X2,Y2,X3,Y3,7)end end end k=(k+5)%60 end