.PS cct_init # Usual defs... qrt=dimen_/4; hlf=dimen_/2; dim=dimen_; C1:dot line -> dotted up_ 2*dim from C1 {move right_ 0.1*dim; "$y$" ljust} move up_ 0.3*dim; "Linear" line -> dotted right_ 1.5*dim from C1 move down_ 0.1*dim; "$x$" line dotted down_ 2*dim from C1 linethick_(1.1) line -> up_ dim from C1; move up_ 0.1*dim then right_ 0.1*dim; "$E_2$" ljust_ above_ line -> down_ dim from C1 linethick_ # Re-use of code :-) move from C1 right_ 3*dim C1:dot line -> dotted up_ 2*dim from C1 {move right_ 0.1*dim; "$y$" ljust} move up_ 0.3*dim; "Elliptical" line -> dotted right_ 1.5*dim from C1 move down_ 0.1*dim; "$x$" line dotted down_ 2*dim from C1 E1:ellipse at C1 width dim height 2*dim linethick_(1.1) line -> up_ dim from C1 move up_ 0.1*dim then right_ 0.1*dim; "$E_2$" ljust_ above_ line -> right_ dim/2 from C1; move down_ 0.1*dim then right_ 0.1*dim; "$E_1$" ljust_ below_ L1:line -> from C1 to E1.ne move up_ 0.1*dim then right_ 0.1*dim; "$\mathbf{E}$" L2:line invis from C1 to E1.se arc -> cw from L1.c to L2.c linethick_ # And again :-) move from C1 right_ 3*dim C1:dot line -> dotted up_ 2*dim from C1 {move right_ 0.1*dim; "$y$" ljust} move up_ 0.3*dim; "Circular" line -> dotted right_ 1.5*dim from C1 move down_ 0.1*dim; "$x$" line dotted down_ 2* dim from C1 E1:circle radius dim at C1 linethick_(1.1) line -> up_ dim from C1 move up_ 0.1*dim then right_ 0.1*dim; "$E_2$" ljust_ above_ line -> right_ dim from C1; move down_ 0.1*dim then right_ 0.1*dim; "$E_1$" ljust_ below_ L1:line -> from C1 to E1.ne move up_ 0.1*dim then right_ 0.1*dim; "$\mathbf{E}$" L2:line invis from C1 to E1.se arc -> cw from L1.c to L2.c linethick_ "\tiny Polarization" at (7*dimen_,-2*dimen_) .PE