(*  infinite.nb  *)

Needs["Graphics`ComplexMap`"]

Print["Electric field lines & equipotentials"]
eflandeqpl1 = CartesianMap[# &,{-2,2},{0,Pi}, 
      Axes -> None,
      Epilog -> {Thickness[.011],
                 Line[{{-2.1,Pi},{2.1,Pi}}],     
                 Line[{{-2.1,0},{2.1,0}}]}] ;