3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-07-24 15:13:58 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Detection of optimal infill direction for bridges. Includes many fixes and improvements.

Browse source
This commit is contained in:
Alessandro Ranellucci 2011-10-07 19:07:57 +02:00
parent 1cb515a8e5
commit 743f2abcf2
18 changed files with 445 additions and 68 deletions
Download patch file Download diff file Expand all files Collapse all files

37
lib/Slic3r/Skein.pm
View file

@ -14,16 +14,40 @@ sub go {
if $self->input_file !~ /\.stl$/i;
my $t0 = [gettimeofday];
my $print = Slic3r::Print->new_from_stl($self->input_file);
$print->extrude_perimeters;
$print->remove_small_features;
# detect which surfaces are near external layers
# skein the STL into layers
# each layer has surfaces with holes; surfaces are distinguished
# in top/bottom/internal
my $print = Slic3r::Print->new_from_stl($self->input_file);
# this will remove unprintable surfaces
# (those that are too tight for extrusion)
$print->remove_small_surfaces;
# make bridges printable
# this will add a set of bridges to each layer
$print->process_bridges;
# make perimeters
# this will add a set of extrusion loops to each layer
# as well as a set of surfaces to be filled
$print->extrude_perimeters;
# this will remove unprintable perimeter loops
# (those that are too tight for extrusion)
$print->remove_small_perimeters;
# split fill_surfaces in internal and bridge surfaces
$print->split_bridges_fills;
# detect which fill surfaces are near external layers
# they will be split in internal and internal-solid surfaces
$print->discover_horizontal_shells;
# this will generate extrusion paths for each layer
$print->extrude_fills;
# output everything to a GCODE file
if (!$self->output_file) {
my $output_file = $self->input_file;
$output_file =~ s/\.stl$/.gcode/i;
@ -31,9 +55,12 @@ sub go {
}
$print->export_gcode($self->output_file);
# output some statistics
my $processing_time = tv_interval($t0);
printf "Done. Process took %d minutes and %.3f seconds\n",
int($processing_time/60), $processing_time - int($processing_time/60)*60;
# TODO: more statistics!
}
1;