# How to make a smooth electronic signature?

I have scanned a signature and that looks like this

I want to smooth it. I saw this post where they do this using Photoshop or GIMP.

I tried to replicate that in Mathematica so I can automatize the process since I have to run this on 50+ signatures.

What I did was

image = Import["path/to/my/image"];

ImageResize[Threshold[  GaussianFilter[ImageResize[image, Scaled[2]], 5], {"Hard", "Cluster"}], 400]


And got this

It looks smoother but also a little bit blurry. I think I got a better result with GIMP but it will take a lot of time if I do that by hand 50+ times.

This is what I got with GIMP

Any idea how to improve this?

==UPDATE==

I got something a little bit better

smooth[img_]:=Block[{data,nimg=ImageResize[Opening[Threshold[GaussianFilter[ImageResize[img,Scaled[2]],5],{"Hard","Cluster"}],DiskMatrix[2]],400]},data=ImageData[nimg];ImageAdd[nimg,Blur[ColorNegate@Erosion[DeleteSmallComponents[Dilation[ColorNegate@Binarize[Image[data/.{x_,y_,z_}/;EuclideanDistance[{x,y,z},data[[45,45]]]<0.05->{1,1,1}],.99],4]],3],5]]]


This gives me

Part of this came from this post.

• Please include the "desired" (GIMP) result image – Dr. belisarius Apr 12 '15 at 1:25
• Just in case GIMP has a batch mode – Dr. belisarius Apr 12 '15 at 1:32
• Added GIMP result. I'll take a look at GIMP batch mode but would like to do it with Mathematica too. – xtian777x Apr 12 '15 at 2:53

ColorConvert[