Improvements to avoid blobs

2026-05-19 03:13:39 +00:00 · 2011-09-05 20:29:07 +02:00
parent ff5044c031
commit 3421e8fef8
2 changed files with 31 additions and 7 deletions
--- a/lib/Slic3r/Print.pm
+++ b/lib/Slic3r/Print.pm
@@ -150,11 +150,13 @@ sub export_gcode {
        }
        
        # go to first point while compensating retraction
-        $G1->($path->lines->[0]->a, $z, 
-            $retracted 
-                ? ($Slic3r::retract_length + $Slic3r::retract_restart_extra)
-                : 0, 
-            "move to first $description point");
+        $G1->($path->lines->[0]->a, $z, 0, "move to first $description point");
+        
+        # compensate retraction
+        if ($retracted) {
+            $G1->(undef, undef, ($Slic3r::retract_length + $Slic3r::retract_restart_extra), 
+                "compensate retraction");
+        }
        
        # extrude while going to next points
        foreach my $line (@{ $path->lines }) {