@@ -14,7 +14,7 @@
use Getopt::Long;
use feature qw( say)
use Config::Simple;
use File::Which;
# import configuration from configuration file
our $cfg = new Config::Simple();
@@ -35,6 +35,8 @@
my $door_contact =$cfg -> param(" door_contact"
my $X_pixels =$cfg -> param(" X_pixels"
my $Y_pixels =$cfg -> param(" Y_pixels"
my $Z_speed =$cfg -> param(" Z_speed"
my $Z_max_speed =$cfg -> param(" Z_max_speed"
my $Z_Autocal =$cfg -> param(" Z_Autocal"
my $testrun_capable =$cfg -> param(" testrun_capable"
my $testrun_color =$cfg -> param(" testrun_color"
@@ -56,6 +58,8 @@
my $pin_enable_wiper =$cfg -> param(" pin_enable_wiper"
my $pin_dir_wiper =$cfg -> param(" pin_dir_wiper"
my $pin_step_wiper =$cfg -> param(" pin_step_wiper"
my $pin_wiper_max =$cfg -> param(" pin_wiper_max"
my $pin_wiper_min =$cfg -> param(" pin_wiper_min"
my $pin_vat_heater =$cfg -> param(" pin_vat_heater"
my $pin_vat_temperature =$cfg -> param(" pin_vat_temperature"
my $pin_vat_presence =$cfg -> param(" pin_vat_presence"
@@ -67,27 +71,122 @@
# activate logging to logfile
if ($logging_enabled eq " TRUE"
{
unless (defined $log_file and length $log_file ){
die " logging enabled but no logfile defined\n "
open my $log_fh , " >" $log_file ;
}
# basic sanity checks to determine whether or not the configuration is complete and makes at least some sense
# check if the parameters and pins needed for the features enabled are configured
unless (defined $steps_per_mm and length $steps_per_mm ){
die " No steps per mm for Z Axis defined\n "
unless (defined $controllerboard and length $controllerboard ){
die " No controllerboard defined\n "
unless (defined $projector_type and length $projector_type ){
die " No projector type defined\n "
unless (defined $display_device and length $display_device ){
die " No display device defined\n "
unless (defined $X_pixels and length $X_pixels ){
die " No pixels in X direction defined\n "
unless (defined $Y_pixels and length $Y_pixels ){
die " No pixels in Y direction defined\n "
unless (defined $Z_speed and length $Z_speed ){
die " No Z speed defined\n "
unless (defined $Z_max_speed and length $Z_max_speed ){
die " No Z max speed defined\n "
unless (defined $prodrun_color and length $prodrun_color ){
die " No production run color defined\n "
if ($check_vat_presence eq " TRUE"
{
unless (defined $pin_vat_presence and length $pin_vat_presence )
{
die " Vat presence pin definition missing\n "
}
if ($door_contact eq " TRUE"
{
unless (defined $pin_door and length $pin_door )
{
die " door pin not defined\n "
}
if ($testrun_capable eq " TRUE"
{
unless (defined $testrun_color and length $testrun_color )
{
die " Z max endstops definition incomplete\n "
}
if ($endstop_Z_max eq " TRUE"
{
unless (defined $endstop_Z_max_type and length $endstop_Z_max_type and
defined $pin_zmax and length $pin_zmax )
{
die " Z max endstops definition incomplete\n "
}
if ($endstop_Z_min eq " TRUE"
{
unless (defined $endstop_Z_min_type and length $endstop_Z_min_type and
defined $pin_zmin and length $pin_zmin )
{
die " Z min endstops definition incomplete\n "
}
if ($Z_Autocal eq " TRUE"
{
unless ($endstop_Z_max eq " TRUE" and $endstop_Z_min eq " TRUE" and
defined $endstop_Z_max_type and length $endstop_Z_max_type and
defined $pin_zmax and length $pin_zmax and
defined $endstop_Z_min_type and length $endstop_Z_min_type and
defined $pin_zmin and length $pin_zmin )
{
die " Z endstops definition incomplete for autotune of Z axis Length\n "
}
if ($wiper eq " TRUE"
{
unless (defined $pin_enable_wiper and length $pin_enable_wiper and
defined $pin_step_wiper and length $pin_step_wiper and
defined $pin_dir_wiper and length $pin_dir_wiper and
defined $pin_zmin and length $pin_zmin and
defined $pin_wiper_max and length $pin_wiper_max and
defined $pin_wiper_min and length $pin_wiper_min
)
{
die " pin definition incomplete for wiper usage\n "
}
if ($vat_heatable eq " TRUE"
{
unless (defined $vat_target_temperature and length $vat_target_temperature and
defined $pin_vat_heater and length $pin_vat_heater and
defined $pin_vat_temperature and length $pin_vat_temperature )
{
die " Vat temperature or heater parameters are configured incompletely\n "
}
if ($controllerboard eq " BBB" # if the Board is set to be a Beagle Bone Black, we need to check if it actually is one
{
say " Beagle Bone Black selected, checking board type! - check command still missing"
unless (defined $pin_trigger_post and length $pin_trigger_post and defined $pin_trigger_pre and length $pin_trigger_pre ){
die " trigger pin definition incomplete\n "
}
else {
say " unknown controller type $controllerboard , please review your configuration, get in touch with developers or fork the code on Github and contribute the code to use the new printer"
;
die " unknown board in configuration!\n "
}
if ($projector_type eq " Lightcrafter4500"
{
unless (defined $projector_usb_device and length $projector_usb_device ){
die " No projector USB device defined\n "
}
else {
say " unknown projector type $projector_type , please review your configuration, get in touch with developers or fork the code on Github and contribute the code to use the new printer"
;
die " unknown projector in configuration!\n "
}
if ($display_software eq " fbi" # ckeck for configured Software to send Pictures to the projector
{
open (whichfile, " which $display_software | " ) || die " Failed: $! \n " ; # find path to the binary
while ( <whichfile> )
{
my $display_software_path = $! ;
}
my $display_software_path = which " fbi " ;
unless ( defined $display_software_path and length $display_software_path ){
die " configured display software not found \n " ;}
unless ( defined $display_software_path and length $display_software_path ){
die " configured display software not found \n " ; }
}
else { # if the configured Display software matches none of the supported packages, die
say " unknows display software $display_software , please review your configuration, get in touch with developers or fork the code on Github and contribute the code to use the new printer"
0 comments on commit
87c91d6