equal
deleted
inserted
replaced
1 #====================================================================== |
1 #====================================================================== |
2 # P L O T _ T I M E _ L A G S . P L |
2 # P L O T _ T I M E _ L A G S . P L |
3 # doc: Tue Jul 28 13:21:09 2015 |
3 # doc: Tue Jul 28 13:21:09 2015 |
4 # dlm: Thu Mar 22 10:56:17 2018 |
4 # dlm: Wed Jun 30 09:51:13 2021 |
5 # (c) 2015 A.M. Thurnherr |
5 # (c) 2015 A.M. Thurnherr |
6 # uE-Info: 40 0 NIL 0 0 72 2 2 4 NIL ofnI |
6 # uE-Info: 64 77 NIL 0 0 72 2 2 4 NIL ofnI |
7 #====================================================================== |
7 #====================================================================== |
8 |
8 |
9 # HISTORY: |
9 # HISTORY: |
10 # Jul 29, 2015: - created from [LWplot_TL] |
10 # Jul 29, 2015: - created from [LWplot_TL] |
11 # Jan 26, 2016: - added return on no data to plot |
11 # Jan 26, 2016: - added return on no data to plot |
59 GMT_unitcoords(); # labels |
59 GMT_unitcoords(); # labels |
60 GMT_pstext('-F+f9,Helvetica,orange+jTR -N -Gwhite'); |
60 GMT_pstext('-F+f9,Helvetica,orange+jTR -N -Gwhite'); |
61 print(GMT "0.99 0.99 V$VERSION\n"); |
61 print(GMT "0.99 0.99 V$VERSION\n"); |
62 GMT_pstext('-F+f14,Helvetica,blue+jTL -N'); |
62 GMT_pstext('-F+f14,Helvetica,blue+jTL -N'); |
63 print(GMT "0.01 1.06 $P{out_basename} $P{run_label}\n"); |
63 print(GMT "0.01 1.06 $P{out_basename} $P{run_label}\n"); |
|
64 GMT_pstext('-F+f14,Helvetica,coral+jBR -Gwhite'); print(GMT "0.98 0.07 downcast\n"); |
|
65 GMT_pstext('-F+f14,Helvetica,SeaGreen+jBR -Gwhite'); print(GMT "0.98 0.02 upcast\n"); |
|
66 |
64 |
67 |
65 GMT_setR($R); |
68 GMT_setR($R); |
66 my($elapsed_tics) = ($xmax-$xmin < 45) ? 'f1a5' : 'f1a30'; |
69 my($elapsed_tics) = ($xmax-$xmin < 45) ? 'f1a5' : 'f1a30'; |
67 GMT_end("-B$elapsed_tics:'Elapsed Time [min]':/f1a5:'Best Offset [CTD records]':WeSn"); # FINISH PLOT |
70 GMT_end("-B$elapsed_tics:'Elapsed Time [min]':/f1a5:'Best Offset [CTD records]':WeSn"); # FINISH PLOT |
68 } |
71 } |