SetOptions[Graphics3D, {Lighting -> Automatic, Boxed -> False, ImageSize -> 800}];
x = PolyhedronData["Dodecahedron", "VertexCoordinates"];
r = Norm[(x[[2]] - x[[1]])/2];
Manipulate[Graphics3D[Sphere[x, r/a]], {a, 0.5, 3}]
SetOptions[Graphics3D, {Lighting -> Automatic, Boxed -> False, ImageSize -> 800}];
x = PolyhedronData["Dodecahedron", "VertexCoordinates"];
r = Norm[(x[[2]] - x[[1]])/2];
Manipulate[Graphics3D[Sphere[x, r/a]], {a, 0.5, 3}]
Free high resolution images dodecahedron of spheres, 3d, グラフィック, symmetry, vehicle, たいしょう.
Licence:
Creative Commons - CC0. Photos transferred to the public domain from Creative Commons.
More free photos / by Flickr (Public Domain)