Thanks, maybe it me but I use ex.
my @nloops = join(',',@{$collection[0]});
and try
print @nloops[1]
OUT
[1,1,1,1,1]
but the correct should be
1
To make this little test a more clear view from my part
as you could see there are 4 array in the renderman rib
ex.
for ($i = 0; $i < array_length; $i ++ ) {
print @params[0+$i] @params[1+$i] @params[2+$i] 1;
}
this would be output:
-1 1 1
1 1 -1
1 1 1
...
next
I apply a custom string in
print "Run $count_lvert_length Poly\n";
for ($i = 0; $i < count_lverts*4; $i += 4 ) {
if ( $lverts[0+($i/4)] == 3 ) {
print "$lverts[0+($i/4)] < $vertid[2+$i]
$vertid[1+$i] $vertid[0+$i]\n";
} else {
print "$lverts[0+($i/4)] < $vertid[3+$i]
$vertid[2+$i] $vertid[1+$i] $vertid[0+$i]\n";
}
}
append the end line !!!
----------------------------------
here is the 'renderman' rib example
this file this what I read in and like to get data from
# Starting polys
PointsGeneralPolygons
[1 1 1 1 1 1] [4 4 4 4 4 4]
[ 0 4 5 1
1 5 6 2
2 6 7 3
3 7 4 0
3 0 1 2
4 7 6 5 ]
"P" [ -0.5 -0.5 -0.5 0.5 -0.5 -0.5 0.5 -0.5 0.5
-0.5 -0.5 0.5 -0.5 0.5 -0.5 0.5 0.5 -0.5
0.5 0.5 0.5 -0.5 0.5 0.5 ]
# Starting curves
# Done curves
---------------------------
and this is the code I trying to get Perl to make for me !!!
-0.5 -0.5 -0.5 1
0.5 -0.5 -0.5 1
0.5 -0.5 0.5 1
-0.5 -0.5 0.5 1
-0.5 0.5 -0.5 1
0.5 0.5 -0.5 1
0.5 0.5 0.5 1
-0.5 0.5 0.5 1
Run 6 Poly
4 < 1 5 4 0
4 < 2 6 5 1
4 < 3 7 6 2
4 < 0 4 7 3
4 < 2 1 0 3
4 < 5 6 7 4
regards,
Fredrik Gustafsson