From 4c8c725eece1e6952262cac55dccf832eed8d8bd Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Mon, 28 Jan 2013 00:02:34 +0100
Subject: [PATCH] Add a wkt() method to ExPolygon

---
 lib/Slic3r/ExPolygon.pm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/lib/Slic3r/ExPolygon.pm b/lib/Slic3r/ExPolygon.pm
index f19cfcd5d..23ee8cc5c 100644
--- a/lib/Slic3r/ExPolygon.pm
+++ b/lib/Slic3r/ExPolygon.pm
@@ -59,6 +59,12 @@ sub boost_polygon {
     return Boost::Geometry::Utils::polygon(@$self);
 }
 
+sub wkt {
+    my $self = shift;
+    return sprintf "POLYGON(%s)", 
+        join ',', map "($_)", map { join ',', map "$_->[0] $_->[1]", @$_ } @$self;
+}
+
 sub offset {
     my $self = shift;
     return Slic3r::Geometry::Clipper::offset($self, @_);