3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-07-12 09:17:52 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 2

New option for inverting the Y axis in projection

Browse source
This commit is contained in:
Alessandro Ranellucci 2015-11-20 10:30:56 +01:00
parent f9d1ca8373
commit ad4940a1d6
1 changed files with 34 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

40
lib/Slic3r/GUI/Projector.pm
View file

@ -14,6 +14,7 @@ sub new {
$self->config2({ $self->config2({
display => 0, display => 0,
show_bed => 1, show_bed => 1,
invert_y => 0,
zoom => 100, zoom => 100,
exposure_time => 2, exposure_time => 2,
bottom_exposure_time => 7, bottom_exposure_time => 7,
@ -43,7 +44,6 @@ sub new {
$self->config->apply(wxTheApp->{mainframe}->config); $self->config->apply(wxTheApp->{mainframe}->config);
{ {
my $optgroup = Slic3r::GUI::ConfigOptionsGroup->new( my $optgroup = Slic3r::GUI::ConfigOptionsGroup->new(
parent => $self, parent => $self,
title => 'USB/Serial connection', title => 'USB/Serial connection',
@ -183,6 +183,13 @@ sub new {
tooltip => '', tooltip => '',
default => $self->config2->{offset}, default => $self->config2->{offset},
)); ));
$line->append_option(Slic3r::GUI::OptionsGroup::Option->new(
opt_id => 'invert_y',
type => 'bool',
label => 'Invert Y',
tooltip => '',
default => $self->config2->{invert_y},
));
$optgroup->append_line($line); $optgroup->append_line($line);
} }
@ -681,7 +688,7 @@ sub DESTROY {
} }
package Slic3r::GUI::Projector::Screen; package Slic3r::GUI::Projector::Screen;
use Wx qw(:dialog :id :misc :sizer :colour :pen :brush); use Wx qw(:dialog :id :misc :sizer :colour :pen :brush :font);
use Wx::Event qw(EVT_PAINT EVT_SIZE); use Wx::Event qw(EVT_PAINT EVT_SIZE);
use base qw(Wx::Dialog Class::Accessor); use base qw(Wx::Dialog Class::Accessor);
@ -782,9 +789,24 @@ sub _repaint {
push @polylines, Slic3r::Polyline->new([$bb->x_min, $y], [$bb->x_max, $y]); push @polylines, Slic3r::Polyline->new([$bb->x_min, $y], [$bb->x_max, $y]);
} }
$dc->DrawLine(map @$_, @$_) $dc->DrawLine(map @$_, @$_)
for map $self->scaled_points_to_pixel([ @$_[0,-1] ], 1), for map $self->scaled_points_to_pixel([ @$_[0,-1] ]),
@{intersection_pl(\@polylines, [$bed_polygon])}; @{intersection_pl(\@polylines, [$bed_polygon])};
} }
# draw axes orientation
$dc->SetPen(Wx::Pen->new(wxWHITE, 4, wxSOLID));
{
foreach my $endpoint ([10, 0], [0, 10]) {
$dc->DrawLine(
map @{$self->unscaled_point_to_pixel($_)}, [0,0], $endpoint
);
}
$dc->SetTextForeground(wxWHITE);
$dc->SetFont(Wx::Font->new(20, wxDEFAULT, wxNORMAL, wxNORMAL));
$dc->DrawText("X", @{$self->unscaled_point_to_pixel([10, -2])});
$dc->DrawText("Y", @{$self->unscaled_point_to_pixel([-2, 10])});
}
} }
return if !defined $self->layers; return if !defined $self->layers;
@ -814,12 +836,18 @@ sub _repaint {
sub unscaled_point_to_pixel { sub unscaled_point_to_pixel {
my ($self, $point) = @_; my ($self, $point) = @_;
my $ch = $self->GetSize->GetHeight;
my $zero = $self->bed_origin; my $zero = $self->bed_origin;
return [ my $p = [
$point->[X] * $self->scaling_factor + $zero->[X], $point->[X] * $self->scaling_factor + $zero->[X],
$ch - ($point->[Y] * $self->scaling_factor + $zero->[Y]), $point->[Y] * $self->scaling_factor + $zero->[Y],
]; ];
if (!$self->config2->{invert_y}) {
my $ch = $self->GetSize->GetHeight;
$p->[Y] = $ch - $p->[Y];
}
return $p;
} }
sub scaled_points_to_pixel { sub scaled_points_to_pixel {