equal
deleted
inserted
replaced
165 function FloatToStr(n: hwFloat): shortstring; |
165 function FloatToStr(n: hwFloat): shortstring; |
166 begin |
166 begin |
167 FloatToStr:= cstr(n) |
167 FloatToStr:= cstr(n) |
168 end; |
168 end; |
169 |
169 |
170 {$IFNDEF FPC} |
|
171 function arctan2(const Y, X: hwFloat): hwFloat; |
|
172 asm |
|
173 fld Y |
|
174 fld X |
|
175 fpatan |
|
176 fwait |
|
177 end; |
|
178 {$ENDIF} |
|
179 |
|
180 function DxDy2Angle32(const _dY, _dX: hwFloat): LongInt; |
170 function DxDy2Angle32(const _dY, _dX: hwFloat): LongInt; |
181 const _16divPI: Extended = 16/pi; |
171 const _16divPI: Extended = 16/pi; |
182 var dY, dX: Extended; |
172 var dY, dX: Extended; |
183 begin |
173 begin |
184 dY:= _dY.QWordValue / $100000000; |
174 dY:= _dY.QWordValue / $100000000; |