## DESCRIPTION

Geometry::Primitive::Circle represents an ellipse with equal width and height.## SYNOPSIS

use Geometry::Primitive::Circle;

my $circle = Geometry::Primitive::Circle->new(

radius => 15

);

print $circle->diameter;

## ATTRIBUTES

## origin

Set/Get the origin of this circle.## radius

Set/Get the radius of this circle.## METHODS

## new

Creates a new Geometry::Primitive::Circle## area

Returns the area of this circle.## circumference

Returns the circumference of this circle.## diameter

Returns the diameter of this circle## scale ($amount)

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

## point_end

Set/Get the ``end'' point of this cicle. Calls`"point_start"`.

## point_start

Set/Get the ``start'' point of this cicle. Returns the point at the circle's origin X coordinate and the origin Y coordinate + radius / 2.## AUTHOR

Cory Watson <[email protected]>## COPYRIGHT & LICENSE

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