K:=
im1 =ImageResize[K,1000,Resampling->"Linear"]

Manipulate[
GraphicsRow[{
ImageCompose[
ImageResize[
ColorReplace[
ColorReplace[
Image[Ceiling[ImageData[ColorConvert[ImageResize[K,x,Resampling->"Linear"],"Grayscale"]]],ColorSpace->"Grayscale"],Black -> Swatch],
White]
,1000,Resampling->"Nearest"]
,im1]
,Show[plot,Graphics[{PointSize[0.025],Point[ Log[result[[x-9]]] ]}] ]}]
,{x,10,200,1}
]

result={#,Round[(ImageMeasurements[ColorNegate@Binarize[Image[Ceiling[ImageData[ColorConvert[ImageResize[K,#,Resampling->"Linear"],"Grayscale"]]],ColorSpace->"Grayscale"],0],"Total"])^0.63]}&/@Range[10,200]

fm=LinearModelFit[Log[result],{1,x},x]

plot=Show[Plot[fm[x],{x,Log[result[[1,1]]],Log[result[[-1,1]]]},PlotStyle->Black],ListLogLogPlot[result,PlotStyle->Red],AspectRatio->1,Axes->False,Frame->True]

result[[{1}]]

Manipulate[Show[plot,Graphics[{PointSize[0.025],Point[ Log[result[[x-9]]] ]}] ],{x,10,200,1}]

result[[10-9]]