bitrate estimation trick

1 files changed, 12 insertions, 0 deletions

diff --git a/bin/psycamp b/bin/psycamp
index 2502819..166f719 100755
--- a/bin/psycamp
+++ b/bin/psycamp
@@ -378,6 +378,18 @@ sub ginread {
                     $CurrentFile !~ /\b$KEEP\b/oi) {
                         print RED, unlink ($CurrentFile) ?
                             "\r***" : "\r - ", BOLD, GREEN, "[\n", RESET;
+                } elsif ($DUR/1000 - $tc > 4) {
+                        # Both ffmpeg and mplayer have a bug of
+                        # dividing the sum of frame bitrates by
+                        # the duration of the complete track, thus
+                        # counting zero for the missing part. This
+                        # formula compensates for that bug.
+                        my $estira = $I{bitrate} * $DUR/$tc/1000;
+                        printf "%s%sIncomplete file. Estimated actual bitrate: %.1f%s\n", BOLD, YELLOW, $estira, RESET if $estira < 1000 and $estira > 50;
+                        # Then again, this approach sometimes
+                        # fails if mplayer doesn't let us have
+                        # the actual last timecode of the file -
+                        # which it unpredictably does.
                 } else {
                         my $m = $date[$order[$CS]];
                         # touch the access time of the file