pal({-16,-14,2,14,15,7,6,12,-4,1,-15},1)w=128r=rnd
a=abs
for y=0,w do
for x=0,w do
pset(x,y,r(12))end
end::_::x=r(w)y=r(w)u=r(3)\1-1v=r(3)\1-1e=pget((x-u)%w,(y-v)%w)f=pget((x+u)%w,(y+v)%w)d=f-e
b=a(d)if(b==6)d=r{-6,6}
if(b>6)d=(12-b)*sgn(-d)
pset(x,y,(e+d/2)%12)goto _





