.PS
cct_init

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

E1:ellipse 0.2 wid dim ht 3* dim dashed
C1:circle rad dim/10 at E1.c
linethick_(2)
L1:line from C1.n up_ dim
L2:line from C1.s down_ dim
linethick_

move to E1.ne+(dim/2, dim/2)
" $A_e$" ljust_ above_
line -> to E1.ne

dimension_(from L2.end to L1.end, dim, $\lambda/2$, dim/3, 5mm__)

"\tiny ApertureDipole" at (2*dim,-1.5*dim)
.PE