Graphics3D[{Opacity[.8],Glow[RGBColor[1,0,0]],EdgeForm[White],Lighting -> None,PolyhedronData["Echidnahedron","Faces"]}]