Polyline->lines

xs/xsp/Polyline.xsp

@@ -16,6 +16,7 @@
     void pop_back()
         %code{% THIS->points.pop_back(); %};
     void reverse();
+    Lines lines();
 %{
 
 Polyline*

xs/xsp/my.map

@@ -13,3 +13,17 @@ SurfaceCollection*      O_OBJECT
 
 ExtrusionRole     T_UV
 SurfaceType     T_UV
+
+Lines           T_LINES
+Lines*          T_LINES_PTR
+
+INPUT
+
+OUTPUT
+
+T_LINES
+	$arg = lines2perl(aTHX_ $var);
+
+T_LINES_PTR
+	$arg = lines2perl(aTHX_ *$var);
+	delete $var;

xs/xsp/typemap.xspt

@@ -6,6 +6,8 @@
 %typemap{ExPolygon*};
 %typemap{Polyline*};
 %typemap{Polygon*};
+%typemap{Lines};
+
 %typemap{SurfaceType}{parsed}{
   %cpp_type{SurfaceType};
   %precall_code{%