; 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. ----------------------------------------------------------------