Little workflow simplification

This commit is contained in:
Alessandro Ranellucci 2012-07-21 15:53:38 +02:00
parent 8ba67d990f
commit 3edf42e98e
2 changed files with 35 additions and 42 deletions

View file

@ -410,16 +410,11 @@ sub prepare_fill_surfaces {
@surfaces = (grep($_->surface_type != S_TYPE_TOP, @surfaces), @top);
}
$self->fill_surfaces([@surfaces]);
}
sub remove_small_surfaces {
my $self = shift;
# this will remove unprintable surfaces
# (those that are too tight for extrusion)
{
my $distance = scale $self->infill_flow->spacing / 2;
my @surfaces = @{$self->fill_surfaces};
@{$self->fill_surfaces} = ();
foreach my $surface (@surfaces) {
# offset inwards
my @offsets = $surface->expolygon->offset_ex(-$distance);
@ -450,6 +445,9 @@ sub remove_small_surfaces {
}
}
$self->fill_surfaces([@surfaces]);
}
# make bridges printable
sub process_bridges {
my $self = shift;

View file

@ -241,11 +241,6 @@ sub export_gcode {
$status_cb->(35, "Preparing infill surfaces");
$_->prepare_fill_surfaces for map @{$_->layers}, @{$self->objects};
# this will remove unprintable surfaces
# (those that are too tight for extrusion)
$status_cb->(40, "Cleaning up");
$_->remove_small_surfaces for map @{$_->layers}, @{$self->objects};
# this will detect bridges and reverse bridges
# and rearrange top/bottom/internal surfaces
$status_cb->(45, "Detect bridges");