/usr/share/ncarg/nclex/basic/basic04n.ncl is in libncarg-data 6.1.2-7.
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 113 114 115 116 117 118 119 120 121 122 123 124 125 126 | ; $Id: basic04n.ncl,v 1.7 1995-06-29 17:16:04 scheitln Exp $
;
; This example demonstrates how to select and change the workstation
; device for drawing your output to an NCGM file or an X workstation window.
; using the following steps.
;
; 1. Create output workstation objects.
; 2. Create the data for the plots.
; 3. Create the contour object.
; 4. Draw the contour object.
; 5. Call frame.
; 6. Change workstations.
; 7. Draw the contour object.
; 8. Call frame.
; 9. Clean up memory.
; Begin the ncl script.
begin
; ##########
; # STEP 1 #
; ##########
; For each type of output you must create a workstation object using create.
; The first argument, '"wks"', to the create call sets the name of the
; object being created. The second argument, "windowWorkstationClass", or
; "ncgmWorkstationClass" identifies the type or class of the object
; to create. In this case an X workstation or an NCGM workstation.
; The third argument, "defaultapp", specifies the id of the objects parent.
; In this case, the object has no parent, so the constant "defaultapp" is used.
xwks = create "xwks" windowWorkstationClass defaultapp
end create
; The resource, wkMetaName, lets you specify the name of the output NCGM
; file. In this example, it is called basic04n.ncgm. If omitted, the
; default name, gmeta, will be used.
nwks = create "nwks" ncgmWorkstationClass defaultapp
"wkMetaName" : "basic04n.ncgm"
end create
; ##########
; # STEP 2 #
; ##########
; Create the data for the plot.
; Create a 5x5 integer variable.
data1=new((/5,5/), integer)
; Initialize the variable with data.
data1=(/(/3,4,4,5,5/), \
(/2,3,5,5,4/), \
(/2,4,5,4,4/), \
(/3,4,4,4,3/), \
(/3,3,3,3,3/)/)
; Create a scalar field object that will be used as a data set for a
; contour object. The sfDataArray resource is used to assign a data
; array to a scalar field data object.
field1 = create "field1" scalarFieldClass defaultapp
"sfDataArray" : data1
end create
; ##########
; # STEP 3 #
; ##########
; Create the object you want to draw.
; Create a contour object to draw into the X workstation.
; Assign data using the cnScalarFieldData resource.
xcon = create "xcon" contourPlotClass xwks
"cnScalarFieldData" : field1
end create
; ##########
; # STEP 4 #
; ##########
; Draw the object
draw(xcon)
; ##########
; # STEP 5 #
; ##########
; Call frame to update and clear the workstation
frame(xwks)
; ##########
; # STEP 6 #
; ##########
; Change the workstation
NhlChangeWorkstation(xcon,nwks)
; ##########
; # STEP 7 #
; ##########
; Draw the object
draw(xcon)
; ##########
; # STEP 8 #
; ##########
; Call frame to update and clear the workstation
frame(nwks)
; ##########
; # STEP 9 #
; ##########
; Clean up memory.
delete(xwks)
delete(nwks)
; End the ncl script.
end
|