Ported Surface->offset() to XS

This commit is contained in:
Alessandro Ranellucci 2013-11-23 18:29:25 +01:00
parent a331f4d27a
commit 46e3b3180e
6 changed files with 35 additions and 5 deletions

View file

@ -7,11 +7,6 @@ our @ISA = qw(Exporter);
our @EXPORT_OK = qw(S_TYPE_TOP S_TYPE_BOTTOM S_TYPE_INTERNAL S_TYPE_INTERNALSOLID S_TYPE_INTERNALBRIDGE S_TYPE_INTERNALVOID);
our %EXPORT_TAGS = (types => \@EXPORT_OK);
sub offset {
my $self = shift;
return [ map $self->clone(expolygon => $_), @{$self->expolygon->offset_ex(@_)} ];
}
sub p {
my $self = shift;
return @{$self->polygons};