\DocumentMetadata{}
\documentclass[pstricks]{standalone}
\usepackage{pst-hertz,multido}
\begin{document}
\multido{\i=0+2}{50}{%
  \begin{pspicture}[showgrid](-7,-7)(7,7)
  \psHertzDipole[t=\i,FieldLines=8,lambda=100,Ez=false,linewidth=0.5pt,DrawArrows=false,h=1,FillSpace,DrawLines,hatchcolor=orange,fillcolor=cyan]
\end{pspicture}}
\end{document}