; ; $Id: ti03n.ncl,v 1.9 1998/04/23 22:20:29 ethan Exp $ ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; Copyright (C) 1995 ; ; University Corporation for Atmospheric Research ; ; All Rights Reserved ; ; ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; File: ti03n.ncl ; ; Author: Bob Lackman (converted by Ed Stautler) ; National Center for Atmospheric Research ; PO 3000, Boulder, Colorado ; ; Date: Fri Jan 06 18:31:18 MDT 1995 ; ; Description: Demonstrates Title Object resource changes. ; ; ; Begin NCL script. ; begin ; ; Modify the color map. Color indices '0' and '1' are the background ; and foreground colors respectively. ; cmap = (/ (/0.0,0.0,0.0/), \ (/0.0,1.0,1.0/), \ (/1.0,0.5,0.0/), \ (/1.0,1.0,0.0/)/) ; ; Create an application context. Set the app dir to the current directory ; so the application looks for a resource file in the working directory. ; In this example the resource file supplies the plot title only. ; appid = create "ti03" appClass defaultapp "appDefaultParent" : True "appUsrDir" : "." end create ; ; Default is to display output to an X workstation ; NCGM=0 X11=1 PS=0 if (NCGM .eq. 1) then ; ; Create an ncgmWorkstation object. ; wid = create "ti03Work" ncgmWorkstationClass defaultapp "wkColorMap" : cmap "wkMetaName" : "ti03n.ncgm" end create else if (X11 .eq. 1) then ; ; Create an XWorkstation object. ; wid = create "ti03Work" xWorkstationClass defaultapp "wkColorMap" : cmap "wkPause" : True end create else if (PS .eq. 1) then ; ; Create a PSWorkstation object. ; wid = create "ti03Work" psWorkstationClass defaultapp "wkColorMap" : cmap "wkPSFileName" : "ti03n.ps" end create end if end if end if ; ; Specify the viewport extent of the object. ; pid = create "Titles" titleClass wid "vpXF" : .2 "vpYF" : .8 "vpWidthF" : .6 "vpHeightF" : .6 end create draw(pid); frame(wid); delete(pid); delete(wid); delete(appid); ; ; End NCL script. ; end