hedgewars/uFloat.pas
author unc0rr
Sun, 27 Apr 2008 11:40:22 +0000
changeset 883 07a568ba44e0
parent 856 beecc5c5c71c
child 916 1d0022336fbb
permissions -rw-r--r--
Update copyright info in source files headers
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
     1
(*
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
     2
 * Hedgewars, a Worms style game
883
07a568ba44e0 Update copyright info in source files headers
unc0rr
parents: 856
diff changeset
     3
 * Copyright (c) 2007, 2008 Andrey Korotaev <unC0Rr@gmail.com>
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
     4
 *
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
     5
 * This program is free software; you can redistribute it and/or modify
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
     6
 * it under the terms of the GNU General Public License as published by
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
     7
 * the Free Software Foundation; version 2 of the License
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
     8
 *
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
     9
 * This program is distributed in the hope that it will be useful,
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    10
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    11
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    12
 * GNU General Public License for more details.
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    13
 *
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    14
 * You should have received a copy of the GNU General Public License
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    15
 * along with this program; if not, write to the Free Software
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    16
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    17
 *)
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    18
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    19
unit uFloat;
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    20
interface
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    21
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    22
{$IFDEF FPC}
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    23
{$ifdef FPC_LITTLE_ENDIAN}
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    24
type hwFloat = record
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    25
               isNegative: boolean;
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    26
               case byte of
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    27
               0: (Frac, Round: Longword);
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    28
               1: (QWordValue : QWord);
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    29
               end;
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    30
{$else FPC_LITTLE_ENDIAN}
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    31
type hwFloat = record
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    32
               isNegative: boolean;
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    33
               case byte of
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    34
               0: (Round, Frac: Longword);
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    35
               1: (QWordValue : QWord);
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    36
               end;
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    37
{$endif FPC_LITTLE_ENDIAN}
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    38
515
270f10276d2e - Remove deprecated code
unc0rr
parents: 513
diff changeset
    39
function int2hwFloat (const i: LongInt) : hwFloat;
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    40
515
270f10276d2e - Remove deprecated code
unc0rr
parents: 513
diff changeset
    41
operator + (const z1, z2: hwFloat) z : hwFloat;
270f10276d2e - Remove deprecated code
unc0rr
parents: 513
diff changeset
    42
operator - (const z1, z2: hwFloat) z : hwFloat;
270f10276d2e - Remove deprecated code
unc0rr
parents: 513
diff changeset
    43
operator - (const z1: hwFloat) z : hwFloat;
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    44
515
270f10276d2e - Remove deprecated code
unc0rr
parents: 513
diff changeset
    45
operator * (const z1, z2: hwFloat) z : hwFloat;
270f10276d2e - Remove deprecated code
unc0rr
parents: 513
diff changeset
    46
operator * (const z1: hwFloat; const z2: LongInt) z : hwFloat;
270f10276d2e - Remove deprecated code
unc0rr
parents: 513
diff changeset
    47
operator / (const z1: hwFloat; z2: hwFloat) z : hwFloat;
270f10276d2e - Remove deprecated code
unc0rr
parents: 513
diff changeset
    48
operator / (const z1: hwFloat; const z2: LongInt) z : hwFloat;
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    49
515
270f10276d2e - Remove deprecated code
unc0rr
parents: 513
diff changeset
    50
operator < (const z1, z2: hwFloat) b : boolean;
270f10276d2e - Remove deprecated code
unc0rr
parents: 513
diff changeset
    51
operator > (const z1, z2: hwFloat) b : boolean;
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    52
515
270f10276d2e - Remove deprecated code
unc0rr
parents: 513
diff changeset
    53
function cstr(const z: hwFloat): string;
270f10276d2e - Remove deprecated code
unc0rr
parents: 513
diff changeset
    54
function hwRound(const t: hwFloat): LongInt;
270f10276d2e - Remove deprecated code
unc0rr
parents: 513
diff changeset
    55
function hwAbs(const t: hwFloat): hwFloat;
270f10276d2e - Remove deprecated code
unc0rr
parents: 513
diff changeset
    56
function hwSqr(const t: hwFloat): hwFloat;
270f10276d2e - Remove deprecated code
unc0rr
parents: 513
diff changeset
    57
function hwSqrt(const t: hwFloat): hwFloat;
270f10276d2e - Remove deprecated code
unc0rr
parents: 513
diff changeset
    58
function Distance(const dx, dy: hwFloat): hwFloat;
270f10276d2e - Remove deprecated code
unc0rr
parents: 513
diff changeset
    59
function DistanceI(const dx, dy: LongInt): hwFloat;
270f10276d2e - Remove deprecated code
unc0rr
parents: 513
diff changeset
    60
function AngleSin(const Angle: Longword): hwFloat;
270f10276d2e - Remove deprecated code
unc0rr
parents: 513
diff changeset
    61
function AngleCos(const Angle: Longword): hwFloat;
270f10276d2e - Remove deprecated code
unc0rr
parents: 513
diff changeset
    62
function SignAs(const num, signum: hwFloat): hwFloat;
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    63
538
74219eadab5e - Various small fixes
unc0rr
parents: 515
diff changeset
    64
{$J-}
611
8cf6d27cec86 Fix warnings
unc0rr
parents: 543
diff changeset
    65
{$WARNINGS OFF}
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    66
const  _1div1024: hwFloat = (isNegative: false; QWordValue:     4194304);
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    67
      _1div10000: hwFloat = (isNegative: false; QWordValue:      429496);
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    68
      _1div50000: hwFloat = (isNegative: false; QWordValue:       85899);
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    69
     _1div100000: hwFloat = (isNegative: false; QWordValue:       42950);
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    70
          _1div3: hwFloat = (isNegative: false; QWordValue:  1431655766);
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    71
            hwPi: hwFloat = (isNegative: false; QWordValue: 13493037704);
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    72
       _0_000004: hwFloat = (isNegative: false; QWordValue:       17179);
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    73
         _0_0002: hwFloat = (isNegative: false; QWordValue:      858993);
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    74
          _0_001: hwFloat = (isNegative: false; QWordValue:     4294967);
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    75
          _0_003: hwFloat = (isNegative: false; QWordValue:    12884902);
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    76
          _0_004: hwFloat = (isNegative: false; QWordValue:    17179869);
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    77
          _0_005: hwFloat = (isNegative: false; QWordValue:    21474836);
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    78
           _0_01: hwFloat = (isNegative: false; QWordValue:    42949673);
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    79
           _0_02: hwFloat = (isNegative: false; QWordValue:    85899345);
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    80
           _0_03: hwFloat = (isNegative: false; QWordValue:   128849018);
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    81
           _0_08: hwFloat = (isNegative: false; QWordValue:   343597383);
365
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 358
diff changeset
    82
            _0_1: hwFloat = (isNegative: false; QWordValue:   429496730);
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    83
           _0_15: hwFloat = (isNegative: false; QWordValue:   644245094);
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    84
            _0_2: hwFloat = (isNegative: false; QWordValue:   858993459);
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    85
           _0_25: hwFloat = (isNegative: false; QWordValue:  1073741824);
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    86
            _0_3: hwFloat = (isNegative: false; QWordValue:  1288490189);
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    87
           _0_35: hwFloat = (isNegative: false; QWordValue:  1503238553);
835
6f567934cc44 Automatically use parachute when vertical speed is high enough
unc0rr
parents: 745
diff changeset
    88
           _0_39: hwFloat = (isNegative: false; QWordValue:  1675037245);
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    89
            _0_4: hwFloat = (isNegative: false; QWordValue:  1717986918);
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    90
           _0_45: hwFloat = (isNegative: false; QWordValue:  1932735283);
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    91
            _0_5: hwFloat = (isNegative: false; QWordValue:  2147483648);
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    92
           _0_55: hwFloat = (isNegative: false; QWordValue:  2362232012);
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    93
            _0_6: hwFloat = (isNegative: false; QWordValue:  2576980377);
358
236bbd12d4d9 - New Land Generator
unc0rr
parents: 357
diff changeset
    94
            _0_7: hwFloat = (isNegative: false; QWordValue:  3006477107);
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    95
            _0_8: hwFloat = (isNegative: false; QWordValue:  3435973837);
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    96
           _0_84: hwFloat = (isNegative: false; QWordValue:  3607772528);
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    97
           _0_87: hwFloat = (isNegative: false; QWordValue:  3736621547);
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    98
            _0_9: hwFloat = (isNegative: false; QWordValue:  3865470566);
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
    99
           _0_93: hwFloat = (isNegative: false; QWordValue:  3994319585);
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   100
           _0_96: hwFloat = (isNegative: false; QWordValue:  4123168604);
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   101
          _0_995: hwFloat = (isNegative: false; QWordValue:  4273492459);
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   102
          _0_999: hwFloat = (isNegative: false; QWordValue:  4290672328);
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   103
            _1_9: hwFloat = (isNegative: false; QWordValue:  8160437862);
498
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 493
diff changeset
   104
              _0: hwFloat = (isNegative: false; QWordValue:           0);
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 493
diff changeset
   105
              _1: hwFloat = (isNegative: false; QWordValue:  4294967296);
513
69e06d710d46 Moving hedgehog could get another hedgehog moving forward
unc0rr
parents: 498
diff changeset
   106
            _1_5: hwFloat = (isNegative: false; QWordValue:  4294967296 * 3 div 2);
498
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 493
diff changeset
   107
              _2: hwFloat = (isNegative: false; QWordValue:  4294967296 * 2);
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 493
diff changeset
   108
              _3: hwFloat = (isNegative: false; QWordValue:  4294967296 * 3);
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 493
diff changeset
   109
              _4: hwFloat = (isNegative: false; QWordValue:  4294967296 * 4);
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 493
diff changeset
   110
              _5: hwFloat = (isNegative: false; QWordValue:  4294967296 * 5);
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 493
diff changeset
   111
              _6: hwFloat = (isNegative: false; QWordValue:  4294967296 * 6);
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 493
diff changeset
   112
             _10: hwFloat = (isNegative: false; QWordValue:  4294967296 * 10);
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 493
diff changeset
   113
             _16: hwFloat = (isNegative: false; QWordValue:  4294967296 * 16);
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 493
diff changeset
   114
             _19: hwFloat = (isNegative: false; QWordValue:  4294967296 * 19);
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 493
diff changeset
   115
             _20: hwFloat = (isNegative: false; QWordValue:  4294967296 * 20);
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 493
diff changeset
   116
             _25: hwFloat = (isNegative: false; QWordValue:  4294967296 * 25);
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 493
diff changeset
   117
             _30: hwFloat = (isNegative: false; QWordValue:  4294967296 * 30);
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 493
diff changeset
   118
            _128: hwFloat = (isNegative: false; QWordValue:  4294967296 * 128);
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 493
diff changeset
   119
            _450: hwFloat = (isNegative: false; QWordValue:  4294967296 * 450);
611
8cf6d27cec86 Fix warnings
unc0rr
parents: 543
diff changeset
   120
           _1024: hwFloat = (isNegative: false; QWordValue:  4294967296 * 1024);
8cf6d27cec86 Fix warnings
unc0rr
parents: 543
diff changeset
   121
           _2048: hwFloat = (isNegative: false; QWordValue:  4294967296 * 2048);
498
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 493
diff changeset
   122
          _10000: hwFloat = (isNegative: false; QWordValue:  4294967296 * 10000);
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   123
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   124
         cLittle: hwFloat = (isNegative: false; QWordValue:           1);
538
74219eadab5e - Various small fixes
unc0rr
parents: 515
diff changeset
   125
         cHHKick: hwFloat = (isNegative: false; QWordValue:   128849018);  // _0_03
611
8cf6d27cec86 Fix warnings
unc0rr
parents: 543
diff changeset
   126
{$WARNINGS ON}
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   127
{$ENDIF}
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   128
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   129
{$IFNDEF FPC}
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   130
type hwFloat = Extended;
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   131
{$ENDIF}
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   132
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   133
implementation
744
7a9663194767 - Remove debug
unc0rr
parents: 738
diff changeset
   134
uses uConsts, uMisc;
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   135
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   136
{$IFDEF FPC}
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   137
515
270f10276d2e - Remove deprecated code
unc0rr
parents: 513
diff changeset
   138
function int2hwFloat (const i: LongInt) : hwFloat;
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   139
begin
498
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 493
diff changeset
   140
int2hwFloat.isNegative:= i < 0;
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 493
diff changeset
   141
int2hwFloat.Round:= abs(i);
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 493
diff changeset
   142
int2hwFloat.Frac:= 0
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   143
end;
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   144
515
270f10276d2e - Remove deprecated code
unc0rr
parents: 513
diff changeset
   145
operator + (const z1, z2: hwFloat) z : hwFloat;
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   146
begin
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   147
if z1.isNegative = z2.isNegative then
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   148
   begin
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   149
   z.isNegative:= z1.isNegative;
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   150
   z.QWordValue:= z1.QWordValue + z2.QWordValue
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   151
   end
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   152
else
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   153
   if z1.QWordValue > z2.QWordValue then
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   154
      begin
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   155
      z.isNegative:= z1.isNegative;
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   156
      z.QWordValue:= z1.QWordValue - z2.QWordValue
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   157
      end else
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   158
      begin
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   159
      z.isNegative:= z2.isNegative;
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   160
      z.QWordValue:= z2.QWordValue - z1.QWordValue
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   161
      end
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   162
end;
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   163
515
270f10276d2e - Remove deprecated code
unc0rr
parents: 513
diff changeset
   164
operator - (const z1, z2: hwFloat) z : hwFloat;
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   165
begin
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   166
if z1.isNegative = z2.isNegative then
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   167
   if z1.QWordValue > z2.QWordValue then
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   168
      begin
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   169
      z.isNegative:= z1.isNegative;
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   170
      z.QWordValue:= z1.QWordValue - z2.QWordValue
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   171
      end else
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   172
      begin
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   173
      z.isNegative:= not z2.isNegative;
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   174
      z.QWordValue:= z2.QWordValue - z1.QWordValue
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   175
      end
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   176
else begin
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   177
     z.isNegative:= z1.isNegative;
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   178
     z.QWordValue:= z1.QWordValue + z2.QWordValue
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   179
     end
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   180
end;
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   181
515
270f10276d2e - Remove deprecated code
unc0rr
parents: 513
diff changeset
   182
operator - (const z1: hwFloat) z : hwFloat;
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   183
begin
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   184
z:= z1;
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   185
z.isNegative:= not z.isNegative
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   186
end;
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   187
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   188
515
270f10276d2e - Remove deprecated code
unc0rr
parents: 513
diff changeset
   189
operator * (const z1, z2: hwFloat) z : hwFloat;
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   190
begin
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   191
z.isNegative:= z1.isNegative xor z2.isNegative;
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   192
z.QWordValue:= QWord(z1.Round) * z2.Frac +
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   193
               QWord(z1.Frac) * z2.Round +
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   194
               ((QWord(z1.Frac) * z2.Frac) shr 32);
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   195
z.Round:= z.Round + QWord(z1.Round) * z2.Round;
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   196
end;
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   197
515
270f10276d2e - Remove deprecated code
unc0rr
parents: 513
diff changeset
   198
operator * (const z1: hwFloat; const z2: LongInt) z : hwFloat;
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   199
begin
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   200
z.isNegative:= z1.isNegative xor (z2 < 0);
515
270f10276d2e - Remove deprecated code
unc0rr
parents: 513
diff changeset
   201
z.QWordValue:= z1.QWordValue * abs(z2)
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   202
end;
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   203
515
270f10276d2e - Remove deprecated code
unc0rr
parents: 513
diff changeset
   204
operator / (const z1: hwFloat; z2: hwFloat) z : hwFloat;
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   205
var t: hwFloat;
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   206
begin
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   207
z.isNegative:= z1.isNegative xor z2.isNegative;
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   208
z.Round:= z1.QWordValue div z2.QWordValue;
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   209
t:= z1 - z2 * z.Round;
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   210
if t.QWordValue = 0 then
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   211
   z.Frac:= 0
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   212
else
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   213
   begin
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   214
   while ((t.QWordValue and $8000000000000000) = 0) and
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   215
         ((z2.QWordValue and $8000000000000000) = 0) do
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   216
         begin
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   217
         t.QWordValue:= t.QWordValue shl 1;
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   218
         z2.QWordValue:= z2.QWordValue shl 1
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   219
         end;
543
465e2ec8f05f - Better randomness of placing hedgehogs on the land
unc0rr
parents: 538
diff changeset
   220
   if z2.Round > 0 then z.Frac:= (t.QWordValue) div (z2.Round)
465e2ec8f05f - Better randomness of placing hedgehogs on the land
unc0rr
parents: 538
diff changeset
   221
                   else z.Frac:= 0
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   222
   end
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   223
end;
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   224
515
270f10276d2e - Remove deprecated code
unc0rr
parents: 513
diff changeset
   225
operator / (const z1: hwFloat; const z2: LongInt) z : hwFloat;
498
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 493
diff changeset
   226
begin
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 493
diff changeset
   227
z.isNegative:= z1.isNegative xor (z2 < 0);
515
270f10276d2e - Remove deprecated code
unc0rr
parents: 513
diff changeset
   228
z.QWordValue:= z1.QWordValue div abs(z2)
498
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 493
diff changeset
   229
end;
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 493
diff changeset
   230
515
270f10276d2e - Remove deprecated code
unc0rr
parents: 513
diff changeset
   231
operator < (const z1, z2: hwFloat) b : boolean;
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   232
begin
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   233
if z1.isNegative <> z2.isNegative then
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   234
   b:= z1.isNegative
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   235
else
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   236
   if z1.QWordValue = z2.QWordValue then
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   237
      b:= false
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   238
   else
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   239
      b:= (z1.QWordValue < z2.QWordValue) xor z1.isNegative
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   240
end;
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   241
515
270f10276d2e - Remove deprecated code
unc0rr
parents: 513
diff changeset
   242
operator > (const z1, z2: hwFloat) b : boolean;
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   243
begin
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   244
if z1.isNegative <> z2.isNegative then
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   245
   b:= z2.isNegative
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   246
else
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   247
   if z1.QWordValue = z2.QWordValue then
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   248
      b:= false
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   249
   else
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   250
      b:= (z1.QWordValue > z2.QWordValue) xor z2.isNegative
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   251
end;
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   252
515
270f10276d2e - Remove deprecated code
unc0rr
parents: 513
diff changeset
   253
function cstr(const z: hwFloat): string;
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   254
var tmpstr: string;
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   255
begin
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   256
str(z.Round, cstr);
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   257
if z.Frac <> 0 then
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   258
   begin
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   259
   str(z.Frac / $100000000:1:15, tmpstr);
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   260
   delete(tmpstr, 1, 2);
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   261
   cstr:= cstr + '.' + tmpstr
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   262
   end;
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   263
if z.isNegative then cstr:= '-' + cstr
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   264
end;
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   265
515
270f10276d2e - Remove deprecated code
unc0rr
parents: 513
diff changeset
   266
function hwRound(const t: hwFloat): LongInt;
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   267
begin
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   268
if t.isNegative then hwRound:= -t.Round
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   269
                else hwRound:= t.Round
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   270
end;
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   271
515
270f10276d2e - Remove deprecated code
unc0rr
parents: 513
diff changeset
   272
function hwAbs(const t: hwFloat): hwFloat;
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   273
begin
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   274
hwAbs:= t;
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   275
hwAbs.isNegative:= false
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   276
end;
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   277
515
270f10276d2e - Remove deprecated code
unc0rr
parents: 513
diff changeset
   278
function hwSqr(const t: hwFloat): hwFloat;
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   279
begin
738
d7f640e99b17 Ignore many files, created by build system
unc0rr
parents: 611
diff changeset
   280
hwSqr.isNegative:=false;
d7f640e99b17 Ignore many files, created by build system
unc0rr
parents: 611
diff changeset
   281
hwSqr.QWordValue:= QWord(t.Round) * t.Frac * 2 + ((QWord(t.Frac) * t.Frac) shr 32);
d7f640e99b17 Ignore many files, created by build system
unc0rr
parents: 611
diff changeset
   282
hwSqr.Round:= hwSqr.Round + QWord(t.Round) * t.Round
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   283
end;
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   284
515
270f10276d2e - Remove deprecated code
unc0rr
parents: 513
diff changeset
   285
function hwSqrt(const t: hwFloat): hwFloat;
738
d7f640e99b17 Ignore many files, created by build system
unc0rr
parents: 611
diff changeset
   286
var l, r: QWord;
d7f640e99b17 Ignore many files, created by build system
unc0rr
parents: 611
diff changeset
   287
    c: hwFloat;
357
165a040e4cfa - Fix Blow Torch and Air Attack
unc0rr
parents: 355
diff changeset
   288
begin
165a040e4cfa - Fix Blow Torch and Air Attack
unc0rr
parents: 355
diff changeset
   289
hwSqrt.isNegative:= false;
744
7a9663194767 - Remove debug
unc0rr
parents: 738
diff changeset
   290
7a9663194767 - Remove debug
unc0rr
parents: 738
diff changeset
   291
if t.Round = 0 then
7a9663194767 - Remove debug
unc0rr
parents: 738
diff changeset
   292
   begin
7a9663194767 - Remove debug
unc0rr
parents: 738
diff changeset
   293
   l:= t.QWordValue;
7a9663194767 - Remove debug
unc0rr
parents: 738
diff changeset
   294
   r:= $100000000
7a9663194767 - Remove debug
unc0rr
parents: 738
diff changeset
   295
   end else
7a9663194767 - Remove debug
unc0rr
parents: 738
diff changeset
   296
   begin
7a9663194767 - Remove debug
unc0rr
parents: 738
diff changeset
   297
   l:= $100000000;
745
43b344488804 Perform small optimization of sqrt
unc0rr
parents: 744
diff changeset
   298
   r:= t.QWordValue div 2 + $80000000 // r:= t / 2 + 0.5 
744
7a9663194767 - Remove debug
unc0rr
parents: 738
diff changeset
   299
   end;
7a9663194767 - Remove debug
unc0rr
parents: 738
diff changeset
   300
738
d7f640e99b17 Ignore many files, created by build system
unc0rr
parents: 611
diff changeset
   301
repeat
d7f640e99b17 Ignore many files, created by build system
unc0rr
parents: 611
diff changeset
   302
  c.QWordValue:= (l + r) div 2;
d7f640e99b17 Ignore many files, created by build system
unc0rr
parents: 611
diff changeset
   303
  if hwSqr(c).QWordValue > t.QWordValue then r:= c.QWordValue else l:= c.QWordValue
d7f640e99b17 Ignore many files, created by build system
unc0rr
parents: 611
diff changeset
   304
until r - l <= 1;
744
7a9663194767 - Remove debug
unc0rr
parents: 738
diff changeset
   305
738
d7f640e99b17 Ignore many files, created by build system
unc0rr
parents: 611
diff changeset
   306
hwSqrt.QWordValue:= l
357
165a040e4cfa - Fix Blow Torch and Air Attack
unc0rr
parents: 355
diff changeset
   307
end;
165a040e4cfa - Fix Blow Torch and Air Attack
unc0rr
parents: 355
diff changeset
   308
515
270f10276d2e - Remove deprecated code
unc0rr
parents: 513
diff changeset
   309
function Distance(const dx, dy: hwFloat): hwFloat;
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   310
begin
738
d7f640e99b17 Ignore many files, created by build system
unc0rr
parents: 611
diff changeset
   311
Distance:= hwSqrt(hwSqr(dx) + hwSqr(dy))
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   312
end;
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   313
515
270f10276d2e - Remove deprecated code
unc0rr
parents: 513
diff changeset
   314
function DistanceI(const dx, dy: LongInt): hwFloat;
498
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 493
diff changeset
   315
begin
856
beecc5c5c71c - Fix braindead shotgun shot arithmetics
unc0rr
parents: 835
diff changeset
   316
DistanceI:= hwSqrt(int2hwFloat(sqr(dx) + sqr(dy)))
498
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 493
diff changeset
   317
end;
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 493
diff changeset
   318
515
270f10276d2e - Remove deprecated code
unc0rr
parents: 513
diff changeset
   319
function SignAs(const num, signum: hwFloat): hwFloat;
498
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 493
diff changeset
   320
begin
856
beecc5c5c71c - Fix braindead shotgun shot arithmetics
unc0rr
parents: 835
diff changeset
   321
SignAs.QWordValue:= num.QWordValue;
498
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 493
diff changeset
   322
SignAs.isNegative:= signum.isNegative
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 493
diff changeset
   323
end;
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 493
diff changeset
   324
357
165a040e4cfa - Fix Blow Torch and Air Attack
unc0rr
parents: 355
diff changeset
   325
{$INCLUDE SinTable.inc}
165a040e4cfa - Fix Blow Torch and Air Attack
unc0rr
parents: 355
diff changeset
   326
515
270f10276d2e - Remove deprecated code
unc0rr
parents: 513
diff changeset
   327
function AngleSin(const Angle: Longword): hwFloat;
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   328
begin
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   329
AngleSin.isNegative:= false;
357
165a040e4cfa - Fix Blow Torch and Air Attack
unc0rr
parents: 355
diff changeset
   330
if Angle < 1024 then AngleSin.QWordValue:= SinTable[Angle]
165a040e4cfa - Fix Blow Torch and Air Attack
unc0rr
parents: 355
diff changeset
   331
                else AngleSin.QWordValue:= SinTable[2048 - Angle]
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   332
end;
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   333
515
270f10276d2e - Remove deprecated code
unc0rr
parents: 513
diff changeset
   334
function AngleCos(const Angle: Longword): hwFloat;
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   335
begin
357
165a040e4cfa - Fix Blow Torch and Air Attack
unc0rr
parents: 355
diff changeset
   336
AngleCos.isNegative:= Angle > 1024;
165a040e4cfa - Fix Blow Torch and Air Attack
unc0rr
parents: 355
diff changeset
   337
if Angle < 1024 then AngleCos.QWordValue:= SinTable[1024 - Angle]
165a040e4cfa - Fix Blow Torch and Air Attack
unc0rr
parents: 355
diff changeset
   338
                else AngleCos.QWordValue:= SinTable[Angle - 1024]
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   339
end;
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   340
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   341
{$ENDIF}
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   342
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents:
diff changeset
   343
end.