juli/OrcaSlicer
1
1
Fork 0
mirror of https://github.com/OrcaSlicer/OrcaSlicer.git synced 2026-05-21 04:13:50 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add test for polyline lines

Browse Source
This commit is contained in:
Alessandro Ranellucci
2013-07-15 23:23:35 +02:00
parent 439255ca46
commit 77c479c127
3 changed files with 34 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
xs/xsp/my.map
View File

@@ -15,15 +15,16 @@ ExtrusionRole T_UV
SurfaceType T_UV
Lines T_LINES
Lines* T_LINES_PTR
INPUT
OUTPUT
T_LINES
$arg = lines2perl(aTHX_ $var);
T_LINES_PTR
$arg = lines2perl(aTHX_ *$var);
delete $var;
AV* av = newAV();
$arg = newRV_noinc((SV*)av);
const unsigned int len = $var.size();
av_extend(av, len-1);
for (unsigned int i = 0; i < len; i++) {
av_store(av, i, ${var}[i].to_SV_ref());
}