::_::cls()w=cos(time()/9)w*=w
a=63p={a,0,0,a,a,a,0,0}for n=1,30do
s={1,-1,-1,1,1,1,-1,-1}for m=1,4do
r={}for i=1,8do
r[i]=p[i]*s[m+(i-1)\4]+64end
for i=1,4do
line(r[i],r[i+4],r[i%4+1],r[i%4+5],1+w*7)end
end
q={}for i=1,8do
q[i]=p[i]*(1-w)+p[i+1-((i%4)==0and 4or 0)]*w
end
p=q
end
flip()goto _