SetDirectory["C:\\drorbn\\AcademicPensieve\\Classes\\17-1750-ShamelessMathematica"]

?PadLeft

?Export

BBB[m_?MatrixQ] := Module[{k,ker,m1,max,ren},
k=Ceiling[Norm@Dimensions[m]/128];
ker=N[ReplacePart[Table[-1/(4k(k+1)), {2k+1},{2k+1}], {k+1,k+1}->1]];
m1=ListConvolve[ker,m];
max=Max[m1];
ren=If[#<0.1, 0, (((#/max))^(1/2))]&;
Map[ren, m1, {2}] ];
BBB[img_Image] := Module[{r,g,b},
Image@Transpose[
1-BBB/@Transpose[ImageData[img], {2,3,1}],
{3,1,2}  ]  ];

Export["171127-111330.png",
BBB[Import["http://drorbn.net/bbs/shots/17-1750-171127-111330.jpg"]] ]