.PS
include(libcct.m4)
cct_init
thicklines_
L1:line right_ 3*dimen_ 
thinlines_
hash = 0.1*dimen_
move to L1.start then right_ hash
for x = L1.start.x to L1.end.x by hash do {
  {line down 2*hash left hash}; move right hash}
move to L1.center
linethick_(2.0)
source(up_,AC)
Monopole:line up_
thinlines_
dimension_(from L1.center to Monopole.end,0.45,$\lambda/4$,0.4)

"\tiny Monopole" at (3*dimen_,-0.5*dimen_)
.PE