Add test for polyline lines

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

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());
}