equal
deleted
inserted
replaced
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; |