function main( x, y, p )

  local r,g,b,a = bs_pixel_get( x, y )
  bs_pixel_set( x,y, 255-r,255-g,255-b, 255 )
  return 1
end