The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Geo::GoogleEarth::Pluggable::Plugin::Styles - Pre-loaded Styles for Geo::GoogleEarth::Pluggable

SYNOPSIS

  use Geo::GoogleEarth::Pluggable;
  my $docuemnt=Geo::GoogleEarth::Pluggable->new;
  my $style=$document->IconStyleRedDot;

DESCRIPTION

This package provides methods that when called from a Geo::GoogleEarth::Pluggable document or folder object will be autoloaded and available for use.

If you do not like my colors you can simply at the bottom of your script.

  package Geo::GoogleEarth::Pluggable::Plugin::Styles;
  use base qw{Geo::GoogleEarth::Pluggable::Plugin::Styles};
  sub red   {return {red=>255,green=>0,  blue=0,  alpha=>"95%"}};
  sub blue  {return {red=>0,  green=>0,  blue=255,alpha=>"95%"}};
  sub green {return {red=>0,  green=>255,blue=0,  alpha=>"95%"}};

USAGE

Styles

IconStyles

  my $style=$document->IconStyleRed(alpha=>"90%");

IconStyleRed

IconStyleOrange

IconStyleYellow

IconStyleGreen

IconStyleBlue

IconStylePurple

IconStyleWhite

IconStyleGray

IconStyleBlack

IconStyleRedDot

  my $style=$document->IconStyleRedDot(alpha=>"90%"); #Typical call

IconStyleOrangeDot

IconStyleYellowDot

IconStyleGreenDot

IconStyleBlueDot

IconStylePurpleDot

IconStyleWhiteDot

IconStyleGrayDot

IconStyleBlackDot

IconStylePaddle

  my $style=$document->IconStylePaddle("paddle-type"); #see paddle method

LineStyles

LineStyleRed

  my $style=$document->LineStyleRed(width=>2,
                                    alpha=>"90%");

LineStyleOrange

LineStyleYellow

LineStyleGreen

LineStyleBlue

LineStylePurple

LineStyleWhite

LineStyleGray

LineStyleBlack

PolyStyles

PolyStyles are AreaStyles with a LineStyle

AreaStyleRed

  my $style=$document->AreaStyleRed(alpha=>"90%");

PolyStyleRed

  my $style=$document->AreaStyleRed(width=>2,
                                    alpha=>"90%");

AreaStyleOrange

PolyStyleOrange

AreaStyleYellow

PolyStyleYellow

AreaStyleGreen

PolyStyleGreen

AreaStyleBlue

PolyStyleBlue

AreaStylePurple

PolyStylePurple

AreaStyleWhite

PolyStyleWhite

AreaStyleGray

PolyStyleGray

AreaStyleBlack

PolyStyleBlack

Colors

All color methods return a hash reference {red=>$R, green=>$G, blue=>$B, alpha=>$A}

red

  my $color=$document->red(alpha=>"90%"); #Typical call

orange

yellow

green

blue

purple

white

gray

black

Icon URLs

All icon methods return a fully qualified url.

dot

  my $url=$folder->dot;

paddle

  my $url=$folder->paddle;
  my $url=$folder->paddle("red-circle"); #default
  my $url=$folder->paddle("A");
  my $url=$folder->paddle("1");
  my $url=$folder->paddle("blu-blank");

shape

  my $url=$folder->shape;
  my $url=$folder->shape("placemark_circle"); #default

pin

  my $url=$folder->pin;
  my $url=$folder->pin("ylw"); #default
  my $url=$folder->pin("blue");
  my $url=$folder->pin("grn");
  my $url=$folder->pin("red");

BUGS

SUPPORT

Try geo-perl email list

AUTHOR

  Michael R. Davis
  CPAN ID: MRDVT
  STOP, LLC
  domain=>michaelrdavis,tld=>com,account=>perl
  http://www.stopllc.com/

COPYRIGHT

This program is free software licensed under the...

  The BSD License

The full text of the license can be found in the LICENSE file included with this module.

SEE ALSO

Geo::GoogleEarth::Pluggable