equal
deleted
inserted
replaced
268 end; |
268 end; |
269 |
269 |
270 ResetKbd; |
270 ResetKbd; |
271 |
271 |
272 cWindSpeed:= rndSign(GetRandom * 2 * cMaxWindSpeed); |
272 cWindSpeed:= rndSign(GetRandom * 2 * cMaxWindSpeed); |
273 cWindSpeedf:= cWindSpeed.QWordValue / _1.QWordValue; |
273 // cWindSpeedf:= cWindSpeed.QWordValue / _1.QWordValue throws Internal error 200502052 on fpc 2.5.1 |
|
274 // see http://mantis.freepascal.org/view.php?id=17714 |
|
275 cWindSpeedf:= SignAs(cWindSpeed,cWindSpeed).QWordValue / SignAs(_1,_1).QWordValue; |
274 if cWindSpeed.isNegative then |
276 if cWindSpeed.isNegative then |
275 CWindSpeedf := -cWindSpeedf; |
277 CWindSpeedf := -cWindSpeedf; |
276 g:= AddGear(0, 0, gtATSmoothWindCh, 0, _0, _0, 1); |
278 g:= AddGear(0, 0, gtATSmoothWindCh, 0, _0, _0, 1); |
277 g^.Tag:= hwRound(cWindSpeed * 72 / cMaxWindSpeed); |
279 g^.Tag:= hwRound(cWindSpeed * 72 / cMaxWindSpeed); |
278 {$IFDEF DEBUGFILE}AddFileLog('Wind = '+FloatToStr(cWindSpeed));{$ENDIF} |
280 {$IFDEF DEBUGFILE}AddFileLog('Wind = '+FloatToStr(cWindSpeed));{$ENDIF} |