! @ x_holo
!
! Automatic calibration procedure for Holographies
! No arguments
!
clear whole
g\set plot landscape
device image white
lut rainbow3
IF (.NOT.EXIST(HMODE)) THEN
  DEFINE INTEGER   mant hREC hscan[2] hmode hpmode hsize hniter /GLOBAL
  define real hgain /global
  DEFINE CHARACTER hdate*11 hFILE_NAME*80 hOLD_FILE*80 hmin_qual*10 /GLOBAL
  define character hcant*1 hrings*12 hsects*12 hbases*15 /GLOBAL
  define logical hastig /GLOBAL
  !
  ! First call defaults:
  !
  let hrings       " "
  let hsects       " "
  let hdate       *
  let hmode       1
  let hrec        1 
  let mant	  5
  let hsize       1
  LET hOLD_FILE   "not yet defined"
  LET hSCAN       0 10000
  let hmin_qual   "AVERAGE"
  let hniter 5
  let hgain 1.0
  let hpmode 2
  let hbases "ALL"
  let hcant "A"
  let hastig NO
ENDIF
!
SYMBOL STOP "SIC\PAUSE"
SYMBOL BREAKS " "
!
GUI\PANEL "Calibration package for Holographies (R.Lucas)" pr:clic/x_holo.hlp
LET hdate	'hdate' 	 /PROMPT "Observing date ?"
LET hREC	'hrec' 	   	 /PROMPT "Receiver number ?"
LET hcant	'hcant'	   	 /PROMPT "Scanned (log.) antenna ?" -
  /CHOICE "1" "2" "3" "4" "5" "6" "A"
LET hbases	'hbases' 	 /PROMPT "Baselines to be used ?"
LET hmode	'hmode' 	 /PROMPT "Mode ?"  /index CONTINUUM LINE
LET hFILE_NAME	'hold_file'   	 /PROMPT "File name ?" /FILE "*.hpb"
LET hSCAN	'hscan[1]' 'hscan[2]' /PROMPT "First and last scan ?"
LET hMIN_QUAL   'hmin_qual'         /PROMPT "Min. Data quality ?" -
 /CHOICE "UNKNOWN" "EXCELLENT" "GOOD" "FAIR" "AVERAGE" "POOR" "BAD" "AWFUL" -
"WORST" "DELETED"
!let hamprel 'hamprel' /PROMPT "Use calibrated amplitudes ?"
let hsize  'hsize' /PROMPT "Map size in pixels"  /index 64 128
!
GUI\BUTTON "@ x_holo_create"  CREATE 	! Selection criteria
GUI\BUTTON "@ x_holo_select"  SELECT 	! Selection criteria
GUI\BUTTON "@ x_holo_rf"      RF		! RF calibration
GUI\BUTTON "@ x_holo_phase"   PHASE  	! Phase Calibration
GUI\BUTTON "@ x_holo_ampli"   AMPL.  	! Amplitude Calibration
GUI\BUTTON "@ x_holo_solve"   solve  	! Solve and Plot
GUI\BUTTON "@ x_holo_panels"  PANELS "Panels ..." -
    "pr:clic/x_holo_panels.hlp" "Input for Panels"
let hpmode 'hpmode' /Prompt "Modes "   /INDEX -
     "Piston" "+Tilts" "+Torsion" "+Boss(ALL)"
let hniter 'hniter' /prompt "Num. Iterations ?"
let hgain  'hgain'  /prompt "Interative Gain ?"
let hrings 'hrings'   /prompt "Rings avoided for paraboloid fit ?" 
let hsects 'hsects'   /prompt "Sectors avoided for paraboloid fit ?" 
let hastig 'hastig'   /prompt "Subtract astigmatism ?" 
GUI\GO     "@ x_holo_all"     ALL    
!