15 if("IDP3" eq substr $data, 0, 4)
18 my $num_meshes = unpack "V", substr $data, 4+4+64+4+4+4, 4;
19 my $ofs_meshes = unpack "V", substr $data, 4+4+64+4+4+4+4+4+4+4, 4;
23 $vertex += unpack "V", substr $data, $ofs_meshes+4+64+4+4+4, 4;
24 $poly += unpack "V", substr $data, $ofs_meshes+4+64+4+4+4+4, 4;
25 $ofs_meshes += unpack "V", substr $data, $ofs_meshes+4+64+4+4+4+4+4+4+4+4+4, 4;
29 elsif("ZYMOTICMODEL" eq substr $data, 0, 12)
32 $vertex = unpack "N", substr $data, 12+4+4+4*3+4*3+4, 4;
33 $poly = unpack "N", substr $data, 12+4+4+4*3+4*3+4+4, 4;
39 printf "%8d %8d %-3s %s\n", $vertex, $poly, $type, $_;
43 printf "%8s %8s %-3s %s\n", "-", "-", "-", $_;