mirror of
https://github.com/SoftFever/OrcaSlicer.git
synced 2025-10-21 07:41:09 -06:00
Remove Point.cpp
This commit is contained in:
parent
5a11d4df89
commit
4093280566
5 changed files with 19 additions and 20 deletions
|
@ -44,7 +44,7 @@ polygon2perl(Polygon& poly) {
|
|||
AV* av = newAV();
|
||||
av_extend(av, num_points-1);
|
||||
for (unsigned int i = 0; i < num_points; i++) {
|
||||
av_store(av, i, poly[i]._toPerl());
|
||||
av_store(av, i, point2perl(poly[i]));
|
||||
}
|
||||
return (SV*)newRV_noinc((SV*)av);
|
||||
}
|
||||
|
|
|
@ -1,13 +0,0 @@
|
|||
#include "myinit.h"
|
||||
#include "Point.hpp"
|
||||
|
||||
Point::~Point() {}
|
||||
|
||||
|
||||
SV*
|
||||
Point::_toPerl() {
|
||||
AV* av = newAV();
|
||||
av_fill(av, 1);
|
||||
av_store_point_xy(av, x, y);
|
||||
return (SV*)newRV_noinc((SV*)av);
|
||||
}
|
|
@ -14,8 +14,14 @@ class Point
|
|||
unsigned long x;
|
||||
unsigned long y;
|
||||
Point(unsigned long _x = 0, unsigned long _y = 0): x(_x), y(_y) {};
|
||||
~Point();
|
||||
SV* _toPerl();
|
||||
};
|
||||
|
||||
SV*
|
||||
point2perl(Point& point) {
|
||||
AV* av = newAV();
|
||||
av_fill(av, 1);
|
||||
av_store_point_xy(av, point.x, point.y);
|
||||
return (SV*)newRV_noinc((SV*)av);
|
||||
}
|
||||
|
||||
#endif
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue