30 lines
554 B
Perl
30 lines
554 B
Perl
package Slic3r::XS;
|
|
use warnings;
|
|
use strict;
|
|
|
|
our $VERSION = '0.01';
|
|
|
|
use XSLoader;
|
|
XSLoader::load(__PACKAGE__, $VERSION);
|
|
|
|
package Slic3r::Point::XS;
|
|
use overload
|
|
'@{}' => sub { $_[0]->arrayref };
|
|
|
|
package Slic3r::ExPolygon::XS;
|
|
use overload
|
|
'@{}' => sub { $_[0]->arrayref };
|
|
|
|
sub clone { (ref $_[0])->_clone($_[0]) }
|
|
|
|
# to handle legacy code
|
|
sub rotate {
|
|
my $self = shift;
|
|
my ($angle, $center) = @_;
|
|
|
|
$center = Slic3r::Point::XS->new(@$center) if ref($center) ne 'Slic3r::Point::XS';
|
|
$self->_rotate($angle, $center);
|
|
}
|
|
|
|
1;
|