## DESCRIPTION

Geometry::Primitive::Bezier represents a cubic Bezier 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 <[email protected]>## COPYRIGHT & LICENSE

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