A Picture of Cosmogram

Mariam Al-Hawaj

First step will be to find out the vertices and faces of the Dodecahedron

PolyhedronData["Dodecahedron","Faces"]//N;

%219

(* Now,I will use the last output to locate a cube inside the dodecahedron with the right intersected verices)

Graphics3D[{{Opacity[.005],FaceForm[Red],EdgeForm[Thick],EdgeForm[Red],PolyhedronData["Dodecahedron","Faces"]},{Opacity[.2],FaceForm[Yellow],EdgeForm[Thick],EdgeForm[Yellow],GraphicsComplex[{dodeca[[2,14]],dodeca[[2,19]],dodek[[2,13]],dodeca[[2,10]],dodeca[[2,16]],dodeca[[2,11]],dodeca[[2,6]],dodeca[[2,4]]},Polygon[{{1,4,3,2},{1,2,6,5},{2,3,7,6},{4,8,7,3},{1,5,8,4},{5,6,7,8}}]]}},Lighting->"Neutral"];

%221