.PS cct_init # Usual defs... qrt=dimen_/4; hlf=dimen_/2; dim=dimen_; Org: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 Org+(0, dim) # Want 2pi_ to be 4 dim! # LHCP Ey must *lead* 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 Org+(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 -> up_ 0.71*dim right_ 0.71*dim; " $t=45^\circ$" ljust_ above_} {line -> up_ dim; right_ ; " $t=0^\circ$" above_} {arc <- ccw from 3rd last line.center to \ last line.center with .center at last line.start} 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) # This was done with Version 4.5. Version 9.0.1 has sinusoid() Must # investigate... "\tiny LHCP" at (7*dim,-2*dim) .PE