.PS
cct_init

# Usual defs...
qrt=dimen_/4;
hlf=dimen_/2;
dim=dimen_;

# wire radius, wire separation, and wire length
wr=6mm__;
ws=15mm__;
wl=40mm__;

Org:Here
# Two-wire line
E1:ellipse wid wr/2 ht wr
line from E1.n right_ wl
line from E1.s right_ wl

# Half ellipse of half width, up.
HEcentre:Here+(0,wr/2)
for theta = -pi_/2 to 1.05*pi_/2 by pi_/20 do {
  line to HEcentre+(wr/2*cos(theta)/2, wr*sin(theta)/2)
}

# Paste.
move to E1 then down_ ws
E1:ellipse wid wr/2 ht wr
line from E1.n right_ wl
line from E1.s right_ wl
Bot:Here+(0,wr/2)
# Half ellipse of half width, up.
HEcentre:Here+(0,wr/2)
for theta = -pi_/2 to 1.05*pi_/2 by pi_/20 do {
  line to HEcentre+(wr/2*cos(theta)/2, wr*sin(theta)/2)
}

dimension_(from E1.s to E1.n, 4mm__, "$2a$", 3mm__)
dimension_(from Bot+(0,ws+wr/2) to Bot, -2mm__, "$D$",3mm__,1mm__)

move to E1+(-hlf,ws-wr) 
line -> left_ hlf
"$-\infty$" rjust

move to Bot+(hlf,ws-wr) 
line -> right_ hlf
"$+\infty$" ljust

move to E1+(7mm__,-wr/2-2mm__)
L1:line dashed up_ ws+2*wr+2mm__

move to E1+(wl-7mm__,-wr/2-2mm__)
L2:line dashed up_ ws+2*wr+2mm__

dimension_(from L1.start to L2.start, -3mm__, d$x$, 5mm__)

move to (L1,E1) + (4mm__,wr/2)
line -> up_ ws-wr/2
right_
"$V(x,t)$" at last line.center ljust_

move to last line.end+(-3mm__,wr/2)
dimension_(20mm__,,$I(x,t)$,10mm__,,->)

"{\tiny inftx}" at Org+(40mm__,-25mm__)
.PE