\newcommand{\mypicture}{%
{\thicklines
\xVECTOR(-1,-1)(1,1)
\pictcolor{red}\Circle{1}
\pictcolor{blue}\regularPolygon{1}{4}
\polarreference\degreesangles
\pictcolor{green}\Polygon(1,90)(0,0)(1,-30)}}
\centering
\setlength{\unitlength}{1cm}
\fbox{\begin{Picture}[black!5!white](-1.5,-6.5)(14.5,1.5)
\cartesiangrid(-1,-1)(14,1)
\mypicture
{\referencesystem(3,0)(1,1)(1,0)
\mypicture
\changereferencesystem(0,4)(-1,1)(1,-2)
\mypicture}
\degreesangles
\translateorigin(10,0)
{\rotateaxes{45}
\mypicture}
\translateorigin(3,0)
\symmetrize{45}
\mypicture
\referencesystem(6.5,-4)(7,0)(0,-2)\mypicture
\end{Picture}}
