How many characters of code did you use?
560

Include your code here, if you'd like to show it off!
pal({[0]=1,15,143,138,11,139,3,131,132,5,6,7,7,7,12},1)cls()_=127n=rnd
x=32q=cos
y=32u=sin
d=0z=8w=64e=64l=line
for i=0,30do
a=n(_)b=n(_)r=n(9)for i=1,9do
circfill(a,b,r,i)r-=n(4)end
end
memcpy(0,6<<12,8192)::_::
cls(14)for i=0,_ do
a=x
b=y
r=d+(i/256)-.25p=_
for j=1,24do
a+=q(r)b+=u(r)h=sget(a&_,b&_)s=sin(t()/8)*4+64-(h-z)*64/j
if(s<p)l(i,p,i,s,h)p=s
end
end
b=btn()w+=b\2%2-b%2e+=b\8%2-b\4%2x+=q(d)/4y+=u(d)/8r=atan2(w-64,e-_)-.25m=t()for f=e,e+2do
j=u(m)/16l(w+q(r-j)*16,e+u(r-j)*16,w,f,13)l(w+q(r+.5+j)*16,e+u(r+.5+j)*16)end
d+=(w-64)/_/_*4
flip()goto _