hedgewars/uWorld.pas
changeset 10425 9bf21d178d13
parent 10392 5012e1f9e893
child 10494 0eb97cf4c78e
equal deleted inserted replaced
10423:b9d6463cf2ca 10425:9bf21d178d13
    77     CountTicks: Longword;
    77     CountTicks: Longword;
    78     prevPoint{, prevTargetPoint}: TPoint;
    78     prevPoint{, prevTargetPoint}: TPoint;
    79     amSel: TAmmoType = amNothing;
    79     amSel: TAmmoType = amNothing;
    80     missionTex: PTexture;
    80     missionTex: PTexture;
    81     missionTimer: LongInt;
    81     missionTimer: LongInt;
    82     stereoDepth: GLfloat;
       
    83     isFirstFrame: boolean;
    82     isFirstFrame: boolean;
    84     AMAnimType: LongInt;
    83     AMAnimType: LongInt;
    85     recTexture: PTexture;
    84     recTexture: PTexture;
    86     AmmoMenuTex     : PTexture;
    85     AmmoMenuTex     : PTexture;
    87     HorizontOffset: LongInt;
    86     HorizontOffset: LongInt;
   985     d:= d / 5;
   984     d:= d / 5;
   986     if rm = rmDefault then
   985     if rm = rmDefault then
   987         exit
   986         exit
   988     else if rm = rmLeftEye then
   987     else if rm = rmLeftEye then
   989         d:= -d;
   988         d:= -d;
   990     stereoDepth:= stereoDepth + d;
   989     cStereoDepth:= cStereoDepth + d;
   991     openglTranslProjMatrix(d, 0, 0);
   990     openglTranslProjMatrix(d, 0, 0);
   992 {$ENDIF}
   991 {$ENDIF}
   993 end;
   992 end;
   994 
   993 
   995 procedure ResetDepth(rm: TRenderMode);
   994 procedure ResetDepth(rm: TRenderMode);
   996 begin
   995 begin
   997     rm:= rm; // avoid hint
   996     rm:= rm; // avoid hint
   998 {$IFDEF USE_S3D_RENDERING}
   997 {$IFDEF USE_S3D_RENDERING}
   999     if rm = rmDefault then
   998     if rm = rmDefault then
  1000         exit;
   999         exit;
  1001     openglTranslProjMatrix(-stereoDepth, 0, 0);
  1000     openglTranslProjMatrix(-cStereoDepth, 0, 0);
  1002     cStereoDepth:= 0;
  1001     cStereoDepth:= 0;
  1003 {$ENDIF}
  1002 {$ENDIF}
  1004 end;
  1003 end;
  1005 
  1004 
  1006 procedure RenderWorldEdge(Lag: Longword);
  1005 procedure RenderWorldEdge(Lag: Longword);
  2134     prevPoint.X:= 0;
  2133     prevPoint.X:= 0;
  2135     prevPoint.Y:= 0;
  2134     prevPoint.Y:= 0;
  2136     missionTimer:= 0;
  2135     missionTimer:= 0;
  2137     missionTex:= nil;
  2136     missionTex:= nil;
  2138     cOffsetY:= 0;
  2137     cOffsetY:= 0;
  2139     stereoDepth:= 0;
       
  2140     AMState:= AMHidden;
  2138     AMState:= AMHidden;
  2141     isFirstFrame:= true;
  2139     isFirstFrame:= true;
  2142 
  2140 
  2143     FillChar(WorldFade, sizeof(WorldFade), 0);
  2141     FillChar(WorldFade, sizeof(WorldFade), 0);
  2144     WorldFade[0].a:= 255;
  2142     WorldFade[0].a:= 255;