Add source for h_grabber
[voretournament/voretournament.git] / misc / tools / polycount.pl
1 #!/usr/bin/perl
2
3 for(@ARGV)
4 {
5         my $data = do {
6                 open my $fh, "<", $_;
7                 undef local $/;
8                 <$fh>;
9         };
10
11         my $vertex = undef;
12         my $poly = undef;
13         my $type = undef;
14
15         if("IDP3" eq substr $data, 0, 4)
16         {
17                 # MD3 model
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;
20                 $vertex = $poly = 0;
21                 for(1..$num_meshes)
22                 {
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;
26                 }
27                 $type = "md3";
28         }
29         elsif("ZYMOTICMODEL" eq substr $data, 0, 12)
30         {
31                 # ZYM model
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;
34                 $type = "zym";
35         }
36
37         if(defined $type)
38         {
39                 printf "%8d %8d %-3s %s\n", $vertex, $poly, $type, $_;
40         }
41         else
42         {
43                 printf "%8s %8s %-3s %s\n", "-", "-", "-", $_;
44         }
45 }