.PS
cct_init

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

dot(,1mm__);{"1" at Here+(0,3mm__)}
L1:line right_ 4*dim; dot(,1mm__); {"2" at Here+(0,3mm__)}
line right_ dim; " $\theta=0^\circ$" ljust_

dimension_(from L1.start to L1.end, -0.75*dim,$d=\lambda/2$,13mm__)
line from L1.start left

move to L1.center
for theta = 0 to 2*pi_ by 0.01 do {
  e=abs_(cos(pi_/2*cos(theta)))
  line to L1.center+(e*cos(theta),e*sin(theta))
}

"$E=\displaystyle E_0\left[\cos\left(\frac{\pi}{2}\cos\theta\right)\right]$"\
   at L1.center+(0.8*dim,1.5*dim) ljust_

"\tiny TwoIsoPat" at (4.5*dim,-dim)
.PE