From bf7901ae46ee075cba4ab0be2f73fd53171d951f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Martin=20=C5=A0ach?= Date: Fri, 5 Jan 2024 13:03:03 +0100 Subject: [PATCH] Remove Slic3r.pm --- lib/Slic3r.pm | 61 --------------------------------------------------- 1 file changed, 61 deletions(-) delete mode 100644 lib/Slic3r.pm diff --git a/lib/Slic3r.pm b/lib/Slic3r.pm deleted file mode 100644 index 271704155f..0000000000 --- a/lib/Slic3r.pm +++ /dev/null @@ -1,61 +0,0 @@ -#/|/ Copyright (c) Prusa Research 2016 - 2022 Vojtěch Bubník @bubnikv, Tomáš Mészáros @tamasmeszaros, Vojtěch Král @vojtechkral, Oleksandra Iushchenko @YuSanka -#/|/ Copyright (c) 2018 Martin Loidl @LoidlM -#/|/ Copyright (c) Slic3r 2011 - 2016 Alessandro Ranellucci @alranel -#/|/ Copyright (c) 2012 Henrik Brix Andersen @henrikbrixandersen -#/|/ Copyright (c) 2012 Mark Hindess -#/|/ Copyright (c) 2012 Michael Moon -#/|/ Copyright (c) 2011 Clarence Risher -#/|/ -#/|/ PrusaSlicer is released under the terms of the AGPLv3 or higher -#/|/ -# This package loads all the non-GUI Slic3r perl packages. - -package Slic3r; - -# Copyright holder: Alessandro Ranellucci -# This application is licensed under the GNU Affero General Public License, version 3 - -use strict; -use warnings; -use Config; -require v5.10; - -our $VERSION = VERSION(); -our $BUILD = BUILD(); -our $FORK_NAME = FORK_NAME(); - -our $debug = 0; -sub debugf { - printf @_ if $debug; -} - -our $loglevel = 0; - -BEGIN { - $debug = 1 if (defined($ENV{'SLIC3R_DEBUGOUT'}) && $ENV{'SLIC3R_DEBUGOUT'} == 1); - print "Debugging output enabled\n" if $debug; -} - -use FindBin; - -use Moo 1.003001; - -use Slic3r::XS; # import all symbols (constants etc.) before they get parsed -use Slic3r::Config; -use Slic3r::GCode::Reader; -use Slic3r::Line; -use Slic3r::Model; -use Slic3r::Point; -use Slic3r::Polygon; -use Slic3r::Polyline; -our $build = eval "use Slic3r::Build; 1"; - -# Scaling between the float and integer coordinates. -# Floats are in mm. -use constant SCALING_FACTOR => 0.000001; - -# Set the logging level at the Slic3r XS module. -$Slic3r::loglevel = (defined($ENV{'SLIC3R_LOGLEVEL'}) && $ENV{'SLIC3R_LOGLEVEL'} =~ /^[1-9]/) ? $ENV{'SLIC3R_LOGLEVEL'} : 0; -set_logging_level($Slic3r::loglevel); - -1;