From 2632b2b30e049412fff86f94148bfc3340df3346 Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Thu, 3 Jul 2014 15:39:55 +0200
Subject: [PATCH] Include support material in toolpaths preview

---
 lib/Slic3r/GUI/Plater/2DToolpaths.pm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/lib/Slic3r/GUI/Plater/2DToolpaths.pm b/lib/Slic3r/GUI/Plater/2DToolpaths.pm
index 8f0c403a9d..74d9841a9f 100644
--- a/lib/Slic3r/GUI/Plater/2DToolpaths.pm
+++ b/lib/Slic3r/GUI/Plater/2DToolpaths.pm
@@ -19,12 +19,12 @@ sub new {
     $self->{print} = $print;
     $self->{layers} = {};  # print_z => [ layer*, layer* ... ]
     foreach my $object (@{$print->objects}) {
-        foreach my $layer (@{$object->layers}) {
+        foreach my $layer (@{$object->layers}, @{$object->support_layers}) {
             $self->{layers}{$layer->print_z} //= [];
             push @{ $self->{layers}{$layer->print_z} }, $layer;
         }
     }
-    $self->{layers_z} = [ sort keys %{$self->{layers}} ];   # [ z, z ... ]
+    $self->{layers_z} = [ sort { $a <=> $b } keys %{$self->{layers}} ];   # [ z, z ... ]
     
     # init GUI elements
     my $sizer = Wx::BoxSizer->new(wxHORIZONTAL);
@@ -143,6 +143,12 @@ sub Render {
             glColor3f(0, 0, 0.7);
             $self->_draw_extrusionpath($object, $_) for map @$_, @{$layerm->fills};
         }
+        
+        if ($layer->isa('Slic3r::Layer::Support')) {
+            glColor3f(0, 0, 0);
+            $self->_draw_extrusionpath($object, $_) for @{$layer->support_fills};
+            $self->_draw_extrusionpath($object, $_) for @{$layer->support_interface_fills};
+        }
     }
     
     glFlush();