3D Graphics Interactive Objects

Manipulate[Graphics3D[{Hue[n],EdgeForm[{Gray,Thickness[0.01]}],Opacity[.5],
                                                  PolyhedronData[p,"GraphicsComplex"]},
                                                 Boxed->False,ImageSize->Large],
          {p,PolyhedronData["Archimedean"]},{n,Range[0.1,0.9,0.1]}]