2011-09-01 23:06:28 +04:00
|
|
|
package Slic3r;
|
|
|
|
|
2012-01-18 23:04:18 +04:00
|
|
|
# Copyright holder: Alessandro Ranellucci
|
|
|
|
# This application is licensed under the GNU Affero General Public License, version 3
|
|
|
|
|
2011-09-01 23:06:28 +04:00
|
|
|
use strict;
|
|
|
|
use warnings;
|
2012-01-22 16:56:15 +04:00
|
|
|
require v5.10;
|
2011-09-01 23:06:28 +04:00
|
|
|
|
2012-04-29 13:20:12 +04:00
|
|
|
our $VERSION = "0.7.3-dev";
|
2011-11-14 01:57:58 +04:00
|
|
|
|
2011-09-05 15:33:09 +04:00
|
|
|
our $debug = 0;
|
|
|
|
sub debugf {
|
|
|
|
printf @_ if $debug;
|
|
|
|
}
|
|
|
|
|
2012-05-19 22:25:59 +04:00
|
|
|
# load threads before Moo as required by it
|
2012-05-21 20:44:31 +04:00
|
|
|
BEGIN {
|
|
|
|
use Config;
|
|
|
|
our $have_threads = $Config{useithreads} && eval "use threads; use Thread::Queue; 1";
|
|
|
|
}
|
2012-05-19 22:25:59 +04:00
|
|
|
|
|
|
|
use Moo;
|
2011-10-03 13:55:32 +04:00
|
|
|
use Slic3r::Config;
|
2011-10-15 13:36:05 +04:00
|
|
|
use Slic3r::ExPolygon;
|
2011-09-26 13:42:08 +04:00
|
|
|
use Slic3r::Extruder;
|
2011-09-26 01:15:45 +04:00
|
|
|
use Slic3r::ExtrusionLoop;
|
2011-09-04 14:04:01 +04:00
|
|
|
use Slic3r::ExtrusionPath;
|
2011-10-20 20:11:59 +04:00
|
|
|
use Slic3r::ExtrusionPath::Arc;
|
2011-09-26 12:52:58 +04:00
|
|
|
use Slic3r::ExtrusionPath::Collection;
|
2011-09-05 14:21:27 +04:00
|
|
|
use Slic3r::Fill;
|
2012-02-25 20:35:25 +04:00
|
|
|
use Slic3r::Format::AMF;
|
2012-05-20 13:40:37 +04:00
|
|
|
use Slic3r::Format::OBJ;
|
2012-02-25 20:35:25 +04:00
|
|
|
use Slic3r::Format::STL;
|
2011-12-07 22:33:59 +04:00
|
|
|
use Slic3r::Geometry qw(PI);
|
2011-09-01 23:06:28 +04:00
|
|
|
use Slic3r::Layer;
|
|
|
|
use Slic3r::Line;
|
|
|
|
use Slic3r::Point;
|
2011-10-15 13:36:05 +04:00
|
|
|
use Slic3r::Polygon;
|
2011-09-01 23:06:28 +04:00
|
|
|
use Slic3r::Polyline;
|
|
|
|
use Slic3r::Print;
|
2012-04-29 14:51:20 +04:00
|
|
|
use Slic3r::Print::Object;
|
2011-09-01 23:06:28 +04:00
|
|
|
use Slic3r::Surface;
|
2011-11-27 14:40:03 +04:00
|
|
|
use Slic3r::TriangleMesh;
|
2011-09-01 23:06:28 +04:00
|
|
|
|
2012-05-20 19:21:31 +04:00
|
|
|
our $threads = $have_threads ? 2 : 1;
|
2012-01-28 19:27:52 +04:00
|
|
|
|
2012-02-05 23:55:17 +04:00
|
|
|
# miscellaneous options
|
|
|
|
our $notes = '';
|
|
|
|
|
2011-12-26 13:20:45 +04:00
|
|
|
# output options
|
|
|
|
our $output_filename_format = '[input_filename_base].gcode';
|
2012-02-20 15:50:05 +04:00
|
|
|
our $post_process = [];
|
2011-12-26 13:20:45 +04:00
|
|
|
|
2011-09-06 13:10:12 +04:00
|
|
|
# printer options
|
2011-10-05 23:25:17 +04:00
|
|
|
our $nozzle_diameter = 0.5;
|
2011-09-06 13:10:12 +04:00
|
|
|
our $print_center = [100,100]; # object will be centered around this point
|
2012-02-20 14:44:30 +04:00
|
|
|
our $z_offset = 0;
|
|
|
|
our $gcode_flavor = 'reprap';
|
2011-09-06 13:10:12 +04:00
|
|
|
our $use_relative_e_distances = 0;
|
2011-12-02 01:34:21 +04:00
|
|
|
our $extrusion_axis = 'E';
|
2011-10-20 20:11:59 +04:00
|
|
|
our $gcode_arcs = 0;
|
2011-11-14 15:15:32 +04:00
|
|
|
our $g0 = 0;
|
2011-12-14 22:49:21 +04:00
|
|
|
our $gcode_comments = 0;
|
2011-09-05 15:33:09 +04:00
|
|
|
|
2011-09-06 13:10:12 +04:00
|
|
|
# filament options
|
|
|
|
our $filament_diameter = 3; # mm
|
2011-11-25 14:15:20 +04:00
|
|
|
our $extrusion_multiplier = 1;
|
2011-10-14 18:24:55 +04:00
|
|
|
our $temperature = 200;
|
2012-02-26 17:54:38 +04:00
|
|
|
our $first_layer_temperature;
|
2012-03-04 02:14:40 +04:00
|
|
|
our $bed_temperature = 0;
|
|
|
|
our $first_layer_bed_temperature;
|
2011-09-06 13:10:12 +04:00
|
|
|
|
|
|
|
# speed options
|
2012-02-19 01:36:13 +04:00
|
|
|
our $travel_speed = 130; # mm/s
|
|
|
|
our $perimeter_speed = 30; # mm/s
|
|
|
|
our $small_perimeter_speed = 30; # mm/s
|
|
|
|
our $infill_speed = 60; # mm/s
|
|
|
|
our $solid_infill_speed = 60; # mm/s
|
|
|
|
our $bridge_speed = 60; # mm/s
|
2011-10-01 20:10:33 +04:00
|
|
|
our $bottom_layer_speed_ratio = 0.3;
|
2011-09-06 13:10:12 +04:00
|
|
|
|
2012-02-10 17:53:44 +04:00
|
|
|
# acceleration options
|
|
|
|
our $acceleration = 0;
|
2012-02-19 01:36:13 +04:00
|
|
|
our $perimeter_acceleration = 25; # mm/s^2
|
|
|
|
our $infill_acceleration = 50; # mm/s^2
|
2012-02-10 17:53:44 +04:00
|
|
|
|
2011-09-06 13:10:12 +04:00
|
|
|
# accuracy options
|
2012-05-19 19:57:38 +04:00
|
|
|
our $scaling_factor = 0.000001;
|
2012-05-01 13:41:08 +04:00
|
|
|
our $resolution = 0.01;
|
2012-05-14 02:30:52 +04:00
|
|
|
our $small_perimeter_length = (6.5 / $scaling_factor)*2*PI;
|
2011-10-06 19:11:59 +04:00
|
|
|
our $layer_height = 0.4;
|
2011-11-13 22:08:19 +04:00
|
|
|
our $first_layer_height_ratio = 1;
|
2011-10-18 17:57:53 +04:00
|
|
|
our $infill_every_layers = 1;
|
2011-12-07 22:33:59 +04:00
|
|
|
|
|
|
|
# flow options
|
2011-11-26 23:51:04 +04:00
|
|
|
our $extrusion_width_ratio = 0;
|
2011-12-04 23:29:21 +04:00
|
|
|
our $bridge_flow_ratio = 1;
|
2011-12-17 22:52:34 +04:00
|
|
|
our $overlap_factor = 0.5;
|
2011-09-06 13:10:12 +04:00
|
|
|
our $flow_width;
|
2011-12-17 22:52:34 +04:00
|
|
|
our $min_flow_spacing;
|
|
|
|
our $flow_spacing;
|
2011-09-06 13:10:12 +04:00
|
|
|
|
|
|
|
# print options
|
2011-11-17 13:38:23 +04:00
|
|
|
our $perimeters = 3;
|
2011-09-26 00:11:56 +04:00
|
|
|
our $solid_layers = 3;
|
2011-11-13 21:14:02 +04:00
|
|
|
our $fill_pattern = 'rectilinear';
|
|
|
|
our $solid_fill_pattern = 'rectilinear';
|
2011-09-05 20:52:09 +04:00
|
|
|
our $fill_density = 0.4; # 1 = 100%
|
2011-12-08 13:33:05 +04:00
|
|
|
our $fill_angle = 45;
|
2012-05-20 00:36:29 +04:00
|
|
|
our $randomize_start = 1;
|
2012-02-19 15:03:36 +04:00
|
|
|
our $support_material = 0;
|
2012-02-19 20:02:49 +04:00
|
|
|
our $support_material_tool = 0;
|
2012-05-20 22:07:39 +04:00
|
|
|
our $complete_objects = 0;
|
2011-10-14 18:24:55 +04:00
|
|
|
our $start_gcode = "G28 ; home all axes";
|
|
|
|
our $end_gcode = <<"END";
|
|
|
|
M104 S0 ; turn off temperature
|
|
|
|
G28 X0 ; home X axis
|
|
|
|
M84 ; disable motors
|
|
|
|
END
|
2012-03-26 14:14:15 +04:00
|
|
|
our $layer_gcode = '';
|
2011-09-03 22:47:38 +04:00
|
|
|
|
2011-09-06 13:10:12 +04:00
|
|
|
# retraction options
|
2011-10-01 20:10:33 +04:00
|
|
|
our $retract_length = 1; # mm
|
2011-09-05 20:52:09 +04:00
|
|
|
our $retract_restart_extra = 0; # mm
|
2012-02-19 01:36:13 +04:00
|
|
|
our $retract_speed = 30; # mm/s
|
2011-10-06 17:24:21 +04:00
|
|
|
our $retract_before_travel = 2; # mm
|
2011-11-07 18:58:47 +04:00
|
|
|
our $retract_lift = 0; # mm
|
2011-09-05 20:52:09 +04:00
|
|
|
|
2012-02-26 00:01:00 +04:00
|
|
|
# cooling options
|
2012-02-26 00:56:36 +04:00
|
|
|
our $cooling = 0;
|
2012-02-26 00:01:00 +04:00
|
|
|
our $min_fan_speed = 35;
|
|
|
|
our $max_fan_speed = 100;
|
|
|
|
our $bridge_fan_speed = 100;
|
|
|
|
our $fan_below_layer_time = 60;
|
|
|
|
our $slowdown_below_layer_time = 15;
|
|
|
|
our $min_print_speed = 10;
|
|
|
|
our $disable_fan_first_layers = 1;
|
2012-03-04 01:21:30 +04:00
|
|
|
our $fan_always_on = 0;
|
2012-02-26 00:01:00 +04:00
|
|
|
|
2011-09-06 13:10:12 +04:00
|
|
|
# skirt options
|
2011-09-26 00:11:56 +04:00
|
|
|
our $skirts = 1;
|
2011-09-05 22:00:59 +04:00
|
|
|
our $skirt_distance = 6; # mm
|
2011-11-13 21:41:12 +04:00
|
|
|
our $skirt_height = 1; # layers
|
2011-09-05 22:00:59 +04:00
|
|
|
|
2011-09-26 14:07:29 +04:00
|
|
|
# transform options
|
|
|
|
our $scale = 1;
|
2011-09-26 18:07:12 +04:00
|
|
|
our $rotate = 0;
|
2012-04-11 19:38:56 +04:00
|
|
|
our $duplicate_mode = 'no';
|
2012-03-06 07:55:21 +04:00
|
|
|
our $duplicate = 1;
|
2012-04-11 18:30:58 +04:00
|
|
|
our $bed_size = [200,200];
|
2012-04-11 17:58:09 +04:00
|
|
|
our $duplicate_grid = [1,1];
|
2011-11-07 18:49:07 +04:00
|
|
|
our $duplicate_distance = 6; # mm
|
2011-09-26 14:07:29 +04:00
|
|
|
|
2012-04-09 14:29:47 +04:00
|
|
|
sub parallelize {
|
|
|
|
my %params = @_;
|
|
|
|
|
2012-04-10 18:26:56 +04:00
|
|
|
if (!$params{disable} && $Slic3r::have_threads && $Slic3r::threads > 1) {
|
2012-04-09 14:29:47 +04:00
|
|
|
my $q = Thread::Queue->new;
|
|
|
|
$q->enqueue(@{ $params{items} }, (map undef, 1..$Slic3r::threads));
|
|
|
|
|
|
|
|
my $thread_cb = sub { $params{thread_cb}->($q) };
|
|
|
|
foreach my $th (map threads->create($thread_cb), 1..$Slic3r::threads) {
|
|
|
|
$params{collect_cb}->($th->join);
|
|
|
|
}
|
|
|
|
} else {
|
|
|
|
$params{no_threads_cb}->();
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2011-09-01 23:06:28 +04:00
|
|
|
1;
|