# HG changeset patch
# User sheepluva
# Date 1416710295 -3600
# Node ID 28651db3f90ee83167e2d8323df19d3b946cd47a
# Parent  b8e6164a1a1861418c5f41f2c92a59451d9c2eda
fix view limits in stereo 3d

diff -r b8e6164a1a18 -r 28651db3f90e hedgewars/uVariables.pas
--- a/hedgewars/uVariables.pas	Sun Nov 23 02:15:57 2014 +0100
+++ b/hedgewars/uVariables.pas	Sun Nov 23 03:38:15 2014 +0100
@@ -2651,6 +2651,7 @@
     UIDisplay:= uiAll;
     LocalMessage:= 0;
 
+    cStereoDepth:= 0;
     cViewLimitsDebug:= false;
     AprilOne := false;
 end;
diff -r b8e6164a1a18 -r 28651db3f90e hedgewars/uWorld.pas
--- a/hedgewars/uWorld.pas	Sun Nov 23 02:15:57 2014 +0100
+++ b/hedgewars/uWorld.pas	Sun Nov 23 03:38:15 2014 +0100
@@ -978,9 +978,11 @@
 end;
 
 procedure ChangeDepth(rm: TRenderMode; d: GLfloat);
+var tmp: LongInt;
 begin
-    rm:= rm; d:= d; // avoid hint
-{$IFDEF USE_S3D_RENDERING}
+{$IFNDEF USE_S3D_RENDERING}
+    rm:= rm; d:= d; tmp:= tmp; // avoid hint
+{$ELSE}
     d:= d / 5;
     if rm = rmDefault then
         exit
@@ -988,16 +990,24 @@
         d:= -d;
     cStereoDepth:= cStereoDepth + d;
     openglTranslProjMatrix(d, 0, 0);
+    tmp:= round(d / cScaleFactor * cScreenWidth);
+    ViewLeftX := ViewLeftX  - tmp;
+    ViewRightX:= ViewRightX - tmp;
 {$ENDIF}
 end;
 
 procedure ResetDepth(rm: TRenderMode);
+var tmp: LongInt;
 begin
-    rm:= rm; // avoid hint
-{$IFDEF USE_S3D_RENDERING}
+{$IFNDEF USE_S3D_RENDERING}
+    rm:= rm; tmp:= tmp; // avoid hint
+{$ELSE}
     if rm = rmDefault then
         exit;
     openglTranslProjMatrix(-cStereoDepth, 0, 0);
+    tmp:= round(cStereoDepth / cScaleFactor * cScreenWidth);
+    ViewLeftX := ViewLeftX  + tmp;
+    ViewRightX:= ViewRightX + tmp;
     cStereoDepth:= 0;
 {$ENDIF}
 end;