!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! Panel for UV plane actions
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
begin data gag_scratch:x-uv.hlp
Not yet written
end data gag_scratch:x-uv.hlp
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
begin data gag_scratch:uvcov.hlp
Not yet written
end data gag_scratch:uvcov.hlp
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
begin data gag_scratch:uvshow.hlp
Not yet written
end data gag_scratch:uvshow.hlp
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
begin data gag_scratch:uvshift.hlp
Not yet written
end data gag_scratch:uvshift.hlp
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
begin data gag_scratch:plotfit.hlp
Not yet written
end data gag_scratch:plotfit.hlp
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
gui\panel "UV actions control panel" gag_scratch:x-uv.hlp
  let name 'name' /prompt "Generic name"
!
gui\button "@ p_uvclip" UV_CLIP "UV Clip" task#dir:uv_clip.hlp "UV_CLIP parameters"
  let name 'name' /prompt "Generic name"
  let uvclip%val 'uvclip%val' /prompt "Clipping value (Jy)"
  let first 'first' /prompt "First channel"
  let last  'last' /prompt "Last channel"
  let uvclip%all 'uvclip%all' /prompt "Kill all channels on bad data"
!
gui\button "@ p_uvcov" UVCOV "UV Coverage" gag_scratch:uvcov.hlp "UVCOV parameters"
  let name 'name' /prompt "Generic name"
  let uvshow%zero  'uvshow%zero' /prompt "Display zero level?"
  let uvshow%track 'uvshow%track' /prompt "Use one color per track?"
  let uvshow%step  'uvshow%step' /prompt "Typical time separating 2 tracks [hrs]"
!
gui\button "@ p_uvshow" UVSHOW "UV Plots" gag_scratch:uvshow.hlp "UVSHOW parameters"
  let name 'name' /prompt "Generic name"
  let xtype 'xtype' /prompt "X data" /choice "u" "v" "angle" "radius" "time" "date" "scan" "number" "amp" "phase" "real" "imag" "weight" "iant" "jant" "base"
  let ytype 'ytype' /prompt "Y data" /choice "u" "v" "angle" "radius" "time" "date" "scan" "number" "amp" "phase" "real" "imag" "weight" "iant" "jant" "base"
  let first 'first' /prompt "First channel"
  let last 'last' /prompt "Last channel"
  let box_limits 'box_limits' /prompt "Plot limits"
  let uvshow%fit 'uvshow%fit' /prompt "Plot model fit"
  let uvshow%zero 'uvshow%zero' /prompt "Display zero level?"
  let uvshow%track 'uvshow%track' /prompt "Use one color per track?"
  let uvshow%step 'uvshow%step' /prompt "Typical time separating 2 tracks [hrs]"
  let uvshow%marker 'uvshow%marker' /prompt "Marker definition as in the SET MARKER command"
!
gui\button "@ p_uvshift" UV_SHIFT "UV_SHIFT" gag_scratch:uvshift.hlp "UV_SHIFT parameters"
  let name 'name' /prompt "Generic name"
  let map_ra 'map_ra' /prompt "Right Ascension"
  let map_dec 'map_dec' /prompt "Declination"
  let map_angle 'map_angle' /prompt "Angle from North"
!
if file("task#dir:uv_fit.exe") then
   gui\button "@ p_uvfit" UV_FIT "UV fit" task#dir:uv_fit.hlp "UV_FIT parameters"
     let name 'name' /prompt "Generic name"
     let first 'first' /prompt "First channel"
     let last 'last' /prompt "Last channel"
     let uvfit%range 'uvfit%range[1]' 'uvfit%range[2]' /prompt "UV range(min, max) (meters)"
     let uvfit%nf 'uvfit%nf' /prompt "Number of Functions (1 or 2)"
     let uvfit%funct01 'uvfit%funct01' /prompt "Function 1:" /choice "point" "c_gauss" "e_gauss" "c_disk" "e_disk" "ring" "exp" "power-2" "power-3" "u_ring"
     let uvfit%param01 'uvfit%param01[1]' 'uvfit%param01[2]' 'uvfit%param01[3]' 'uvfit%param01[4]' 'uvfit%param01[5]' 'uvfit%param01[6]' 'uvfit%param01[7]' /prompt "Parameters"
     let uvfit%range01 'uvfit%range01[1]' 'uvfit%range01[2]' 'uvfit%range01[3]' 'uvfit%range01[4]' 'uvfit%range01[5]' 'uvfit%range01[6]' 'uvfit%range01[7]' /prompt "Starting range"
     let uvfit%start01 'uvfit%start01[1]' 'uvfit%start01[2]' 'uvfit%start01[3]' 'uvfit%start01[4]' 'uvfit%start01[5]' 'uvfit%start01[6]' 'uvfit%start01[7]' /prompt "numb. of starts"
     let uvfit%subsf01 'uvfit%subsf01' /prompt "Subtract function"
     !
     let uvfit%funct02 'uvfit%funct02' /prompt "Function 2:" /choice "point" "c_gauss" "e_gauss" "c_disk" "e_disk" "ring" "exp" "power-2" "power-3" "u_ring"
     let uvfit%param02 'uvfit%param02[1]' 'uvfit%param02[2]' 'uvfit%param02[3]' 'uvfit%param02[4]' 'uvfit%param02[5]' 'uvfit%param02[6]' 'uvfit%param02[7]' /prompt "Parameters"
     let uvfit%range02 'uvfit%range02[1]' 'uvfit%range02[2]' 'uvfit%range02[3]' 'uvfit%range02[4]' 'uvfit%range02[5]' 'uvfit%range02[6]' 'uvfit%range02[7]' /prompt "Starting range"
     let uvfit%start02 'uvfit%start02[1]' 'uvfit%start02[2]' 'uvfit%start02[3]' 'uvfit%start02[4]' 'uvfit%start02[5]' 'uvfit%start02[6]' 'uvfit%start02[7]' /prompt "numb. of starts"
     let uvfit%subsf02 'uvfit%subsf02' /prompt "Subtract function"
endif
!
gui\button "@ p_plotfit" PLOTFIT "Plotting UV fits" gag_scratch:plotfit.hlp "PLOTFIT parameters"
  let name 'name' /prompt "Generic name"
  let uvfit%np 'uvfit%np' /prompt "Number of fitted functions to be plotted" /index 1 2
  let uvfit%order 'uvfit%order[1]' 'uvfit%order[2]' /prompt "Order in which fitted functions are plotted"
  let uvfit%nx 'uvfit%nx' /prompt "Number of parameters plotted along x axis"  /index 1 2 3 4 5 6
  let uvfit%xtype[1] 'uvfit%xtype[1]' /prompt "X Parameter #1" /choice "velo * *" "freq * *" "channel * *" "rms * *" "ra * *" "dec * *" "flux * *" "width * *" "major * *" "minor * *" "angle * *" *
  let uvfit%xtype[2] 'uvfit%xtype[2]' /prompt "X Parameter #2" /choice "velo * *" "freq * *" "channel * *" "rms * *" "ra * *" "dec * *" "flux * *" "width * *" "major * *" "minor * *" "angle * *" *
  let uvfit%xtype[3] 'uvfit%xtype[3]' /prompt "X Parameter #3" /choice "velo * *" "freq * *" "channel * *" "rms * *" "ra * *" "dec * *" "flux * *" "width * *" "major * *" "minor * *" "angle * *" *
  let uvfit%xtype[4] 'uvfit%xtype[4]' /prompt "X Parameter #4" /choice "velo * *" "freq * *" "channel * *" "rms * *" "ra * *" "dec * *" "flux * *" "width * *" "major * *" "minor * *" "angle * *" *
  let uvfit%xtype[5] 'uvfit%xtype[5]' /prompt "X Parameter #5" /choice "velo * *" "freq * *" "channel * *" "rms * *" "ra * *" "dec * *" "flux * *" "width * *" "major * *" "minor * *" "angle * *" *
  let uvfit%xtype[6] 'uvfit%xtype[6]' /prompt "X Parameter #6" /choice "velo * *" "freq * *" "channel * *" "rms * *" "ra * *" "dec * *" "flux * *" "width * *" "major * *" "minor * *" "angle * *" *
  let uvfit%ny 'uvfit%ny' /prompt "Number of parameters plotted along y axis" /index 1 2 3 4 5 6
  let uvfit%ytype[1] 'uvfit%ytype[1]' /prompt "Y Parameter #1" /choice "velo * *" "freq * *" "channel * *" "rms * *" "ra * *" "dec * *" "flux * *" "width * *" "major * *" "minor * *" "angle * *" *
  let uvfit%ytype[2] 'uvfit%ytype[2]' /prompt "Y Parameter #2" /choice "velo * *" "freq * *" "channel * *" "rms * *" "ra * *" "dec * *" "flux * *" "width * *" "major * *" "minor * *" "angle * *" *
  let uvfit%ytype[3] 'uvfit%ytype[3]' /prompt "Y Parameter #3" /choice "velo * *" "freq * *" "channel * *" "rms * *" "ra * *" "dec * *" "flux * *" "width * *" "major * *" "minor * *" "angle * *" *
  let uvfit%ytype[4] 'uvfit%ytype[4]' /prompt "Y Parameter #4" /choice "velo * *" "freq * *" "channel * *" "rms * *" "ra * *" "dec * *" "flux * *" "width * *" "major * *" "minor * *" "angle * *" *
  let uvfit%ytype[5] 'uvfit%ytype[5]' /prompt "Y Parameter #5" /choice "velo * *" "freq * *" "channel * *" "rms * *" "ra * *" "dec * *" "flux * *" "width * *" "major * *" "minor * *" "angle * *" *
  let uvfit%ytype[6] 'uvfit%ytype[6]' /prompt "Y Parameter #6" /choice "velo * *" "freq * *" "channel * *" "rms * *" "ra * *" "dec * *" "flux * *" "width * *" "major * *" "minor * *" "angle * *" *
  let first 'first' /prompt "First channel"
  let last 'last' /prompt "Last channel"
  let uvfit%bars 'uvfit%bars' /prompt "Plot error bars"
!
on error return
gui\go
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
