Get better binarized image

Have you seen that LocalAdaptiveBinarize has some more possible arguments?

LocalAdaptiveBinarize[pic, 4.5, {.72, .55, 0}]

enter image description here

We can use the highpass filter:

hp = HighpassFilter[pic, 0.12]
Binarize[hp, 0.01]

with the result

enter image description here

For comparison, that is what one can achieve with Photoshop without using any local adjustments

enter image description here

Of course, manual local adjustments can make wonders!

Related