Graphics3D[{{EdgeForm[], {Polygon[{{0.5, 0.86603, 0}, {-0.5, 0.86603, 0}, {0, 0, 0}}], Polygon[{{-0.5, 0.86603, 0}, {-1., 0, 0}, {0, 0, 0}}], Polygon[{{-1., 0, 0}, {-0.5, -0.86603, 0}, {0, 0, 0}}], Polygon[{{-0.5, -0.86603, 0}, {0.5, -0.86603, 0}, {0, 0, 0}}], Polygon[{{0.5, -0.86603, 0}, {1., 0, 0}, {0, 0, 0}}], Polygon[{{1., 0, 0}, {0.5, 0.86603, 0}, {0, 0, 0}}]}}, {Polygon[{{0.5, 0.86603, 0}, {-0.5, 0.86603, 0}, {0, 0, 1.}}], Polygon[{{-0.5, 0.86603, 0}, {-1., 0, 0}, {0, 0, 1.}}], Polygon[{{-1., 0, 0}, {-0.5, -0.86603, 0}, {0, 0, 1.}}], Polygon[{{-0.5, -0.86603, 0}, {0.5, -0.86603, 0}, {0, 0, 1.}}], Polygon[{{0.5, -0.86603, 0}, {1., 0, 0}, {0, 0, 1.}}], Polygon[{{1., 0, 0}, {0.5, 0.86603, 0}, {0, 0, 1.}}]}}, {LightSources -> {{{1., 0., 1.}, RGBColor[1., 0, 0]}, {{1., 1., 1.}, RGBColor[0, 1., 0]}, {{0., 1., 1.}, RGBColor[0, 0, 1.]}, {{-1., -1., -1.}, RGBColor[0.5, 0.5, 0.5]}}, Boxed -> False, DisplayFunction -> Identity, PlotRange -> {{-1.05, 1.05}, {-0.90933, 0.90933}, {-0.69167, 1.025}}}]