.PS
cct_init

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

L1:line right_ 4*dim

move to L1.center
for theta = 0 to twopi_ by 0.05 do { # ~100 points
  e = abs(cos(pi_/2*cos(theta)))
  line to L1.center+(e*cos(theta),e*sin(theta))
}

move to L1.center
for theta = 0 to twopi_ by 0.05 do {
  f=cos(pi_/2*cos(theta))*cos(pi_/2*cos(theta)) # squared
  e=f*f*f; # Positive :-)
  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_

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

theta=dtor_*75 
f=cos(pi_/2*cos(theta))*cos(pi_/2*cos(theta))
e=f*f*f; # Positive :-)
line outlined "red" -> to L1.center+(e*cos(theta),e*sin(theta))

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