s = Sphere; t = .3; p = PolyhedronData; Manipulate[Graphics3D@{Red, s@p[i][[1, 1]], Green, Rotate[Scale[s[], {t, 1, 2}, {0, 0, 3}], #, {1, 0, 0}] & /@ {-t, t}}, {i, p[]}]