New in Wolfram Mathematica 6: Extended Graphics Language ◄ previous | next ►
Arbitrary Geometric Transformations
Mathematica 6 has built-in arbitrary symbolic geometric transformations that can immediately be applied to any graphics objects.
In[1]:=

Click for copyable input
Graphics[{EdgeForm[Gray],

  Nest[{{Black, Rectangle[{0, -.5}], White, Rectangle[{-1, -.5}]}, 

     Scale[Rotate[#, \[Pi]/14], .95]} &, {}, 70]}]
Out[1]=