; TVCOLORS ;--------------------------------------------------------------- ;! Sets adverb PLCOLORS to match the TV (DOTV=1) usage ;# Procedure TV PLOT ;----------------------------------------------------------------------- ;; Copyright (C) 2003, 2011-2012 ;; 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 ;----------------------------------------------------------------------- TVCOLORS LLLLLLLLLLLLUUUUUUUUUUUU CCCCCCCCCCCCCCCCCCCCCCCCCCCCC TVCOLORS: Sets colors for LWPLA to match DOTV=1 usage GRCHAN 0.0 8.0 Graphics channel 0 -> 1,2,3,4 @ output adverbs DOCOLOR @ > 0 -> use PLCOLORS PLCOLORS @ 0.0 1.0 (R,G,B) colors of line types ---------------------------------------------------------------- TVCOLORS Type: Procedure Use: TVCOLORS sets the LWPLA adverbs DOCOLOR to 1 and PLCOLORS to those colors that a task would use when DOTV=1. This procedure will work only if you have an AIPS TV running. If you want to set PLCOLORS when the TV is not running type PLCOLORS = 1,1,0, 0.063,1,0, 1,.671,1, 0,1,1 PLCOLORS(1,9) ~ 1,1,0 or invoke thee procedure DEFCOLOR. Adverbs (input): GRCHAN......TV graphics channel 1-7, or 0 meaning graphics channel n for line type n, n = 1-4. Output adverbs: DOCOLOR.....Set to 1.0 to tell LWPLA to use PLCOLORS. PLCOLORS....If GRCHAN > 0, line types 1-4 and 9 (external characters) are set to the color of GRCHAN. If GRCHAN = 0, line types 1-4 are set to the colors of graphics channels 1-4, resp. and line type 9 is set to the color of graphics channel 1. Black lines (types 5-8) and the background (10) are set to 0 (black). See HELP PLCOLORS for further information and an example. ----------------------------------------------------------------