Point.pm 686 B

123456789101112131415161718192021222324252627282930313233
  1. #/|/ Copyright (c) Prusa Research 2018 Vojtěch Bubník @bubnikv
  2. #/|/ Copyright (c) Slic3r 2011 - 2015 Alessandro Ranellucci @alranel
  3. #/|/
  4. #/|/ PrusaSlicer is released under the terms of the AGPLv3 or higher
  5. #/|/
  6. package Slic3r::Point;
  7. use strict;
  8. use warnings;
  9. sub new_scale {
  10. my $class = shift;
  11. return $class->new(map Slic3r::Geometry::scale($_), @_);
  12. }
  13. package Slic3r::Pointf;
  14. use strict;
  15. use warnings;
  16. sub new_unscale {
  17. my $class = shift;
  18. return $class->new(map Slic3r::Geometry::unscale($_), @_);
  19. }
  20. package Slic3r::Pointf3;
  21. use strict;
  22. use warnings;
  23. sub new_unscale {
  24. my $class = shift;
  25. return $class->new(map Slic3r::Geometry::unscale($_), @_);
  26. }
  27. 1;