; TVALL
;---------------------------------------------------------------
;! Procedure loads image to TV, shows labeled wedge, enhances
;# PROCEDURE TV
;-----------------------------------------------------------------------
;;  Copyright (C) 1995, 1999-2000
;;  Associated Universities, Inc. Washington DC, USA.
;;
;;  This program is free software; you can redistribute it and/or
;;  modify it under the terms of the GNU General Public License as
;;  published by the Free Software Foundation; either version 2 of
;;  the License, or (at your option) any later version.
;;
;;  This program is distributed in the hope that it will be useful,
;;  but WITHOUT ANY WARRANTY; without even the implied warranty of
;;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;  GNU General Public License for more details.
;;
;;  You should have received a copy of the GNU General Public
;;  License along with this program; if not, write to the Free
;;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,
;;  MA 02139, USA.
;;
;;  Correspondence concerning AIPS should be addressed as follows:
;;         Internet email: aipsmail@nrao.edu.
;;         Postal address: AIPS Project Office
;;                         National Radio Astronomy Observatory
;;                         520 Edgemont Road
;;                         Charlottesville, VA 22903-2475 USA
;-----------------------------------------------------------------------
;---------------------------------------------------------------
TVALL     LLLLLLLLLLLLUUUUUUUUUUUU CCCCCCCCCCCCCCCCCCCCCCCCCCCCC
TVALL:  Proc loads image to TV, shows labeled wedge, enhances
USERID     -32000.0     32000.0    User ID.  0 => current user,
                                     32000 => any user.
INNAME                             Image name(name).
INCLASS                            Image name(class).
INSEQ           0.0      9999.0    Image name(seq. #). 0=>high
INDISK          0.0         9.0    Disk drive #. 0=>any
TBLC            0.0      4096.0    Bottom Left Corner of image
                                     0=>entire image
TTRC            0.0      4096.0    Top Right Corner of image
                                     0=>entire image
TXINC        -100.0       256.0    Load every TXINC'th column
TYINC        -100.0       256.0    Load every TYINC'th row
TVCHAN          1.0      4444.0    Image channel to load
TVCORN          0.0       512.0    TV pixel location of bottom
                                     left corner of image
PIXRANGE                           Min,Max  of image intensity
                                     0=>entire range
FUNCTYPE                           Image intensity transfer func
                                     'LN' Linear, unknown=> 'LN'
                                     'LG' Logarithmic
                                     'SQ' Square root
                                     'NE' Negative linear
                                     'NG' Negative logarithmic
                                     'NQ' Negative square root
TVLEVS          0.0      1024.0    Peak intensity at OFM
GRCHAN         0.0          7.0    Graphics channel to use: 0->2
          Instructions will also appear on terminal.
----------------------------------------------------------------
TVALL
Type: Procedure
Use:  TVALL is a procedure which combines the separate functions
      of several verbs.  It clears the screen, loads the image
      into one or more TV channels, loads a step wedge from
      PIXRANGE(1) to PIXRANGE(2), and labels the wedge.  The
      verb goes into an interactive mode at this point.  If
      button A is hit, the routine allows alteration of the
      black and white transfer function (cursor X sets intercept
      and Y sets slope).  If A is hit again, the color contour
      enhancement is performed (cursor X sets starting point
      of contours, Y sets width).  If button B is hit, the
      zoom magnification is incremented and the cursor position
      controls the position about which the image is zoomed.
      Button C is like Button B except the magnification is
      decremented.  Hit button D to exit.
Adverbs:
  USERID......User ID of owner of image.  0 => current user,
                32000 => any user.
  INNAME......Image name(name).       Standard defaults.
  INCLASS.....Image name(class).      Standard defaults.
  INSEQ.......Image name(seq. #).     0 => highest.
  INDISK......Disk drive # of image.  0 => any.
  TBLC........The Bottom Left-hand pixel of the subarray of
              the map to be displayed. The value (0,0,...)
              means take the entire first plane of the image.
  TRC.........The Top Right-hand pixel of the subarray of
              the map to be displayed.  The value (0,0,...)
              means take the entire plane of the image.
  TXINC.......Load every TXINC'th column beginning at TBLC.
              TXINC = -1 => interpolate columns to fill as much
              of the screen as possible.  TXINC = -2 =>
              interpolate one column between image columns (if
              possible), -3 => 2 interpolated columns, etc.
  TYINC.......Load every TYINC'th row beginning at TBLC.
              TYINC = -1 => interpolate rows to fill as much of
              the screen as possible.  TYINC = -2 =>
              interpolate one row between image rows (if
              possible), -3 => 2 interpolated rows, etc.
  TVCHAN......Image channel to load.  Lowest channel is used
              if more than one specified (via decimal code).
              0  =>  channel 1.
  TVCORN......TV pixel location (X,Y) of the bottom left-corner
              of the image.  0=>center on TV
  PIXRANGE....Min,Max intensity to display. 0=>entire range
  FUNCTYPE....Image intensity transfer function
              'LN' => linear; 'LG' => log; 'NE' => negative lin.
              'NG' => negative log;  'SQ' => square root,;
              'NQ' => negative square root; others => linear.
  TVLEVS......Specifies the maximum intensity expected for
              the sum of all visible, overlapped images.
              Usually 256, 512, 768, or 1024.
  GRCHAN......Graphics channel to use for the lettering.  Graphics
              channel 8 is used for a black background.  Unless
              changed by GWRIT or the .Xdefaults file (see HELP XAS),
              the normal color for channel 1 is yellow, 2 the
              previously familiar green, 3 pink, 4 cyan, 5 reddish, 6
              dark blue, 7 orange.  0 -> 2.
----------------------------------------------------------------
