m=math s=m.sin c=m.cos t=0
function TIC()cls(14)t=t+0.1
for i=0,240 do G=80
x=G+i*c(i)
y=G+i*s(i)
r=10+10*s(t+i)
P=r*c(0) T=r*s(0)
for j=0,6.3,.3 do
R=r*c(j) S=r*s(j)
tri(x,y,x+R,y+S,x+P,y+T,j*s(t/9))P=R T=S
end
end
end
220 bytes
m=math s=m.sin c=m.cos C=circ t=0
function TIC()cls(14)t=t+0.02
for i=0,255,.5 do
x=148+i*c(i+t)+10*s(i)
y=84+i*s(i+t)+10*s(i)
r=15+i/100P=0T=r
for j=0,6.3,.1 do
R=r*c(j)S=r*s(j)tri(x,y,x+R,y+S,x+P,y+T,j+t%16)P=R T=S
end
C(x,y,R*.8,j)end end
242 bytes
t=0m=math s=m.sin c=m.cos C=circ
function TIC()cls(14)t=t+.02
clip(120*s(t),0,120,136)for i=0,255,.5 do
B=9*s(i)x=92+B+i*c(i+t)y=84+B+i*s(i+t)r=15+i/100P=0T=r
for j=0,6.3,.1 do
R=r*c(j)S=r*s(j)tri(x,y,x+R,y+S,x+P,y+T,j+t%16)P=R T=S
end C(x,y,R*.8,j)end end
256 bytes
c=math.cos t=0H=136
function TIC()cls(0)t=t+.1
for i=0,50,2 do G=80+(50-i)*c(t/3)/2x=G+i*c(i/3)
y=10+i*2S=i/10 for j=-i,i,6 do
xH=j*5tri(G+j,y, G+j-5,y-3,G+j-5,y+3,7-j/(i-3))end circ(x-3,y-3,S,t+i)end
for i=0,240 do line(i,H,i,H-50+10*c(i/55),12)end
end