7
$\begingroup$

I have as example the image below and would like to improve it in such a way that mainly the text is visible and the noisy background is removed.

How can that be done best?enter image description here

Improve this question
$\endgroup$
3

2 Answers 2

Reset to default
13
$\begingroup$

Just to make a functional form of nikie's answer, which can't be marked as a duplicate as it's on another SE site,

improve[img_] :=
  ImageCrop@
  Binarize@Image[
    ImageData[img]/ImageData[Closing[img, DiskMatrix[5]]]]

improve@Import["https://i.stack.imgur.com/vWX65.jpg"]

enter image description here

Improve this answer
$\endgroup$
5
  • 1
    $\begingroup$ Great ... incredible $\endgroup$
    – mrz
    Feb 3, 2016 at 14:29
  • $\begingroup$ Don't forget to follow nikie's link above and upvote that post! $\endgroup$
    – Jason B.
    Feb 3, 2016 at 14:30
  • 2
    $\begingroup$ Here might be a good place to point out the existence of LocalAdaptiveBinarize. Its documentation has an example with highly variable text contrast, just in case source material is less than stellar in quality. $\endgroup$
    – kirma
    Feb 3, 2016 at 14:47
  • 1
    $\begingroup$ @kirma, I had trouble getting a decent image that way. I used Manipulate like in the example, but I can't get rid of the shading in the corner: LocalAdaptiveBinarize[ Import["http://i.stack.imgur.com/vWX65.jpg"], 23, {0.6, 0.43, 0.25}] $\endgroup$
    – Jason B.
    Feb 3, 2016 at 15:05
  • $\begingroup$ @JasonB Like most heuristic image processing algorithms, sometimes it works, sometimes not... $\endgroup$
    – kirma
    Feb 3, 2016 at 15:27
5
$\begingroup$

If a grayscale image is needed, we can do as in Jason answer but replacing the binarize with an ImageAdjust.

src = ColorConvert[Import@"https://i.stack.imgur.com/vWX65.jpg", "Grayscale"];
white = Closing[src, DiskMatrix[5]];
imgWithUniformBkg = Image[ImageData[src]/ImageData[white]];
ImageAdjust@imgWithUniformBkg

But this results in an image that is too light:

enter image description here

A much better results is found after using a manipulate to explore the possible settings:

Manipulate[
    Labeled[ImageAdjust[imgWithUniformBkg, Append[cb, g]], Append[cb, g]], 
    {cb, {-1, -1}, {1, 1}}, {g, 1, 10}]

enter image description here

Improve this answer
$\endgroup$
6
  • 1
    $\begingroup$ Gustavo, isn't this exactly the same method, from the same source, with the same implementation shown by Jason in his previous answer above? $\endgroup$
    – MarcoB
    Feb 3, 2016 at 14:37
  • 1
    $\begingroup$ I had to add the ImageAdjust with {0, 0.5, 10} parameters in order to get good results. $\endgroup$
    – Gustavo Delfino
    Feb 3, 2016 at 14:39
  • 1
    $\begingroup$ Jason answered while I was also writing my response. Yes it is almost the same (mine is not binarized), so I guess that I should delete this answer. $\endgroup$
    – Gustavo Delfino
    Feb 3, 2016 at 14:45
  • 1
    $\begingroup$ Whether to delete it or not is of course up to you. Perhaps you could differentiate it further? Your solution returns a grayscale image rather than a black and white one, perhaps you could point that out; maybe your need for ImageAdjust stemmed from there? $\endgroup$
    – MarcoB
    Feb 3, 2016 at 14:51
  • $\begingroup$ I rewrote my answer with an emphasis on the ImageAdjust $\endgroup$
    – Gustavo Delfino
    Feb 3, 2016 at 15:54

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Not the answer you're looking for? Browse other questions tagged or ask your own question.