.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__;

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)
}

#E2:ellipse wid wr/2 ht wr with .s at Here
#box invis fill 1 wid  wr/2 ht wr-lthick with .e at E2.c

# 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
# 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)
}

#E2:ellipse wid wr/2 ht wr with .s at Here
#box invis fill 1 wid wr/2 ht wr-lthick with .e at E2.c

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

setrgb(1,0,0)
dimension_(from E1.n+(5mm__,-25mm__) to Bot+(-5mm__,wr-25mm__), 30mm__, $d$, 3mm__,15mm__)
resetrgb

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