geometry::primitive::polygon(3pm) [debian man page]
Geometry::Primitive::Polygon(3pm) User Contributed Perl Documentation Geometry::Primitive::Polygon(3pm)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.
perl v5.10.1 2010-01-10 Geometry::Primitive::Polygon(3pm)
Check Out this Related Man Page
Geometry::Primitive::Line(3pm) User Contributed Perl Documentation Geometry::Primitive::Line(3pm)NAME
Geometry::Primitive::Line - A Line
DESCRIPTION
Geometry::Primitive::Line represents a straight curve defined by two points.
SYNOPSIS
use Geometry::Primitive::Line;
my $line = Geometry::Primitive::Line->new();
$line->start($point1);
$line->end($point2);
ATTRIBUTES
end
Set/Get the end point of the line.
start
Set/Get the start point of the line.
METHODS
new
Creates a new Geometry::Primitive::Line
contains_point
Returns true if the supplied point is 'on' the line. Accepts either a point object or an x y pair.
grow
Does nothing, as I'm not sure how. Patches or hints welcome.
is_parallel ($other_line)
Returns true if the supplied line is parallel to this one.
is_perpendicular ($other_line)
Returns true if the supplied line is perpendicular to this one.
length
Get the length of the line.
point_end
Get the end point. Provided for Shape role.
point_start
Get the start point. Provided for Shape role.
scale
Does nothing at the moment.
slope
Get the slope of the line.
to_string
Guess!
y_intercept
Returns the Y intercept of this line.
AUTHOR
Cory Watson <gphat@cpan.org>
COPYRIGHT & LICENSE
You can redistribute and/or modify this code under the same terms as Perl itself.
perl v5.10.1 2010-01-10 Geometry::Primitive::Line(3pm)
Hi,
In My Program I have HEXA value in a string array as below :
char hexa="0xabcd1234"; //This is how I'm getting source data.
Actaully I want this hexa value to be decremented with -1
and store it in another string as "0xabcd1234".
Can any body help me how to do that..?
I... (1 Reply)
I have two points which represent the start and end points of a line. I need to interpolate a number of points on the line between the two points.
Point 1:
x = 455989.0
y = 8673453.4
Point 2:
x = 283957.6
y = 8691250.1
The two points I have are coordinates given in UTM format. x... (3 Replies)
Hi,
Can anyone teach me by using perl.
let say i have an input file that content like below:
->line_01
aaabbbDDDTTTUSSy
->line_02
cccdddEEESSSGTTT
->line_03
xxxxyyyyzzzzzzzzzz
want the above input file content to become output file like below (every 2nd line after ->... become mono... (0 Replies)
my file looks like this:
297 PC Closed 07/10/12 999000098 AMERICAN SOCIETY FOR HEALTHCAR 0.00 USD 1 NAI
i want to look line this:
297,PC,Closed,07/10/12,999000098,AMERICAN SOCIETY FOR HEALTHCAR,0.00,USD,1,NAI (4 Replies)