author | A.M. Thurnherr <athurnherr@yahoo.com> |
Tue, 06 Dec 2022 12:36:04 -0500 | |
changeset 62 | 9e13aca980c7 |
parent 61 | 69192495f0db |
permissions | -rwxr-xr-x |
0 | 1 |
#!/usr/bin/perl |
2 |
#====================================================================== |
|
3 |
# L I S T H D R |
|
4 |
# doc: Sat Jan 18 18:41:49 2003 |
|
61 | 5 |
# dlm: Mon Oct 18 11:05:30 2021 |
0 | 6 |
# (c) 2003 A.M. Thurnherr |
61 | 7 |
# uE-Info: 117 41 NIL 0 0 72 10 2 4 NIL ofnI |
0 | 8 |
#====================================================================== |
9 |
||
10 |
# Print useful info from the RDI BB header |
|
11 |
||
12 |
# HISTORY: |
|
13 |
# Jan 18, 2003: - incepted as a test for [WorkhorseBinRead.pl] |
|
14 |
# Jan 19, 2003: - continued |
|
15 |
# Feb 14, 2003: - added BT setup params |
|
16 |
# Mar 15, 2003: - added and removed BATTERY |
|
17 |
# Feb 24, 2004: - corrected TRANSMIT_LAG_DISTANCE units |
|
18 |
# Feb 26, 2004: - added ENSEMBLE_LENGTH |
|
19 |
# - added FIRMWARE |
|
20 |
# Mar 4, 2004: - added transducer orientation |
|
21 |
# Mar 30, 2004: - decified firmware output |
|
22 |
# Sep 14, 2005: - made BT data optional, dep. on NUMBER_OF_DATA_TYPES |
|
23 |
# - added DATA_FORMAT & related |
|
24 |
# Sep 15, 2005: - change BinRead library name |
|
25 |
# - compacted output format |
|
26 |
# Oct 30, 2005: - shuffled stuff, added DATA_FORMAT_VARIANT |
|
27 |
# Aug 21, 2006: - added CPU_SERIAL_NUMBER |
|
28 |
# - added usage error |
|
29 |
# Sep 19, 2007: - adapted to new [RDI_BB_Read.pl] (not tested) |
|
30 |
# Jul 9, 2008: - added output regarding available sensors |
|
10 | 31 |
# Mar 20, 2013: - removed DATA_FORMAT stuff |
32 |
# Mar 25, 2013: - added INSTRUMENT_TYPE stuff instead |
|
20 | 33 |
# Apr 24, 2014: - BUG: USE_3_BEAM_ON_LOW_CORR was reported in water-track setup |
34 |
# Jul 12, 2014: - BUG: did not work with multiple input files |
|
35 |
# - added -s)ummary option |
|
21 | 36 |
# Sep 9, 2014: - adapted to files with >7 data types |
29 | 37 |
# - BUG: usage message was not produced on empty arglist |
30 | 38 |
# Jan 9, 2016: - added support for PRODUCER data field |
29 | 39 |
# - updated getopts to current perl version |
40 |
# - updated IO library name |
|
31 | 41 |
# - adapted to [ADCP_tools_lib.pl] |
37 | 42 |
# Nov 9, 2016: - BUG: no error on missing files |
39 | 43 |
# Aug 7, 2017: - added LAG_LENGTH |
44 |
# - added AMBIGUITY_VELOCITY |
|
45 |
# Aug 8, 2017: - added -l)ong listing |
|
48
cdc74ebada81
after partial adaptation to RTI files
Andreas Thurnherr <ant@ldeo.columbia.edu>
parents:
43
diff
changeset
|
46 |
# Jun 13, 2019: - removed BT_PRESENT flag support |
49 | 47 |
# Jun 26, 2019: - added comment to the effect that BT setup cannot be listed |
48 |
# with this utility any more |
|
58 | 49 |
# Mar 6, 2021: - adapted to Nortek Signature data files |
50 |
# Mar 17, 2021: - updated HISTORY |
|
61 | 51 |
# Aug 23, 2021: - added power and bandwidth to -s output |
0 | 52 |
|
29 | 53 |
use Getopt::Std; |
54 |
||
31 | 55 |
($ADCP_TOOLS) = ($0 =~ m{(.*/)[^/]+}); |
42 | 56 |
$ADCP_tools_minVersion = 2.1; |
31 | 57 |
require "$ADCP_TOOLS/ADCP_tools_lib.pl"; |
0 | 58 |
|
39 | 59 |
die("Usage: $0 [-s)ummary] [-l)ong listing] <PD0 file[...]>\n") |
60 |
unless (&getopts('ls') && @ARGV); |
|
20 | 61 |
|
62 |
if ($opt_s) { |
|
63 |
print("#!/usr/bin/perl -S list\n"); |
|
64 |
chmod(0777&~umask,*STDOUT); |
|
61 | 65 |
print("#ANTS#FIELDS# {id} {serial_number} {transducer_frequency} {max_power} {bandwidth}" . |
66 |
" {number_of_bins} {blanking_distance} {bin_length} {pulse_length}\n"); |
|
20 | 67 |
} |
0 | 68 |
|
37 | 69 |
while ($ARGV[0] ne '') { |
70 |
die("$ARGV[0]: No such file or directory\n") |
|
71 |
unless (-f $ARGV[0]); |
|
72 |
||
42 | 73 |
my($valid) = readHeader($ARGV[0],\%hdr,$opt_s); |
20 | 74 |
print("$ARGV[0]:\n") unless ($opt_s); |
75 |
||
76 |
if ($opt_s) { # summary ANTS output |
|
77 |
my($id) = $ARGV[0]; |
|
43
b63fa355644c
commit to merge with changes from EN620
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
42
diff
changeset
|
78 |
if ($id =~ /^\w{5}\d{3}\.\d{3}/) { # leave just deployment name for std RDI files |
b63fa355644c
commit to merge with changes from EN620
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
42
diff
changeset
|
79 |
$id =~ s/00[0-9]\.000//; |
b63fa355644c
commit to merge with changes from EN620
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
42
diff
changeset
|
80 |
$id =~ s@^.*/([^/]+)@\1@; |
b63fa355644c
commit to merge with changes from EN620
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
42
diff
changeset
|
81 |
} |
42 | 82 |
if ($valid) { |
61 | 83 |
printf("%s %d %.1f %d %s %d %g %d %.1f\n", |
42 | 84 |
$id,$hdr{SERIAL_NUMBER},$hdr{BEAM_FREQUENCY}, |
61 | 85 |
$hdr{TRANSMIT_POWER_MAX},($hdr{NARROW_BANDWIDTH} ? 'narrow' : 'wide'), |
42 | 86 |
$hdr{N_BINS},$hdr{BLANKING_DISTANCE},$hdr{BIN_LENGTH}, |
87 |
$hdr{TRANSMITTED_PULSE_LENGTH}); |
|
88 |
} else { |
|
89 |
printf("%s [no complete ensemble in file]\n",$id); |
|
90 |
} |
|
20 | 91 |
shift; |
92 |
next; |
|
93 |
} |
|
94 |
||
0 | 95 |
shift; |
96 |
print(" Instrument Characteristics:\n"); |
|
97 |
||
31 | 98 |
printf("\tPRODUCER\t\t\t= %s\n",$hdr{PRODUCER}); |
10 | 99 |
if (defined($hdr{SERIAL_NUMBER})) { |
100 |
printf("\tINSTRUMENT\t\t\t= %s #%d\n",$hdr{INSTRUMENT_TYPE},$hdr{SERIAL_NUMBER}); |
|
101 |
} else { |
|
102 |
printf("\tINSTRUMENT_TYPE\t\t\t= %s\n",$hdr{INSTRUMENT_TYPE}); |
|
103 |
} |
|
104 |
printf("\tCPU_SERIAL_NUMBER\t\t= %s\n",$hdr{CPU_SERIAL_NUMBER}) |
|
57
5a59411306ba
updated for Nortek
Andreas Thurnherr <ant@ldeo.columbia.edu>
parents:
56
diff
changeset
|
105 |
if ($opt_l && ($hdr{INSTRUMENT_TYPE} ne 'Explorer') |
5a59411306ba
updated for Nortek
Andreas Thurnherr <ant@ldeo.columbia.edu>
parents:
56
diff
changeset
|
106 |
&& ($hdr{INSTRUMENT_TYPE} ne 'Signature')); |
0 | 107 |
printf("\tFIRMWARE\t\t\t= %d.%d\n",$hdr{CPU_FW_VER},$hdr{CPU_FW_REV}); |
39 | 108 |
printf("\tBEAM_FREQUENCY\t\t\t= %.1f kHz\n",$hdr{BEAM_FREQUENCY}); |
109 |
printf("\tBEAM_ANGLE\t\t\t= %d deg\n",$hdr{BEAM_ANGLE}) if $opt_l; |
|
110 |
printf("\tN_BEAMS\t\t\t\t= %d\n",$hdr{N_BEAMS}) if $opt_l; |
|
111 |
printf("\tTRANSMIT_LAG_DISTANCE\t\t= %g m\n",$hdr{TRANSMIT_LAG_DISTANCE}) if $opt_l; |
|
112 |
printf("\tLAG_LENGTH\t\t\t= %d\n",$hdr{LAG_LENGTH}) if $opt_l; |
|
113 |
printf("\tN_DEMODS\t\t\t= %d\n",$hdr{N_DEMODS}) if $opt_l && defined($hdr{N_DEMODS}); |
|
114 |
printf("\tSPEED_OF_SOUND\t\t\t= %d m/s [%s]\n", |
|
115 |
$hdr{SPEED_OF_SOUND}, |
|
57
5a59411306ba
updated for Nortek
Andreas Thurnherr <ant@ldeo.columbia.edu>
parents:
56
diff
changeset
|
116 |
$hdr{SSPEED_CALCULATED} ? 'using measurements' : 'from settings'); |
61 | 117 |
printf("\tAMBIGUITY_VELOCITY\t\t= %.2f m/s\n", |
57
5a59411306ba
updated for Nortek
Andreas Thurnherr <ant@ldeo.columbia.edu>
parents:
56
diff
changeset
|
118 |
ambiguity_velocity($hdr{BEAM_FREQUENCY},$hdr{BEAM_ANGLE},$hdr{SPEED_OF_SOUND},$hdr{TRANSMIT_LAG_DISTANCE})) |
5a59411306ba
updated for Nortek
Andreas Thurnherr <ant@ldeo.columbia.edu>
parents:
56
diff
changeset
|
119 |
unless ($hdr{INSTRUMENT_TYPE} eq 'Signature'); |
0 | 120 |
|
57
5a59411306ba
updated for Nortek
Andreas Thurnherr <ant@ldeo.columbia.edu>
parents:
56
diff
changeset
|
121 |
printf("\tEnvironmental Sensors\t\t: "); |
5a59411306ba
updated for Nortek
Andreas Thurnherr <ant@ldeo.columbia.edu>
parents:
56
diff
changeset
|
122 |
printf("PRESSURE ") if ($hdr{PRESSURE_SENSOR}); |
5a59411306ba
updated for Nortek
Andreas Thurnherr <ant@ldeo.columbia.edu>
parents:
56
diff
changeset
|
123 |
printf("CONDUCTIVITY ") if ($hdr{CONDUCTIVITY_SENSOR}); |
5a59411306ba
updated for Nortek
Andreas Thurnherr <ant@ldeo.columbia.edu>
parents:
56
diff
changeset
|
124 |
printf("TEMPERATURE ") if ($hdr{TEMPERATURE_SENSOR}); |
5a59411306ba
updated for Nortek
Andreas Thurnherr <ant@ldeo.columbia.edu>
parents:
56
diff
changeset
|
125 |
printf("COMPASS ") if ($hdr{COMPASS}); |
5a59411306ba
updated for Nortek
Andreas Thurnherr <ant@ldeo.columbia.edu>
parents:
56
diff
changeset
|
126 |
printf("PITCH ") if ($hdr{PITCH_SENSOR}); |
5a59411306ba
updated for Nortek
Andreas Thurnherr <ant@ldeo.columbia.edu>
parents:
56
diff
changeset
|
127 |
printf("ROLL ") if ($hdr{ROLL_SENSOR}); |
0 | 128 |
print("\n"); |
129 |
||
39 | 130 |
if ($opt_l) { |
57
5a59411306ba
updated for Nortek
Andreas Thurnherr <ant@ldeo.columbia.edu>
parents:
56
diff
changeset
|
131 |
printf("\tHardware Flags\t\t\t: "); |
39 | 132 |
printf("XDUCER_HEAD_ATTACHED ") if ($hdr{XDUCER_HEAD_ATTACHED}); |
133 |
printf("CONVEX_BEAM_PATTERN ") if ($hdr{CONVEX_BEAM_PATTERN}); |
|
134 |
printf("CONCAVE_BEAM_PATTERN ") if ($hdr{CONCAVE_BEAM_PATTERN}); |
|
135 |
print("\n"); |
|
136 |
} |
|
0 | 137 |
|
39 | 138 |
if ($opt_l) { |
139 |
print(" File Format:\n"); |
|
56
82384f531dba
improvements for Nortek
Andreas Thurnherr <ant@ldeo.columbia.edu>
parents:
49
diff
changeset
|
140 |
# printf("\tNUMBER_OF_DATA_TYPES\t\t= %d\n",$hdr{NUMBER_OF_DATA_TYPES}); |
57
5a59411306ba
updated for Nortek
Andreas Thurnherr <ant@ldeo.columbia.edu>
parents:
56
diff
changeset
|
141 |
printf("\tDATA_TYPES\t\t\t: @{$hdr{DATA_TYPES}}\n"); |
5a59411306ba
updated for Nortek
Andreas Thurnherr <ant@ldeo.columbia.edu>
parents:
56
diff
changeset
|
142 |
printf("\tFIXED_LEADER_BYTES\t\t= %4d bytes\n",$hdr{FIXED_LEADER_BYTES}); |
5a59411306ba
updated for Nortek
Andreas Thurnherr <ant@ldeo.columbia.edu>
parents:
56
diff
changeset
|
143 |
printf("\tENSEMBLE_BYTES\t\t\t= %4d bytes\n",$hdr{ENSEMBLE_BYTES}); |
5a59411306ba
updated for Nortek
Andreas Thurnherr <ant@ldeo.columbia.edu>
parents:
56
diff
changeset
|
144 |
printf("\tHEADER_BYTES\t\t\t= %4d bytes\n",$hdr{HEADER_BYTES}); |
5a59411306ba
updated for Nortek
Andreas Thurnherr <ant@ldeo.columbia.edu>
parents:
56
diff
changeset
|
145 |
printf("\tVARIABLE_LEADER_BYTES\t\t= %4d bytes\n",$hdr{VARIABLE_LEADER_BYTES}); |
5a59411306ba
updated for Nortek
Andreas Thurnherr <ant@ldeo.columbia.edu>
parents:
56
diff
changeset
|
146 |
printf("\tVELOCITY_DATA_BYTES\t\t= %4d bytes\n",$hdr{VELOCITY_DATA_BYTES}) |
39 | 147 |
if defined($hdr{VELOCITY_DATA_BYTES}); |
57
5a59411306ba
updated for Nortek
Andreas Thurnherr <ant@ldeo.columbia.edu>
parents:
56
diff
changeset
|
148 |
printf("\tCORRELATION_DATA_BYTES\t\t= %4d bytes\n",$hdr{CORRELATION_DATA_BYTES}) |
39 | 149 |
if defined($hdr{CORRELATION_DATA_BYTES}); |
57
5a59411306ba
updated for Nortek
Andreas Thurnherr <ant@ldeo.columbia.edu>
parents:
56
diff
changeset
|
150 |
printf("\tECHO_INTENSITY_DATA_BYTES\t= %4d bytes\n",$hdr{ECHO_INTENSITY_DATA_BYTES}) |
39 | 151 |
if defined($hdr{ECHO_INTENSITY_DATA_BYTES}); |
57
5a59411306ba
updated for Nortek
Andreas Thurnherr <ant@ldeo.columbia.edu>
parents:
56
diff
changeset
|
152 |
printf("\tPERCENT_GOOD_DATA_BYTES\t\t= %4d bytes\n",$hdr{PERCENT_GOOD_DATA_BYTES}) |
39 | 153 |
if defined($hdr{PERCENT_GOOD_DATA_BYTES}); |
154 |
} |
|
0 | 155 |
|
156 |
print(" Coordinate System:\n"); |
|
157 |
||
158 |
printf("\tHEADING_ALIGNMENT_CORRECTION\t\t= %g deg\n", |
|
159 |
$hdr{HEADING_ALIGNMENT_CORRECTION}) |
|
160 |
if defined($hdr{HEADING_ALIGNMENT_CORRECTION}); |
|
161 |
printf("\tHEADING_BIAS_CORRECTION\t\t= %g deg\n", |
|
162 |
$hdr{HEADING_BIAS_CORRECTION}) |
|
163 |
if defined($hdr{HEADING_BIAS_CORRECTION}); |
|
164 |
print("\tFlags\t\t\t\t: "); |
|
165 |
printf("BEAM_COORDINATES ") if ($hdr{BEAM_COORDINATES}); |
|
166 |
printf("INSTRUMENT_COORDINATES ") if ($hdr{INSTRUMENT_COORDINATES}); |
|
167 |
printf("SHIP_COORDINATES ") if ($hdr{SHIP_COORDINATES}); |
|
168 |
printf("EARTH_COORDINATES ") if ($hdr{EARTH_COORDINATES}); |
|
169 |
printf("PITCH_AND_ROLL_USED ") if ($hdr{PITCH_AND_ROLL_USED}); |
|
170 |
printf("BIN_MAPPING_ALLOWED ") if ($hdr{ALLOW_BIN_MAPPING}); |
|
18 | 171 |
printf("USE_3_BEAM_ON_LOW_CORR ") if ($hdr{USE_3_BEAM_ON_LOW_CORR}); |
0 | 172 |
print("\n"); |
173 |
||
174 |
||
175 |
if ($hdr{SPEED_OF_SOUND_CALCULATED}) { |
|
176 |
print(" Speed-of-Sound Sensors Used:\n"); |
|
57
5a59411306ba
updated for Nortek
Andreas Thurnherr <ant@ldeo.columbia.edu>
parents:
56
diff
changeset
|
177 |
printf("\tPRESSURE\n") if ($hdr{SSPEED_USING_PRESS}); |
5a59411306ba
updated for Nortek
Andreas Thurnherr <ant@ldeo.columbia.edu>
parents:
56
diff
changeset
|
178 |
printf("\tCOMPASS_USED\n") if ($hdr{COMPASS_USED}); |
5a59411306ba
updated for Nortek
Andreas Thurnherr <ant@ldeo.columbia.edu>
parents:
56
diff
changeset
|
179 |
printf("\tPITCH_SENSOR_USED\n") if ($hdr{PITCH_SENSOR_USED}); |
5a59411306ba
updated for Nortek
Andreas Thurnherr <ant@ldeo.columbia.edu>
parents:
56
diff
changeset
|
180 |
printf("\tROLL_SENSOR_USED\n") if ($hdr{ROLL_SENSOR_USED}); |
5a59411306ba
updated for Nortek
Andreas Thurnherr <ant@ldeo.columbia.edu>
parents:
56
diff
changeset
|
181 |
printf("\tCONDUCTIVITY_SENSOR_USED\n") if ($hdr{CONDUCTIVITY_SENSOR_USED}); |
5a59411306ba
updated for Nortek
Andreas Thurnherr <ant@ldeo.columbia.edu>
parents:
56
diff
changeset
|
182 |
printf("\tTEMPERATURE_SENSOR_USED\n") if ($hdr{TEMPERATURE_SENSOR_USED}); |
0 | 183 |
print("\n"); |
184 |
} |
|
185 |
||
186 |
||
187 |
print(" Bin Setup:\n"); |
|
188 |
printf("\tN_BINS\t\t\t\t= %d\n", $hdr{N_BINS}); |
|
189 |
printf("\tBLANKING_DISTANCE\t\t= %g m\n", $hdr{BLANKING_DISTANCE}); |
|
190 |
printf("\tDISTANCE_TO_BIN1_CENTER\t\t= %g m\n", |
|
191 |
$hdr{DISTANCE_TO_BIN1_CENTER}); |
|
192 |
printf("\tBIN_LENGTH\t\t\t= %g m\n", $hdr{BIN_LENGTH}); |
|
193 |
printf("\tTRANSMITTED_PULSE_LENGTH\t= %g m\n", |
|
194 |
$hdr{TRANSMITTED_PULSE_LENGTH}); |
|
39 | 195 |
printf("\tRL_FIRST_BIN\t\t\t= %d\n", $hdr{RL_FIRST_BIN}) if $opt_l; |
196 |
printf("\tRL_LAST_BIN\t\t\t= %d\n", $hdr{RL_LAST_BIN}) if $opt_l; |
|
0 | 197 |
|
198 |
||
199 |
print(" Water-Track Setup:\n"); |
|
200 |
printf("\tPINGS_PER_ENSEMBLE\t\t= %d\n", $hdr{PINGS_PER_ENSEMBLE}); |
|
201 |
printf("\tTIME_BETWEEN_PINGS\t\t= %g s\n",$hdr{TIME_BETWEEN_PINGS}); |
|
202 |
printf("\tTRANSMIT_POWER\t\t\t= %d\n", $hdr{TRANSMIT_POWER}); |
|
203 |
printf("\tMIN_CORRELATION\t\t\t= %d\n", $hdr{MIN_CORRELATION}); |
|
204 |
printf("\tMIN_PERCENT_GOOD\t\t= %d %%\n", $hdr{MIN_PERCENT_GOOD}); |
|
205 |
printf("\tMAX_ERROR_VELOCITY\t\t= %g m/s\n", |
|
206 |
$hdr{MAX_ERROR_VELOCITY}); |
|
207 |
printf("\tFALSE_TARGET_THRESHOLD\t\t= %d\n", |
|
208 |
$hdr{FALSE_TARGET_THRESHOLD}) |
|
209 |
if defined($hdr{FALSE_TARGET_THRESHOLD}); |
|
210 |
printf("\tFlags\t\t\t\t: "); |
|
211 |
printf("NARROW_BANDWIDTH ") if ($hdr{NARROW_BANDWIDTH}); |
|
212 |
printf("WIDE_BANDWIDTH ") if ($hdr{WIDE_BANDWIDTH}); |
|
57
5a59411306ba
updated for Nortek
Andreas Thurnherr <ant@ldeo.columbia.edu>
parents:
56
diff
changeset
|
213 |
printf("TRANSMIT_POWER_MAX ") if ($hdr{TRANSMIT_POWER_MAX}); |
0 | 214 |
print("\n"); |
215 |
||
49 | 216 |
#---------------------------------------------------------------------- |
217 |
# BT code is never executed since BT_MODE is not set any more |
|
218 |
#---------------------------------------------------------------------- |
|
0 | 219 |
|
48
cdc74ebada81
after partial adaptation to RTI files
Andreas Thurnherr <ant@ldeo.columbia.edu>
parents:
43
diff
changeset
|
220 |
if (defined($hdr{BT_MODE})) { |
0 | 221 |
print(" Bottom-Track Setup:\n"); |
49 | 222 |
printf("\tBT_MODE\t\t\t\t= %d\n", $hdr{BT_MODE}); |
0 | 223 |
printf("\tBT_PINGS_PER_ENSEMBLE\t\t= %d\n", |
224 |
$hdr{BT_PINGS_PER_ENSEMBLE}); |
|
225 |
printf("\tBT_TIME_BEFORE_REACQUIRE\t= %g s\n", |
|
226 |
$hdr{BT_TIME_BEFORE_REACQUIRE}); |
|
227 |
printf("\tBT_MIN_CORRELATION\t\t= %d\n",$hdr{BT_MIN_CORRELATION}); |
|
228 |
printf("\tBT_MIN_EVAL_AMPLITUDE\t\t= %d\n", |
|
229 |
$hdr{BT_MIN_EVAL_AMPLITUDE}); |
|
230 |
printf("\tBT_MIN_PERCENT_GOOD\t\t= %d %%\n", |
|
231 |
$hdr{BT_MIN_PERCENT_GOOD}); |
|
232 |
printf("\tBT_MAX_ERROR_VELOCITY\t\t= %g m/s\n", |
|
233 |
$hdr{BT_MAX_ERROR_VELOCITY}) |
|
234 |
if defined($hdr{BT_MAX_ERROR_VELOCITY}); |
|
235 |
printf("\tBT_RL_MIN_SIZE\t\t\t= %g m\n", $hdr{BT_RL_MIN_SIZE}); |
|
236 |
printf("\tBT_RL_NEAR\t\t\t= %g m\n", $hdr{BT_RL_NEAR}); |
|
237 |
printf("\tBT_RL_FAR\t\t\t= %g m\n", $hdr{BT_RL_FAR}); |
|
238 |
printf("\tBT_MAX_TRACKING_DEPTH\t\t= %g m\n" |
|
239 |
, $hdr{BT_MAX_TRACKING_DEPTH}); |
|
240 |
} |
|
241 |
} |
|
242 |
||
243 |