# SOFI ZERO POINT FOR WEB PAGE PRESENTATION
# September 19th, 2008
REPORT_BODY (ZP_WEB)
  #
  OPS_FILTER
  OPS_FILTER_ADD (QC1_SOFI,QC FILTER REF,=,'J',STRING)
    OPS_PLOT (zp_j_airm.gif)
      PLOT_NUMBER_AXIS_Y (2)
      PLOT_INFO (SOFI Zero Point J-band and Airmass, Time -- days since the start of 2006, ZPOINT_J_and_Airmass)
      PLOT_MARK (4)
      PLOT_SCALE_Y (15,25)
      OPS_PLOT_ADD (QC1_SOFI, QC ZPOINT, ZPOINT_J, 0, 24)
      PLOT_MARK (17)
      PLOT_SCALE_Y (0,5)
      OPS_PLOT_ADD (QC1_SOFI,QC AIRMASS, Airmass,0 , 24)
    OPS_PLOT_END
   OPS_FILTER_END
# 
  OPS_FILTER
  OPS_FILTER_ADD (QC1_SOFI,QC FILTER REF,=,'H',STRING)
    OPS_PLOT (zp_h_airm.gif)
      PLOT_NUMBER_AXIS_Y (2)
      PLOT_INFO (SOFI Zero Point H-band and Airmass, Time -- days since the start of 2006, ZPOINT_H_and_Airmass)
      PLOT_MARK (4)
      PLOT_SCALE_Y (15,25)
      OPS_PLOT_ADD (QC1_SOFI, QC ZPOINT, ZPOINT_H, 0, 24)
      PLOT_MARK (17)
      PLOT_SCALE_Y (0,5)
      OPS_PLOT_ADD (QC1_SOFI,QC AIRMASS, Airmass,0 , 24)
    OPS_PLOT_END
   OPS_FILTER_END
# 
  OPS_FILTER
  OPS_FILTER_ADD (QC1_SOFI,QC FILTER REF,=,'Ks',STRING)
    OPS_PLOT (zp_ks_airm.gif)
      PLOT_NUMBER_AXIS_Y (2)
      PLOT_INFO (SOFI Zero Point Ks-band and Airmass, Time -- days since the start of 2006, ZPOINT_Ks_and_Airmass)
      PLOT_MARK (4)
      PLOT_SCALE_Y (15,25)
      OPS_PLOT_ADD (QC1_SOFI, QC ZPOINT, ZPOINT_Ks, 0, 24)
      PLOT_MARK (17)
      PLOT_SCALE_Y (0,5)
      OPS_PLOT_ADD (QC1_SOFI,QC AIRMASS, Airmass,0 , 24)
    OPS_PLOT_END
   OPS_FILTER_END
#
  OPS_FILTER
  OPS_FILTER_ADD (QC1_SOFI,QC FILTER REF,=,'J',STRING)
    OPS_PLOT (zp_airmcorr_j.gif)
      PLOT_NUMBER_AXIS_Y (2)
      PLOT_INFO (Airmass-corrected SOFI zero point J-band, Time -- days since start of 2006, ZPOINT_J)
      OPS_GETDATA (QC1_SOFI,QC ZPOINT,0, 24, key1)
      OPS_GETDATA (QC1_SOFI,QC AIRMASS,0 , 24, key2)
      PLOT_MARK (4)
      PLOT_SCALE_Y (21,24)
      OPS_PLOT_ADD_FUNC (key1 + {key2 * 0.07}, Function: ZPOINT_J + AIRMASS*0.07, 0, 24)
      OPS_PLOT_END
  OPS_FILTER_END
  #
  OPS_FILTER
  OPS_FILTER_ADD (QC1_SOFI,QC FILTER REF,=,'H',STRING)
    OPS_PLOT (zp_airmcorr_h.gif)
      PLOT_NUMBER_AXIS_Y (2)
      PLOT_INFO (Airmass-corrected SOFI zero point H-band, Time -- days since start of 2006, ZPOINT_H)
      OPS_GETDATA (QC1_SOFI,QC ZPOINT,0, 24, key1)
      OPS_GETDATA (QC1_SOFI,QC AIRMASS,0 , 24, key2)
      PLOT_MARK (4)
      PLOT_SCALE_Y (21,24)
      OPS_PLOT_ADD_FUNC (key1 + {key2 * 0.03}, Function: ZPOINT_H + AIRMASS*0.03, 0, 24)
      OPS_PLOT_END
  OPS_FILTER_END
#
  OPS_FILTER
  OPS_FILTER_ADD (QC1_SOFI,QC FILTER REF,=,'Ks',STRING)
    OPS_PLOT (zp_airmcorr_ks.gif)
      PLOT_NUMBER_AXIS_Y (2)
      PLOT_INFO (Airmass-corrected SOFI zero point Ks-band, Time -- days since start of 2006, ZPOINT_Ks)
      OPS_GETDATA (QC1_SOFI,QC ZPOINT,0, 24, key1)
      OPS_GETDATA (QC1_SOFI,QC AIRMASS,0 , 24, key2)
      PLOT_MARK (4)
      PLOT_SCALE_Y (21,24)
      OPS_PLOT_ADD_FUNC (key1 + {key2 * 0.03}, Function: ZPOINT_Ks + AIRMASS*0.03, 0, 24)
      OPS_PLOT_END
  OPS_FILTER_END

REPORT_END