.PS cct_init # Usual defs... qrt=dimen_/4; hlf=dimen_/2; dim=dimen_; B1:box dashed ht dim wid 1.5*dim line from B1.sw to B1.se # Note that fill=1 is white. ie circle is ``in front'' of the line and the box. C1:circle rad dim/10 fill 1 at B1.s line from C1.n up_ dim/2 move to B1.e then up_ dim/4 right_ dim/4 " $r=\frac{\lambda}{2\pi}$" ljust_ above_ line -> to B1.e "\tiny Wheeler" at (2*dim,-dim) .PE