From 0a74e45432a764b1b711abd1b23983d461f746c3 Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Thu, 13 Jun 2013 11:27:15 +0200
Subject: [PATCH] Scale and recenter thumbnails when bed size and/or print
 center is changed

---
 lib/Slic3r/GUI/Plater.pm | 33 +++++++++++++++------------------
 1 file changed, 15 insertions(+), 18 deletions(-)

diff --git a/lib/Slic3r/GUI/Plater.pm b/lib/Slic3r/GUI/Plater.pm
index 5f55575abd..ffe54c52f7 100644
--- a/lib/Slic3r/GUI/Plater.pm
+++ b/lib/Slic3r/GUI/Plater.pm
@@ -818,6 +818,8 @@ sub _update_bed_size {
     my $canvas_side = CANVAS_SIZE->[X];  # when the canvas is not rendered yet, its GetSize() method returns 0,0
     my $bed_largest_side = $bed_size->[X] > $bed_size->[Y] ? $bed_size->[X] : $bed_size->[Y];
     $self->{scaling_factor} = $canvas_side / $bed_largest_side;
+    $_->change_thumbnail_scaling_factor($self->{scaling_factor}) for @{ $self->{objects} };
+    $self->recenter;
 }
 
 # this is called on the canvas
@@ -1078,10 +1080,10 @@ has 'input_file'            => (is => 'rw', required => 1);
 has 'input_file_object_id'  => (is => 'rw');  # undef means keep model object
 has 'model_object'          => (is => 'rw', required => 1, trigger => 1);
 has 'bounding_box'          => (is => 'rw');  # 3D bb of original object (aligned to origin) with no rotation or scaling
-has 'scale'                 => (is => 'rw', default => sub { 1 }, trigger => 1);
-has 'rotate'                => (is => 'rw', default => sub { 0 }, trigger => 1); # around object center point
+has 'scale'                 => (is => 'rw', default => sub { 1 }, trigger => \&_transform_thumbnail);
+has 'rotate'                => (is => 'rw', default => sub { 0 }, trigger => \&_transform_thumbnail); # around object center point
 has 'instances'             => (is => 'rw', default => sub { [] }); # upward Y axis
-has 'thumbnail'             => (is => 'rw', trigger => 1);
+has 'thumbnail'             => (is => 'rw', trigger => \&_transform_thumbnail);
 has 'transformed_thumbnail' => (is => 'rw');
 has 'thumbnail_scaling_factor' => (is => 'rw');
 has 'layer_height_ranges'   => (is => 'rw', default => sub { [] }); # [ z_min, z_max, layer_height ]
@@ -1104,21 +1106,6 @@ sub _trigger_model_object {
 	}
 }
 
-sub _trigger_scale {
-    my $self = shift;
-    $self->_transform_thumbnail;
-}
-
-sub _trigger_rotate {
-    my $self = shift;
-    $self->_transform_thumbnail;
-}
-
-sub _trigger_thumbnail {
-    my $self = shift;
-    $self->_transform_thumbnail;
-}
-
 sub check_manifoldness {
 	my $self = shift;
 	
@@ -1201,4 +1188,14 @@ sub transformed_size {
     return $self->transformed_bounding_box->size;
 }
 
+sub change_thumbnail_scaling_factor {
+    my $self = shift;
+    my ($new_factor) = @_;
+    
+    return unless $self->thumbnail;
+    $self->thumbnail->scale($new_factor / $self->thumbnail_scaling_factor);
+    $self->transformed_thumbnail->scale($new_factor / $self->thumbnail_scaling_factor);
+    $self->thumbnail_scaling_factor($new_factor);
+}
+
 1;