Add test for polyline lines
This commit is contained in:
parent
439255ca46
commit
77c479c127
3 changed files with 34 additions and 19 deletions
|
@ -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());
|
||||
}
|
Loading…
Add table
Add a link
Reference in a new issue