! 
! x_clean.map 
! 
if (.not.exist(ratio)) then 
  define integer ratio plane /global 
  define real flux[2] /global 
  define character do_plot*12 /global 
  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 plane first 
  let do_plot residuals 
  let flux 0 0 
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 plane 'plane' /prompt "Plane to be CLEANed" 
! 
! ------ HOGBOM 
! 
gui\button "@ do_clean.map HOGBOM" hogbom "HOGBOM method" gildas_run:uv_map.hlp "HOGBOM parameters" 
let gain 'gain' /prompt "Loop gain" 
let niter 'niter' /prompt "Max. number of iterations" 
let ares 'ares' /prompt "Max abs. residual" 
let fres 'fres' /prompt "Frac. abs. residual" 
let blc 'blc[1]' 'blc[2]' /prompt "Bottom Left corner" 
let trc 'trc[1]' 'trc[2]' /prompt "Top Right corner" 
let beam_patch 'beam_patch[1]' 'beam_patch[2]' /prompt "Beam Patch" 
let major 'major' /prompt "Clean Beam major axis (sec)" 
let minor 'minor' /prompt "Clean Beam minor axis (sec)" 
let angle 'angle' /prompt "Clean Beam PA (deg E from N)" 
if (mosaic) then 
  let search_w 'search_w' /prompt "MOSAIC: Min. weight for search" 
  let restore_w 'restore_w' /prompt "MOSAIC: Min. weight for restore" 
endif 
let flux 'flux[1]' 'flux[2]' /prompt "Flux scale for display" 
! 
! ------ CLARK 
! 
gui\button "@ do_clean.map CLARK" clark "CLARK method" gildas_run:uv_map.hlp "CLARK parameters" 
let gain 'gain' /prompt "Loop gain" 
let niter 'niter' /prompt "Max. number of iterations" 
let ares 'ares' /prompt "Max abs. residual" 
let fres 'fres' /prompt "Frac. abs. residual" 
let blc 'blc[1]' 'blc[2]' /prompt "Bottom Left corner" 
let trc 'trc[1]' 'trc[2]' /prompt "Top Right corner" 
let beam_patch 'beam_patch[1]' 'beam_patch[2]' /prompt "Beam Patch" 
let major 'major' /prompt "Clean Beam major axis (sec)" 
let minor 'minor' /prompt "Clean Beam minor axis (sec)" 
let angle 'angle' /prompt "Clean Beam PA (deg E from N)" 
if (mosaic) then 
  let search_w 'search_w' /prompt "MOSAIC: Min. weight for search" 
  let restore_w 'restore_w' /prompt "MOSAIC: Min. weight for restore" 
endif 
let flux 'flux[1]' 'flux[2]' /prompt "Flux scale for display" 
let do_plot 'do_plot' /prompt "Display major cycle images?" /choice residuals clean none 
! 
! ------ SDI 
! 
gui\button "@ do_clean.map SDI" sdi "SDI method" gildas_help:uv_map.hlp "SDI parameters" 
let gain 'gain' /prompt "Loop gain" 
let niter 'niter' /prompt "Max. number of pixels" 
let ares 'ares' /prompt "Max abs. residual" 
let fres 'fres' /prompt "Frac. abs. residual" 
let blc 'blc[1]' 'blc[2]' /prompt "Bottom Left corner" 
let trc 'trc[1]' 'trc[2]' /prompt "Top Right corner" 
let beam_patch 'beam_patch[1]' 'beam_patch[2]' /prompt "Beam Patch" 
let major 'major' /prompt "Clean Beam major axis (sec)" 
let minor 'minor' /prompt "Clean Beam minor axis (sec)" 
let angle 'angle' /prompt "Clean Beam PA (deg E from N)" 
if (mosaic) then 
  let search_w 'search_w' /prompt "MOSAIC: Min. weight for search" 
  let restore_w 'restore_w' /prompt "MOSAIC: Min. weight for restore" 
endif 
let do_plot 'do_plot' /prompt "Display major cycle images?" /choice residuals clean none 
! 
! ------ MRC 
! 
gui\button "@ do_clean.map MRC" mrc "MRC method" gildas_help:uv_map.hlp "MRC parameters" 
let gain 'gain' /prompt "Loop gain" 
let niter 'niter' /prompt "Max. number of iterations" 
let ratio 'ratio' /prompt "MRC smoothing factor" 
let ares 'ares' /prompt "Max abs. residual" 
let fres 'fres' /prompt "Frac. abs. residual" 
let blc 'blc[1]' 'blc[2]' /prompt "Bottom Left corner" 
let trc 'trc[1]' 'trc[2]' /prompt "Top Right corner" 
let beam_patch 'beam_patch[1]' 'beam_patch[2]' /prompt "Beam Patch" 
let major 'major' /prompt "Clean Beam major axis (sec)" 
let minor 'minor' /prompt "Clean Beam minor axis (sec)" 
let angle 'angle' /prompt "Clean Beam PA (deg E from N)" 
if (mosaic) then 
  let search_w 'search_w' /prompt "MOSAIC: Min. weight for search" 
  let restore_w 'restore_w' /prompt "MOSAIC: Min. weight for restore" 
endif 
let flux 'flux[1]' 'flux[2]' /prompt "Flux scale for display" 
let do_plot 'do_plot' /prompt "Display major cycle images?" /choice residuals clean none 
! 
gui\button "@ p_plot CLEAN" "SHOW CLEAN" "Show CLEAN map" gildas_help:clean.hlp "SHOW parameters" 
! 
on error return 
gui\go 
!