\documentclass{article}
\usepackage{tikz}
\usepackage{ifthen}
\usepackage{animate}
%\usetheme{Warsaw}
%\usecolortheme{whale}
\newcounter{angle}
\setcounter{angle}{0}
\begin{document}
\begin{frame}[fragile]{Polygons} \begin{center} \begin{animateinline}{25} \whiledo{\theangle<30}{ \begin{tikzpicture} \clip(-5.3,-5.32) rectangle (7.02,6.3); \foreach \x/\xtext in {-5/-5,-4/-4,-3/-3,-2/-2,-1/-1,0/0,1/1, 2/2, 3/3,4/4,5/5} \draw[shift={(\x,0)}] (0pt,2pt) -- (0pt,-2pt) node[below] {$\xtext$}; \draw[->] (0,-5.25) -- (0,5.25) node[above] {$y$}; \foreach \y/\ytext in {-5/-5,-4/-4,-3/-3,-2/-2,-1/-1,0/0,1/1, 2/2, 3/3,4/4,5/5} \draw[shift={(0,\y)}] (2pt,0pt) -- (-2pt,0pt) node[left] {$\ytext$};
\draw[->] (-5.25,0) -- (5.25,0) node[right] {$x$};
\draw[domain=0:\theangle,smooth,variable=\s]plot({3.5*cos(pi*\s/180 r)},{3.5*sin(pi*\s/180 r)}); \end{tikzpicture} \stepcounter{angle} \ifthenelse{\theangle<30}
{\end{animateinline}} {} } \end{center}
\end{frame}
\end{document}