.PS cct_init # Usual defs... qrt=dimen_/4; hlf=dimen_/2; dim=dimen_; E1:ellipse height qrt width hlf line from E1.w down_ dim line from E1.e down_ dim E2:ellipse same with .e at Here # Paint out back of ellipse (Can't draw half an ellipse!) #box invis fill 1 width 0.47*dim height qrt with .c at E2.n box invis fill 1 width hlf-lthick height qrt with .c at E2.n E3:ellipse height 0.125*dim width qrt with .c at E1.c line from E3.w down_ 2*dim line from E3.e down_ 2*dim line from E3.c up_ qrt linethick_(2); line right_ dim ; linethick_ line from E3.w up_ qrt linethick_(2); line left_ dim ; linethick_ dot(at E3.w) dot(at E2.w) line to (E3.w,Here); dot dimension_(from E2.w to E1.w, hlf, $\lambda/4$, dim/3, dim/10) "\tiny Bazooka" at (dim,-1.5*dim) .PE