\setlength{\unitlength}{2cm}
\begin{center}
\begin{Picture}(1,1)(-1,-1)
\pictcolor{red}
\PlotQuadraticCurve(1,0){0}(0,1){90}
                   (-1,0){180}(0,-1){270}
                   (1,0){360}
\pictcolor{blue}
\referencesystem(0,0)%
                (\numberCOSXLV,\numberCOSXLV)%
                (-\numberCOSXLV,\numberCOSXLV)
\PlotQuadraticCurve(1,0){0}(0,1){90}
                   (-1,0){180}(0,-1){270}
                   (1,0){360}
\end{Picture}
\end{center}
