Extrusion of perimeters
This commit is contained in:
parent
55a523e1fa
commit
febd655e22
11 changed files with 206 additions and 5 deletions
|
@ -58,4 +58,15 @@ sub encloses_point {
|
|||
return $side;
|
||||
}
|
||||
|
||||
sub mgp_polygon {
|
||||
my $self = shift;
|
||||
|
||||
# we need a list of ordered points
|
||||
my $points = $self->ordered_points;
|
||||
|
||||
my $p = Math::Geometry::Planar->new;
|
||||
$p->points($points);
|
||||
return $p;
|
||||
}
|
||||
|
||||
1;
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue