Hello community.
I'm trying to work on an image and would like to know if any image specialists here know how to improve the visualization of this photo??
Note: my goal is just to study how to improve the visualization of an image through Wolfram Language.
(This photo was taken with the cell phone. It was sent to me in .jpg format)
Below is the original photo (attached to the post):
Something caught my eye in this image (like a statue, a person or maybe it´s nothing). Below is my attempt to be able to see more clearly (as I am not an expert in image treatment yet, I would like to ask here in the community for ideas):
EvaluationData[
data1 = Flatten@
Table[Show[ColorBalance[data, RGBColor[{0 + x, 0 + y, 0 + z}]],
ImageSize -> Large], {x, 0.3, 1, 0.1}, {y, 0.3, 1, 0.1}, {z, 0.3,
1, 0.1}]; oi = ImageAdjust[data1[[130]], {0.5, 0, 0.4}];
data2 = ImageExposureCombine@
Flatten@Table[
Show[ImageAdjust[
ImagePartition[data1[[i]], UpTo[Scaled[7/24]]][[3, 4]], {0.5,
0, 0.4}], ImageSize -> Large], {i, 1, Length@data1}];
data3 = ImageExposureCombine@
Table[Binarize[data2,
Method -> i], {i, {{"BlackFraction", 0.33}, "Mean", "Median"}}];
Do[Print[
k], {k, {oi, {Show[data2, ImageSize -> 250],
Show[data3, ImageSize -> 250]}}}]]
Any idea of how to improve the code or the quality of the visualization is welcome.
Thanks.
Attachments: