3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-10-30 04:02:52 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

Some initial work for 3D slice rendering

Browse source
This commit is contained in:
Alessandro Ranellucci 2014-12-15 15:19:42 +01:00
parent a34cd24fa1
commit a82f95e903
5 changed files with 100 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

23
utils/view-toolpaths.pl
View file

@ -20,6 +20,7 @@ my %opt = ();
my %options = (
'help' => sub { usage() },
'load=s' => \$opt{load},
'3D' => \$opt{d3},
'duplicate=i' => \$opt{duplicate},
);
GetOptions(%options) or usage(1);
@ -46,6 +47,7 @@ my %opt = ();
# visualize toolpaths
$Slic3r::ViewToolpaths::print = $sprint->_print;
$Slic3r::ViewToolpaths::d3 = $opt{d3};
my $app = Slic3r::ViewToolpaths->new;
$app->MainLoop;
}
@ -67,9 +69,10 @@ EOF
package Slic3r::ViewToolpaths;
use Wx qw(:sizer);
use base qw(Wx::App);
use base qw(Wx::App Class::Accessor);
our $print;
our $d3;
sub OnInit {
my $self = shift;
@ -77,8 +80,24 @@ sub OnInit {
my $frame = Wx::Frame->new(undef, -1, 'Toolpaths', [-1, -1], [500, 500]);
my $panel = Wx::Panel->new($frame, -1);
my $canvas;
if ($d3) {
$canvas = Slic3r::GUI::PreviewCanvas->new($panel);
$canvas->print($print);
#$canvas->set_bounding_box($print->bounding_box);
$canvas->set_bed_shape($print->config->bed_shape);
$canvas->set_bounding_box($print->objects->[0]->model_object->bounding_box);
foreach my $object (@{$print->objects}) {
$canvas->load_object($object->model_object);
}
} else {
$canvas = Slic3r::GUI::Plater::2DToolpaths->new($panel, $print);
}
my $sizer = Wx::BoxSizer->new(wxVERTICAL);
$sizer->Add(Slic3r::GUI::Plater::2DToolpaths->new($panel, $print), 1, wxEXPAND, 0);
$sizer->Add($canvas, 1, wxEXPAND, 0);
$panel->SetSizer($sizer);
$frame->Show(1);