From 29bfe93f952496c81d1ca02b8d6291275a4be308 Mon Sep 17 00:00:00 2001
From: b1indy <b1indy@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sat, 1 Sep 2007 13:31:04 +0000
Subject: got divx videos running by modifying the reported timebase (or
 framerate) to something reasonable i consider it a hack, but don't know where
 else to get the right framerate / video timebase

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@357 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/SMpeg/Uffmpeg.pas | 40 +++++++++++++++++++++++++++++++---------
 1 file changed, 31 insertions(+), 9 deletions(-)

(limited to 'Game')

diff --git a/Game/Code/SMpeg/Uffmpeg.pas b/Game/Code/SMpeg/Uffmpeg.pas
index 753d3dd9..e72c4ed5 100644
--- a/Game/Code/SMpeg/Uffmpeg.pas
+++ b/Game/Code/SMpeg/Uffmpeg.pas
@@ -5,6 +5,9 @@
 #   based on 'An ffmpeg and SDL Tutorial' (http://www.dranger.com/ffmpeg/)  #
 #############################################################################}
 
+{$define DebugDisplay}
+
+
 unit Uffmpeg;
 
 interface
@@ -38,8 +41,6 @@ var
 
 implementation
 
-const DebugDisplay=False;
-
 procedure Init;
 begin
   av_register_all;
@@ -93,12 +94,13 @@ begin
     end else showmessage('no matching codec found');
     if(errnum >=0) then
     begin
-      if DebugDisplay then
+{$ifdef DebugDisplay}
        showmessage('Found a matching Codec:'+#13#10#13#10+
         'Width='+inttostr(VideoCodecContext^.width)+
         ', Height='+inttostr(VideoCodecContext^.height)+#13#10+
         'Aspect: '+inttostr(VideoCodecContext^.sample_aspect_ratio.num)+'/'+inttostr(VideoCodecContext^.sample_aspect_ratio.den)+#13#10+
         'Framerate: '+inttostr(VideoCodecContext^.time_base.num)+'/'+inttostr(VideoCodecContext^.time_base.den));
+{$endif}
       // allocate space for decoded frame and rgb frame
       AVFrame:=avcodec_alloc_frame;
       AVFrameRGB:=avcodec_alloc_frame;
@@ -137,9 +139,15 @@ begin
         ScaledVideoWidth:=600.0*VideoAspect;
       end;
       VideoTimeBase:=VideoCodecContext^.time_base.num/VideoCodecContext^.time_base.den;
-      if (DebugDisplay) and ((VideoAspect*VideoCodecContext^.width*VideoCodecContext^.height)>200000) then
+      // hack to get reasonable timebase for divx
+      showmessage('framerate: '+inttostr(floor(1/videotimebase))+'fps');
+      while VideoTimeBase < 0.02 do VideoTimeBase:=VideoTimeBase*10;
+{$ifdef DebugDisplay}
+      showmessage('calculated framerate: '+inttostr(floor(1/videotimebase))+'fps');
+      if ((VideoAspect*VideoCodecContext^.width*VideoCodecContext^.height)>200000) then
         showmessage('you are trying to play a rather large video'+#13#10+
                     'be prepared to experience some timing problems');
+{$endif}
     end;
   end;
 end;
@@ -187,7 +195,10 @@ begin
     'TimeDiff:  '+inttostr(floor(TimeDifference*1000)));
 }
   if (VideoTime <> 0) and (TimeDifference <= VideoTimeBase) then begin
-    if DebugDisplay then GoldenRec.Spawn(200,15,1,16,0,-1,ColoredStar,$00ff00);
+{$ifdef DebugDisplay}
+    // frame delay debug display
+    GoldenRec.Spawn(200,15,1,16,0,-1,ColoredStar,$00ff00);
+{$endif}
 {    showmessage('not getting new frame'+#13#10+
     'Time:      '+inttostr(floor(Time*1000))+#13#10+
     'VideoTime: '+inttostr(floor(VideoTime*1000))+#13#10+
@@ -199,7 +210,10 @@ begin
   VideoTime:=VideoTime+VideoTimeBase;
   TimeDifference:=myTime-VideoTime;
   if TimeDifference >= 3*VideoTimeBase then begin // skip frames
-    if DebugDisplay then GoldenRec.Spawn(200,35,1,16,0,-1,ColoredStar,$ff0000);
+{$ifdef DebugDisplay}
+    //frame drop debug display
+    GoldenRec.Spawn(200,55,1,16,0,-1,ColoredStar,$ff0000);
+{$endif}
 //    showmessage('skipping frames'+#13#10+
 //    'TimeBase:  '+inttostr(floor(VideoTimeBase*1000))+#13#10+
 //    'TimeDiff:  '+inttostr(floor(TimeDifference*1000))+#13#10+
@@ -223,9 +237,10 @@ begin
   // if we did not get an new frame, there's nothing more to do
   if Framefinished=0 then Exit;
   // otherwise we convert the pixeldata from YUV to RGB
-  errnum:=img_convert(PAVPicture(AVFrameRGB), PIX_FMT_RGB24,
+{  errnum:=img_convert(PAVPicture(AVFrameRGB), PIX_FMT_RGB24,
             PAVPicture(AVFrame), VideoCodecContext^.pix_fmt,
 			      VideoCodecContext^.width, VideoCodecContext^.height);
+}errnum:=1;
   if errnum >=0 then begin
     // copy RGB pixeldata to our TextureBuffer
     // (line by line)
@@ -240,6 +255,11 @@ begin
     glTexImage2D(GL_TEXTURE_2D, 0, 3, dataX, dataY, 0, GL_RGB, GL_UNSIGNED_BYTE, TexData);
     glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);
     glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);
+{$ifdef DebugDisplay}
+    //frame decode debug display
+    GoldenRec.Spawn(200,35,1,16,0,-1,ColoredStar,$ffff00);
+{$endif}
+
   end;
 end;
 
@@ -261,15 +281,17 @@ begin
   glDisable(GL_TEXTURE_2D);
   glDisable(GL_BLEND);
 
-  if DebugDisplay then begin
+{$ifdef DebugDisplay}
     SetFontStyle (2);
     SetFontItalic(False);
     SetFontSize(9);
     SetFontPos (5, 0);
     glPrint('delaying frame');
     SetFontPos (5, 20);
+    glPrint('fetching frame');
+    SetFontPos (5, 40);
     glPrint('dropping frame');
-  end;
+{$endif}
 end;
 
 end.
-- 
cgit v1.2.3