Ported union_pt() to XS

2026-05-20 03:43:52 +00:00 · 2013-08-26 18:37:19 +02:00
parent 443d4e52cb
commit 9cf831b9c5
7 changed files with 78 additions and 42 deletions
--- a/xs/xsp/Clipper.xsp
+++ b/xs/xsp/Clipper.xsp
@@ -128,6 +128,19 @@ union_ex(subject, safety_offset = false)
    OUTPUT:
        RETVAL

+SV*
+union_pt(subject, safety_offset = false)
+    Polygons                    subject
+    bool                        safety_offset
+    CODE:
+        // perform operation
+        ClipperLib::PolyTree polytree;
+        union_pt(subject, polytree, safety_offset);
+        
+        RETVAL = polynode_children_2_perl(polytree);
+    OUTPUT:
+        RETVAL
+
 Polygons
 simplify_polygons(subject)
    Polygons                    subject