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.