/usr/share/ncarg/nclex/basic/basic07n.ncl is in libncarg-data 6.3.0-6build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; ;
; Copyright (C) 1995 ;
; University Corporation for Atmospheric Research ;
; all rights reserved ;
; ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; File: basic07n.ncl
;
; Author: Bob Lackman
; National Center for Atmospheric Research
; PO 3000, Boulder, Colorado
;
; Date: Fri May 25 18:31:18 mdt 1995
;
; Description: Demonstrates creating 3 simultaneous workstations.
; The TextItem output states which type of workstation,
; out of NCGM, PDF, PostScript, and X11.
;
begin
;
; Call a subroutine that generates an LLU
;
; Default is to create a metafile.
;
;
; 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 "basic07" appClass defaultapp
"appUsrDir": "./"
"appDefaultParent": "True"
end create
;
; Create an NCGM workstation.
;
widn = create "basic07ncgm" ncgmWorkstationClass defaultapp
"wkMetaName": "basic07n.ncgm"
end create
;
; Create an older-style PostScript workstation.
;
widp = create "basic07ps" psWorkstationClass defaultapp
"wkPSFileName": "basic07n.ps"
"wkOrientation": "portrait"
"wkPSFormat": "ps"
end create
;
; Create an older-style PDF workstation.
;
widpdf = create "basic07pdf" pdfWorkstationClass defaultapp
"wkPDFFileName": "basic07n.pdf"
"wkOrientation": "portrait"
"wkPDFFormat": "pdf"
end create
;
; Create an X Workstation.
;
widx = create "basic07x11" windowWorkstationClass defaultapp
"wkPause": "True"
end create
;
; Create three plots, one for each workstation type.
;
; Use color index 2
;
i = 2
pidx = create "TextItems" textItemClass widx
"txBackgroundFillColor": i
end create
pidn = create "TextItems" textItemClass widn
"txBackgroundFillColor": i
end create
pidp = create "TextItems" textItemClass widp
"txBackgroundFillColor": i
end create
pidpdf = create "TextItems" textItemClass widpdf
"txBackgroundFillColor": i
end create
draw(pidx)
draw(pidn)
draw(pidp)
draw(pidpdf)
frame(widx)
frame(widp)
frame(widpdf)
frame(widn)
destroy(pidx)
destroy(pidn)
destroy(pidp)
destroy(pidpdf)
destroy(widx)
destroy(widp)
destroy(widpdf)
destroy(widn)
destroy(appid)
end
|