3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-10-31 12:41:20 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Bugfix: after recent changes, objects had slight dimension errors. #56

Browse source
This commit is contained in:
Alessandro Ranellucci 2011-12-05 18:48:48 +01:00
parent 3d0cde2fce
commit 2ba513bdb2
3 changed files with 13 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/Slic3r.pm
View file

@ -3,7 +3,7 @@ package Slic3r;
use strict;
use warnings;
our $VERSION = "0.5.5b";
our $VERSION = "0.5.6-beta";
our $debug = 0;
sub debugf {

12
lib/Slic3r/Layer.pm
View file

@ -122,6 +122,18 @@ sub make_surfaces {
@$expolygons;
}
# the contours must be offsetted by half extrusion width inwards
{
my $distance = scale $Slic3r::flow_width / 2;
my @surfaces = @{$self->slices};
@{$self->slices} = ();
foreach my $surface (@surfaces) {
push @{$self->slices}, map Slic3r::Surface->cast_from_expolygon
($_, surface_type => 'internal'),
$surface->expolygon->offset_ex(-$distance);
}
}
#use Slic3r::SVG;
#Slic3r::SVG::output(undef, "surfaces.svg",
# polygons => [ map $_->contour->p, @{$self->surfaces} ],

16
lib/Slic3r/Print.pm
View file

@ -10,13 +10,11 @@ use XXX;
has 'x_length' => (
is => 'ro',
required => 1,
coerce => sub { sprintf '%.0f', $_[0] },
);
has 'y_length' => (
is => 'ro',
required => 1,
coerce => sub { sprintf '%.0f', $_[0] },
);
has 'layers' => (
@ -181,20 +179,6 @@ sub detect_surfaces_type {
@$expolygons;
};
# the contours must be offsetted by half extrusion width inwards
{
my $distance = scale $Slic3r::flow_width / 2;
foreach my $layer (@{$self->layers}) {
my @surfaces = @{$layer->slices};
@{$layer->slices} = ();
foreach my $surface (@surfaces) {
push @{$layer->slices}, map Slic3r::Surface->cast_from_expolygon
($_, surface_type => 'internal'),
$surface->expolygon->offset_ex(-$distance);
}
}
}
for (my $i = 0; $i < $self->layer_count; $i++) {
my $layer = $self->layers->[$i];
Slic3r::debugf "Detecting solid surfaces for layer %d\n", $layer->id;