Fixed #1244 - perl part

xs/src/libslic3r/Model.cpp

@@ -973,6 +973,11 @@ const TriangleMesh& ModelVolume::get_convex_hull() const
     return m_convex_hull;
 }
 
+TriangleMesh& ModelVolume::get_convex_hull()
+{
+    return m_convex_hull;
+}
+
 ModelVolume::Type ModelVolume::type_from_string(const std::string &s)
 {
     // Legacy support

xs/src/libslic3r/Model.hpp

@@ -195,6 +195,7 @@ public:
     
     void calculate_convex_hull();
     const TriangleMesh& get_convex_hull() const;
+    TriangleMesh& get_convex_hull();
 
     // Helpers for loading / storing into AMF / 3MF files.
     static Type         type_from_string(const std::string &s);

xs/xsp/Model.xsp

@@ -338,6 +338,8 @@ ModelMaterial::attributes()
         %code%{ RETVAL = &THIS->config; %};
     Ref<TriangleMesh> mesh()
         %code%{ RETVAL = &THIS->mesh; %};
+    Ref<TriangleMesh> convex_hull()
+        %code%{ RETVAL = &THIS->get_convex_hull(); %};
     
     bool modifier()
         %code%{ RETVAL = THIS->is_modifier(); %};