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

Remove any Perl related code from libslic3r

Browse Source
This commit is contained in:
Alessandro Ranellucci
2015-12-08 00:39:54 +01:00
parent 3fac8cd77e
commit 4913e90e10
105 changed files with 907 additions and 1066 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
xs/xsp/Line.xsp
View File

@@ -1,7 +1,7 @@
%module{Slic3r::XS};
%{
#include <myinit.h>
#include <xsinit.h>
#include "libslic3r/Line.hpp"
#include "libslic3r/Polyline.hpp"
%}
@@ -11,9 +11,9 @@
Clone<Line> clone()
%code{% RETVAL = THIS; %};
SV* arrayref()
%code{% RETVAL = THIS->to_AV(); %};
%code{% RETVAL = to_AV(THIS); %};
SV* pp()
%code{% RETVAL = THIS->to_SV_pureperl(); %};
%code{% RETVAL = to_SV_pureperl(THIS); %};
Ref<Point> a()
%code{% RETVAL=&THIS->a; %};
Ref<Point> b()
@@ -48,8 +48,8 @@ Line::new(...)
CODE:
RETVAL = new Line ();
// ST(0) is class name, ST(1) and ST(2) are endpoints
RETVAL->a.from_SV_check( ST(1) );
RETVAL->b.from_SV_check( ST(2) );
from_SV_check(ST(1), &RETVAL->a);
from_SV_check(ST(2), &RETVAL->b);
OUTPUT:
RETVAL
@@ -59,7 +59,7 @@ Line::rotate(angle, center_sv)
SV* center_sv;
CODE:
Point center;
center.from_SV_check(center_sv);
from_SV_check(center_sv, &center);
THIS->rotate(angle, center);
bool
@@ -67,7 +67,7 @@ Line::coincides_with(line_sv)
SV* line_sv;
CODE:
Line line;
line.from_SV_check(line_sv);
from_SV_check(line_sv, &line);
RETVAL = THIS->coincides_with(line);
OUTPUT:
RETVAL