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' 
!
let plot_level 'plot_level' /prompt "Level plotting"
let plot_map 'plot_map' /prompt "Map plotting"
GUI\button  "@ p_signal"   SIGNAL 
GUI\button  "despike /inter"   DESPIKE
GUI\button  "@ p_onoff-without-noise"  ONOFF "Without NOISE removal" -
          gildas_help:onoff.hlp "ONOFF parameters"
!
!let compute  'compute' /prompt "Compute Mean or Median" -
!        /index "MEAN" "MEDIAN"
if (onoff_mode.eq.1) then
	let symmetric yes
  else
        let symmetric no
endif

let format  'format' /prompt "Short or Long Format" -
        /index "SHORT" "LONG"

let symmetric 'symmetric' /prompt "Assume symmetric scan"
if (symmetric) then
	let onoff_mode 1
  else
        let onoff_mode -1
endif

if (scan.lt.10) then
  let onoff_file 'onoff_file' /prompt "Output file (000"'SCAN'".onf)"
 else if (scan.lt.100) then
  let onoff_file 'onoff_file' /prompt "Output file (00"'SCAN'".onf)"
 else if (scan.lt.1000) then
  let onoff_file 'onoff_file' /prompt "Output file (0"'SCAN'".onf)"
 else 
  let onoff_file 'onoff_file' /prompt "Output file ("'SCAN'".onf)"
endif
let onoff_beam 'onoff_beam' /prompt "Beam radius"

!

GUI\button  "@ p_onoff-with-noise"  ONOFF "With NOISE removal" -
          gildas_help:onoff.hlp "ONOFF parameters"
!
let onoff_fit  'onoff_fit' /prompt "Fitting Function" -
        /index "MEAN" "PLANE" "PARABOLIC" "AUTO"

let onoff_fit_dist 'onoff_fit_dist' /prompt "Fitting angular range (arcsec)"

say " "
say " "
say " "
say " "

!let compute   'compute' /prompt "Compute Mean or Median" -
!              /index "MEAN" "MEDIAN"
if (onoff_mode.eq.1) then
	let symmetric yes
  else
        let symmetric no
endif

let format  'format' /prompt "Short or Long Format" -
        /index "SHORT" "LONG"

let symmetric 'symmetric' /prompt "Assume symmetric scan"
if (symmetric) then
	let onoff_mode 1
  else
        let onoff_mode -1
endif
let onoff_beam 'onoff_beam' /prompt "Beam radius"
if (scan.lt.10) then
  let onoff_file 'onoff_file' /prompt "Output file (000"'SCAN'".onf)"
 else if (scan.lt.100) then
  let onoff_file 'onoff_file' /prompt "Output file (00"'SCAN'".onf)"
 else if (scan.lt.1000) then
  let onoff_file 'onoff_file' /prompt "Output file (0"'SCAN'".onf)"
 else 
  let onoff_file 'onoff_file' /prompt "Output file ("'SCAN'".onf)"
endif
!
! button : Conmbine several scans
GUI\button  "@ p_onoff"  ONOFF "Combine several scans" -
          gildas_help:onoff.hlp "ONOFF parameters"
let scan_list  'scan_list' /prompt "List of scans"
!
GUI\go