DESCRIPTION

Geometry::Primitive::Arc represents a closed segment of a curve.

SYNOPSIS

use Geometry::Primitive::Arc;
my $arc = Geometry::Primitive::Arc->new(
angle_start => 0,
angle_end => 1.57079633,
radius => 15
);

ATTRIBUTES

angle_start

The starting angle for this arc in radians.

angle_end

The ending angle for this arc in radians.

radius

Returns the radius of the arc.

origin

Set/Get the origin of this arc.

METHODS

new

Creates a new Geometry::Primitive::Arc

get_point_at_angle

Given angle in radians returns the point at that angle on this arc. Returns undef if the angle falls outside this arc's range.

length

Returns the length of this arc.

point_end

Get the end point. Provided for Shape role.

point_start

Get the start point. Provided for Shape role.

scale ($amount)

Increases the radius by multiplying it by the supplied amount.

AUTHOR

Cory Watson <[email protected]>

COPYRIGHT & LICENSE

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