#!/usr/bin/perl -w
=head1 NAME
example-point.pl - Geo::Spline example to list a single point in time between GPS fixes
=cut
use strict;
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";
__END__
=head1 SAMPLE OUTPUT
Time: 1160449150
Lat: -77.2548824212533
Lon: 39.1861322117117
Speed: 33.6486345148074
Heading: 142.982403679392
=cut