Ported (and used) ExtrusionPath->first_point

This commit is contained in:
Alessandro Ranellucci 2013-08-26 23:42:00 +02:00
parent fe42427a54
commit 9fb14f2119
6 changed files with 16 additions and 9 deletions

View file

@ -65,11 +65,6 @@ sub points {
return $self->polyline;
}
sub first_point {
my $self = shift;
return $self->polyline->[0];
}
sub is_perimeter {
my $self = shift;
return $self->role == EXTR_ROLE_PERIMETER