function load_image()

    --load the image
    me = {}
    for j=0,8 do
     row={}
        for i=0,8 do
                    add(row,{
                     spr=j*16+i,
                     x=i*8+30,
                     y=j*8+20,
                     a=rnd(150),
                     b=130,
                    })
  end
  add(me, row)

    end

end

function magnet()
  local step=1

        for j=1,8 do

                for i=1,8 do
                  local p = me[j][i]
                  x= p.a
                  y= p.b
                        if p.a > p.x then
                            p.a-=step
                        end
                        if p.a < p.x then
                            p.a+=step
                        end
                        if p.b > p.y then
                            p.b-=step
                        end
                        if p.b < p.y then
                            p.b+=step
                        end

end