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;