pro pqual,mov,qual ; working version of quality determination using 1-D power spectra ; derived from strips in x,y cross form ; works wit 3-D array MOV (input) ; output: quality measure (integral power) in 3 channels - array QUAL ;-------------------------------------------- stp=0.125 ; spatial scale (arcsec/pix) ; settings of 3 channels (char.length in arcsec) ch=[[0.6,0.35],[0.6,0.4],[0.9,0.4]] ;-------------------------------------------- si=size(mov) qual=fltarr(3,si(3)) n=si(1)