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

Ability to scale input object

Browse source
This commit is contained in:
Alessandro Ranellucci 2011-09-26 12:07:29 +02:00
parent c2a62891da
commit bfad101c8c
4 changed files with 22 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lib/Slic3r/STL.pm
View file

@ -30,6 +30,12 @@ sub parse_file {
}
}
# scale extents
for (X,Y,Z) {
$extents[$_][MIN] *= $Slic3r::scale;
$extents[$_][MAX] *= $Slic3r::scale;
}
# initialize print job
my $print = Slic3r::Print->new(
x_length => ($extents[X][MAX] - $extents[X][MIN]) / $Slic3r::resolution,
@ -46,7 +52,7 @@ sub parse_file {
# transform vertex coordinates
my ($normal, @vertices) = @$facet;
foreach my $vertex (@vertices) {
$vertex->[$_] = sprintf('%.0f', ($vertex->[$_] + $shift[$_]) / $Slic3r::resolution)
$vertex->[$_] = sprintf('%.0f', ($Slic3r::scale * $vertex->[$_] + $shift[$_]) / $Slic3r::resolution)
for X,Y,Z;
}