equal
deleted
inserted
replaced
1 #====================================================================== |
1 #====================================================================== |
2 # P L O T _ C O R R E L A T I O N . P L |
2 # P L O T _ C O R R E L A T I O N . P L |
3 # doc: Tue Jul 28 13:21:09 2015 |
3 # doc: Tue Jul 28 13:21:09 2015 |
4 # dlm: Wed Jul 29 07:13:45 2015 |
4 # dlm: Thu Jul 30 09:53:49 2015 |
5 # (c) 2015 A.M. Thurnherr |
5 # (c) 2015 A.M. Thurnherr |
6 # uE-Info: 59 45 NIL 0 0 72 0 2 4 NIL ofnI |
6 # uE-Info: 57 59 NIL 0 0 72 0 2 4 NIL ofnI |
7 #====================================================================== |
7 #====================================================================== |
8 |
8 |
9 # HISTORY: |
9 # HISTORY: |
10 # Jul 28, 2015: - created from [LWplot_corr] |
10 # Jul 28, 2015: - created from [LWplot_corr] |
11 |
11 |
52 GMT_unitcoords(); # LABELS |
52 GMT_unitcoords(); # LABELS |
53 GMT_pstext(-Gblue); |
53 GMT_pstext(-Gblue); |
54 print(GMT "0.02 0.98 12 0 0 BL $P{out_basename} $P{run_label}\n"); |
54 print(GMT "0.02 0.98 12 0 0 BL $P{out_basename} $P{run_label}\n"); |
55 |
55 |
56 my($depth_tics) = ($ymax < 1000 ) ? 'f10a100' : 'f100a500'; # AXES |
56 my($depth_tics) = ($ymax < 1000 ) ? 'f10a100' : 'f100a500'; # AXES |
57 my($ens_tics) = ($ymax < 1000 ) ? 'f50a500' : 'f500a1000'; |
57 my($ens_tics) = ($ymax < 1000 ) ? 'f50a500' : 'f500a2000'; |
58 GMT_setR($R); |
58 GMT_setR($R); |
59 GMT_psbasemap("-B$ens_tics:'Ensemble [#]':/$depth_tics:'Depth [m]':WeSn"); |
59 GMT_psbasemap("-B$ens_tics:'Ensemble [#]':/$depth_tics:'Depth [m]':WeSn"); |
60 |
60 |
61 GMT_setAnnotFontSize(7); # SCALE BAR |
61 GMT_setAnnotFontSize(7); # SCALE BAR |
62 GMT_psscale("-E -D8/2/3/0.4 $C -B/:corr:"); |
62 GMT_psscale("-E -D8/2/3/0.4 $C -B/:corr:"); |