box(-1.3, -1.3, 1.6, 1.6, 1.4)

% Axis
X1 = point(-1.7, 0); X2 = point(1.4, 0)
Y1 = point(0, -1.7); Y2 = point(0, 1.4)
thickness(1)
draw(segment(X1,X2), full, arrow); draw(segment(Y1,Y2), full, arrow)
thickness(1.6)

O = point(0,0);  % origo

% Unit circle
C = circle(O, 1)

% Angle
phi interactive(58, -3, 0, 360, "", right)
P = point(C, phi:) 

draw(C); draw(P); draw(O,P)

% Angle mark
tricks "psset{linewidth=.5pt,arrowsize=3pt}"
mark(X2,O,P,arrow,.5)

% Draw labels
draw("$t$",O,.35,.5*phi:)
draw("$y$",Y2,.15,-30:); draw("$x$",X2,.15,-130:)

\psset{linecolor=black, linewidth=.5pt, arrowsize=2pt 4}
\psset{unit=1.4000cm}
\pspicture*(-1.3000,-1.3000)(1.6000,1.6000)
\psset{linewidth=0.5000pt}
\psline{->}(-1.7000,0.0000)(1.4000,0.0000)
\psline{->}(0.0000,-1.7000)(0.0000,1.4000)
\psset{linewidth=0.8000pt}
\pscircle(0.0000,0.0000){1.0000}
\psdots[dotstyle=*, dotscale=1.0000](0.5299,0.8480)
\psline(0.0000,0.0000)(0.5299,0.8480)
\psset{linewidth=.5pt,arrowsize=3pt}
\psarc{->}(0.0000,0.0000){0.2500}{0.0000}{58.0000}
\uput{0.3500}[29.0000](0.0000,0.0000){$t$}
\uput{0.1000}[58.0000](0.5299,0.8480){$(\cos t,\sin t)$}
\uput{0.1500}[-30.0000](0.0000,1.4000){$y$}
\uput{0.1500}[-130.0000](1.4000,0.0000){$x$}
\endpspicture