Calculate area of black sea from image Mathematica Stack Exchange