3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-08-10 15:25:18 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 2

Massive reduction of memory usage (down to one third).

Browse source
This commit is contained in:
Alessandro Ranellucci 2012-05-19 17:57:38 +02:00
parent 882a022e3a
commit b246480535
10 changed files with 75 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

33
t/serialize.t Normal file
View file

@ -0,0 +1,33 @@
use Test::More;
use strict;
use warnings;
plan tests => 2;
BEGIN {
use FindBin;
use lib "$FindBin::Bin/../lib";
}
use Slic3r;
use Slic3r::Geometry qw(scale);
#==========================================================
{
my $points = [
[226,701], [260,681], [109,420], [149,397], [300,658], [308,654],
];
foreach my $point (@$points) {
@$point = map scale $_, @$point;
}
my $polyline = Slic3r::Polyline->new($points);
my $serialized = $polyline->serialize;
my $deserialized = $serialized->deserialize;
is scalar(@$deserialized), scalar(@$points), 'number of deserialized points';
is_deeply $deserialized, $points, 'deserialized points coordinates';
}
#==========================================================
__END__