print pv($_),",\n" or die $! foreach @points;
print "],faces=[\n" or die $!;
print pv($_),",\n" or die $! foreach @triangles;
print pv($_),",\n" or die $! foreach @points;
print "],faces=[\n" or die $!;
print pv($_),",\n" or die $! foreach @triangles;