The polycrystalline mesh regions at the end of this post are really appealing to me.
So I applied my MeshVoronoiEntropy function which got recently published in Wolfram Function Repository https://resources.wolframcloud.com/FunctionRepository/resources/MeshVoronoiEntropy/
First, let's extract the bare mesh regions in order to apply MeshVoronoiEntropy function
meshstructs = MapThread[
VoronoiMesh[First /@ #1, {{0., 1.}, {0., 1.}},
MeshCellStyle -> {{2, All} -> LightYellow, {1, All} -> Brown},
ImageSize -> 150] &,
{data3, paramList}];
and I got the values for the corresponding Voronoi entropy, which is actually a form of Shannon entropy applied to polygon meshes as documented in Wolfram Function Repository.
This gives the Voronoi entropy for each mesh region.
meshVorEntr=ResourceFunction["MeshVoronoiEntropy"]/@meshstructs
{0.622363,0.575437,0.813453,1.09041,1.17685,1.28494}
The entropy is lowest for polycrystalline regions, as shown in the remastered grid picture
Grid[Partition[
MapThread[
Labeled[VoronoiMesh[First /@ #1, {{0., 1.}, {0., 1.}},
MeshCellStyle -> {{2, All} -> LightYellow, {1, All} -> Brown},
ImageSize -> 150], "Voronoi Entropy " <> ToString@#2] &,
{data3, meshVorEntr}],
3]]
