NAME

GPS::Lowrance::Screen - capture screen or icons from GPS device

SYNOPSIS

  use GD;

  use GPS::Lowrance;
  use GPS::Lowrance::Screen;

  $gps = GPS::Lowrance->connect( ... );

  $img = get_current_screen( $gps );

REQUIREMENTS

The following modules are required to use this module:

  Carp::Assert
  GD
  GPS::Lowrance

This module should work with Perl 5.6.x. It has been tested on Perl 5.8.2.

Installation

It is included with the GPS::Lowrance distribution.

DESCRIPTION

Captures the current screen or icons on a Lowrance or Eagle GPS.

This has been made a separate module so that one is not required to have graphics modules installed in order to use the main GPS::Lowrance module.

Functions

get_current_screen

  $img = get_current_screen( $gps,
    black_rgb => [0x00, 0x00, 0x00],
    grey_rgb  => [0x80, 0x80, 0x80],
    callback  => $coderef
  );

Returns a GD::Image object of the current screen on the GPS.

The $callback refers to a subroutine which handles the status. See GPS::Lowrance documentation for more information about callbacks.

The black_rgb and grey_rgb values are optional.

get_icon_graphic

  $img = get_icon_graphic( $gps,
    icon_symbol_index => $icon_num,
    black_rgb => [0x00, 0x00, 0x00],
    grey_rgb  => [0x80, 0x80, 0x80],
    callback  => $coderef
  );

Returns a GD::Image object of the icon specified by icon_symbol_index.

CAVEATS

This may not work on all GPS models.

This has only been tested with units having a GPS::Lowrance/get_screen_type of 1. It may not work for other screen types.

SEE ALSO

  GPS::Lowrance

If you want to refer to colors by name, see Graphics::ColorNames.

AUTHOR

Robert Rothenberg <rrwo at cpan.org>

Suggestions and Bug Reporting

Feedback is always welcome. Please report any bugs using the CPAN Request Tracker at http://rt.cpan.org.

COPYRIGHT AND LICENSE

Copyright (C) 2004 by Robert Rothenberg <rrwo at cpan.org>.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.2 or, at your option, any later version of Perl 5 you may have available.