587 else

   587 else

   588     AngleCos.QWordValue:= SinTable[Angle - 1024]

   588     AngleCos.QWordValue:= SinTable[Angle - 1024]

   589 end;

   589 end;

   590 

   590 

   591 function vector2Angle(const x, y: hwFloat): LongInt;

   591 function vector2Angle(const x, y: hwFloat): LongInt;

   593     l, r, c, oc: Longword;

   593     l, r, c, oc: Longword;

   594     n: QWord;

   594     n: QWord;

   595 begin

   595 begin

   596     d:= _1 / Distance(x, y);

   596     d:= _1 / Distance(x, y);

   597 

   597 

   599 

   600 

   600     l:= 0;

   601     l:= 0;

   601     r:= 1024;

   602     r:= 1024;

   602     c:= 0;

   603     c:= 0;

   603 

   604