Graphics::Primitive::Paint::Gradient::Radial - Radial color blending
Graphics::Primitive::Paint::Gradient::Radial is a color blend between two circles.
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);
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.
Cory Watson <gphat AT cpan DOT org>
Copyright 2008-2010 by Cory G Watson.
You can redistribute and/or modify this code under the same terms as Perl itself.