← Back to branch summary

~ubuntu-branches/ubuntu/utopic/slic3r/utopic

« back to all changes in this revision

Viewing changes to lib/Slic3r/GUI/Plater/ObjectPartsPanel.pm

  • Committer: Package Import Robot
  • Author(s): Chow Loong Jin
  • Date: 2014-06-17 01:27:26 UTC
  • Revision ID: package-import@ubuntu.com-20140617012726-2wrs4zdo251nr4vg
Tags: upstream-1.1.4+dfsg
Import upstream version 1.1.4+dfsg

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/Slic3r/GUI/Plater/ObjectPartsPanel.pm
 
1
package Slic3r::GUI::Plater::ObjectPartsPanel;
 
2
use strict;
 
3
use warnings;
 
4
use utf8;
 
5
 
 
6
use File::Basename qw(basename);
 
7
use Wx qw(:misc :sizer :treectrl :button wxTAB_TRAVERSAL wxSUNKEN_BORDER wxBITMAP_TYPE_PNG);
 
8
use Wx::Event qw(EVT_BUTTON EVT_TREE_ITEM_COLLAPSING EVT_TREE_SEL_CHANGED);
 
9
use base 'Wx::Panel';
 
10
 
 
11
use constant ICON_OBJECT        => 0;
 
12
use constant ICON_SOLIDMESH     => 1;
 
13
use constant ICON_MODIFIERMESH  => 2;
 
14
 
 
15
sub new {
 
16
    my $class = shift;
 
17
    my ($parent, %params) = @_;
 
18
    my $self = $class->SUPER::new($parent, -1, wxDefaultPosition, wxDefaultSize, wxTAB_TRAVERSAL);
 
19
    
 
20
    my $object = $self->{model_object} = $params{model_object};
 
21
    
 
22
    # create TreeCtrl
 
23
    my $tree = $self->{tree} = Wx::TreeCtrl->new($self, -1, wxDefaultPosition, [300, 100], 
 
24
        wxTR_NO_BUTTONS | wxSUNKEN_BORDER | wxTR_HAS_VARIABLE_ROW_HEIGHT
 
25
        | wxTR_SINGLE | wxTR_NO_BUTTONS);
 
26
    {
 
27
        $self->{tree_icons} = Wx::ImageList->new(16, 16, 1);
 
28
        $tree->AssignImageList($self->{tree_icons});
 
29
        $self->{tree_icons}->Add(Wx::Bitmap->new("$Slic3r::var/brick.png", wxBITMAP_TYPE_PNG));     # ICON_OBJECT
 
30
        $self->{tree_icons}->Add(Wx::Bitmap->new("$Slic3r::var/package.png", wxBITMAP_TYPE_PNG));   # ICON_SOLIDMESH
 
31
        $self->{tree_icons}->Add(Wx::Bitmap->new("$Slic3r::var/plugin.png", wxBITMAP_TYPE_PNG));    # ICON_MODIFIERMESH
 
32
        
 
33
        my $rootId = $tree->AddRoot("Object", ICON_OBJECT);
 
34
        $tree->SetPlData($rootId, { type => 'object' });
 
35
    }
 
36
    
 
37
    # buttons
 
38
    $self->{btn_load_part} = Wx::Button->new($self, -1, "Load part…", wxDefaultPosition, wxDefaultSize, wxBU_LEFT);
 
39
    $self->{btn_load_modifier} = Wx::Button->new($self, -1, "Load modifier…", wxDefaultPosition, wxDefaultSize, wxBU_LEFT);
 
40
    $self->{btn_delete} = Wx::Button->new($self, -1, "Delete part", wxDefaultPosition, wxDefaultSize, wxBU_LEFT);
 
41
    if ($Slic3r::GUI::have_button_icons) {
 
42
        $self->{btn_load_part}->SetBitmap(Wx::Bitmap->new("$Slic3r::var/brick_add.png", wxBITMAP_TYPE_PNG));
 
43
        $self->{btn_load_modifier}->SetBitmap(Wx::Bitmap->new("$Slic3r::var/brick_add.png", wxBITMAP_TYPE_PNG));
 
44
        $self->{btn_delete}->SetBitmap(Wx::Bitmap->new("$Slic3r::var/brick_delete.png", wxBITMAP_TYPE_PNG));
 
45
    }
 
46
    
 
47
    # buttons sizer
 
48
    my $buttons_sizer = Wx::BoxSizer->new(wxHORIZONTAL);
 
49
    $buttons_sizer->Add($self->{btn_load_part}, 0);
 
50
    $buttons_sizer->Add($self->{btn_load_modifier}, 0);
 
51
    $buttons_sizer->Add($self->{btn_delete}, 0);
 
52
    $self->{btn_load_part}->SetFont($Slic3r::GUI::small_font);
 
53
    $self->{btn_load_modifier}->SetFont($Slic3r::GUI::small_font);
 
54
    $self->{btn_delete}->SetFont($Slic3r::GUI::small_font);
 
55
    
 
56
    # part settings panel
 
57
    $self->{settings_panel} = Slic3r::GUI::Plater::OverrideSettingsPanel->new($self, on_change => sub { $self->{part_settings_changed} = 1; });
 
58
    my $settings_sizer = Wx::StaticBoxSizer->new($self->{staticbox} = Wx::StaticBox->new($self, -1, "Part Settings"), wxVERTICAL);
 
59
    $settings_sizer->Add($self->{settings_panel}, 1, wxEXPAND | wxALL, 0);
 
60
    
 
61
    # left pane with tree
 
62
    my $left_sizer = Wx::BoxSizer->new(wxVERTICAL);
 
63
    $left_sizer->Add($tree, 0, wxEXPAND | wxLEFT | wxRIGHT | wxBOTTOM, 10);
 
64
    $left_sizer->Add($buttons_sizer, 0, wxEXPAND | wxLEFT | wxRIGHT | wxBOTTOM, 10);
 
65
    $left_sizer->Add($settings_sizer, 1, wxEXPAND | wxALL, 0);
 
66
    
 
67
    # right pane with preview canvas
 
68
    my $canvas;
 
69
    if ($Slic3r::GUI::have_OpenGL) {
 
70
        $canvas = $self->{canvas} = Slic3r::GUI::PreviewCanvas->new($self, $self->{model_object});
 
71
        $canvas->SetSize([500,500]);
 
72
    }
 
73
    
 
74
    $self->{sizer} = Wx::BoxSizer->new(wxHORIZONTAL);
 
75
    $self->{sizer}->Add($left_sizer, 0, wxEXPAND | wxALL, 0);
 
76
    $self->{sizer}->Add($canvas, 1, wxEXPAND | wxALL, 0) if $canvas;
 
77
    
 
78
    $self->SetSizer($self->{sizer});
 
79
    $self->{sizer}->SetSizeHints($self);
 
80
    
 
81
    # attach events
 
82
    EVT_TREE_ITEM_COLLAPSING($self, $tree, sub {
 
83
        my ($self, $event) = @_;
 
84
        $event->Veto;
 
85
    });
 
86
    EVT_TREE_SEL_CHANGED($self, $tree, sub {
 
87
        my ($self, $event) = @_;
 
88
        $self->selection_changed;
 
89
    });
 
90
    EVT_BUTTON($self, $self->{btn_load_part}, sub { $self->on_btn_load(0) });
 
91
    EVT_BUTTON($self, $self->{btn_load_modifier}, sub { $self->on_btn_load(1) });
 
92
    EVT_BUTTON($self, $self->{btn_delete}, \&on_btn_delete);
 
93
    
 
94
    $self->reload_tree;
 
95
    
 
96
    return $self;
 
97
}
 
98
 
 
99
sub reload_tree {
 
100
    my ($self) = @_;
 
101
    
 
102
    my $object  = $self->{model_object};
 
103
    my $tree    = $self->{tree};
 
104
    my $rootId  = $tree->GetRootItem;
 
105
    
 
106
    $tree->DeleteChildren($rootId);
 
107
    
 
108
    foreach my $volume_id (0..$#{$object->volumes}) {
 
109
        my $volume = $object->volumes->[$volume_id];
 
110
        
 
111
        my $material_id = $volume->material_id // '_';
 
112
        my $material_name = $material_id eq '_'
 
113
            ? sprintf("Part #%d", $volume_id+1)
 
114
            : $object->model->get_material_name($material_id);
 
115
        
 
116
        my $icon = $volume->modifier ? ICON_MODIFIERMESH : ICON_SOLIDMESH;
 
117
        my $itemId = $tree->AppendItem($rootId, $material_name, $icon);
 
118
        $tree->SetPlData($itemId, {
 
119
            type        => 'volume',
 
120
            volume_id   => $volume_id,
 
121
        });
 
122
    }
 
123
    $tree->ExpandAll;
 
124
    
 
125
    $self->selection_changed;
 
126
}
 
127
 
 
128
sub get_selection {
 
129
    my ($self) = @_;
 
130
    
 
131
    my $nodeId = $self->{tree}->GetSelection;
 
132
    if ($nodeId->IsOk) {
 
133
        return $self->{tree}->GetPlData($nodeId);
 
134
    }
 
135
    return undef;
 
136
}
 
137
 
 
138
sub selection_changed {
 
139
    my ($self) = @_;
 
140
    
 
141
    # deselect all meshes
 
142
    if ($self->{canvas}) {
 
143
        $_->{selected} = 0 for @{$self->{canvas}->volumes};
 
144
    }
 
145
    
 
146
    # disable things as if nothing is selected
 
147
    $self->{btn_delete}->Disable;
 
148
    $self->{settings_panel}->disable;
 
149
    $self->{settings_panel}->set_config(undef);
 
150
    
 
151
    if (my $itemData = $self->get_selection) {
 
152
        if ($itemData->{type} eq 'volume') {
 
153
            # select volume in 3D preview
 
154
            if ($self->{canvas}) {
 
155
                $self->{canvas}->volumes->[ $itemData->{volume_id} ]{selected} = 1;
 
156
            }
 
157
            $self->{btn_delete}->Enable;
 
158
            
 
159
            # attach volume material config to settings panel
 
160
            my $volume = $self->{model_object}->volumes->[ $itemData->{volume_id} ];
 
161
            my $material = $self->{model_object}->model->get_material($volume->material_id // '_');
 
162
            $material //= $volume->assign_unique_material;
 
163
            $self->{staticbox}->SetLabel('Part Settings');
 
164
            $self->{settings_panel}->enable;
 
165
            $self->{settings_panel}->set_opt_keys([ 'extruder', @{Slic3r::Config::PrintRegion->new->get_keys} ]);
 
166
            $self->{settings_panel}->set_config($material->config);
 
167
        } elsif ($itemData->{type} eq 'object') {
 
168
            # select all object volumes in 3D preview
 
169
            if ($self->{canvas}) {
 
170
                $_->{selected} = 1 for @{$self->{canvas}->volumes};
 
171
            }
 
172
            
 
173
            # attach object config to settings panel
 
174
            $self->{staticbox}->SetLabel('Object Settings');
 
175
            $self->{settings_panel}->enable;
 
176
            $self->{settings_panel}->set_opt_keys(
 
177
                [ 'extruder', map @{$_->get_keys}, Slic3r::Config::PrintObject->new, Slic3r::Config::PrintRegion->new ]
 
178
            );
 
179
            $self->{settings_panel}->set_config($self->{model_object}->config);
 
180
        }
 
181
    }
 
182
    
 
183
    $self->{canvas}->Render if $self->{canvas};
 
184
}
 
185
 
 
186
sub on_btn_load {
 
187
    my ($self, $is_modifier) = @_;
 
188
    
 
189
    my @input_files = Slic3r::GUI::open_model($self);
 
190
    foreach my $input_file (@input_files) {
 
191
        my $model = eval { Slic3r::Model->read_from_file($input_file) };
 
192
        if ($@) {
 
193
            Slic3r::GUI::show_error($self, $@);
 
194
            next;
 
195
        }
 
196
        
 
197
        foreach my $object (@{$model->objects}) {
 
198
            foreach my $volume (@{$object->volumes}) {
 
199
                my $new_volume = $self->{model_object}->add_volume($volume);
 
200
                $new_volume->set_modifier($is_modifier);
 
201
                if (!defined $new_volume->material_id) {
 
202
                    # it looks like this block is never entered because all input volumes seem to have an assigned material
 
203
                    # TODO: check we can assume that for any input format
 
204
                    my $material_name = basename($input_file);
 
205
                    $material_name =~ s/\.(stl|obj)$//i;
 
206
                    my $material = $self->{model_object}->model->set_material($material_name);
 
207
                    $new_volume->material_id($material_name);
 
208
                }
 
209
                
 
210
                # apply the same translation we applied to the object
 
211
                $new_volume->mesh->translate(@{$self->{model_object}->origin_translation}, 0);
 
212
                
 
213
                # set a default extruder value, since user can't add it manually
 
214
                my $material = $self->{model_object}->model->get_material($new_volume->material_id);
 
215
                $material->config->set_ifndef('extruder', 1);
 
216
                
 
217
                $self->{parts_changed} = 1;
 
218
            }
 
219
        }
 
220
    }
 
221
    
 
222
    $self->reload_tree;
 
223
    if ($self->{canvas}) {
 
224
        $self->{canvas}->load_object($self->{model_object});
 
225
        $self->{canvas}->Render;
 
226
    }
 
227
}
 
228
 
 
229
sub on_btn_delete {
 
230
    my ($self) = @_;
 
231
    
 
232
    my $itemData = $self->get_selection;
 
233
    if ($itemData && $itemData->{type} eq 'volume') {
 
234
        my $volume = $self->{model_object}->volumes->[$itemData->{volume_id}];
 
235
        
 
236
        # if user is deleting the last solid part, throw error
 
237
        if (!$volume->modifier && scalar(grep !$_->modifier, @{$self->{model_object}->volumes}) == 1) {
 
238
            Slic3r::GUI::show_error($self, "You can't delete the last solid part from this object.");
 
239
            return;
 
240
        }
 
241
        
 
242
        $self->{model_object}->delete_volume($itemData->{volume_id});
 
243
        $self->{parts_changed} = 1;
 
244
    }
 
245
    
 
246
    $self->reload_tree;
 
247
    if ($self->{canvas}) {
 
248
        $self->{canvas}->load_object($self->{model_object});
 
249
        $self->{canvas}->Render;
 
250
    }
 
251
}
 
252
 
 
253
sub CanClose {
 
254
    my $self = shift;
 
255
    
 
256
    return 1;  # skip validation for now
 
257
    
 
258
    # validate options before allowing user to dismiss the dialog
 
259
    # the validate method only works on full configs so we have
 
260
    # to merge our settings with the default ones
 
261
    my $config = Slic3r::Config->merge($self->GetParent->GetParent->GetParent->GetParent->GetParent->config, $self->model_object->config);
 
262
    eval {
 
263
        $config->validate;
 
264
    };
 
265
    return 0 if Slic3r::GUI::catch_error($self);    
 
266
    return 1;
 
267
}
 
268
 
 
269
sub PartsChanged {
 
270
    my ($self) = @_;
 
271
    return $self->{parts_changed};
 
272
}
 
273
 
 
274
sub PartSettingsChanged {
 
275
    my ($self) = @_;
 
276
    return $self->{part_settings_changed};
 
277
}
 
278
 
 
279
1;