pos ->nmea/aprs: velocity update

pull/18/head
Zilog80 2019-08-20 22:21:02 +02:00
rodzic b04cd6ea61
commit afeaba31ed
2 zmienionych plików z 6 dodań i 2 usunięć

Wyświetl plik

@ -71,7 +71,9 @@ while ($line = <$fpi>) {
$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
$course = $2;
}

Wyświetl plik

@ -77,7 +77,9 @@ while ($line = <$fpi>) {
$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
$course = $2;
}