Is it possible to identify a color (say grey in a 3 color Black
, Gray
and White
image) and replace the color with HatchFilling
?
I've tried to convert an image using ImageGraphics
and then combine the result together inside of a Graphics
with Hatchfill
but I have had no luck. Is the result of ImageGraphics
considered a Graphics
expression?
labels = ClusteringComponents[img]
Image[Replace[labels,
ComponentMeasurements[{img, labels}, "MeanIntensity"], 2]];
MedianFilter[%, 1];
candidate1 =
CurvatureFlowFilter[MeanShiftFilter[%, 8, 1/16], 2]
(* Also have tried *)
ColorQuantize[img, 4, Dithering -> False];
ImageApply[Max, ColorSeparate[%]] // ImageAdjust;
smooth = CurvatureFlowFilter[MeanShiftFilter[%, 8, 1/14], 2];
MedianFilter[%, 1];
Blur[%, 2]
These are the current settings I am using to transform a picture into a smoothed out greyscaled image but trying Image
ImageGraphics[#, 3, Method -> {"LinearSeparable", 70 \[Degree]},
MinColorDistance -> .1, ImageSize -> 600] &@%
and then
graphics[{%,Hatchfilling}]
Does nothing.
I know I need to throw in a colordetect
for the color but I do not think that is the issue.