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);
 | 
			
		||||
        }
 | 
			
		||||
 | 
			
		||||
        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;
 | 
			
		||||
        }
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -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;
 | 
			
		||||
        }
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Ładowanie…
	
		Reference in New Issue