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

Geo-GoogleEarth-Pluggable-Plugin-Styles documentation Contained in the Geo-GoogleEarth-Pluggable-Plugin-Styles distribution.

Index

Code Index:

NAME

Top

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

SYNOPSIS

Top

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

DESCRIPTION

Top

USAGE

Top

METHODS

Top

IconStyleRed

IconStyleOrange

IconStyleYellow

IconStyleGreen

IconStyleBlue

IconStylePurple

IconStyleWhite

IconStyleGray

IconStyleBlack

IconStyleRedDot

IconStyleOrangeDot

IconStyleYellowDot

IconStyleGreenDot

IconStyleBlueDot

IconStylePurpleDot

IconStyleWhiteDot

IconStyleGrayDot

IconStyleBlackDot

IconStylePaddle

LineStyleRed

LineStyleOrange

LineStyleYellow

LineStyleGreen

LineStyleBlue

LineStylePurple

LineStyleWhite

LineStyleGray

LineStyleBlack

AreaStyleRed

PolyStyleRed

A PolyStyle is a AreaStyle plus a LineStyle

AreaStyleOrange

PolyStyleOrange

A PolyStyle is a AreaStyle plus a LineStyle

AreaStyleYellow

PolyStyleYellow

A PolyStyle is a AreaStyle plus a LineStyle

AreaStyleGreen

PolyStyleGreen

A PolyStyle is a AreaStyle plus a LineStyle

AreaStyleBlue

PolyStyleBlue

A PolyStyle is a AreaStyle plus a LineStyle

AreaStylePurple

PolyStylePurple

A PolyStyle is a AreaStyle plus a LineStyle

AreaStyleWhite

PolyStyleWhite

A PolyStyle is a AreaStyle plus a LineStyle

AreaStyleGray

PolyStyleGray

A PolyStyle is a AreaStyle plus a LineStyle

AreaStyleBlack

PolyStyleBlack

A PolyStyle is a AreaStyle plus a LineStyle

colors

Top

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

red

orange

yellow

green

blue

purple

white

gray

black

Icons

Top

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

Top

SUPPORT

Top

Try geo-perl email list

AUTHOR

Top

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

COPYRIGHT

Top

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

Top

Geo-GoogleEarth-Pluggable-Plugin-Styles documentation Contained in the Geo-GoogleEarth-Pluggable-Plugin-Styles distribution. 
package Geo::GoogleEarth::Pluggable::Plugin::Styles;
use warnings;
use strict;

our $VERSION='0.01';


sub IconStyleRed {
  my $self=shift;
  my $opt={@_};
  return $self->IconStyle(color=>$self->red(alpha=>$opt->{"alpha"}));
}


sub IconStyleOrange {
  my $self=shift;
  my $opt={@_};
  return $self->IconStyle(color=>$self->orange(alpha=>$opt->{"alpha"}));
}


sub IconStyleYellow {
  my $self=shift;
  my $opt={@_};
  return $self->IconStyle(color=>$self->yellow(alpha=>$opt->{"alpha"}));
}


sub IconStyleGreen {
  my $self=shift;
  my $opt={@_};
  return $self->IconStyle(color=>$self->green(alpha=>$opt->{"alpha"}));
}


sub IconStyleBlue {
  my $self=shift;
  my $opt={@_};
  return $self->IconStyle(color=>$self->blue(alpha=>$opt->{"alpha"}));
}


sub IconStylePurple {
  my $self=shift;
  my $opt={@_};
  return $self->IconStyle(color=>$self->purple(alpha=>$opt->{"alpha"}));
}


sub IconStyleWhite {
  my $self=shift;
  my $opt={@_};
  return $self->IconStyle(color=>$self->white(alpha=>$opt->{"alpha"}));
}


sub IconStyleGray {
  my $self=shift;
  my $opt={@_};
  return $self->IconStyle(color=>$self->gray(alpha=>$opt->{"alpha"}));
}


sub IconStyleBlack {
  my $self=shift;
  my $opt={@_};
  return $self->IconStyle(color=>$self->black(alpha=>$opt->{"alpha"}));
}


sub IconStyleRedDot {
  my $self=shift;
  my $opt={@_};
  return $self->IconStyle(color=>$self->red(alpha=>$opt->{"alpha"}), href=>$self->dot);
}


sub IconStyleOrangeDot {
  my $self=shift;
  my $opt={@_};
  return $self->IconStyle(color=>$self->orange(alpha=>$opt->{"alpha"}), href=>$self->dot);
}


sub IconStyleYellowDot {
  my $self=shift;
  my $opt={@_};
  return $self->IconStyle(color=>$self->yellow(alpha=>$opt->{"alpha"}), href=>$self->dot);
}


sub IconStyleGreenDot {
  my $self=shift;
  my $opt={@_};
  return $self->IconStyle(color=>$self->green(alpha=>$opt->{"alpha"}), href=>$self->dot);
}


sub IconStyleBlueDot {
  my $self=shift;
  my $opt={@_};
  return $self->IconStyle(color=>$self->blue(alpha=>$opt->{"alpha"}), href=>$self->dot);
}


sub IconStylePurpleDot {
  my $self=shift;
  my $opt={@_};
  return $self->IconStyle(color=>$self->purple(alpha=>$opt->{"alpha"}), href=>$self->dot);
}


sub IconStyleWhiteDot {
  my $self=shift;
  my $opt={@_};
  return $self->IconStyle(color=>$self->white(alpha=>$opt->{"alpha"}), href=>$self->dot);
}


sub IconStyleGrayDot {
  my $self=shift;
  my $opt={@_};
  return $self->IconStyle(color=>$self->gray(alpha=>$opt->{"alpha"}), href=>$self->dot);
}


sub IconStyleBlackDot {
  my $self=shift;
  my $opt={@_};
  return $self->IconStyle(color=>$self->black(alpha=>$opt->{"alpha"}), href=>$self->dot);
}


sub IconStylePaddle {
  my $self=shift;
  my $type=shift;
  return $self->IconStyle(href=>$self->paddle($type));
}


sub LineStyleRed {
  my $self=shift;
  my $opt={@_};
  return $self->LineStyle(width=>$opt->{"width"},
                          color=>$self->red(alpha=>$opt->{"alpha"}));
}


sub LineStyleOrange {
  my $self=shift;
  my $opt={@_};
  return $self->LineStyle(width=>$opt->{"width"},
                          color=>$self->orange(alpha=>$opt->{"alpha"}));
}


sub LineStyleYellow {
  my $self=shift;
  my $opt={@_};
  return $self->LineStyle(width=>$opt->{"width"},
                          color=>$self->yellow(alpha=>$opt->{"alpha"}));
}


sub LineStyleGreen {
  my $self=shift;
  my $opt={@_};
  return $self->LineStyle(width=>$opt->{"width"},
                          color=>$self->green(alpha=>$opt->{"alpha"}));
}


sub LineStyleBlue {
  my $self=shift;
  my $opt={@_};
  return $self->LineStyle(width=>$opt->{"width"},
                          color=>$self->blue(alpha=>$opt->{"alpha"}));
}


sub LineStylePurple {
  my $self=shift;
  my $opt={@_};
  return $self->LineStyle(width=>$opt->{"width"},
                          color=>$self->purple(alpha=>$opt->{"alpha"}));
}


sub LineStyleWhite {
  my $self=shift;
  my $opt={@_};
  return $self->LineStyle(width=>$opt->{"width"},
                          color=>$self->white(alpha=>$opt->{"alpha"}));
}


sub LineStyleGray {
  my $self=shift;
  my $opt={@_};
  return $self->LineStyle(width=>$opt->{"width"},
                          color=>$self->gray(alpha=>$opt->{"alpha"}));
}


sub LineStyleBlack {
  my $self=shift;
  my $opt={@_};
  return $self->LineStyle(width=>$opt->{"width"},
                          color=>$self->black(alpha=>$opt->{"alpha"}));
}


sub AreaStyleRed {
  my $self=shift;
  my $opt={@_};
  return $self->PolyStyle(color=>$self->red(alpha=>$opt->{"alpha"}));
}


sub PolyStyleRed {
  my $self=shift;
  my $opt={@_};
  return $self->Style(
                      PolyStyle=>$self->AreaStyleRed(alpha=>$opt->{"alpha"}),
                      LineStyle=>$self->LineStyleWhite(width=>$opt->{"width"}),
                     );
}


sub AreaStyleOrange {
  my $self=shift;
  my $opt={@_};
  return $self->PolyStyle(color=>$self->orange(alpha=>$opt->{"alpha"}));
}


sub PolyStyleOrange {
  my $self=shift;
  my $opt={@_};
  return $self->Style(
                      PolyStyle=>$self->AreaStyleOrange(alpha=>$opt->{"alpha"}),
                      LineStyle=>$self->LineStyleWhite(width=>$opt->{"width"}),
                     );
}


sub AreaStyleYellow {
  my $self=shift;
  my $opt={@_};
  return $self->PolyStyle(color=>$self->yellow(alpha=>$opt->{"alpha"}));
}


sub PolyStyleYellow {
  my $self=shift;
  my $opt={@_};
  return $self->Style(
                      PolyStyle=>$self->AreaStyleYellow(alpha=>$opt->{"alpha"}),
                      LineStyle=>$self->LineStyleWhite(width=>$opt->{"width"}),
                     );
}


sub AreaStyleGreen {
  my $self=shift;
  my $opt={@_};
  return $self->PolyStyle(color=>$self->green(alpha=>$opt->{"alpha"}));
}


sub PolyStyleGreen {
  my $self=shift;
  my $opt={@_};
  return $self->Style(
                      PolyStyle=>$self->AreaStyleGreen(alpha=>$opt->{"alpha"}),
                      LineStyle=>$self->LineStyleWhite(width=>$opt->{"width"}),
                     );
}


sub AreaStyleBlue {
  my $self=shift;
  my $opt={@_};
  return $self->PolyStyle(color=>$self->blue(alpha=>$opt->{"alpha"}));
}


sub PolyStyleBlue {
  my $self=shift;
  my $opt={@_};
  return $self->Style(
                      PolyStyle=>$self->AreaStyleBlue(alpha=>$opt->{"alpha"}),
                      LineStyle=>$self->LineStyleWhite(width=>$opt->{"width"}),
                     );
}


sub AreaStylePurple {
  my $self=shift;
  my $opt={@_};
  return $self->PolyStyle(color=>$self->purple(alpha=>$opt->{"alpha"}));
}


sub PolyStylePurple {
  my $self=shift;
  my $opt={@_};
  return $self->Style(
                      PolyStyle=>$self->AreaStylePurple(alpha=>$opt->{"alpha"}),
                      LineStyle=>$self->LineStyleWhite(width=>$opt->{"width"}),
                     );
}


sub AreaStyleWhite {
  my $self=shift;
  my $opt={@_};
  return $self->PolyStyle(color=>$self->white(alpha=>$opt->{"alpha"}));
}


sub PolyStyleWhite {
  my $self=shift;
  my $opt={@_};
  return $self->Style(
                      PolyStyle=>$self->AreaStyleWhite(alpha=>$opt->{"alpha"}),
                      LineStyle=>$self->LineStyleWhite(width=>$opt->{"width"}),
                     );
}


sub AreaStyleGray {
  my $self=shift;
  my $opt={@_};
  return $self->PolyStyle(color=>$self->gray(alpha=>$opt->{"alpha"}));
}


sub PolyStyleGray {
  my $self=shift;
  my $opt={@_};
  return $self->Style(
                      PolyStyle=>$self->AreaStyleGray(alpha=>$opt->{"alpha"}),
                      LineStyle=>$self->LineStyleWhite(width=>$opt->{"width"}),
                     );
}


sub AreaStyleBlack {
  my $self=shift;
  my $opt={@_};
  return $self->PolyStyle(color=>$self->black(alpha=>$opt->{"alpha"}));
}


sub PolyStyleBlack {
  my $self=shift;
  my $opt={@_};
  return $self->Style(
                      PolyStyle=>$self->AreaStyleBlack(alpha=>$opt->{"alpha"}),
                      LineStyle=>$self->LineStyleWhite(width=>$opt->{"width"}),
                     );
}


sub red {
  my $self=shift;
  my $opt={@_};
  return {red=>192, green=>0, blue=>0, alpha=>$opt->{"alpha"}};
}


sub orange {
  my $self=shift;
  my $opt={@_};
  return {red=>255, green=>127, blue=>0, alpha=>$opt->{"alpha"}};
}


sub yellow {
  my $self=shift;
  my $opt={@_};
  return {red=>255, green=>255, blue=>0, alpha=>$opt->{"alpha"}};
}


sub green {
  my $self=shift;
  my $opt={@_};
  return {red=>0, green=>192, blue=>0, alpha=>$opt->{"alpha"}};
}


sub blue {
  my $self=shift;
  my $opt={@_};
  return {red=>0, green=>0, blue=>192, alpha=>$opt->{"alpha"}};
}


sub purple {
  my $self=shift;
  my $opt={@_};
  return {red=>127, green=>0, blue=>127, alpha=>$opt->{"alpha"}};
}


sub white {
  my $self=shift;
  my $opt={@_};
  return {red=>255, green=>255, blue=>255, alpha=>$opt->{"alpha"}};
}


sub gray {
  my $self=shift;
  my $opt={@_};
  return {red=>192, green=>192, blue=>192, alpha=>$opt->{"alpha"}};
}


sub black {
  my $self=shift;
  my $opt={@_};
  return {red=>0, green=>0, blue=>0, alpha=>$opt->{"alpha"}};
}


sub dot {
  my $self=shift;
  return $self->shape("shaded_dot");
}


sub paddle {
  my $self=shift;
  my $type=shift || 'red-circle';
  return sprintf("http://maps.google.com/mapfiles/kml/paddle/%s.png", $type);
}


sub shape {
  my $self=shift;
  my $type=shift || 'placemark_circle';
  return sprintf("http://maps.google.com/mapfiles/kml/shapes/%s.png", $type);
}


sub pin {
  my $self=shift;
  my $type=shift || 'ylw';
  return sprintf("http://maps.google.com/mapfiles/kml/pushpin/%s-pushpin.png", $type);
}


1;