NAME
Geometry::Primitive::Bezier - Cubic Bézier Curve
DESCRIPTION
Geometry::Primitive::Bezier represents a cubic Bézier curve.
SYNOPSIS
use Geometry::Primitive::Bezier;
my $line = Geometry::Primitive::Bezier->new(
start => $point1,
control1 => $point2,
control2 => $point3,
end => $point4
);ATTRIBUTES
control1
Set/Get the first control point of the curve.
control2
Set/Get the second control point of the curve.
end
Set/Get the end point of the curve.
start
Set/Get the start point of the line.
METHODS
new
Creates a new Geometry::Primitive::Bezier
grow
Does nothing, as I'm not sure how. Patches or hints welcome.
point_end
Get the end point. Provided for Shape role.
point_start
Get the start point. Provided for Shape role.
scale
Scales this curve by the amount provided. Multiplies each coordinate by the amount.
to_string
Guess!
AUTHOR
Cory Watson <gphat@cpan.org>
COPYRIGHT & LICENSE
You can redistribute and/or modify this code under the same terms as Perl itself.