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

Note used settings in exported gcode. #52

Browse source
This commit is contained in:
Alessandro Ranellucci 2011-12-01 22:20:48 +01:00
parent aab85a4e27
commit 830965fc0b
1 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lib/Slic3r/Print.pm
View file

@ -454,6 +454,18 @@ sub export_gcode {
open my $fh, ">", $file
or die "Failed to open $file for writing\n";
# write some information
my @lt = localtime;
printf $fh "; generated by Slic3r on %02d-%02d-%02d at %02d:%02d:%02d\n\n",
$lt[5] + 1900, $lt[4], $lt[3], $lt[2], $lt[1], $lt[0];
print $fh "; most important settings used:\n";
for (qw(layer_height perimeters fill_density nozzle_diameter filament_diameter
perimeter_speed infill_speed travel_speed extrusion_width_ratio)) {
printf $fh "; %s = %s\n", $_, Slic3r::Config->get($_);
}
print $fh "\n";
# write start commands to file
printf $fh "M104 S%d ; set temperature\n", $Slic3r::temperature if $Slic3r::temperature;
print $fh "$Slic3r::start_gcode\n";