NAME¶

Geometry::Primitive::Bezier - Cubic Bezier Curve

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 <gphat@cpan.org>

COPYRIGHT & LICENSE¶

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