1HEADmaster

1 files changed, 27 insertions, 0 deletions

diff --git a/devtools/bin/playback_numprims.pl b/devtools/bin/playback_numprims.pl
new file mode 100644
index 0000000..f90946f
--- /dev/null
+++ b/devtools/bin/playback_numprims.pl
@@ -0,0 +1,27 @@
+if( scalar( @ARGV ) != 1 )
+{
+	die "Usage: playback_numprims.pl frame.txt\n";
+}
+open INPUT, shift || die;
+$numprims = 0;
+$numcalls = 0;
+while( <INPUT> )
+{
+	if( /DrawIndexedPrimitive.*numPrimitives:\s*(\d+)\s*$/i )
+	{
+		$numprims += $1;		
+		if( $1 > 85 )
+		{
+			$numfreeprims += $1;
+		}
+		else
+		{
+			$numfreeprims += 85;
+		}
+		$numcalls++;
+	}
+}
+close INPUT;
+print "$numprims primitives\n";
+print "$numfreeprims freeprimitives\n";
+print "$numcalls calls\n";