on error return
GUI\PANEL "scan "'scan'" control panel" gag_help:xnic.hlp
!
let skew_text*4 "None" /new char
let epoch1 int(nint(epoch*10)|10) /new int
let epoch2 int((epoch-epoch1)*10) /new int
if (skew.ne.0) then
  let skew_text 'skew'
endif
say "Field ("'epoch1'"."'epoch2'"): "'field_center'"  Size: "'nint -
    (dazm*3600)'" x "'nint(abs(oelv*7200))'"  Skew: "'skew_text'
!
GUI\button  "@ p_signal"    "SIGNAL"
GUI\button  "@ p_despike"   "DESPIKE"
GUI\button  "@ p_support"   "SUPPORT"
GUI\button  "@ p_baseline"  "BASELINE"
GUI\button  "@ p_skynoise"  "SKYNOISE"
GUI\button  "@ p_protocol"  "PROTOCOL"
!
GUI\button  "@ p_makplan"  MAKPLAN "Double beam maps (MDB)" -
          gildas_help:makplan.hlp "MAKPLAN parameters"
!
let map_cell   'map_cell[1]' 'map_cell[2]' -
               /prompt "Azimuth and Elevation spacing"
let smooth_el  'smooth_el' -
               /prompt "Smoothing in elevation"

let taper      'taper'  -
               /prompt "Az (and El) apodization" -
               /index "Parabolic" "Gaussian" "Linear" "None"

GUI\button  "@ p_restore"  RESTORE "Single beam maps (EKH)" -
          gildas_help:restore.hlp "RESTORE parameters"
!
let beamsep    'beamsep' /prompt "ON to OFF beam separation"
let rotation   'rotation' -
               /prompt "ON to OFF beam angle"
let unbal      'unbal' -
               /prompt "ON to OFF beam peak ratio"
let restore_filter 'restore_filter' -
               /prompt "Wobbler frequency filter"  
let comb_teeth 'comb_teeth' -
               /prompt "Nb of impulses in the restoring function"  
!
GUI\button  "@ p_shift_and_add"  "SHIFT AND ADD" "Single beam maps (SAA)" -
          gildas_help:shift_and_add.hlp "SHIFT AND ADD parameters"
!
let map_cell   'map_cell[1]' 'map_cell[2]' -
               /prompt "Azimuth and Elevation spacing"
let smooth_el  'smooth_el' /prompt "Smoothing in elevation"
let taper      'taper' -
               /prompt "Azimuthal apodization" -
               /index "Parabolic" "Gaussian" "Linear" "None"
let beamsep    'beamsep' -
               /prompt "ON to OFF beam separation"
let unbal      'unbal' -
               /prompt "ON to OFF beam peak ratio"
let pa         'pa' -
               /prompt "Position angle (deg)" 
let offset     'offset[1]' 'offset[2]' -
               /prompt "Offset position (arcs)"
let saa_mask    'saa_mask' -
               /prompt "Shift and add mask"
!
GUI\button  "@ p_convert"  CONVERT "Convert to equatorial (CNV)" -
          gildas_help:convert.hlp "CONVERT parameters"
!
let ra_extent  'ra_extent' -
               /prompt "Field size in RA (arcmin)"
let dec_extent 'dec_extent' -
               /prompt "Field size in DEC (arcmin)"
let radec_cell 'radec_cell[1]' 'radec_cell[2]' -
               /prompt "RA and DEC spacing (arcsec)"
let cutoff     'cutoff' -
	       /prompt "Weighting function cutoff"
let taper      'taper' -
               /prompt "Beam apodization" -
               /index "Parabolic" "Gaussian" "Linear" "None"
!
GUI\button  "@ p_convert"  CONVERT "Combine several scans (CNV)" -
          gildas_help:convert.hlp "CONVERT parameters"
!
let ra_extent  'ra_extent' -
               /prompt "Field size in RA (arcmin)"
let dec_extent  'dec_extent' -
               /prompt "Field size in DEC (arcmin)"
let radec_cell 'radec_cell[1]' 'radec_cell[2]' -
               /prompt "RA and DEC spacing (arcsec)"
let cutoff     'cutoff' -
	       /prompt "Weighting function cutoff"
let taper      'taper' -
               /prompt "Azimuthal apodization" -
               /index "Parabolic" "Gaussian" "Linear" "None"
let scan_list  'scan_list' -
               /prompt "List of scans"
!
GUI\GO