Geometry::Primitive::Circle.3pm

Langue: en

Version: 2010-01-10 (ubuntu - 24/10/10)

Section: 3 (Bibliothèques de fonctions)

NAME

Geometry::Primitive::Circle - A Circle

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 <gphat@cpan.org> You can redistribute and/or modify this code under the same terms as Perl itself.