.PS
cct_init

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

E1:ellipse width 5mm__ height 2.5mm__ 
line from E1.w down_ 25mm__
line from E1.e down_ 25mm__
line from E1.c up_ 3mm__ then right_ 10mm__ ; dot
dot(at E1.e)
line right_ 5mm__; dot
E2:ellipse same with .w at Here
line from E2.c up_ 5mm__
linethick_(2)
line left_ 20mm__
linethick_() # Default

line from E2.w down_ 10mm__
line from E2.e down_ 10mm__
Arc:Here
line <- from E2.w-(2.5mm__,0) down_ 10mm__

E3:ellipse same with .w at E2.e+(10mm__,0)
line from E3.w down_ 10mm__
line from E3.e down_ 10mm__
line <- from E3.e+(2.5mm__,0) down_ 10mm__
line from E3.c up_ 5mm__ 
linethick_(2); line right_ 20mm__ ; linethick_()

move to Arc
down_ ; arc rad 5mm__; arc rad 5mm__
move to Arc+(-5mm__,0)
down_ ; arc rad 10mm__; arc rad 10mm__
move to Arc+(-7.5mm__,0)
down_ ; arc rad 12.5mm__; arc rad 12.5mm__
"$\lambda/2$" at Arc+(20mm__,-10mm__)

dot(at E2.e)
dot(at E3.w)
line from E2.e to E3.w

"\tiny HalfWaveBalun" at (40mm__,-25mm__)
.PE