Fix regression introduced with f2e1fe5241

This commit is contained in:
Alessandro Ranellucci 2012-02-21 20:16:03 +01:00
parent 9ac92facdd
commit c3fc6ee66b
4 changed files with 10 additions and 13 deletions

View file

@ -30,11 +30,6 @@ sub clone {
return (ref $self)->new(map $_->clone, @$self);
}
sub reverse {
my $self = shift;
@$self = CORE::reverse @$self;
}
sub lines {
my $self = shift;
return map Slic3r::Line->new($_), polygon_lines($self);
@ -135,7 +130,7 @@ sub is_printable {
# for a distance equal to half of the extrusion width;
# if no offset is possible, then polyline is not printable
my $p = $self->clone;
@$p = CORE::reverse @$p if !Math::Clipper::is_counter_clockwise($p);
$p->make_counter_clockwise;
my $offsets = Math::Clipper::offset([$p], -(scale $Slic3r::flow_spacing / 2), $Slic3r::resolution * 100000, JT_MITER, 2);
return @$offsets ? 1 : 0;
}