[deanmen]

This can be done in ONE line in Mathematica:

    Manipulate[
 Graphics[{Rotate[Rectangle[{-size/2, -size/2}, {size/2, size/2}], 
    rotation, {0, 0}]}, PlotRange -> {{-1, 1}, {-1, 1}}], {size, 0.1, 
  2, 0.1}, {rotation, 0, 2 Pi, Pi/12}]