\documentclass{article}
\usepackage{pst-ulamspiral,pst-lens,multido,animate}
\newpsstyle{SimpleHandle}{fillstyle=solid,fillcolor=white,framearc=0.5}
\psset{LensSize=2,LensMagnification=5,LensRotation=45,LensShadow=false,LensStyleHandle=SimpleHandle}
\psset[pst-ulamspiral]{StartSpiral=41,N=100000}
\begin{document}
\begin{center}
\begin{animateinline}[%
    controls,
    palindrome,
    begin={\begin{pspicture}(12,12)},end={\end{pspicture}}
    ]{10}%
\multiframe{77}{r=2.5+0.1}{%
\psUlamSpiralPixels[unit=0.04,linecolor=blue]
\PstLens(\r,\r){\psUlamSpiralPixels[unit=0.04,linecolor=blue]}
}
\end{animateinline}
\end{center}
\end{document}