For details read Perl NOC. After June 25

Cory G Watson >
Geometry-Primitive-0.22 >
Geometry::Primitive::Circle

Geometry::Primitive::Circle - A Circle

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

use Geometry::Primitive::Circle; my $circle = Geometry::Primitive::Circle->new( radius => 15 ); print $circle->diameter;

Set/Get the origin of this circle.

Set/Get the radius of this circle.

Creates a new Geometry::Primitive::Circle

Returns the area of this circle.

Returns the circumference of this circle.

Returns the diameter of this circle

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

Set/Get the "end" point of this cicle. Calls `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.

Cory Watson <gphat@cpan.org>

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

syntax highlighting: