Generate GCODE

This commit is contained in:
Alessandro Ranellucci 2011-09-03 20:47:38 +02:00
parent 74b4d8d612
commit a5ba0af7ef
6 changed files with 139 additions and 4 deletions

View file

@ -40,4 +40,11 @@ sub coincides_with {
return $self->x == $point->x && $self->y == $point->y; #=
}
sub distance_to {
my $self = shift;
my ($point) = @_;
return sqrt(($point->x - $self->x)**2 + ($point->y - $self->y)**2); #-
}
1;