blob: edd65b7e4c43893c57204926269da93dfb47a4fc (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
|
unit UTime;
interface
{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}
{$DEFINE SDLTimer}
{$UNDEF DebugDisplay}
type
TTime = class
constructor Create;
function GetTime: real;
end;
procedure CountSkipTimeSet;
procedure CountSkipTime;
procedure CountMidTime;
var
USTime: TTime;
TimeFreq: int64;
TimeNew: int64;
TimeOld: int64;
TimeSkip: real;
TimeMid: real;
TimeMidTemp: int64;
implementation
uses
{$IFDEF win32}
windows,
{$ELSE}
libc,
time,
{$ENDIF}
sysutils,
{$IFDEF SDLTimer}
sdl,
{$ENDIF}
ucommon;
const
cSDLCorrectionRatio = 1000;
(*
BEST Option now ( after discussion with whiteshark ) seems to be to use SDL
timer functions...
SDL_delay
SDL_GetTicks
http://www.gamedev.net/community/forums/topic.asp?topic_id=466145&whichpage=1%EE%8D%B7
*)
constructor TTime.Create;
begin
CountSkipTimeSet;
end;
procedure CountSkipTimeSet;
begin
{$IFDEF SDLTimer}
TimeNew := SDL_GetTicks(); // / cSDLCorrectionRatio
TimeFreq := 0;
{$ELSE}
{$IFDEF win32}
QueryPerformanceFrequency(TimeFreq);
QueryPerformanceCounter(TimeNew);
{$ELSE}
TimeNew := CurrentSec100OfDay(); // TODO - JB_Linux will prob need looking at
TimeFreq := 0;
{$ENDIF}
{$ENDIF}
{$IFDEF DebugDisplay}
Writeln( 'CountSkipTimeSet : ' + inttostr(trunc(TimeNew)) );
{$ENDIF}
end;
procedure CountSkipTime;
begin
TimeOld := TimeNew;
{$IFDEF SDLTimer}
TimeNew := SDL_GetTicks();
TimeSkip := (TimeNew-TimeOld) / cSDLCorrectionRatio;
{$ELSE}
{$IFDEF win32}
QueryPerformanceCounter(TimeNew);
if ( TimeNew-TimeOld > 0 ) AND
( TimeFreq > 0 ) THEN
begin
TimeSkip := (TimeNew-TimeOld)/TimeFreq;
end;
{$ELSE}
TimeNew := CurrentSec100OfDay(); // TODO - JB_Linux will prob need looking at
TimeSkip := (TimeNew-TimeOld);
{$ENDIF}
{$ENDIF}
{$IFDEF DebugDisplay}
Writeln( 'TimeNew : ' + inttostr(trunc(TimeNew)) );
Writeln( 'CountSkipTime : ' + inttostr(trunc(TimeSkip)) );
{$ENDIF}
end;
procedure CountMidTime;
begin
{$IFDEF SDLTimer}
TimeMidTemp := SDL_GetTicks();
TimeMid := (TimeMidTemp - TimeNew) / cSDLCorrectionRatio;
{$ELSE}
{$IFDEF win32}
QueryPerformanceCounter(TimeMidTemp);
TimeMid := (TimeMidTemp-TimeNew)/TimeFreq;
{$ELSE}
TimeMidTemp := CurrentSec100OfDay();
TimeMid := (TimeMidTemp-TimeNew); // TODO - JB_Linux will prob need looking at
{$ENDIF}
{$ENDIF}
{$IFDEF DebugDisplay}
Writeln( 'TimeNew : ' + inttostr(trunc(TimeNew)) );
Writeln( 'CountMidTime : ' + inttostr(trunc(TimeMid)) );
{$ENDIF}
end;
function TTime.GetTime: real;
var
TimeTemp: int64;
begin
{$IFDEF SDLTimer}
TimeTemp := SDL_GetTicks();
Result := TimeTemp / cSDLCorrectionRatio; // TODO - JB_Linux will prob need looking at
{$ELSE}
{$IFDEF win32}
QueryPerformanceCounter(TimeTemp);
Result := TimeTemp / TimeFreq;
{$ELSE}
TimeTemp := CurrentSec100OfDay();
Result := TimeTemp; // TODO - JB_Linux will prob need looking at
{$ENDIF}
{$ENDIF}
{$IFDEF DebugDisplay}
Writeln( 'GetTime : ' + inttostr(trunc(Result)) );
{$ENDIF}
end;
end.
|
