/usr/share/ncarg/tickmar/tickmark/tm03n.ncl is in libncarg-data 6.4.0-9.
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 139 140 141 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; ;
; Copyright (C) 1995 ;
; University Corporation for Atmospheric Research ;
; All Rights Reserved ;
; ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; File: tm03n.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 TickMark Object
; with reversed and log y axis.
;
;
; Begin NCL script.
;
begin
level = (/ 1000, 850, 700, 500, 400, 300, 250, 200, 150, 100 /)
;
; Define label strings for EXPLICIT mode tick mark placement
;
labels = (/ "90:S:o:N:S", "60:S:o:N:S", "30:S:o:N:S", "EQ", \
"30:S:o:N:N", "60:S:o:N:N", "90:S:o:N:N" /)
;
; Specify data locations for above labels
;
labellocs = (/ -90.0, -60.0, -30.0, 0.0, 30.0, 60.0, 90.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 "tm03" appClass defaultapp
"appDefaultParent" : True
"appUsrDir" : "./"
end create
;
; Default is to display output to an X workstation.
;
wks_type = "x11"
if (str_lower(wks_type).eq."ncgm") then
;
; Create an ncgmWorkstation object.
;
wid = create "tm03Work" ncgmWorkstationClass defaultapp
"wkMetaName" : "tm03n.ncgm"
end create
end if
if (str_lower(wks_type).eq."x11") then
;
; Create an X11 workstation.
;
wid = create "tm03Work" windowWorkstationClass defaultapp
"wkPause" : True
end create
end if
if (str_lower(wks_type).eq."oldps") then
;
; Create an older-style PostScript workstation.
;
wid = create "tm03Work" psWorkstationClass defaultapp
"wkPSFileName" : "tm03n.ps"
end create
end if
if (str_lower(wks_type).eq."oldpdf") then
;
; Create an older-style PDF workstation.
;
wid = create "tm03Work" pdfWorkstationClass defaultapp
"wkPDFFileName" : "tm03n.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.
;
wid = create "tm03Work" documentWorkstationClass defaultapp
"wkFileName" : "tm03n"
"wkFormat" : wks_type
end create
end if
if (str_lower(wks_type).eq."png") then
;
; Create a cairo PNG Workstation object.
;
wid = create "tm03Work" imageWorkstationClass defaultapp
"wkFileName" : "tm03n"
"wkFormat" : wks_type
end create
end if
pid = create "TickMarks" tickMarkClass wid
"vpXF" : .2
"vpYF" : .8
"vpWidthF" : .6
"vpHeightF" : .6
"tmYLDataTopF" : 100.0
"tmYLDataBottomF" : 1000.0
"tmXBDataRightF" : 90.0
"tmXBDataLeftF" : -90.0
"tmYLStyle" : "IRREGULAR"
"tmXBMode" : "EXPLICIT"
"tmXBMinorOn" : False
"tmXBValues" : labellocs
;
; Array "level" contains original grid point data locations in Y direction.
; Providing the grid points to the TickMark object as the control points
; for the IRREGULAR style transformation, means that these points will be
; evenly spaced along the Y axis. Since this is how CONPACK thinks the
; points are spaced, the tick marks will correctly correspond with the
; data coordinates. See the HLU User's Guide for a complete
; discussion of IRREGULAR style transformations.
;
"tmXBLabels" : labels
"tmYLIrregularPoints" : level
end create
draw(pid)
frame(wid)
delete(pid)
delete(wid)
delete(appid)
;
; End NCL script.
;
end
|