pal({5,1,12,4,137,9,141,2})t=0::_::?'⁶1⁶c'
t+=.1
for r=0,10do
for c=8,-1,-1do
srand(c+r*16+flr(t))x=r+c*16-t%1*16y=14*r+x/4h=30+sin(rnd()+t/(r+3))*15b=(1+r*3)%9fillp(flr(rnd(999)))rectfill(x,y,x+11,y-h,b+2+0x1c)fillp()
for i=0,6do
x-=1y-=1line(x,y,x,y-h,b)line(x,y-h,x+12,y-h,b+1)
end
end
end
goto _