Note used settings in exported gcode. #52

1 files changed, 12 insertions, 0 deletions

diff --git a/lib/Slic3r/Print.pm b/lib/Slic3r/Print.pm
index d1a4c11ac..1545732a0 100644
--- a/lib/Slic3r/Print.pm
+++ b/lib/Slic3r/Print.pm
@@ -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";