18 lines
370 B
Perl
18 lines
370 B
Perl
package Manticore::Geometry::Polygon;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
# Data representation:
|
|
# List of {p=>polygon, v=>value}
|
|
# Each of these polygons shall be normalized, hence intersection free with itself
|
|
# Value is summarized if several polygons are around the same point
|
|
# Polygons are a list of points
|
|
sub new {
|
|
my ($pkg, $pts) = @_;
|
|
return bless $pts;
|
|
}
|
|
|
|
|
|
1;
|