.PS
cct_init

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

# wire radius, wire separation, and wire length
wr=6mm__;
#ws=10mm__;
ws=1.5*dim-wr/2
wl=40mm__;

Orig: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, -7mm__, $2a$, 3mm__)
dimension_(from Bot+(0,ws+wr/2) to Bot, 6mm__, $D$,3mm__,2mm__)

line from E1.c left_ 5mm__
line up_ qrt
source(up_,AC)
line up_ qrt
line right_ 5mm__

move to E1.s+(15mm__,-5mm__)
L1:dimension_(right_ 20mm__, 2.5mm__, "d$x$", 4mm__)


move to L1.start+(0,5mm__+wr)
line -> up_ ws-wr/2; right_
"$V$" at last line.center rjust_
move to L1.start+(0,5mm__+wr/2)
dimension_(right_ 20mm__,,"$I$", 2mm__,,->)

"{\tiny trvolt}" at Orig+(44mm__,-25mm__)
.PE