Image Shadow Removal in Mathematica