.PS cct_init # Usual defs... qrt=dimen_/4; hlf=dimen_/2; dim=dimen_; C1:circle rad 0.1*dim line from C1.n up_ ; right_ ;" $y$" ljust_ above_ line from C1.s down_ line from C1.e right_ ; " $x$" ljust_ below_ line from C1.w left_ "\tiny CrossedDipoles" at (1*dim,-1*dim) .PE