|
|||
|
Which Way Did He Go ?
September 29, 2005
|
|||
|
|
|||
|
GPS - Global Positioning System
|
|||
|
|
|||
Why ?
continued... |
|||
|
|
|||
Why ?
|
|||
|
|
|||
|
Accuracy
continued... |
|||
|
|
|||
|
Accuracy
continued... |
|||
|
|
|||
|
Accuracy
continued... |
|||
|
|
|||
|
Accuracy
continued... |
|||
|
|
|||
|
Accuracy
continued... |
|||
|
|
|||
|
Accuracy
|
|||
|
|
|||
Thus begat GeoCaching!continued... |
|||
|
|
|||
Thus begat GeoCaching!
|
|||
|
|
|||
Seen on a Tee Shirt:
"I use multi-billion dollar military technology to look for Tupperware in forests."
|
|||
|
|
|||
|
Perl Modules
|
|||
|
|
|||
|
Sample Code
use GPS::Garmin; $gps = new GPS::Garmin( 'Port' => '/dev/ttyUSB0' );
|
|||
|
|
|||
|
Sample Code
use GPS::Garmin; $gps = new GPS::Garmin( 'Port' => '/dev/ttyUSB0' );
print "Protocol: ", $gps->protocol, "\n"; print "Product ID: ", $gps->product_id, "\n"; print "Software Version: ", $gps->software_version, "\n"; print "Product Description: ", $gps->product_description, "\n";
|
|||
|
|
|||
|
Sample Code
use GPS::Garmin; $gps = new GPS::Garmin( 'Port' => '/dev/ttyUSB0' );
print "Protocol: ", $gps->protocol, "\n"; print "Product ID: ", $gps->product_id, "\n"; print "Software Version: ", $gps->software_version, "\n"; print "Product Description: ", $gps->product_description, "\n";
($sec,$min,$hour,$mday,$mon,$year) = $gps->get_time; print "$year-$mon-$mday $hour:$min:$sec\n";
|
|||
|
|
|||
|
More Code
($latsign,$lat,$lnsign,$lon) = $gps->get_position; print "$latsign $lat\n$lnsign $lon\n";
|
|||
|
|
|||
|
More Code
($latsign,$lat,$lnsign,$lon) = $gps->get_position; print "$latsign $lat\n$lnsign $lon\n";
$gps->prepare_transfer("trk");
while($gps->records) {
($lat,$lon,$time) = $gps->grab;
print "$lat $lon, $time\n";
}
|
|||
|
|
|||
|
More Code
($latsign,$lat,$lnsign,$lon) = $gps->get_position; print "$latsign $lat\n$lnsign $lon\n";
$gps->prepare_transfer("trk");
while($gps->records) {
($lat,$lon,$time) = $gps->grab;
print "$lat $lon, $time\n";
}
$gps->prepare_transfer("wpt");
while($gps->records) {
($title,$lat,$lon,$desc) = $gps->grab;
print "$title\n $lat\n $lon\n $time\n";
}
|
|||
|
|
|||
|
Results
[root@localhost gps]# ./t.f Unknown product id 291, fallback to generic handler. 2005-09-29 04:01:22 Protocol: GRMN Product ID: 291 Software Version: 360 Product Description: GPSMap60C Software Version 3.60 N 43.2591795146466 W 79.5598080590368 p 0 -0.0054931640625 ... , GPS Device has timed out [root@localhost gps]#
|
|||
|
|
|||
|
GPSBable
continued... |
|||
|
|
|||
|
GPSBable
continued... |
|||
|
|
|||
|
GPSBable
continued... |
|||
|
|
|||
|
GPSBable
|
|||
|
|
|||
|
What Next ?
|
|||
|
|
|||
|
What Next ?
continued... |
|||
|
|
|||
|
What Next ?
continued... |
|||
|
|
|||
|
What Next ?
continued... |
|||
|
|
|||
|
What Next ?
continued... |
|||
|
|
|||
|
What Next ?
continued... |
|||
|
|
|||
|
What Next ?
continued... |
|||
|
|
|||
|
What Next ?
|
|||
|
|
|||
|
Thank You |
|||
|