! PR:X_UVMAP.GRAPHIC 
! List input parameters for INPUT UVMAP 
!---------------------------------------------------------------------- 
define integer pillbox sinc expo expo_sinc spheroidal 
let pillbox 1 
let sinc 2 
let expo 3 
let expo_sinc 4 
let spheroidal 5 
define logical shift 
! 
gui\panel "UV_MAP Input parameters" gildas_help:uv_map.hlp 
let name 'name' /prompt "UV Table name " 
let uv_taper 'uv_taper[1]' 'uv_taper[2]' 'uv_taper[3]' /prompt "UV Taper" 
let weight_mode 'weight_mode' /prompt "Weighting mode" /choice natural uniform 
let map_size 'map_size[1]' 'map_size[2]' /prompt "Map size (in pixels)" 
let map_cell 'map_cell[1]' 'map_cell[2]' /prompt "Pixel size (in arcsec)" 
let uv_shift 'uv_shift' /prompt "Shift and rotate map on specified center ?" 
let map_ra 'map_ra' /prompt "Right Ascension" 
let map_dec 'map_dec' /prompt "Declination" 
let map_angle 'map_angle' /prompt "Angle from North" 
! 
let uv_cell 'uv_cell[1]' 'uv_cell[2]' /prompt "UV Cell size and min. weight" 
let mcol 'mcol[1]' 'mcol[2]' /prompt "First and last channel" 
let wcol 'wcol' /prompt "Weight channel" 
! 
let convolution 'convolution' /prompt "Convolution function" /choice pillbox sinc expo expo_sinc spheroidal 
on error return 
gui\go 
on error 
@ p_go &1 &2 &3 &4 &5 &6 &7 &8 &9