Color Exploration

PDG[p_]:=Graphics3D[{Opacity[.3],
Tube[PolyhedronData[p,"Edges","Coordinates"],.05],
EdgeForm[Transparent],FaceForm[Opacity[.7],White],
Transpose[{ColorData["Crayola",
"ColorList"][[11;;10+Length[#]]],
#}]}]&@PolyhedronData[p,"Polygons"];
PDT[p_]:=Graphics3D[MapIndexed[Style[Text[ColorData["Crayola"][[3,
1,10+#2[[1]]]],#1],15]&,Mean/@(PolyhedronData[p,
"VertexCoordinates"][[#]]&/@PolyhedronData[p,"FaceIndices"])]];
Show[PDG[PolyhedronData["Archimedean"][[11]]],
PDT[PolyhedronData["Archimedean"][[11]]],
Boxed->False,ImageSize->700,ViewPoint->{-3,-1,3.5}]