— — |
#!/usr/bin/perl -w
use lib qw{./lib ../lib} ; my $p0 ={ time =>1160449100.67,
lat =>39.197807,
lon =>-77.263510,
speed =>31.124,
heading =>144.8300};
my $p1 ={ time =>1160449225.66,
lat =>39.167718,
lon =>-77.242278,
speed =>30.615,
heading =>150.5300};
my $spline =Geo::Spline->new( $p0 , $p1 );
my $pt = $spline ->point(1160449150);
print "Time: " , "\t" , $pt ->{ "time" }, "\n" ,
"Lat: " , "\t" , $pt ->{ "lon" }, "\n" ,
"Lon: " , "\t" , $pt ->{ "lat" }, "\n" ,
"Speed: " , "\t" , $pt ->{ "speed" }, "\n" ,
"Heading: " , "\t" , $pt ->{ "heading" }, "\n" ;
|