Arbitrary Geometric Transformations
Mathematica 6 has built-in arbitrary symbolic geometric transformations that can immediately be applied to any graphics objects.
In[1]:=  |  Graphics[{EdgeForm[Gray],
Nest[{{Black, Rectangle[{0, -.5}], White, Rectangle[{-1, -.5}]},
Scale[Rotate[#, \[Pi]/14], .95]} &, {}, 70]}] |
Out[1]=  |  |