|
21
|
1 |
#======================================================================
|
|
|
2 |
# L I B G M T . P L
|
|
|
3 |
# doc: Sun Jun 14 13:45:47 2015
|
|
26
|
4 |
# dlm: Wed Mar 16 16:12:38 2016
|
|
21
|
5 |
# (c) 2015 A.M. Thurnherr
|
|
26
|
6 |
# uE-Info: 188 49 NIL 0 0 72 2 2 4 NIL ofnI
|
|
21
|
7 |
#======================================================================
|
|
|
8 |
|
|
|
9 |
# perl implementation of /Data/Makefiles/Makefile.GMT
|
|
|
10 |
|
|
22
|
11 |
#----------------------------------------------------------------------
|
|
|
12 |
# USAGE
|
|
|
13 |
#----------------------------------------------------------------------
|
|
|
14 |
#
|
|
|
15 |
# Basic Example
|
|
|
16 |
# -------------
|
|
|
17 |
# GMT_begin('temp_prof.ps','-JX10/-10','-R0/30/0/5000');
|
|
|
18 |
# GMT_psxy('-W1,red');
|
|
|
19 |
# print(GMT "$temp $depth\n");
|
|
|
20 |
# GMT_end('-Ba5f1:"Temperature [degC]":/a500f100:"Depth [m]":WeSn');
|
|
|
21 |
#
|
|
|
22 |
# Other GMT Utilities
|
|
|
23 |
# -------------------
|
|
|
24 |
# GMT_pstext(<opts>) x y size angle fontno justify(ML,BC,TR,...) "text"
|
|
|
25 |
# GMT_psbasemap(<opts>) often implies GMT_end() w/o args
|
|
|
26 |
# GMT_psscale(<opts>) scale bar
|
|
|
27 |
#
|
|
|
28 |
# Other Extensions
|
|
|
29 |
# ----------------
|
|
|
30 |
# GMT_unitcoords(); afterwards, x and y range from 0 to 1; useful for legends
|
|
|
31 |
# GMT_setR('-R0/1/0/1') subsequent GMT utilities use this ROI
|
|
|
32 |
# GMT_setJ('-JX10/-1-') subsequent GMT utilities use this projection
|
|
|
33 |
# GMT_setAnnotFontSize(7) set primary annotation font size
|
|
|
34 |
#
|
|
|
35 |
#----------------------------------------------------------------------
|
|
|
36 |
|
|
21
|
37 |
# HISTORY:
|
|
|
38 |
# Jun 14, 2015: - created
|
|
|
39 |
# Jun 16, 2015: - BUG: forgot to return to PWD
|
|
|
40 |
# Jun 18, 2015: - added $DEBUG
|
|
22
|
41 |
# Jul 26, 2015: - added usage documentation
|
|
|
42 |
# - simplified GMT_unitcoords()
|
|
|
43 |
# Jul 28, 2015: - added GMT_setAnnotFontSize(), GMT_psscale()
|
|
26
|
44 |
# Mar 16, 2016: - began adaptation to GMT5
|
|
21
|
45 |
|
|
22
|
46 |
$DEBUG = 0;
|
|
21
|
47 |
|
|
|
48 |
#----------------------------------------------------------------------
|
|
|
49 |
# Library
|
|
|
50 |
#----------------------------------------------------------------------
|
|
|
51 |
|
|
|
52 |
my($GMT_plotfile);
|
|
|
53 |
my($GMT_J);
|
|
|
54 |
my($GMT_R);
|
|
|
55 |
|
|
|
56 |
sub GMT_setR($) { ($GMT_R) = @_; } # (re-)define -R
|
|
|
57 |
sub GMT_setJ($) { ($GMT_J) = @_; } # (re-)define -J
|
|
|
58 |
|
|
|
59 |
sub GMT_spawn($) # spawn GMT command in temp dir
|
|
|
60 |
{
|
|
|
61 |
my($cmd) = @_;
|
|
|
62 |
close(GMT);
|
|
|
63 |
chdir("/tmp/antsGMT.$$") ||
|
|
|
64 |
croak("/tmp/antsGMT.$$: $!\n");
|
|
|
65 |
print(STDERR "$cmd\n") if ($DEBUG);
|
|
|
66 |
open(GMT,$cmd) || croak("$cmd: $!\n");
|
|
|
67 |
chdir("$ENV{PWD}") ||
|
|
|
68 |
croak("$ENV{PWD}: $!\n");
|
|
|
69 |
}
|
|
|
70 |
|
|
|
71 |
sub GMT_set(@) # set GMT defaults
|
|
|
72 |
{
|
|
26
|
73 |
GMT_spawn("| gmt set @_");
|
|
21
|
74 |
}
|
|
|
75 |
|
|
|
76 |
#----------------------------------------------------------------------
|
|
|
77 |
# GMT_begin(plot_file,J,R,extra_opts),
|
|
|
78 |
# e.g. GMT_begin('temp_prof.ps','-JX10/-10','-R0/30/0/5000');
|
|
|
79 |
# 1) create temp directory
|
|
|
80 |
# 2) set GMT defaults
|
|
|
81 |
# 3) create plot file with empty psxy
|
|
|
82 |
#----------------------------------------------------------------------
|
|
|
83 |
|
|
|
84 |
my($LABEL_FONT_SIZE) = 14 unless defined($LABEL_FONT_SIZE);
|
|
|
85 |
my($ANNOT_FONT_SIZE) = 14 unless defined($ANNOT_FONT_SIZE);
|
|
|
86 |
|
|
|
87 |
sub GMT_begin(@)
|
|
|
88 |
{
|
|
|
89 |
my($pfn,$J,$R,$extra) = @_;
|
|
|
90 |
mkdir("/tmp/antsGMT.$$");
|
|
|
91 |
chdir("/tmp/antsGMT.$$") ||
|
|
|
92 |
croak("/tmp/antsGMT.$$: $!\n");
|
|
|
93 |
system("rm -f .gmt*
|
|
26
|
94 |
gmt set PROJ_LENGTH_UNIT cm PS_MEDIA letter \\
|
|
|
95 |
FONT_LABEL ${LABEL_FONT_SIZE} \\
|
|
|
96 |
FONT_ANNOT_PRIMARY ${ANNOT_FONT_SIZE} \\
|
|
|
97 |
FORMAT_GEO_MAP ddd:mm:ssF") &&
|
|
|
98 |
croak("gmt set failed\n");
|
|
21
|
99 |
$GMT_plotfile = "$ENV{PWD}/$pfn";
|
|
|
100 |
GMT_setJ($J); GMT_setR($R);
|
|
26
|
101 |
GMT_spawn("| gmt psxy -K $J $R $extra > $GMT_plotfile");
|
|
21
|
102 |
close(GMT);
|
|
|
103 |
}
|
|
|
104 |
|
|
22
|
105 |
sub GMT_setAnnotFontSize($)
|
|
|
106 |
{
|
|
26
|
107 |
GMT_set("FONT_ANNOT_PRIMARY $_[0]");
|
|
22
|
108 |
}
|
|
|
109 |
|
|
21
|
110 |
#----------------------------------------------------------------------
|
|
|
111 |
# GMT_end(B)
|
|
|
112 |
# 1) chdir to temp-dir
|
|
|
113 |
# 2) psbasemap w/o -K
|
|
|
114 |
# 3) close GMT file
|
|
|
115 |
# 4) remove GMT temp dir
|
|
|
116 |
#----------------------------------------------------------------------
|
|
|
117 |
|
|
|
118 |
sub GMT_end(@)
|
|
|
119 |
{
|
|
|
120 |
my($opt) = @_;
|
|
26
|
121 |
if (defined($opt)) {
|
|
|
122 |
GMT_spawn("| gmt psbasemap -O $GMT_J $GMT_R $opt >> $GMT_plotfile");
|
|
|
123 |
} else {
|
|
|
124 |
GMT_spawn("| gmt psxy -O $GMT_J $GMT_R -Sc0.1 >> $GMT_plotfile");
|
|
|
125 |
}
|
|
21
|
126 |
close(GMT);
|
|
|
127 |
chdir("$ENV{PWD}") || croak("ENV{PWD}: $!\n");
|
|
|
128 |
system("rm -rf /tmp/antsGMT.$$") &&
|
|
|
129 |
croak("Offending command: rm -rf /tmp/antsGMT.$$\n");
|
|
|
130 |
}
|
|
|
131 |
|
|
|
132 |
#----------------------------------------------------------------------
|
|
|
133 |
# GMT_unitcoords()
|
|
|
134 |
# - set unit coordinate system
|
|
|
135 |
#----------------------------------------------------------------------
|
|
|
136 |
|
|
|
137 |
sub GMT_unitcoords()
|
|
|
138 |
{
|
|
22
|
139 |
GMT_setR('-R0/1/0/1');
|
|
|
140 |
}
|
|
|
141 |
|
|
|
142 |
sub GMT_unitcoords_logscale()
|
|
|
143 |
{
|
|
21
|
144 |
($jx,$jy) = ($GMT_J =~ m{-J.-?(\d+)[a-z]*/-?(\d+)});
|
|
|
145 |
if (defined($jy)) {
|
|
|
146 |
GMT_setJ("-JX$jx/$jy");
|
|
|
147 |
} else {
|
|
|
148 |
($jx) = ($GMT_J =~ m{-J.-?(\d+)});
|
|
|
149 |
if (defined($jx)) {
|
|
|
150 |
GMT_setJ("-JX$jx");
|
|
|
151 |
} else {
|
|
|
152 |
croak("cannot decode $GMT_J ($jx,$jy)");
|
|
|
153 |
}
|
|
|
154 |
}
|
|
|
155 |
GMT_setR('-R0/1/0/1');
|
|
26
|
156 |
# GMT_spawn("| gmt psxy -O -K $GMT_J $GMT_R >> $GMT_plotfile");
|
|
22
|
157 |
# close(GMT);
|
|
21
|
158 |
}
|
|
|
159 |
|
|
|
160 |
#----------------------------------------------------------------------
|
|
|
161 |
# GMT_psxy(opts)
|
|
|
162 |
# GMT_psbasemap(opts)
|
|
|
163 |
# GMT_pstext(opts)
|
|
22
|
164 |
# GMT_psscale(opts)
|
|
21
|
165 |
#----------------------------------------------------------------------
|
|
|
166 |
|
|
|
167 |
sub GMT_psxy(@)
|
|
|
168 |
{
|
|
|
169 |
my($opts) = @_;
|
|
26
|
170 |
GMT_spawn("| gmt psxy -O -K $GMT_J $GMT_R $opts >> $GMT_plotfile");
|
|
21
|
171 |
}
|
|
|
172 |
|
|
|
173 |
sub GMT_psbasemap(@)
|
|
|
174 |
{
|
|
|
175 |
my($opts) = @_;
|
|
26
|
176 |
GMT_spawn("| gmt psbasemap -O -K $GMT_J $GMT_R $opts >> $GMT_plotfile");
|
|
21
|
177 |
}
|
|
|
178 |
|
|
|
179 |
sub GMT_pstext(@)
|
|
|
180 |
{
|
|
|
181 |
my($opts) = @_;
|
|
26
|
182 |
GMT_spawn("| gmt pstext -O -K $GMT_J $GMT_R $opts >> $GMT_plotfile");
|
|
21
|
183 |
}
|
|
|
184 |
|
|
22
|
185 |
sub GMT_psscale(@)
|
|
|
186 |
{
|
|
|
187 |
my($opts) = @_;
|
|
26
|
188 |
GMT_spawn("| gmt psscale -O -K $GMT_J $GMT_R $opts >> $GMT_plotfile");
|
|
22
|
189 |
}
|
|
|
190 |
|
|
21
|
191 |
1;
|