! pr:graphic/x_uv.graphic 
! panel for UV plane tasks 
!---------------------------------------------------------------------- 
! 
gui\panel "UV actions control panel" pr:graphic/x_uv.hlp 
sic\let name 'name' /prompt "Generic name " 
! 
gui\button "@ p_uvclip" UV_CLIP "UV Clip" gildas_help:uv_clip.hlp "UV_CLIP parameters" 
sic\let vclip 'vclip' /prompt "Clipping value (Jy)" 
let first 'first' /prompt "First channel" 
let last 'last' /prompt "Last channel" 
! 
! 
gui\button "@ p_uvall" UVALL "UV Plots" gildas_help:uv_fit.hlp "UVALL parameters" 
sic\let xtype 'xtype' /prompt "X data" /choice u v angle radius time date scan number amp phase real imag weight 
sic\let ytype 'ytype' /prompt "Y data" /choice u v angle radius time date scan number amp phase real imag weight 
let first 'first' /prompt "First channel" 
let last 'last' /prompt "Last channel" 
let limits 'limits' /prompt "Plot limits" 
! 
gui\button "@ p_uvshift" UV_SHIFT "UV_SHIFT" gildas_help:uv_shift.hlp "UV_SHIFT parameters" 
let map_ra 'map_ra' /prompt "Right Ascension" 
let map_dec 'map_dec' /prompt "Declination" 
let map_angle 'map_angle' /prompt "Angle from North" 

! 
gui\button "@ p_uvfit" UV_FIT "UV fit (NAG)" gildas_help:uv_fit.hlp "UV_FIT parameters" 
let first 'first' /prompt "First channel" 
let last 'last' /prompt "Last channel" 
let uv_range 'uv_range[1]' 'uv_range[2]' /prompt "UV range(min, max) (meters)" 
let n_funct 'n_funct' /prompt "Number of Functions (1 or 2)" 
let funct01 'funct01' /prompt "Function 1:" /choice point c_gauss e_gauss c_disk e_disk ring exp power-2 power-3 u_ring 
let param01 'param01[1]' 'param01[2]' 'param01[3]' 'param01[4]' 'param01[5]' 'param01[6]' /prompt "Parameters" 
let range01 'range01[1]' 'range01[2]' 'range01[3]' 'range01[4]' 'range01[5]' 'range01[6]' /prompt "Starting range" 
let start01 'start01[1]' 'start01[2]' 'start01[3]' 'start01[4]' 'start01[5]' 'start01[6]' /prompt "numb. of starts" 
let subsf01 'subsf01' /prompt "Subtract function" 
! 
let funct02 'funct02' /prompt "Function 2:" /choice point c_gauss e_gauss c_disk e_disk ring exp power-2 power-3 u_ring 
let param02 'param02[1]' 'param02[2]' 'param02[3]' 'param02[4]' 'param02[5]' 'param02[6]' /prompt "Parameters" 
let range02 'range02[1]' 'range02[2]' 'range02[3]' 'range02[4]' 'range02[5]' 'range02[6]' /prompt "Starting range" 
let start02 'start02[1]' 'start02[2]' 'start02[3]' 'start02[4]' 'start02[5]' 'start02[6]' /prompt "numb. of starts" 
let subsf02 'subsf02' /prompt "Subtract function" 
! 
gui\button "@ p_uvfit-s" UV_FIT-S "UV fit(SLATEC)" gildas_help:uv_fit-s.hlp "UV_FIT parameters" 
let first 'first' /prompt "First channel" 
let last 'last' /prompt "Last channel" 
let uv_range 'uv_range[1]' 'uv_range[2]' /prompt "UV range(min, max) (meters)" 
let n_funct 'n_funct' /prompt "Number of Functions (1 or 2)" 
let funct01 'funct01' /prompt "Function 1:" /choice point c_gauss e_gauss c_disk e_disk ring exp power-2 power-3 u_ring 
let param01 'param01[1]' 'param01[2]' 'param01[3]' 'param01[4]' 'param01[5]' 'param01[6]' /prompt "Parameters" 
let range01 'range01[1]' 'range01[2]' 'range01[3]' 'range01[4]' 'range01[5]' 'range01[6]' /prompt "Starting range" 
let start01 'start01[1]' 'start01[2]' 'start01[3]' 'start01[4]' 'start01[5]' 'start01[6]' /prompt "numb. of starts" 
let subsf01 'subsf01' /prompt "Subtract function" 
! 
let funct02 'funct02' /prompt "Function 2:" /choice point c_gauss e_gauss c_disk e_disk ring exp power-2 power-3 u_ring 
let param02 'param02[1]' 'param02[2]' 'param02[3]' 'param02[4]' 'param02[5]' 'param02[6]' /prompt "Parameters" 
let range02 'range02[1]' 'range02[2]' 'range02[3]' 'range02[4]' 'range02[5]' 'range02[6]' /prompt "Starting range" 
let start02 'start02[1]' 'start02[2]' 'start02[3]' 'start02[4]' 'start02[5]' 'start02[6]' /prompt "numb. of starts" 
let subsf02 'subsf02' /prompt "Subtract function" 
! 
! 
gui\button "@ p_plotfit" PLOTFIT "Plotting UV fits" pr:graphic/plotfit.hlp "PLOTFIT parameters" 
let n_component 'n_component' /prompt "number of components" 
let component 'component[1]' 'component[2]' 'component[3]' 'component[4]' 'component[5]' /prompt "Components (5 integers)" 
let nfx 'nfx' /prompt "number of X parameters (max 5)" 
let axtype 'axtype' /prompt "X Parameters" 
let axmin 'axmin' /prompt "X min values (or *)" 
let axmax 'axmax' /prompt "X max values (or *)" 
let nfy 'nfy' /prompt "number of Y parameters (max 5)" 
let aytype 'aytype' /prompt "Y Parameters" 
let aymin 'aymin' /prompt "Y min values (or *)" 
let aymax 'aymax' /prompt "Y max values (or *)" 
let first 'first' /prompt "First channel" 
let last 'last' /prompt "Last channel" 
let error_bars 'error_bars' /prompt "Plot error bars" 
! 
on error return 
gui\go