; ; $Id: ti02n.ncl,v 1.8 1998/04/23 22:20:28 ethan Exp $ ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; Copyright (C) 1995 ; ; University Corporation for Atmospheric Research ; ; All Rights Reserved ; ; ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; File: ti02n.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 the Title Object ; defaults. ; ; ; Begin NCL script. ; begin ; ; 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 "ti02" 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 "ti02Work" ncgmWorkstationClass defaultapp "wkMetaName" : "ti02n.ncgm" end create else if (X11 .eq. 1) then ; ; Create an XWorkstation object. ; wid = create "ti02Work" xWorkstationClass defaultapp "wkPause" : True end create else if (PS .eq. 1) then ; ; Create a PSWorkstation object. ; wid = create "ti02Work" psWorkstationClass defaultapp "wkPSFileName" : "ti02n.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