113 lines
3.4 KiB
Perl
113 lines
3.4 KiB
Perl
|
package Slic3r::GUI::Plater::3DPreview;
|
|||
|
|
use strict;
|
|||
|
|
use warnings;
|
|||
|
|
use utf8;
|
|||
|
|
|
|||
|
|
use Slic3r::Print::State ':steps';
|
|||
|
|
use Wx qw(:misc :sizer :slider :statictext wxWHITE);
|
|||
|
|
use Wx::Event qw(EVT_SLIDER EVT_KEY_DOWN);
|
|||
|
|
use base qw(Wx::Panel Class::Accessor);
|
|||
|
|
|
|||
|
|
__PACKAGE__->mk_accessors(qw(print enabled canvas slider));
|
|||
|
|
|
|||
|
|
sub new {
|
|||
|
|
my $class = shift;
|
|||
|
|
my ($parent, $print) = @_;
|
|||
|
|
|
|||
|
|
my $self = $class->SUPER::new($parent, -1, wxDefaultPosition);
|
|||
|
|
|
|||
|
|
# init GUI elements
|
|||
|
|
my $canvas = Slic3r::GUI::3DScene->new($self);
|
|||
|
|
$self->canvas($canvas);
|
|||
|
|
my $slider = Wx::Slider->new(
|
|||
|
|
$self, -1,
|
|||
|
|
0, # default
|
|||
|
|
0, # min
|
|||
|
|
# we set max to a bogus non-zero value because the MSW implementation of wxSlider
|
|||
|
|
# will skip drawing the slider if max <= min:
|
|||
|
|
1, # max
|
|||
|
|
wxDefaultPosition,
|
|||
|
|
wxDefaultSize,
|
|||
|
|
wxVERTICAL | wxSL_INVERSE,
|
|||
|
|
);
|
|||
|
|
$self->slider($slider);
|
|||
|
|
|
|||
|
|
my $z_label = $self->{z_label} = Wx::StaticText->new($self, -1, "", wxDefaultPosition,
|
|||
|
|
[40,-1], wxALIGN_CENTRE_HORIZONTAL);
|
|||
|
|
$z_label->SetFont($Slic3r::GUI::small_font);
|
|||
|
|
|
|||
|
|
my $vsizer = Wx::BoxSizer->new(wxVERTICAL);
|
|||
|
|
$vsizer->Add($slider, 1, wxALL | wxEXPAND | wxALIGN_CENTER, 3);
|
|||
|
|
$vsizer->Add($z_label, 0, wxALL | wxEXPAND | wxALIGN_CENTER, 3);
|
|||
|
|
|
|||
|
|
my $sizer = Wx::BoxSizer->new(wxHORIZONTAL);
|
|||
|
|
$sizer->Add($canvas, 1, wxALL | wxEXPAND, 0);
|
|||
|
|
$sizer->Add($vsizer, 0, wxTOP | wxBOTTOM | wxEXPAND, 5);
|
|||
|
|
|
|||
|
|
EVT_SLIDER($self, $slider, sub {
|
|||
|
|
$self->set_z($self->{layers_z}[$slider->GetValue])
|
|||
|
|
if $self->enabled;
|
|||
|
|
});
|
|||
|
|
|
|||
|
|
$self->SetSizer($sizer);
|
|||
|
|
$self->SetMinSize($self->GetSize);
|
|||
|
|
$sizer->SetSizeHints($self);
|
|||
|
|
|
|||
|
|
# init canvas
|
|||
|
|
$canvas->set_bed_shape($print->config->bed_shape);
|
|||
|
|
$self->print($print);
|
|||
|
|
$self->reload_print;
|
|||
|
|
|
|||
|
|
return $self;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
sub reload_print {
|
|||
|
|
my ($self) = @_;
|
|||
|
|
|
|||
|
|
$self->canvas->reset_objects;
|
|||
|
|
|
|||
|
|
# we require that there's at least one object and the posSlice step
|
|||
|
|
# is performed on all of them (this ensures that _shifted_copies was
|
|||
|
|
# populated and we know the number of layers)
|
|||
|
|
if (!$self->print->object_step_done(STEP_SLICE)) {
|
|||
|
|
$self->enabled(0);
|
|||
|
|
$self->slider->Hide;
|
|||
|
|
$self->canvas->Refresh; # clears canvas
|
|||
|
|
return;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if (0) {
|
|||
|
|
my %z = (); # z => 1
|
|||
|
|
foreach my $object (@{$self->{print}->objects}) {
|
|||
|
|
foreach my $layer (@{$object->layers}, @{$object->support_layers}) {
|
|||
|
|
$z{$layer->print_z} = 1;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
$self->enabled(1);
|
|||
|
|
$self->{layers_z} = [ sort { $a <=> $b } keys %z ];
|
|||
|
|
$self->{slider}->SetRange(0, scalar(@{$self->{layers_z}})-1);
|
|||
|
|
if ((my $z_idx = $self->{slider}->GetValue) <= $#{$self->{layers_z}}) {
|
|||
|
|
$self->set_z($self->{layers_z}[$z_idx]);
|
|||
|
|
} else {
|
|||
|
|
$self->{slider}->SetValue(0);
|
|||
|
|
$self->set_z($self->{layers_z}[0]) if @{$self->{layers_z}};
|
|||
|
|
}
|
|||
|
|
$self->{slider}->Show;
|
|||
|
|
$self->Layout;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if ($self->IsShown) {
|
|||
|
|
foreach my $object (@{$self->print->objects}) {
|
|||
|
|
$self->canvas->load_print_object_toolpaths($object);
|
|||
|
|
}
|
|||
|
|
$self->canvas->zoom_to_volumes;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
sub set_bed_shape {
|
|||
|
|
my ($self, $bed_shape) = @_;
|
|||
|
|
$self->canvas->set_bed_shape($bed_shape);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
1;
|