This is a small tiling explorer with IGraph/M, just for fun :-)
Needs["IGraphM`"]
colorMesh[colNum_][mesh_] :=
SetProperty[{MeshRegion[mesh,
MeshCellStyle -> {1 -> Directive[White, Thick]}], {2, All}},
MeshCellStyle -> ColorData[colNum] /@ IGMinimumVertexColoring@IGMeshCellAdjacencyGraph[mesh, 2]
]
Manipulate[
colorMesh[colorScheme]@IGLatticeMesh[lattice, Disk[{0, 0}, 10.0], ImageSize -> Large],
{lattice, IGLatticeMesh[]},
{{colorScheme, 97}, 1, 114, 1}
]
