juli/OrcaSlicer
1
1
Fork 0
mirror of https://github.com/OrcaSlicer/OrcaSlicer.git synced 2026-05-30 16:42:43 +00:00
Code Issues Packages Projects Releases Wiki Activity

XS interface completed, including new Line class

Browse Source
This commit is contained in:
Alessandro Ranellucci
2013-07-15 22:57:22 +02:00
parent 9af2a1c007
commit ab6b3d41a7
33 changed files with 435 additions and 257 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
xs/xsp/Point.xsp
View File

@@ -13,7 +13,7 @@
void scale(double factor);
void translate(double x, double y);
SV* arrayref()
%code{% RETVAL = THIS->to_SV(true); %};
%code{% RETVAL = THIS->to_SV_pureperl(); %};
unsigned long x()
%code{% RETVAL = THIS->x; %};
unsigned long y()
@@ -27,7 +27,7 @@ Point::rotate(angle, center_sv)
SV* center_sv;
CODE:
Point center;
perl2point_check(center_sv, center);
center.from_SV_check(center_sv);
THIS->rotate(angle, &center);
bool
@@ -35,7 +35,7 @@ Point::coincides_with(point_sv)
SV* point_sv;
CODE:
Point point;
perl2point_check(point_sv, point);
point.from_SV_check(point_sv);
RETVAL = THIS->coincides_with(&point);
OUTPUT:
RETVAL