NAME¶
Geometry::Primitive::Polygon - Closed shape with an arbitrary number of points.
DESCRIPTION¶
Geometry::Primitive::Polygon represents a two dimensional figure bounded by a
series of points that represent a closed path.
SYNOPSIS¶
use Geometry::Primitive::Polygon;
my $poly = Geometry::Primitive::Polygon->new;
$poly->add_point($point1);
$poly->add_point($point2);
$poly->add_point($point3);
# No need to close the path, it's handled automatically
ATTRIBUTES¶
points¶
Set/Get the arrayref of points that make up this Polygon.
METHODS¶
new¶
Creates a new Geometry::Primitive::Polygon
area¶
Area of this polygon. Assumes it is non-self-intersecting.
add_point¶
Add a point to this polygon.
clear_points¶
Clears all points from this polygon.
point_count¶
Returns the number of points that bound this polygon.
get_point¶
Returns the point at the specified offset.
point_end¶
Get the end point. Provided for Shape role.
point_start¶
Get the start point. Provided for Shape role.
scale ($amount)¶
Scale this this polygon by the supplied amount.
AUTHOR¶
Cory Watson <gphat@cpan.org>
COPYRIGHT & LICENSE¶
You can redistribute and/or modify this code under the same terms as Perl
itself.
