/usr/share/ncarg/nclex/basic/basic01n.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 127 128 129 130 131 132 133 134 135 136 137 138 | ; $Id: basic01n.ncl,v 1.13 2010-03-15 22:49:23 haley Exp $
;
; This example demonstrates how to draw a contour plot using mostly
; defaults. Note: no data is used in this example, so the output appears
; only as a bounding box with tickmarks.
;
; 1. Choose the type of output
; 2. Create a plot object
; 3. Draw the plot
; 4. Call frame
; 5. Clean up memory
; Begin ncl script.
begin
; ##########
; # STEP 1 #
; ##########
; Choose the type of output you want to create. You may write your
; output to an NCAR Computer Graphics Metafile (NCGM) and view it later using
; the NCAR Graphics utilities ctrans or idt. You may also write your
; output directly into a window of a workstation running the X Window system.
; Another option is to write your ouput into a PostScript file.
;
; The first argument, '"wks"', to the create call sets the name of the
; object being created.
; The second argument, "xWorkstationClass", identifies the type or class
; of the object to create. In this case an X workstation.
; The third argument, "defaultapp", specifies the id of the objects parent.
; In this case, the constant "defaultapp" is used to specify the default
; parent.
;
; Default is to display output to an X workstation
;
wks_type = "x11"
if (str_lower(wks_type).eq."ncgm")
;
; Create an NCGM workstation.
;
wks = create "wks" ncgmWorkstationClass defaultapp
"wkMetaName" : "./basic01n.ncgm"
end create
end if
if (str_lower(wks_type).eq."x11") then
;
; Create an X workstation.
;
wks = create "wks" xWorkstationClass defaultapp
"wkPause" : "True"
end create
end if
if (str_lower(wks_type).eq."oldps") then
;
; Create an older-style PostScript workstation.
;
wks = create "wks" psWorkstationClass defaultapp
"wkPSFileName" : "./basic01n.ps"
end create
end if
if (str_lower(wks_type).eq."oldpdf") then
;
; Create an older-style PDF workstation.
;
wks = create "wks" pdfWorkstationClass defaultapp
"wkPDFFileName" : "./basic01n.pdf"
end create
end if
if (str_lower(wks_type).eq."pdf".or.str_lower(wks_type).eq."ps") then
;
; Create a cairo PS/PDF Workstation object.
;
wks = create "wks" documentWorkstationClass defaultapp
"wkFileName" : "basic01n"
"wkFormat" : wks_type
end create
end if
if (str_lower(wks_type).eq."png") then
;
; Create a cairo PNG Workstation object.
;
wks = create "wks" imageWorkstationClass defaultapp
"wkFileName" : "basic01n"
"wkFormat" : wks_type
end create
end if
; ##########
; # STEP 2 #
; ##########
; Create a plot object. In this example, we will create a contour plot,
; but we could have just as easily created any other type of plot such as
; an Xy plot, or a Map plot.
;
; The first create call argument, '"con1"', sets the name of the object.
; This is an arbitrary name and does not have to match the variable name
; on the left hand side of the call.
; The second argument, "contourPlotClass", identifies the type or class
; of the object to create. In this case, the type is a contour plot.
; The third argument, "wks", specifies the id of the object's parent. By
; specifying the id of the X workstation created earlier, the plot will
; be drawn into an X window.
con1 = create "con1" contourPlotClass wks
end create
; ##########
; # STEP 3 #
; ##########
; This step draws the plot into the X workstation window. The argument to
; the draw function is the variable name of the object that you want to
; draw.
draw(con1)
; ##########
; # STEP 4 #
; ##########
; The frame call updates and then clears the workstation.
frame(wks)
; ##########
; # STEP 5 #
; ##########
; This is the final step used for cleanup. The delete
; function deletes variables from the NCL and frees the
; symbol name from the symbol table. Deleting a parent object
; automatically deletes all of its children.
delete(wks)
; End ncl script.
end
|