mirror of
https://github.com/SoftFever/OrcaSlicer.git
synced 2025-11-02 20:51:23 -07:00
16 lines
290 B
Perl
16 lines
290 B
Perl
package Slic3r::Point;
|
|
use strict;
|
|
use warnings;
|
|
|
|
sub new_scale {
|
|
my $class = shift;
|
|
return $class->new(map Slic3r::Geometry::scale($_), @_);
|
|
}
|
|
|
|
sub distance_to {
|
|
my $self = shift;
|
|
my ($point) = @_;
|
|
return Slic3r::Geometry::distance_between_points($self, $point);
|
|
}
|
|
|
|
1;
|