Rectilinear fill

This commit is contained in:
Alessandro Ranellucci 2011-09-05 12:21:27 +02:00
parent 428006264d
commit 9e111d0a6d
11 changed files with 317 additions and 33 deletions

View file

@ -31,6 +31,11 @@ sub id {
return $self->x . "," . $self->y; #;;
}
sub coordinates {
my $self = shift;
return ($self->x, $self->y); #))
}
sub coincides_with {
my $self = shift;
my ($point) = @_;