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

Initial import

Browse source
This commit is contained in:
Alessandro Ranellucci 2011-09-01 21:06:28 +02:00
commit 55a523e1fa
12 changed files with 891 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

41
lib/Slic3r/Point.pm Normal file
View file

@ -0,0 +1,41 @@
package Slic3r::Point;
use Moose;
use Moose::Util::TypeConstraints;
subtype 'Slic3r::Point::Coordinate', as 'Int';
coerce 'Slic3r::Point::Coordinate', from 'Num', via { sprintf '%.0f', $_ };
has 'x' => (
is => 'ro',
isa => 'Slic3r::Point::Coordinate',
required => 1,
coerce => 1,
);
has 'y' => (
is => 'ro',
isa => 'Slic3r::Point::Coordinate',
required => 1,
coerce => 1,
);
# this array contains weak references, so it can contain undef's as well
has 'lines' => (
is => 'rw',
isa => 'ArrayRef[Slic3r::Line]',
default => sub { [] },
);
sub id {
my $self = shift;
return $self->x . "," . $self->y; #;;
}
sub coincides_with {
my $self = shift;
my ($point) = @_;
return $self->x == $point->x && $self->y == $point->y; #=
}
1;