Ported (and used) ExtrusionPath->first_point

2013-08-26 23:42:00 +02:00
parent fe42427a54
commit 9fb14f2119
6 changed files with 16 additions and 9 deletions
--- a/lib/Slic3r/ExtrusionPath.pm
+++ b/lib/Slic3r/ExtrusionPath.pm
@@ -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