FUNCTION TELESCOPE_POINTING, Hdr
IF (DATATYPE(hdr) EQ 'STC')  THEN BEGIN
   tel=hdr.detector 
   shdr = hdr
ENDIF ELSE BEGIN
   tel=FXPAR(hdr,'TELESCOP')
   IF (tel EQ 'MK3')  THEN shdr=MLO_FITSHDR2STRUCT(hdr) $
                      ELSE shdr=LASCO_FITSHDR2STRUCT(hdr)
ENDELSE
IF (tel EQ 'MK3')  THEN BEGIN
   sunc = [shdr.crpix1,shdr.crpix2]
   solrad = shdr.crradius   ; pixels per solar radius
   roll = shdr.crota1
   RETURN,[sunc(0),sunc(1),roll,solrad]
ENDIF
sunc = GET_SUN_CENTER (shdr,/nocheck)
arcs = GET_SEC_PIXEL (shdr)
srad = GET_SOLAR_RADIUS (shdr)
roll = GET_SOLAR_ROLL (shdr)
RETURN,[sunc.xcen,sunc.ycen,roll,srad/arcs]
END