.PS cct_init # Usual defs... qrt=dimen_/4; hlf=dimen_/2; dim=dimen_; E1:ellipse width 0.2*dim height 0.1*dim E2:ellipse same at E1.center-(dim/3,dim) #box invis fill 1 height 0.1*dim width 0.18* dim with .c at E2.n box invis fill 1 width 0.2*dim-lthick height 0.1*dim with .c at E2.n S1:spline from E1.w down_ dim/3 then left_ dim/3 down_ dim/3 then\ down_ dim/3 S2:spline from E1.e down_ dim/3 then left_ dim/3 down_ dim/3 then\ down_ dim/3 move to S1.center+(0.1*dim,0) arrow up_ 0.25*dim right_ 0.2*dim move right_ 0.1*dim; "$\stackrel{\textstyle J}{\scriptstyle\sim}$" ljust_ below_ move to (2*dim,0);dot;move up_ dim/10; "$P(r)$" ljust_ move down_ 0.2*dim; "$\stackrel{\textstyle E}{\scriptstyle\sim},\ \stackrel{\textstyle H}{\scriptstyle\sim}$?" ljust_ "\tiny FieldWires" at (dim/2,-dim) .PE