Remove White Background from an Image and Make It Transparent
This function implements the reverse blend described by Mark Ransom, for an additional small but visible improvement: reverseBlend[img_Image, alpha_Image, bgcolor_] := With[ {c = ImageData[img], a = ImageData[alpha] + 0.0001, (* this is to minimize ComplexInfinitys and considerably improve performance *) bc = bgcolor}, ImageClip@ Image[Quiet[(c – bc (1 – a))/a, {Power::infy, Infinity::indet}] /. {ComplexInfinity … Read more