(* Tetrahedron intersected by a stellated dodecahedron *)

Needs["Graphics`Polyhedra`"];

Show[
    Graphics3D[  {
        SurfaceColor[GrayLevel[.4]], EdgeForm[],
        Polyhedron[Tetrahedron, {0, 0, 0}, 1.5][[1]] , 
        Stellate[Polyhedron[Dodecahedron], 5.0][[1]]
        } ],
    AmbientLight -> GrayLevel[0.1],
    LightSources ->  {{{.4, 1, 1}, RGBColor[0, 1, 0]},
                     {{-0.5, 1, 1}, RGBColor[0, 0, 1]},
                     {{-1, 1, 1}, RGBColor[1, 1, 1]}},
    Boxed -> False, Background -> GrayLevel[0]  ];