How many characters of code did you use?
557

Include your code here, if you'd like to show it off!
_set_fps(60)h=0m=64n=32r=rect::s::p={{0,0,m,m}}e=1u=0v=2g=0::_::cls() if(e>0)u,v=v,u q=p[#p]add(p,{q[1]-m*u,q[2]-m*v,q[3],q[4]})e=0s=#p-2 ?s ?h g+=(n+n*#p-g)/9for i=1,#p do q=p[i]a=q[1]b=q[2]c=q[3]d=q[4]f=g-n*i+(a-b)/2 if f<128then for j=0,c+d do k=c+d-j l=c-d t=a+b+j k,l=min(j,k+l)/2,min(j,k-l)/2r(t,f+k,t,f+k+n,2+(j<c and i+4or i+8)%14)r(t,f-l,t,f+k,2+i%14)end end c+=a d+=b if i==#p then q[1]+=u q[2]+=v if(btnp(4))e=1q[1]=max(a,x)q[2]=max(b,y)q[3]=min(c,z)-q[1]q[4]=min(d,w)-q[2] if(q[3]<8or q[4]<8)h=max(s,h)goto s end x,y,z,w=a,b,c,d end flip()goto _