3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-07-25 23:54:00 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 3

Polyline->lines

Browse source
This commit is contained in:
Alessandro Ranellucci 2013-07-15 23:12:13 +02:00
parent ab6b3d41a7
commit 439255ca46
5 changed files with 39 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

21
xs/src/Line.hpp
View file

@ -23,6 +23,7 @@ class Line
void from_SV(SV* line_sv);
void from_SV_check(SV* line_sv);
SV* to_SV();
SV* to_SV_ref();
SV* to_SV_pureperl();
void scale(double factor);
void translate(double x, double y);
@ -93,6 +94,13 @@ Line::to_SV() {
return newRV_noinc((SV*)av);
}
SV*
Line::to_SV_ref() {
SV* sv = newSV(0);
sv_setref_pv( sv, "Slic3r::Line", new Line(*this) );
return sv;
}
SV*
Line::to_SV_pureperl() {
AV* av = newAV();
@ -102,6 +110,19 @@ Line::to_SV_pureperl() {
return newRV_noinc((SV*)av);
}
SV*
lines2perl(pTHX_ Lines& lines)
{
AV* av = newAV();
av_extend(av, lines.size()-1);
int i = 0;
for (Lines::iterator it = lines.begin(); it != lines.end(); ++it) {
SV* sv = (*it).to_SV_ref();
av_store(av, i++, sv);
}
return (SV*)newRV_noinc((SV*)av);
}
}
#endif