\documentclass[pstricks]{standalone}
\usepackage{pst-hertz,multido}
\begin{document}
\multido{\i=0+2}{50}{%
  \begin{pspicture}[showgrid](-7,-7)(7,7)
  \psHertzDipole[t=\i,lambda=150,Ez=false,linewidth=1pt,h=0.5,FillSpace,HSBFill,DrawLines]
  \end{pspicture}}
\end{document}


