! 
! x_clean_channels.map
! 
if (.not.exist(ratio)) then 
  define integer ratio plane lplane /global 
  define real flux[2] /global 
  define character do_plot*12 /global 
  define logical loop 
  let gain 0.2 
  let fres 0 
  let ares 1e-3 
  let niter 100 
  if (mosaic) then 
    let niter 500 
  endif 
  let ratio 0 
  let first 'first' 
  let last 'last' 
  let do_plot residuals 
  let flux 0 0 
  let loop no 
endif 
! 
gui\panel "CLEAN control panel" pr:map/mapping_clean.hlp 
! 
if (mosaic) then 
  say "YOU ARE IN MOSAIC MODE" 
endif 
! 
let gain 'gain' /prompt "Loop gain" 
let niter 'niter' /prompt "Max. number of iterations" 
let ares 'ares' /prompt "Max abs. residual" 
let ratio 'ratio' /prompt "MRC smoothing factor" 
let first 'first' /prompt "First channel to be CLEANed" 
let last 'last' /prompt "Last channel to be CLEANed" 
! 
! ------ HOGBOM 
! 
gui\button "@ do_clean_all.map HOGBOM" hogbom "HOGBOM method" gildas_run:uv_map.hlp "HOGBOM parameters" 
@ get_clean_hogbom.map 
! 
! ------ CLARK 
! 
gui\button "@ do_clean_all.map CLARK" clark "CLARK method" gildas_run:uv_map.hlp "CLARK parameters" 
@ get_clean_clark.map 
! 
! ------ SDI 
! 
gui\button "@ do_clean_all.map SDI" sdi "SDI method" gildas_help:uv_map.hlp "SDI parameters" 
@ get_clean_sdi.map 
! 
! ------ MRC 
! 
gui\button "@ do_clean_all.map MRC" mrc "MRC method" gildas_help:uv_map.hlp "MRC parameters" 
@ get_clean_mrc.map 
! 
! 
! 
! 
gui\button "@ p_plot CLEAN" "SHOW CLEAN" "Show CLEAN map" gildas_help:clean.hlp "SHOW parameters" 
@ get_show.map 
! 
on error return 
gui\go 
!