juli/OrcaSlicer
1
1
Fork 0
mirror of https://github.com/OrcaSlicer/OrcaSlicer.git synced 2026-05-31 00:52:51 +00:00
Code Issues Packages Projects Releases Wiki Activity

New ->scale() method for ExPolygon::XS

Browse Source
This commit is contained in:
Alessandro Ranellucci
2013-07-11 14:08:11 +02:00
parent 5409c27852
commit e0052b01d3
3 changed files with 24 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
xs/src/ExPolygon.hpp
View File

@@ -19,8 +19,24 @@ class ExPolygon
Polygon contour;
Polygons holes;
SV* arrayref();
void scale(double factor);
};
#define scale_polygon(poly, factor) \
for (Polygon::iterator pit = (poly).begin(); pit != (poly).end(); ++pit) { \
(*pit).x *= factor; \
(*pit).y *= factor; \
}
void
ExPolygon::scale(double factor)
{
scale_polygon(contour, factor);
for (Polygons::iterator it = holes.begin(); it != holes.end(); ++it) {
scale_polygon(*it, factor);
}
}
void
perl2polygon(SV* poly_sv, Polygon& poly)
{