.PS cct_init # Usual defs... qrt=dimen_/4; hlf=dimen_/2; dim=dimen_; Orig:Here line -> dotted up_ 2*dim; right_; " $E_y$ " rjust_ above_ move to (0,dim); line -> dotted right_ 5* dim; " $t$" ljust_ below_ move to Orig+(0, dim) # Want 2*pi_ to be 4 dim! # RHCP Ey must *lag* Ex by 90 deg. for theta = 0 to twopi_ by 0.01 do{ line to (theta/(twopi_)*4*dim, dim+dim*sin(theta-pi_/2)) } move to (0, -2.5*dim) line -> dotted up_ 2*dim; right_; " $E_x$ " rjust_ above_ move to (0,-1.5*dim); line -> dotted right_ 5* dim; " $t$" ljust_ below_ move to Orig-(0,0.5*dim) for theta = 0 to twopi_ by 0.01 do{ line to (theta/(twopi_)*4*dim, -1.5*dim+dim*sin(theta)) } move to (6*dim, -0.75*dim) linethick_(1.2) {line -> right_ dim ; " $t=90^\circ$" ljust_ } {line -> down_ 0.71*dim right_ 0.71*dim; " $t=45^\circ$" ljust_ below_} {line -> down_ dim; right_ ; " $t=0^\circ$" below_} {arc <- cw from 3rd last line.center to last line.center} linethick_ degline=(pi_/4)/(twopi_)*4*dim; line dotted from (degline, -2.5*dim) to (degline, 2*dim) "$45^\circ$" at (degline, -dim/5) degline=(pi_/2)/(twopi_)*4*dim; line dotted from (degline, -2.5*dim) to (degline, 2*dim) "$90^\circ$" at (degline, -dim/5) "\tiny RHCP" at (7*dim,-2*dim) .PE