1st attempt of perl callback from c++ for 3DScene

This commit is contained in:
Enrico Turri 2018-05-15 09:50:01 +02:00
parent 986630c2dc
commit f4303ebdb8
11 changed files with 181 additions and 10 deletions

View file

@ -926,13 +926,15 @@ sub zoom_to_bed {
}
}
sub zoom_to_volume {
my ($self, $volume_idx) = @_;
my $volume = $self->volumes->[$volume_idx];
my $bb = $volume->transformed_bounding_box;
$self->zoom_to_bounding_box($bb);
}
#==============================================================================================================================
#sub zoom_to_volume {
# my ($self, $volume_idx) = @_;
#
# my $volume = $self->volumes->[$volume_idx];
# my $bb = $volume->transformed_bounding_box;
# $self->zoom_to_bounding_box($bb);
#}
#==============================================================================================================================
sub zoom_to_volumes {
my ($self) = @_;