Wolfram Technology Guide: Automated Computational Aesthetics  previous | next 
Context-Sensitive Graphics Sizing
Mathematica automatically resizes and aligns graphics to be appropriate for their environments.
In[1]:=

Click for copyable input
With[{g = PolyhedronData["Icosahedron"]}, {g, f[g, g]}]
Out[1]=