273 if Angle < 1024 then AngleSin.QWordValue:= SinTable[Angle]

   273 if Angle < 1024 then AngleSin.QWordValue:= SinTable[Angle]

   274                 else AngleSin.QWordValue:= SinTable[2048 - Angle]

   274                 else AngleSin.QWordValue:= SinTable[2048 - Angle]

   275 end;

   275 end;

   276 

   276 

   277 function AngleCos(Angle: Longword): hwFloat;

   277 function AngleCos(Angle: Longword): hwFloat;

   279 begin

   278 begin

   280 AngleCos.isNegative:= Angle > 1024;

   279 AngleCos.isNegative:= Angle > 1024;

   281 if Angle < 1024 then AngleCos.QWordValue:= SinTable[1024 - Angle]

   280 if Angle < 1024 then AngleCos.QWordValue:= SinTable[1024 - Angle]

   282                 else AngleCos.QWordValue:= SinTable[Angle - 1024]

   281                 else AngleCos.QWordValue:= SinTable[Angle - 1024]

   283 end;

   282 end;