Get rid of useless Slic3r::Fill instances

This commit is contained in:
Alessandro Ranellucci 2012-10-30 15:38:17 +01:00
parent cec7bf815c
commit 44d91774a6
3 changed files with 6 additions and 3 deletions

View file

@ -35,6 +35,10 @@ sub filler {
my $self = shift;
my ($filler) = @_;
if (!ref $self) {
return $FillTypes{$filler}->new;
}
if (!$self->fillers->{$filler}) {
my $f = $self->fillers->{$filler} = $FillTypes{$filler}->new;
$f->bounding_box([ $self->print->bounding_box ]) if $filler->can('bounding_box');

View file

@ -232,7 +232,7 @@ sub make_perimeters {
# fill gaps
{
my $filler = Slic3r::Fill->new(print => $self->layer->object->print)->filler('rectilinear');
my $filler = Slic3r::Fill::Rectilinear->new;
my $w = $self->perimeter_flow->width;
my @widths = (1.5 * $w, $w, 0.5 * $w); # worth trying 0.2 too?

View file

@ -570,8 +570,7 @@ sub generate_support_material {
my @support_material_areas = map $_->offset_ex(- 0.5 * $flow->scaled_width),
@{union_ex([ map $_->contour, map @$_, values %layers ])};
my $fill = Slic3r::Fill->new(print => $self->print);
my $filler = $fill->filler($Slic3r::Config->support_material_pattern);
my $filler = Slic3r::Fill->filler($Slic3r::Config->support_material_pattern);
$filler->angle($Slic3r::Config->support_material_angle);
{
my @patterns = ();