From 757f8a2404cb61164706e0db581f773b46e15d13 Mon Sep 17 00:00:00 2001
From: Michael Moon <triffid.hunter@gmail.com>
Date: Thu, 12 Apr 2012 03:30:15 +1000
Subject: [PATCH] move duplicate stuff around a bit

---
 lib/Slic3r/Print.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/lib/Slic3r/Print.pm b/lib/Slic3r/Print.pm
index 69de0f435..9db1106bf 100644
--- a/lib/Slic3r/Print.pm
+++ b/lib/Slic3r/Print.pm
@@ -262,11 +262,12 @@ sub BUILD {
             my $cx = $c->[1]->{index}->[0] - $lx;
             my $cy = $c->[1]->{index}->[1] - $ty;
 
-            push @{$self->copies}, [scale($cx * $partx - (unscale($self->x_length) / 2)), scale($cy * $party - (unscale($self->y_length) / 2))];
+            push @{$self->copies}, [scale($cx * $partx), scale($cy * $party)];
         }
+
         # save size of area used
-        $self->total_x_length(scale(($rx - $lx) * $partx));
-        $self->total_y_length(scale(($by - $ty) * $party));
+        $self->total_x_length(scale(($rx - $lx + 1) * $partx));
+        $self->total_y_length(scale(($by - $ty + 1) * $party));
     } else {
         $self->total_x_length($self->x_length);
         $self->total_y_length($self->y_length);