Got rid of the Perl Format::STL, Format::AMF, Format::OBJ for good.

4 files changed, 4 insertions, 4 deletions

diff --git a/utils/amf-to-stl.pl b/utils/amf-to-stl.pl
index 8b26cedb3..64910dc31 100755
--- a/utils/amf-to-stl.pl
+++ b/utils/amf-to-stl.pl
@@ -30,7 +30,7 @@ my %opt = ();
     $output_file =~ s/\.amf(?:\.xml)?$/\.stl/i;
     
     printf "Writing to %s\n", basename($output_file);
-    Slic3r::Format::STL->write_file($output_file, $model, binary => !$opt{ascii});
+    $model->store_stl(Slic3r::encode_path($output_file), binary => !$opt{ascii});
 }
 
 
diff --git a/utils/dump-stl.pl b/utils/dump-stl.pl
index f96e3f5bb..12746feab 100644
--- a/utils/dump-stl.pl
+++ b/utils/dump-stl.pl
@@ -27,7 +27,7 @@ if (-e $ARGV[0]) {
     exit 0;
 } elsif ((my $model = Slic3r::Test::model($ARGV[0]))) {
     $ARGV[1] or die "Missing writeable destination as second argument\n";
-    Slic3r::Format::STL->write_file($ARGV[1], $model);
+    $model->store_stl(Slic3r::encode_path($ARGV[1]), 1);
     printf "Model $ARGV[0] written to $ARGV[1]\n";
     exit 0;
 } else {
diff --git a/utils/split_stl.pl b/utils/split_stl.pl
index 23fc91b26..1c46e9729 100755
--- a/utils/split_stl.pl
+++ b/utils/split_stl.pl
@@ -43,7 +43,7 @@ my %opt = ();
         
         my $output_file = sprintf '%s_%02d.stl', $basename, ++$part_count;
         printf "Writing to %s\n", basename($output_file);
-        Slic3r::Format::STL->write_file($output_file, $new_model, binary => !$opt{ascii});
+        $new_model->store_stl(Slic3r::encode_path($output_file), !$opt{ascii});
     }
 }
 
diff --git a/utils/stl-to-amf.pl b/utils/stl-to-amf.pl
index 525dcb52a..072fe96fc 100755
--- a/utils/stl-to-amf.pl
+++ b/utils/stl-to-amf.pl
@@ -53,7 +53,7 @@ my %opt = ();
     }
     
     printf "Writing to %s\n", basename($output_file);
-    Slic3r::Format::AMF->write_file($output_file, $new_model);
+    $new_model->store_amf(Slic3r::encode_path($output_file));
 }