equal
deleted
inserted
replaced
1 #!/usr/bin/perl |
1 #!/usr/bin/perl |
2 #====================================================================== |
2 #====================================================================== |
3 # L I S T H D R |
3 # L I S T H D R |
4 # doc: Sat Jan 18 18:41:49 2003 |
4 # doc: Sat Jan 18 18:41:49 2003 |
5 # dlm: Mon Mar 25 19:20:19 2013 |
5 # dlm: Thu Apr 24 14:50:23 2014 |
6 # (c) 2003 A.M. Thurnherr |
6 # (c) 2003 A.M. Thurnherr |
7 # uE-Info: 79 0 NIL 0 0 72 8 2 4 NIL ofnI |
7 # uE-Info: 33 81 NIL 0 0 72 8 2 4 NIL ofnI |
8 #====================================================================== |
8 #====================================================================== |
9 |
9 |
10 # Print useful info from the RDI BB header |
10 # Print useful info from the RDI BB header |
11 |
11 |
12 # HISTORY: |
12 # HISTORY: |
28 # - added usage error |
28 # - added usage error |
29 # Sep 19, 2007: - adapted to new [RDI_BB_Read.pl] (not tested) |
29 # Sep 19, 2007: - adapted to new [RDI_BB_Read.pl] (not tested) |
30 # Jul 9, 2008: - added output regarding available sensors |
30 # Jul 9, 2008: - added output regarding available sensors |
31 # Mar 20, 2013: - removed DATA_FORMAT stuff |
31 # Mar 20, 2013: - removed DATA_FORMAT stuff |
32 # Mar 25, 2013: - added INSTRUMENT_TYPE stuff instead |
32 # Mar 25, 2013: - added INSTRUMENT_TYPE stuff instead |
|
33 # Apr 24, 2014: - BUG: USE_3_BEAM_ON_LOW_CORR was reported in water-track setup |
33 |
34 |
34 $0 =~ m{(.*/)[^/]+}; |
35 $0 =~ m{(.*/)[^/]+}; |
35 require "$1RDI_BB_Read.pl"; |
36 require "$1RDI_BB_Read.pl"; |
36 |
37 |
37 die("Usage: $0 <RDI file[...]>\n") |
38 die("Usage: $0 <RDI file[...]>\n") |
101 printf("INSTRUMENT_COORDINATES ") if ($hdr{INSTRUMENT_COORDINATES}); |
102 printf("INSTRUMENT_COORDINATES ") if ($hdr{INSTRUMENT_COORDINATES}); |
102 printf("SHIP_COORDINATES ") if ($hdr{SHIP_COORDINATES}); |
103 printf("SHIP_COORDINATES ") if ($hdr{SHIP_COORDINATES}); |
103 printf("EARTH_COORDINATES ") if ($hdr{EARTH_COORDINATES}); |
104 printf("EARTH_COORDINATES ") if ($hdr{EARTH_COORDINATES}); |
104 printf("PITCH_AND_ROLL_USED ") if ($hdr{PITCH_AND_ROLL_USED}); |
105 printf("PITCH_AND_ROLL_USED ") if ($hdr{PITCH_AND_ROLL_USED}); |
105 printf("BIN_MAPPING_ALLOWED ") if ($hdr{ALLOW_BIN_MAPPING}); |
106 printf("BIN_MAPPING_ALLOWED ") if ($hdr{ALLOW_BIN_MAPPING}); |
|
107 printf("USE_3_BEAM_ON_LOW_CORR ") if ($hdr{USE_3_BEAM_ON_LOW_CORR}); |
106 print("\n"); |
108 print("\n"); |
107 |
109 |
108 |
110 |
109 if ($hdr{SPEED_OF_SOUND_CALCULATED}) { |
111 if ($hdr{SPEED_OF_SOUND_CALCULATED}) { |
110 print(" Speed-of-Sound Sensors Used:\n"); |
112 print(" Speed-of-Sound Sensors Used:\n"); |
147 if defined($hdr{FALSE_TARGET_THRESHOLD}); |
149 if defined($hdr{FALSE_TARGET_THRESHOLD}); |
148 printf("\tFlags\t\t\t\t: "); |
150 printf("\tFlags\t\t\t\t: "); |
149 printf("NARROW_BANDWIDTH ") if ($hdr{NARROW_BANDWIDTH}); |
151 printf("NARROW_BANDWIDTH ") if ($hdr{NARROW_BANDWIDTH}); |
150 printf("WIDE_BANDWIDTH ") if ($hdr{WIDE_BANDWIDTH}); |
152 printf("WIDE_BANDWIDTH ") if ($hdr{WIDE_BANDWIDTH}); |
151 printf("TRANSMIT_POWER_HIGH ") if ($hdr{TRANSMIT_POWER_HIGH}); |
153 printf("TRANSMIT_POWER_HIGH ") if ($hdr{TRANSMIT_POWER_HIGH}); |
152 printf("USE_3_BEAM_ON_LOW_CORR ") if ($hdr{USE_3_BEAM_ON_LOW_CORR}); |
|
153 print("\n"); |
154 print("\n"); |
154 |
155 |
155 #---------------------------------------------------------------------- |
156 #---------------------------------------------------------------------- |
156 |
157 |
157 if ($hdr{NUMBER_OF_DATA_TYPES} == 7) { |
158 if ($hdr{NUMBER_OF_DATA_TYPES} == 7) { |