!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! i_show_moments.ima
!   adapted for IMAGER from i_show.ima 
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
define character r*5 n*5 b*5
r = 'ansi%red'
n = 'ansi%none'
b = 'ansi%blue'
!

say " SHOW MOMENTS will show the MOMENTS results"
say " "
say "  Displayed field size   "'ansi%blue'"SIZE"'ansi%none'"           [" 'bold''size[1]' 'size[2]''norm' "]         "'box%sunit'
say "  Field center           "'ansi%blue'"CENTER"'ansi%none'"         [" 'bold''center[1]' 'center[2]''norm' "]         offset "'box%sunit'
say "  Cross size at center   "'ansi%blue'"CROSS"'ansi%none'"          [" 'bold''cross''norm' "]           in arcsec, 0 ==> none "
say " "
say "  Area Contour Spacing   "'ansi%blue'"AREA_SPACING"'ansi%none'"   [" 'bold''area_spacing''norm' "] "
say "  Peak Contour Spacing   "'ansi%blue'"PEAK_SPACING"'ansi%none'"   [" 'bold''peak_spacing''norm' "] "
say "  Velocity Spacing       "'ansi%blue'"VELO_SPACING"'ansi%none'"   [" 'bold''velo_spacing''norm' "] "
say "  Width Spacing          "'ansi%blue'"WIDTH_SPACING"'ansi%none'"  [" 'bold''width_spacing''norm' "] "

say "  Area range             "'ansi%blue'"AREA_SCALE"'ansi%none'"     [" 'bold''area_scale[1]'" "'area_scale[2]''norm' "] "
say "  Peak range             "'ansi%blue'"PEAL_SCALE"'ansi%none'"     [" 'bold''Peak_scale[1]'" "'Peak_scale[2]''norm' "] "
say "  Velocity range         "'ansi%blue'"VELO_SCALE"'ansi%none'"     [" 'bold''velo_scale[1]'" "'velo_scale[2]''norm' "] "
say "  Width range            "'ansi%blue'"WIDTH_SCALE"'ansi%none'"    [" 'bold''width_scale[1]'" "'width_scale[2]''norm' "] "

if ("a&1".ne."a??") return
say " "
say "  Display the header     "'ansi%blue'"DO_HEADER"'ansi%none'"      [" 'bold''do_header''norm' "]   "
say "  Display a color wedge  "'ansi%blue'"DO_WEDGE"'ansi%none'"       [" 'bold''do_wedge''norm' "]     "
say "  Plot bitmaps           "'ansi%blue'"DO_BIT"'ansi%none'"         [" 'bold''do_bit''norm' "]         "
say "  Add the clean beam     "'ansi%blue'"DO_NICE"'ansi%none'"        [" 'bold''do_dirty''norm' "]     "
say "  Display the labels     "'ansi%blue'"DO_LABEL"'ansi%none'"       [" 'bold''do_label''norm' "]     "
say "  Display contour levels "'ansi%blue'"DO_CONTOUR"'ansi%none'"     [" 'bold''do_contour''norm' "] "    
say "  grey-scale contours    "'ansi%blue'"DO_GREY"'ansi%none'"        [" 'bold''do_grey''norm' "] "
!
!say "                         [SPACE_TYPE = "AUTO"  or  SPACING =0 ==> automatic determination]"
!say "                         [SPACE_TYPE = "EXPO"  and SPACING >=0 ==> logarithmic levels]"
!say "                         [SPACE_TYPE = "NATIVE"  and SPACING >0 ==> levels equally spaced by the value of SPACING units]"
!say "                         [SPACE_TYPE = "NOISE" and SPACING >0 ==> levels equally spaced by the value of SPACING sigmas]"
!say "                         [SPACE_TYPE = "USER"  or  SPACING <0 ==> manually use LEVELS command]"
say "  Automatic colour scale "'ansi%blue'"SHOW_COLOR"'ansi%none'"  ["  'bold''show_color''norm'"] " 

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
