.PS
cct_init

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

L1:line right_ 2*dim

delta = 0; # Broadside

n = 4;
factor=0.25;

# Spacing d is lambda/2. psi=beta d = pi
move to L1.center
for theta = 0 to twopi_ by 0.01 do {
  psi = pi_*cos(theta) + delta;
  e = abs(factor*(sin(n*psi/2)/sin(psi/2)));
  line to L1.center+(e*cos(theta),e*sin(theta))
}
"n=4" at L1.center+(0,dim)

{move to L1.end+(dim/2,-dim);"(d=$\lambda/2$)"}
move to L1.end+(dim,0)
L1:line right_ 2*dim
n = 8;
factor=0.125;

move to L1.center
for theta = 0 to twopi_ by 0.01 do {
  psi = pi_*cos(theta) + delta;
  e = abs(factor*(sin(n*psi/2)/sin(psi/2)));
  line to L1.center+(e*cos(theta),e*sin(theta))
}
"n=8" at L1.center+(hlf,dim)

"\tiny UniformBroad" at (5.5*dim,-dim)
.PE