New in Wolfram Mathematica 7: New Graphics Primitives  previous | next 
Rotate Graphics by Specifying Start and End Directions
Specify 2D rotations via start and end direction vectors.
In[1]:=

Click for copyable input
Graphics[{Opacity[.6],

	Rectangle[],

	Blue, Rotate[Rectangle[], {{1,0},{1,1}}]

	}, Axes->True]
Out[1]=