kopia lustrzana https://github.com/rs1729/RS
pos ->nmea/aprs: velocity update
rodzic
b04cd6ea61
commit
afeaba31ed
|
@ -71,7 +71,9 @@ while ($line = <$fpi>) {
|
||||||
$date = $3*10000+$2*100+($1%100);
|
$date = $3*10000+$2*100+($1%100);
|
||||||
}
|
}
|
||||||
|
|
||||||
if ($line =~ /vH:\ *(\d+\.\d+)\ +D:\ *(\d+\.\d+).*/) {
|
if ( ($line =~ /vH:\ *(\d+\.\d+)\ +D:\ *(\d+\.\d+).*/)
|
||||||
|
or ($line =~ /vH:\ *(\d+\.\d+)m\/s\ +D:\ *(\d+\.\d+).*/) )
|
||||||
|
{
|
||||||
$speed = $1*3.6/1.852; ## m/s -> knots
|
$speed = $1*3.6/1.852; ## m/s -> knots
|
||||||
$course = $2;
|
$course = $2;
|
||||||
}
|
}
|
||||||
|
|
|
@ -77,7 +77,9 @@ while ($line = <$fpi>) {
|
||||||
$date = $3*10000+$2*100+($1%100);
|
$date = $3*10000+$2*100+($1%100);
|
||||||
}
|
}
|
||||||
|
|
||||||
if ($line =~ /vH:\ *(\d+\.\d+)\ +D:\ *(\d+\.\d+).*/) {
|
if ( ($line =~ /vH:\ *(\d+\.\d+)\ +D:\ *(\d+\.\d+).*/)
|
||||||
|
or ($line =~ /vH:\ *(\d+\.\d+)m\/s\ +D:\ *(\d+\.\d+).*/) )
|
||||||
|
{
|
||||||
$speed = $1*3.6/1.852; ## m/s -> knots
|
$speed = $1*3.6/1.852; ## m/s -> knots
|
||||||
$course = $2;
|
$course = $2;
|
||||||
}
|
}
|
||||||
|
|
Ładowanie…
Reference in New Issue