q,r,s,m=0,rectfill,64,rnd::_::q+=1/s?"\^1\^c1"
for i=1,99do pset(i*4-s,i*i%142,6)end
for j=-3,5do line(0)for i=-2,2,1/64do
t=i+q%1z,x,y=3+t*4,2-t*8+j\3,sin((i%1)/2)+.5+j%3w,u,v=9/z,s+x*s/z,s-y*s/z
if(i+j\3==i\1and z>0)r(u-w,v,u+w,127)r(u-w*9,v,u+w*9,v+w)
line(u,v)end end goto _