(* Dodecahedron intersected by a stellated icosahedron *)

Needs["Graphics`Polyhedra`"];

Show[
    Graphics3D[{SurfaceColor[GrayLevel[.6]], EdgeForm[RGBColor[.2, .06, 0]],
        Polyhedron[Dodecahedron, {0, 0, 0}, 1.7][[1]],
        Stellate[Polyhedron[Icosahedron], 5.0][[1]]
        }
      ], 
    AmbientLight -> GrayLevel[0.1],
    LightSources ->  {{{1, 1, 0}, RGBColor[1, .5, 0]}, 
                      {{-1, 1, 1}, RGBColor[1, .3, 0]}, 
                      {{-1, 1, 1}, RGBColor[1, .1, 0]}},
    Boxed -> False, Background -> GrayLevel[0]  ];