Slic3r 0.7.0 February 27, 2012 04:29AM |
Registered: 13 years ago Posts: 228 |
Re: Slic3r 0.7.0 February 27, 2012 06:36AM |
Registered: 12 years ago Posts: 86 |
Re: Slic3r 0.7.0 February 27, 2012 06:57AM |
Admin Registered: 12 years ago Posts: 2,569 |
Quote
Sound in 0.7.0 release notes
support for custom post-processing scripts
Re: Slic3r 0.7.0 February 27, 2012 08:05AM |
Registered: 14 years ago Posts: 689 |
Re: Slic3r 0.7.0 February 27, 2012 09:09AM |
Admin Registered: 12 years ago Posts: 2,569 |
#!/usr/bin/perl use strict; use warnings; use File::Temp qw/ tempfile /; use File::Copy qw/ move /; my $file_in = $ARGV[0] or die( "Need gcode file name as first argument !"); my ($file_out_h, $file_out_name) = tempfile() or die( "Cannot open temp work file !" ); # You can change those to suit your machine capabilities. my $Z_start_speed = "80.0"; my $Z_full_speed = "110.0"; while (<>) { # I do manual heatup - not sure my fimware does M109 properly anyway. if ($_ =~ /^M109/) { print $file_out_h ";$_"; # Separating Z movements so they use their own speed } elsif ($_ =~ /^G1 Z(\d+\.\d*) F(\d+\.\d*.*)/) { print $file_out_h "G1 F$Z_start_speed\n"; print $file_out_h "G1 Z$1 F$Z_full_speed\n"; print $file_out_h "G1 F$2\n"; } else { print $file_out_h "$_"; } } close $file_out_h; move( $file_out_name, $file_in );
Re: Slic3r 0.7.0 February 28, 2012 02:45AM |
Registered: 12 years ago Posts: 120 |
Re: Slic3r 0.7.0 March 03, 2012 06:34PM |
Registered: 12 years ago Posts: 12 |
Re: Slic3r 0.7.0 March 03, 2012 09:27PM |
Registered: 12 years ago Posts: 12 |