equal
deleted
inserted
replaced
1 #====================================================================== |
1 #====================================================================== |
2 # P L O T _ R E S I D U A L S 3 4 . P L |
2 # P L O T _ R E S I D U A L S 3 4 . P L |
3 # doc: Wed Jun 1 19:05:22 2016 |
3 # doc: Wed Jun 1 19:05:22 2016 |
4 # dlm: Wed Jun 1 19:35:58 2016 |
4 # dlm: Tue Oct 29 13:15:21 2019 |
5 # (c) 2016 A.M. Thurnherr |
5 # (c) 2016 A.M. Thurnherr |
6 # uE-Info: 82 67 NIL 0 0 72 0 2 4 NIL ofnI |
6 # uE-Info: 84 68 NIL 0 0 72 0 2 4 NIL ofnI |
7 #====================================================================== |
7 #====================================================================== |
8 |
8 |
9 # HISTORY: |
9 # HISTORY: |
10 # Jun 1, 2016: - created from [plot_residuals.pl] |
10 # Jun 1, 2016: - created from [plot_residuals.pl] |
|
11 # Oct 29, 2019: - updated psscale -B to gmt5 syntax |
11 |
12 |
12 require "$ANTS/libGMT.pl"; |
13 require "$ANTS/libGMT.pl"; |
13 |
14 |
14 sub plot_residuals34($) |
15 sub plot_residuals34($) |
15 { |
16 { |
77 my($ens_tics) = ($xmax-$xmin < 4000) ? 'f50a500' : 'f500a2000'; |
78 my($ens_tics) = ($xmax-$xmin < 4000) ? 'f50a500' : 'f500a2000'; |
78 GMT_setR($R); |
79 GMT_setR($R); |
79 GMT_psbasemap("-B$ens_tics:'Ensemble [#]':/$depth_tics:'Depth [m]':WeSn"); |
80 GMT_psbasemap("-B$ens_tics:'Ensemble [#]':/$depth_tics:'Depth [m]':WeSn"); |
80 |
81 |
81 GMT_setAnnotFontSize(7); # SCALE BAR |
82 GMT_setAnnotFontSize(7); # SCALE BAR |
82 GMT_psscale("-Dn0.83/0.1+w3/0.4+e $C -B/:'w<3,4>\@-residual\@-':"); |
83 # GMT_psscale("-Dn0.83/0.1+w3/0.4+e $C -B/:'w<3,4>\@-residual\@-':"); |
|
84 GMT_psscale("-Dn0.83/0.1+w3/0.4+e $C -By+l'w<3,4>\@-residual\@-'"); |
83 |
85 |
84 GMT_end(); # FINISH PLOT |
86 GMT_end(); # FINISH PLOT |
85 } |
87 } |
86 |
88 |
87 1; # return true on require |
89 1; # return true on require |