equal
deleted
inserted
replaced
251 RectToStr:= '(x: ' + inttostr(rect.x) + '; y: ' + inttostr(rect.y) + '; w: ' + inttostr(rect.w) + '; h: ' + inttostr(rect.h) + ')' |
251 RectToStr:= '(x: ' + inttostr(rect.x) + '; y: ' + inttostr(rect.y) + '; w: ' + inttostr(rect.w) + '; h: ' + inttostr(rect.h) + ')' |
252 end; |
252 end; |
253 |
253 |
254 |
254 |
255 var i: LongInt; |
255 var i: LongInt; |
|
256 {$ENDIF} |
256 |
257 |
257 initialization |
258 initialization |
258 cDrownSpeed.QWordValue:= 257698038;// 0.06 |
259 cDrownSpeed.QWordValue:= 257698038;// 0.06 |
259 cMaxWindSpeed.QWordValue:= 2147484;// 0.0005 |
260 cMaxWindSpeed.QWordValue:= 2147484;// 0.0005 |
260 cWindSpeed.QWordValue:= 429496;// 0.0001 |
261 cWindSpeed.QWordValue:= 429496;// 0.0001 |
261 cGravity:= cMaxWindSpeed; |
262 cGravity:= cMaxWindSpeed; |
262 |
263 |
263 |
264 {$IFDEF DEBUGFILE} |
264 {$I-} |
265 {$I-} |
265 for i:= 0 to 7 do |
266 for i:= 0 to 7 do |
266 begin |
267 begin |
267 Assign(f, 'debug' + inttostr(i) + '.txt'); |
268 Assign(f, 'debug' + inttostr(i) + '.txt'); |
268 rewrite(f); |
269 rewrite(f); |