equal
deleted
inserted
replaced
76 prevPoint: TPoint; |
76 prevPoint: TPoint; |
77 amSel: TAmmoType = amNothing; |
77 amSel: TAmmoType = amNothing; |
78 missionTex: PTexture; |
78 missionTex: PTexture; |
79 missionTimer: LongInt; |
79 missionTimer: LongInt; |
80 stereoDepth: GLfloat; |
80 stereoDepth: GLfloat; |
|
81 isFirstFrame: boolean; |
81 |
82 |
82 const cStereo_Sky = 0.0500; |
83 const cStereo_Sky = 0.0500; |
83 cStereo_Horizon = 0.0250; |
84 cStereo_Horizon = 0.0250; |
84 cStereo_MidDistance = 0.0175; |
85 cStereo_MidDistance = 0.0175; |
85 cStereo_Water_distant = 0.0125; |
86 cStereo_Water_distant = 0.0125; |
1800 end; |
1801 end; |
1801 |
1802 |
1802 |
1803 |
1803 procedure initModule; |
1804 procedure initModule; |
1804 begin |
1805 begin |
1805 fpsTexture:= nil; |
1806 fpsTexture:= nil; |
1806 FollowGear:= nil; |
1807 FollowGear:= nil; |
1807 WindBarWidth:= 0; |
1808 WindBarWidth:= 0; |
1808 bShowAmmoMenu:= false; |
1809 bShowAmmoMenu:= false; |
1809 bSelected:= false; |
1810 bSelected:= false; |
1810 bShowFinger:= false; |
1811 bShowFinger:= false; |
1811 Frames:= 0; |
1812 Frames:= 0; |
1812 WorldDx:= -512; |
1813 WorldDx:= -512; |
1813 WorldDy:= -256; |
1814 WorldDy:= -256; |
1814 |
1815 |
1815 FPS:= 0; |
1816 FPS:= 0; |
1816 CountTicks:= 0; |
1817 CountTicks:= 0; |
1817 SoundTimerTicks:= 0; |
1818 SoundTimerTicks:= 0; |
1818 prevPoint.X:= 0; |
1819 prevPoint.X:= 0; |
1819 prevPoint.Y:= 0; |
1820 prevPoint.Y:= 0; |
1820 missionTimer:= 0; |
1821 missionTimer:= 0; |
1821 missionTex:= nil; |
1822 missionTex:= nil; |
1822 cOffsetY:= 0; |
1823 cOffsetY:= 0; |
1823 stereoDepth:= 0; |
1824 stereoDepth:= 0; |
1824 AMState:= AMHidden; |
1825 AMState:= AMHidden; |
|
1826 isFirstFrame:= true; |
1825 end; |
1827 end; |
1826 |
1828 |
1827 procedure freeModule; |
1829 procedure freeModule; |
1828 begin |
1830 begin |
1829 stereoDepth:= stereoDepth; // avoid hint |
1831 stereoDepth:= stereoDepth; // avoid hint |
1830 FreeTexture(fpsTexture); |
1832 FreeTexture(fpsTexture); |
1831 fpsTexture:= nil; |
1833 fpsTexture:= nil; |
1832 FreeTexture(timeTexture); |
1834 FreeTexture(timeTexture); |
1833 timeTexture:= nil; |
1835 timeTexture:= nil; |
1834 FreeTexture(missionTex); |
1836 FreeTexture(missionTex); |
1835 missionTex:= nil |
1837 missionTex:= nil |
1836 end; |
1838 end; |
1837 |
1839 |
1838 end. |
1840 end. |