hedgewars/uWorld.pas
changeset 6302 db8bdbb34e03
parent 6296 0cd63375e80b
child 6328 d14adf1c7721
child 6380 1ff5ad1d771b
--- a/hedgewars/uWorld.pas	Sun Nov 06 17:43:57 2011 +0100
+++ b/hedgewars/uWorld.pas	Sun Nov 06 12:40:35 2011 -0500
@@ -74,6 +74,7 @@
 
 const cStereo_Sky           = 0.0500;
       cStereo_Horizon       = 0.0250;
+      cStereo_MidDistance   = 0.0175;
       cStereo_Water_distant = 0.0125;
       cStereo_Land          = 0.0075;
       cStereo_Water_near    = 0.0025;
@@ -799,6 +800,8 @@
     end;
 
     DrawVisualGears(0);
+    ChangeDepth(RM, -cStereo_MidDistance);
+    DrawVisualGears(4);
 
     if (cReducedQuality and rq2DWater) = 0 then
     begin
@@ -817,6 +820,7 @@
         DrawWaves(-1, 100, - (cWaveHeight + (cWaveHeight shr 1)), 0);
 
     changeDepth(RM, cStereo_Land);
+    DrawVisualGears(5);
     DrawLand(WorldDx, WorldDy);
 
     DrawWater(255, 0);
@@ -845,6 +849,7 @@
 
     DrawVisualGears(1);
     DrawGears;
+    DrawVisualGears(6);
 
     if SuddenDeathDmg then
         DrawWater(cSDWaterOpacity, 0)