3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-11-01 05:01:10 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

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

Browse source
This commit is contained in:
bubnikv 2017-02-27 01:03:00 +01:00
parent f0f550783f
commit ee619701d8
11 changed files with 14 additions and 146 deletions
Download patch file Download diff file Expand all files Collapse all files

2
utils/amf-to-stl.pl
View file

@ -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});
}

2
utils/dump-stl.pl
View file

@ -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 {

2
utils/split_stl.pl
View file

@ -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});
}
}

2
utils/stl-to-amf.pl
View file

@ -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));
}