GitHub-Proxy/PrusaSlicer
1
0
Fork 0
mirror of https://git.mirrors.martin98.com/https://github.com/prusa3d/PrusaSlicer.git synced 2025-07-13 05:31:50 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

Material estimate in DLP projector

Browse Source
This commit is contained in:
Alessandro Ranellucci 2016-11-23 18:56:02 +01:00
parent bda4ae0b57
commit a4a68cb9fb
1 changed files with 19 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lib/Slic3r/GUI/Projector.pm
View File

@ -468,8 +468,9 @@ sub show_print_time {
my $duration = $self->controller->print_time; my $duration = $self->controller->print_time;
$self->_set_status(sprintf "Estimated print time: %d minutes and %d seconds", $self->_set_status(sprintf "Estimated print time: %d minutes and %d seconds - %.2f liters",
int($duration/60), ($duration - int($duration/60)*60)); # % truncates to integer int($duration/60), ($duration - int($duration/60)*60), # % truncates to integer
$self->controller->total_resin);
} }
sub _close { sub _close {
@ -505,6 +506,7 @@ package Slic3r::GUI::Projector::Controller;
use Moo; use Moo;
use Wx qw(wxTheApp :id :timer); use Wx qw(wxTheApp :id :timer);
use Wx::Event qw(EVT_TIMER); use Wx::Event qw(EVT_TIMER);
use Slic3r::Geometry qw(unscale);
use Slic3r::Print::State ':steps'; use Slic3r::Print::State ':steps';
use Time::HiRes qw(gettimeofday tv_interval); use Time::HiRes qw(gettimeofday tv_interval);
@ -704,8 +706,21 @@ sub print_time {
my ($self) = @_; my ($self) = @_;
return $self->config2->{bottom_layers} * $self->config2->{bottom_exposure_time} return $self->config2->{bottom_layers} * $self->config2->{bottom_exposure_time}
+ (@{$self->_heights} - $self->config2->{bottom_layers}) * $self->config2->{exposure_time} + ($self->_print->layer_count - $self->config2->{bottom_layers}) * $self->config2->{exposure_time}
+ @{$self->_heights} * $self->config2->{settle_time}; + $self->_print->layer_count * $self->config2->{settle_time};
}
sub total_resin {
my ($self) = @_;
my $vol = 0; # mm^3
for my $i (0..($self->_print->layer_count-1)) {
my $lh = $self->_heights->[$i] - ($i == 0 ? 0 : $self->_heights->[$i-1]);
$vol += unscale(unscale($_->area)) * $lh for @{ $self->_print->slices($i) };
}
return $vol/1000/1000; # liters
} }
sub DESTROY { sub DESTROY {