Added non-uniform scaling commands to the plater

This commit is contained in:
Alessandro Ranellucci 2014-06-17 00:50:44 +02:00
parent afb7e675b8
commit ba55592bdf
2 changed files with 55 additions and 19 deletions

View file

@ -502,6 +502,13 @@ sub flip {
$self->invalidate_bounding_box;
}
sub scale_xyz {
my ($self, $versor) = @_;
$_->mesh->scale_xyz($versor) for @{$self->volumes};
$self->invalidate_bounding_box;
}
sub materials_count {
my $self = shift;