The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Geometry::Primitive::Ellipse - An Ellipse

DESCRIPTION

Geometry::Primitive::Ellipse represents an elliptical conic section.

SYNOPSIS

  use Geometry::Primitive::Ellipse;

  my $ellipse = Geometry::Primitive::Ellipse->new(
      width => 15,
      height => 10
  );
  print $ellipse->area;

ATTRIBUTES

height

Set/Get the height of this ellipse.

origin

Set/Get the origin of this ellipse.

width

Set/Get the width of this ellipse.

METHODS

new

Creates a new Geometry::Primitive::Ellipse

area

Returns the area of this ellipse.

point_end

Gets the "end" point for this Ellipse. Same as point_start.

point_start

Get the point that "starts" this Ellipse. Returns the a point where the X coordinate is the Ellipse origin X and the origin Y + height / 2.

scale ($amount)

Returns a new ellipse whose radius is $amount times bigger than this one.

AUTHOR

Cory Watson <gphat@cpan.org>

COPYRIGHT & LICENSE

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