29 lines
473 B
Perl
29 lines
473 B
Perl
|
package Slic3r::Point;
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
sub new_scale {
|
||
|
|
my $class = shift;
|
||
|
|
return $class->new(map Slic3r::Geometry::scale($_), @_);
|
||
|
|
}
|
||
|
|
|
||
|
|
package Slic3r::Pointf;
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
sub new_unscale {
|
||
|
|
my $class = shift;
|
||
|
|
return $class->new(map Slic3r::Geometry::unscale($_), @_);
|
||
|
|
}
|
||
|
|
|
||
|
|
package Slic3r::Pointf3;
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
sub new_unscale {
|
||
|
|
my $class = shift;
|
||
|
|
return $class->new(map Slic3r::Geometry::unscale($_), @_);
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|