NAME

Graphics::Primitive::Paint::Gradient::Radial - Radial color blending

DESCRIPTION

Graphics::Primitive::Paint::Gradient::Radial is a color blend between two circles.

SYNOPSIS

            

              
              
use Graphics::Primitive::Paint::Gradient::Radial;
my $gradient = Graphics::Primitive::Gradient::Radial->new(
    start => Geometry::Primitive::Circle->new(
        origin => 0, 0,
        radius => 5
    ),
    end => Geometry::Primitive::Circle->new(
        origin => 50, 25,
        radius => 5
    )
);
$gradient->add_stop(0.0, $color1);
$gradient->add_stop(1.0, $color2);
            
          

METHODS

Constructor

new

Creates a new Graphics::Primitive::Gradient

Instance Methods

add_stop

Adds a color stop at the specified position

colors

Hashref of colors and their stops. The stops are the keys.

end

The "end" circle.

start

The "start" circle.

stop_count

Count of stops added to this Gradient.

stops

Get the keys of all color stops.

AUTHOR

Cory Watson <gphat@cpan.org>

COPYRIGHT & LICENSE

Copyright 2008-2010 by Cory G Watson.

You can redistribute and/or modify this code under the same terms as Perl itself.