juli/OrcaSlicer
1
1
Fork 0
mirror of https://github.com/OrcaSlicer/OrcaSlicer.git synced 2026-05-19 19:33:47 +00:00
Code Issues Packages Projects Releases Wiki Activity

Bugfix (harmless for now) in calculation of extents; using constants now for code readability

Browse Source
This commit is contained in:
Alessandro Ranellucci
2011-09-03 20:08:48 +02:00
parent febd655e22
commit 74b4d8d612
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/Slic3r/STL.pm
View File

@@ -7,6 +7,8 @@ use XXX;
use constant X => 0; use constant X => 0;
use constant Y => 1; use constant Y => 1;
use constant Z => 2; use constant Z => 2;
use constant MIN => 0;
use constant MAX => 1;
sub parse_file { sub parse_file {
my $self = shift; my $self = shift;
@@ -23,15 +25,15 @@ sub parse_file {
my ($normal, @vertices) = @$facet; my ($normal, @vertices) = @$facet;
foreach my $vertex (@vertices) { foreach my $vertex (@vertices) {
for (X,Y,Z) { for (X,Y,Z) {
$extents[$_][0] = $vertex->[$_] if $vertex->[$_] < $extents[$_][0]; $extents[$_][MIN] = $vertex->[$_] if $vertex->[$_] < $extents[$_][MIN];
$extents[$_][1] = $vertex->[$_] if $vertex->[$_] > $extents[$_][0]; $extents[$_][MAX] = $vertex->[$_] if $vertex->[$_] > $extents[$_][MAX];
} }
} }
} }
# calculate the displacements needed to # calculate the displacements needed to
# have lowest value for each axis at coordinate 0 # have lowest value for each axis at coordinate 0
my @shift = map 0 - $extents[$_][0], X,Y,Z; my @shift = map 0 - $extents[$_][MIN], X,Y,Z;
printf "shift = %d, %d, %d\n", @shift[X,Y,Z]; printf "shift = %d, %d, %d\n", @shift[X,Y,Z];
# process facets # process facets