3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-07-13 01:37:53 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 2

More fixes.

Browse source
This commit is contained in:
Alessandro Ranellucci 2011-10-10 17:27:00 +02:00
parent 34681af6ae
commit bca3abb755
4 changed files with 43 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

32
lib/Slic3r/Geometry/Clipper.pm Normal file
View file

@ -0,0 +1,32 @@
package Slic3r::Geometry::Clipper;
use strict;
use warnings;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(diff_ex diff union_ex);
use Math::Clipper ':all';
our $clipper = Math::Clipper->new;
sub diff_ex {
my ($subject, $clip) = @_;
$clipper->clear;
$clipper->add_subject_polygons($subject);
$clipper->add_clip_polygons($clip);
return $clipper->ex_execute(CT_DIFFERENCE, PFT_NONZERO, PFT_NONZERO);
}
sub diff {
return [ map { $_->{outer}, $_->{holes} } diff_ex(@_) ];
}
sub union_ex {
my ($polygons) = @_;
$clipper->clear;
$clipper->add_subject_polygons($polygons);
return $clipper->ex_execute(CT_UNION, PFT_NONZERO, PFT_NONZERO);
}
1;