video-always-full-width-hack xD

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1@631 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 6 insertions, 2 deletions

diff --git a/Game/Code/Classes/UVideo.pas b/Game/Code/Classes/UVideo.pas
index bd5d2b62..647cf30e 100644
--- a/Game/Code/Classes/UVideo.pas
+++ b/Game/Code/Classes/UVideo.pas
@@ -232,15 +232,19 @@ begin
         VideoAspect:=VideoCodecContext^.width/VideoCodecContext^.height
       else
         VideoAspect:=VideoAspect*VideoCodecContext^.width/VideoCodecContext^.height;
-      if VideoAspect >= 4/3 then
+      VideoAspect:=0.5;
+      showmessage('Video Aspect: '+inttostr(integer(trunc(videoaspect*1000))));
+//    if VideoAspect >= 4/3 then
       begin
         ScaledVideoWidth:=800.0;
         ScaledVideoHeight:=800.0/VideoAspect;
-      end else
+      end;
+{    else
       begin
         ScaledVideoHeight:=600.0;
         ScaledVideoWidth:=600.0*VideoAspect;
       end;
+}
       VideoTimeBase:=VideoCodecContext^.time_base.num/VideoCodecContext^.time_base.den;
 {$ifdef DebugDisplay}
       showmessage('framerate: '+inttostr(floor(1/videotimebase))+'fps');