gui\panel "Display control panel" gag_pro:display_summary.hlp
sic\let name 'name' /prompt "File name (without extension)"
sic\let type 'type' /prompt "File extension"
sic\let do_header 'do_header' /prompt "Draw header"
!
gui\button "@ x_lmv.greg" MAP "Channel maps" gag_pro:x_display.hlp "MAP parameters"
!
sic\let first 'first' /prompt "First channel"
sic\let last 'last' /prompt "Last channel"
!
sic\let size 'size[1]' 'size[2]' /prompt "Size of plotted area (sec)"
sic\let spacing 'spacing' /prompt "Contour step"
sic\let cross 'cross' /prompt "Center cross size (sec)"
sic\let mark 'mark' /prompt "Box marking type" /choice "velocity" "frequency" "channel" "none"
!
sic\let do_nice 'do_nice' /prompt "Plot clean beam ?"
sic\let do_dirty 'do_dirty' /prompt "Plot dirty beam ?"
sic\let do_coverage 'do_coverage' /prompt "Plot UV coverage ?"
sic\let do_bit 'do_bit' /prompt "Show bitmap images ?"
sic\let do_contour 'do_contour' /prompt "Draw contours ?"
sic\let do_grey 'do_grey' /prompt "Fill contours ?"
!
gui\button "@ x_pos.greg" POS "P-V diagrams" gag_pro:x_display.hlp "POS parameters"
!
sic\let first 'first' /prompt "First column"
sic\let last 'last' /prompt "Last column"
sic\let step 'step' /prompt "Column step"
sic\let box_limits 'box_limits' /prompt "Limits for P-V diagram"
!
sic\let spacing 'spacing' /prompt "Contour step"
sic\let cross 'cross' /prompt "Center cross size (sec)"
sic\let mark 'mark' /prompt "Box marking type" /choice "velocity" "frequency" "channel" "none"
!
sic\let do_nice 'do_nice' /prompt "Plot clean beam ?"
sic\let do_bit 'do_bit' /prompt "Show bitmap images ?"
sic\let do_contour 'do_contour' /prompt "Draw contours ?"
sic\let do_grey 'do_grey' /prompt "Fill contours ?"
sic\let do_tree 'do_tree' /prompt "Structure plot ?"
!
gui\button "@ p_spectre.greg" SPECTRA "Spectra" gag_pro:x_display.hlp "SPECTRA parameters"
sic\let xpix 'xpix[1]' 'xpix[2]' 'xpix[3]' /prompt "X pixels"
sic\let ypix 'ypix[1]' 'ypix[2]' 'ypix[3]' /prompt "Y pixels"
sic\let box_limits 'box_limits' /prompt "Limits for spectra"
sic\let do_grey 'do_grey' /prompt "Filled Spectra ?"
sic\let do_contour 'do_contour' /prompt "Draw spectra outline ?"
!
gui\button "HEADER 'name'.'type'" "Show Current Image Header"
!
gui\button "@ p_view.greg" VIEW "Interactive Viewer" gag_pro:p_view.hlp "VIEW parameters"
sic\let range 'range[1]' 'range[2]' /prompt "Velocity range"
!
gui\button "@ p_3view.greg" 3VIEW "Yet another Interactive Viewer" gag_pro:p_3view.hlp "3VIEW parameters"
sic\let range 'range[1]' 'range[2]' /prompt "Velocity range"
!
on error return
gui\go
