.PS cct_init # Usual defs... qrt=dimen_/4; hlf=dimen_/2; dim=dimen_; Org:Here dot(,1mm__);{"1" at Here+(0,-4mm__)} line right_ dim; {dimension_(from last line.start+(0,-6mm__) to last line.end+(0,-6mm__),\ -4mm__,d,3mm__,2mm__)} dot(,1mm__);{"2" at Here+(0,-4mm__)} line right_ dim; {dimension_(from last line.start+(0,-6mm__) to last line.end+(0,-6mm__),\ -4mm__,d,3mm__,2mm__)} dot(,1mm__);{"3" at Here+(0,-4mm__)} line right_ dim; {dimension_(from last line.start+(0,-6mm__) to last line.end+(0,-6mm__),\ -4mm__,d,3mm__,2mm__)} dot(,1mm__);{"4" at Here+(0,-4mm__)} line right_ dim; {dimension_(from last line.start+(0,-6mm__) to last line.end+(0,-6mm__),\ -4mm__,d,3mm__,2mm__)} dot(,1mm__);{"5" at Here+(0,-4mm__)} line -> right_ dim; "$\ \theta=0^\circ$" ljust_ move to Org {line -> up_ 3*dim; right_; "$\theta=90^\circ$" above_} {line -> up_ 2*dim right_ 3*dim} line from (1*dim,0) to (0.6919*dim, 0.4613*dim) dimension_(from (0,0) to last line.end, hlf,$\psi$,3mm__, 3mm__) "$\psi = \displaystyle \frac{2\pi d}{\lambda}\cos\theta$" at (dim,1.5*dim) lAng=atan2(2,3); aRad=2.5*dim A1:arcr(Org,aRad,0,lAng,invis) arcdimension_(A1.start to A1.end,,$\theta$,4mm__,,->) "\tiny Uniform" at (5*dim, -hlf) .PE