author | nemo |
Fri, 24 Aug 2012 18:51:29 -0400 | |
changeset 7594 | 5f03595335e6 |
parent 7593 | b966e2d833f2 |
child 7614 | 3ae60c8a15f2 |
permissions | -rw-r--r-- |
351 | 1 |
(* |
1066 | 2 |
* Hedgewars, a free turn based strategy game |
6700 | 3 |
* Copyright (c) 2004-2012 Andrey Korotaev <unC0Rr@gmail.com> |
351 | 4 |
* |
5 |
* This program is free software; you can redistribute it and/or modify |
|
6 |
* it under the terms of the GNU General Public License as published by |
|
7 |
* the Free Software Foundation; version 2 of the License |
|
8 |
* |
|
9 |
* This program is distributed in the hope that it will be useful, |
|
10 |
* but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
11 |
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
12 |
* GNU General Public License for more details. |
|
13 |
* |
|
14 |
* You should have received a copy of the GNU General Public License |
|
15 |
* along with this program; if not, write to the Free Software |
|
16 |
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA |
|
17 |
*) |
|
18 |
||
2630 | 19 |
{$INCLUDE "options.inc"} |
20 |
||
351 | 21 |
unit uFloat; |
5122 | 22 |
(* |
23 |
* This unit provides a custom data type, hwFloat. |
|
24 |
* |
|
25 |
* hwFloat represents a floating point number - the value and operations |
|
26 |
* of this numbers are independent from the hardware architecture |
|
27 |
* the game runs on. |
|
28 |
* |
|
29 |
* This is important for calculations that affect the course of the game |
|
30 |
* and would lead to different results if based on a hardware dependent |
|
31 |
* data type. |
|
32 |
* |
|
33 |
* Note: Not all comparisons are implemented. |
|
34 |
* |
|
35 |
* Note: Below you'll find a list of hwFloat constants: |
|
36 |
* E.g. _1 is an hwFloat with value 1.0, and -_0_9 is -0.9 |
|
5124 | 37 |
* Use and extend the list if needed, rather than using int2hwFloat() |
38 |
* with integer constants. |
|
5122 | 39 |
*) |
351 | 40 |
interface |
41 |
||
42 |
{$IFDEF FPC} |
|
2599 | 43 |
{$IFDEF ENDIAN_LITTLE} |
351 | 44 |
type hwFloat = record |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
45 |
isNegative: boolean; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
46 |
case byte of |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
47 |
0: (Frac, Round: Longword); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
48 |
1: (QWordValue : QWord); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
49 |
end; |
2599 | 50 |
{$ELSE} |
351 | 51 |
type hwFloat = record |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
52 |
isNegative: boolean; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
53 |
case byte of |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
54 |
0: (Round, Frac: Longword); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
55 |
1: (QWordValue : QWord); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
56 |
end; |
2599 | 57 |
{$ENDIF} |
351 | 58 |
|
5122 | 59 |
// Returns an hwFloat that represents the value of integer parameter i |
3599 | 60 |
function int2hwFloat (const i: LongInt) : hwFloat; inline; |
5151
cbadb9fa52fc
An experiment - make bazooka AI use float instead of hwFloat - should be as accurate, but faster.
nemo
parents:
5124
diff
changeset
|
61 |
function hwFloat2Float (const i: hwFloat) : extended; inline; |
351 | 62 |
|
5122 | 63 |
// The implemented operators |
64 |
||
6415 | 65 |
operator = (const z1, z2: hwFloat) z : boolean; inline; |
7043
7c080e5ac8d0
Some work to make more units compile after conversion to c
unc0rr
parents:
7042
diff
changeset
|
66 |
{$IFDEF PAS2C} |
7042
de20086a6bcc
Support overloaded operators on (hwFloat op hwFloat) calls
unc0rr
parents:
6879
diff
changeset
|
67 |
operator <> (const z1, z2: hwFloat) z : boolean; inline; |
7043
7c080e5ac8d0
Some work to make more units compile after conversion to c
unc0rr
parents:
7042
diff
changeset
|
68 |
{$ENDIF} |
3599 | 69 |
operator + (const z1, z2: hwFloat) z : hwFloat; inline; |
70 |
operator - (const z1, z2: hwFloat) z : hwFloat; inline; |
|
3929
9a4bbc1f67a2
Inline most of uFloat (saves ~7.5% opcount on a test game), inline a few very short candidates in uMisc, comment out some unused functions in uMisc
nemo
parents:
3599
diff
changeset
|
71 |
operator - (const z1: hwFloat) z : hwFloat; inline; |
351 | 72 |
|
3929
9a4bbc1f67a2
Inline most of uFloat (saves ~7.5% opcount on a test game), inline a few very short candidates in uMisc, comment out some unused functions in uMisc
nemo
parents:
3599
diff
changeset
|
73 |
operator * (const z1, z2: hwFloat) z : hwFloat; inline; |
3599 | 74 |
operator * (const z1: hwFloat; const z2: LongInt) z : hwFloat; inline; |
3929
9a4bbc1f67a2
Inline most of uFloat (saves ~7.5% opcount on a test game), inline a few very short candidates in uMisc, comment out some unused functions in uMisc
nemo
parents:
3599
diff
changeset
|
75 |
operator / (const z1: hwFloat; z2: hwFloat) z : hwFloat; inline; |
9a4bbc1f67a2
Inline most of uFloat (saves ~7.5% opcount on a test game), inline a few very short candidates in uMisc, comment out some unused functions in uMisc
nemo
parents:
3599
diff
changeset
|
76 |
operator / (const z1: hwFloat; const z2: LongInt) z : hwFloat; inline; |
351 | 77 |
|
3929
9a4bbc1f67a2
Inline most of uFloat (saves ~7.5% opcount on a test game), inline a few very short candidates in uMisc, comment out some unused functions in uMisc
nemo
parents:
3599
diff
changeset
|
78 |
operator < (const z1, z2: hwFloat) b : boolean; inline; |
9a4bbc1f67a2
Inline most of uFloat (saves ~7.5% opcount on a test game), inline a few very short candidates in uMisc, comment out some unused functions in uMisc
nemo
parents:
3599
diff
changeset
|
79 |
operator > (const z1, z2: hwFloat) b : boolean; inline; |
351 | 80 |
|
5122 | 81 |
|
82 |
// Various functions for hwFloat (some are inlined in the resulting code for better performance) |
|
83 |
||
84 |
function cstr(const z: hwFloat): shortstring; // Returns a shortstring representations of the hwFloat. |
|
85 |
function hwRound(const t: hwFloat): LongInt; inline; // Does NOT really round but returns the integer representation of the hwFloat without fractional digits. (-_0_9 -> -0, _1_5 -> _1) |
|
86 |
function hwAbs(const t: hwFloat): hwFloat; inline; // Returns the value of t with positive sign. |
|
87 |
function hwSqr(const t: hwFloat): hwFloat; inline; // Returns the square value of parameter t. |
|
6785 | 88 |
function hwPow(const t: hwFloat; p: LongWord): hwFloat; inline; // Returns the power of the value |
5122 | 89 |
function hwSqrt(const t: hwFloat): hwFloat; inline; // Returns the the positive square root of parameter t. |
90 |
function Distance(const dx, dy: hwFloat): hwFloat; // Returns the distance between two points in 2-dimensional space, of which the parameters are the horizontal and vertical distance. |
|
91 |
function DistanceI(const dx, dy: LongInt): hwFloat; // Same as above for integer parameters. |
|
515 | 92 |
function AngleSin(const Angle: Longword): hwFloat; |
93 |
function AngleCos(const Angle: Longword): hwFloat; |
|
5122 | 94 |
function SignAs(const num, signum: hwFloat): hwFloat; inline; // Returns an hwFloat with the value of parameter num and the sign of signum. |
95 |
function hwSign(r: hwFloat): LongInt; inline; // Returns an integer with value 1 and sign of parameter r. |
|
6879 | 96 |
function hwSignf(r: real): LongInt; inline; // Returns an integer with value 1 and sign of parameter r. |
5599
2e4b90f33a83
aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen
Xeli
parents:
5319
diff
changeset
|
97 |
function isZero(const z: hwFloat): boolean; inline; |
2599 | 98 |
{$IFDEF FPC} |
538 | 99 |
{$J-} |
2599 | 100 |
{$ENDIF} |
611 | 101 |
{$WARNINGS OFF} |
5122 | 102 |
|
103 |
||
104 |
// some hwFloat constants |
|
105 |
||
351 | 106 |
const _1div1024: hwFloat = (isNegative: false; QWordValue: 4194304); |
107 |
_1div10000: hwFloat = (isNegative: false; QWordValue: 429496); |
|
108 |
_1div50000: hwFloat = (isNegative: false; QWordValue: 85899); |
|
109 |
_1div100000: hwFloat = (isNegative: false; QWordValue: 42950); |
|
110 |
_1div3: hwFloat = (isNegative: false; QWordValue: 1431655766); |
|
111 |
hwPi: hwFloat = (isNegative: false; QWordValue: 13493037704); |
|
112 |
_0_000004: hwFloat = (isNegative: false; QWordValue: 17179); |
|
3591 | 113 |
_0_000064: hwFloat = (isNegative: false; QWordValue: 274878); |
351 | 114 |
_0_0002: hwFloat = (isNegative: false; QWordValue: 858993); |
1586 | 115 |
_0_0005: hwFloat = (isNegative: false; QWordValue: 2147484); |
351 | 116 |
_0_001: hwFloat = (isNegative: false; QWordValue: 4294967); |
117 |
_0_003: hwFloat = (isNegative: false; QWordValue: 12884902); |
|
118 |
_0_004: hwFloat = (isNegative: false; QWordValue: 17179869); |
|
119 |
_0_005: hwFloat = (isNegative: false; QWordValue: 21474836); |
|
3428 | 120 |
_0_008: hwFloat = (isNegative: false; QWordValue: 34359738); |
351 | 121 |
_0_01: hwFloat = (isNegative: false; QWordValue: 42949673); |
7593
b966e2d833f2
An attempt to run main rope code only every 8th tick:
unc0rr
parents:
7515
diff
changeset
|
122 |
_0_0128: hwFloat = (isNegative: false; QWordValue: 54975581); |
351 | 123 |
_0_02: hwFloat = (isNegative: false; QWordValue: 85899345); |
124 |
_0_03: hwFloat = (isNegative: false; QWordValue: 128849018); |
|
6295
5b2b304a91ec
Due to the small values and friction, halve the step in low gravity, instead of the value
nemo
parents:
5843
diff
changeset
|
125 |
_0_07: hwFloat = (isNegative: false; QWordValue: 300647710); |
351 | 126 |
_0_08: hwFloat = (isNegative: false; QWordValue: 343597383); |
365 | 127 |
_0_1: hwFloat = (isNegative: false; QWordValue: 429496730); |
351 | 128 |
_0_15: hwFloat = (isNegative: false; QWordValue: 644245094); |
129 |
_0_2: hwFloat = (isNegative: false; QWordValue: 858993459); |
|
130 |
_0_25: hwFloat = (isNegative: false; QWordValue: 1073741824); |
|
131 |
_0_3: hwFloat = (isNegative: false; QWordValue: 1288490189); |
|
132 |
_0_35: hwFloat = (isNegative: false; QWordValue: 1503238553); |
|
2784 | 133 |
_0_375: hwFloat = (isNegative: false; QWordValue: 4294967296 * 3 div 8); |
835
6f567934cc44
Automatically use parachute when vertical speed is high enough
unc0rr
parents:
745
diff
changeset
|
134 |
_0_39: hwFloat = (isNegative: false; QWordValue: 1675037245); |
351 | 135 |
_0_4: hwFloat = (isNegative: false; QWordValue: 1717986918); |
136 |
_0_45: hwFloat = (isNegative: false; QWordValue: 1932735283); |
|
137 |
_0_5: hwFloat = (isNegative: false; QWordValue: 2147483648); |
|
138 |
_0_55: hwFloat = (isNegative: false; QWordValue: 2362232012); |
|
139 |
_0_6: hwFloat = (isNegative: false; QWordValue: 2576980377); |
|
3583 | 140 |
_0_64: hwFloat = (isNegative: false; QWordValue: 2748779064); |
358 | 141 |
_0_7: hwFloat = (isNegative: false; QWordValue: 3006477107); |
351 | 142 |
_0_8: hwFloat = (isNegative: false; QWordValue: 3435973837); |
143 |
_0_84: hwFloat = (isNegative: false; QWordValue: 3607772528); |
|
144 |
_0_87: hwFloat = (isNegative: false; QWordValue: 3736621547); |
|
145 |
_0_9: hwFloat = (isNegative: false; QWordValue: 3865470566); |
|
146 |
_0_93: hwFloat = (isNegative: false; QWordValue: 3994319585); |
|
147 |
_0_96: hwFloat = (isNegative: false; QWordValue: 4123168604); |
|
148 |
_0_995: hwFloat = (isNegative: false; QWordValue: 4273492459); |
|
149 |
_0_999: hwFloat = (isNegative: false; QWordValue: 4290672328); |
|
498 | 150 |
_0: hwFloat = (isNegative: false; QWordValue: 0); |
151 |
_1: hwFloat = (isNegative: false; QWordValue: 4294967296); |
|
513
69e06d710d46
Moving hedgehog could get another hedgehog moving forward
unc0rr
parents:
498
diff
changeset
|
152 |
_1_5: hwFloat = (isNegative: false; QWordValue: 4294967296 * 3 div 2); |
7593
b966e2d833f2
An attempt to run main rope code only every 8th tick:
unc0rr
parents:
7515
diff
changeset
|
153 |
_1_6: hwFloat = (isNegative: false; QWordValue: 4294967296 * 8 div 5); |
3584 | 154 |
_1_9: hwFloat = (isNegative: false; QWordValue: 8160437862); |
498 | 155 |
_2: hwFloat = (isNegative: false; QWordValue: 4294967296 * 2); |
7593
b966e2d833f2
An attempt to run main rope code only every 8th tick:
unc0rr
parents:
7515
diff
changeset
|
156 |
_2_4: hwFloat = (isNegative: false; QWordValue: 4294967296 * 12 div 5); |
498 | 157 |
_3: hwFloat = (isNegative: false; QWordValue: 4294967296 * 3); |
6785 | 158 |
_PI: hwFloat = (isNegative: false; QWordValue: 13493037704); |
498 | 159 |
_4: hwFloat = (isNegative: false; QWordValue: 4294967296 * 4); |
6498 | 160 |
_4_5: hwFloat = (isNegative: false; QWordValue: 4294967296 * 9 div 2); |
498 | 161 |
_5: hwFloat = (isNegative: false; QWordValue: 4294967296 * 5); |
162 |
_6: hwFloat = (isNegative: false; QWordValue: 4294967296 * 6); |
|
7594 | 163 |
_6_4: hwFloat = (isNegative: false; QWordValue: 3435973837 * 8); |
7593
b966e2d833f2
An attempt to run main rope code only every 8th tick:
unc0rr
parents:
7515
diff
changeset
|
164 |
_7: hwFloat = (isNegative: false; QWordValue: 4294967296 * 7); |
498 | 165 |
_10: hwFloat = (isNegative: false; QWordValue: 4294967296 * 10); |
3422
41ae3c48faa0
* some changes/cleanups to portal, still much to do :/ * reverted nemo's temporary loop fix * notice: small loops possible again, so take care :P, bigger onces should be interrupted
sheepluva
parents:
3407
diff
changeset
|
166 |
_12: hwFloat = (isNegative: false; QWordValue: 4294967296 * 12); |
498 | 167 |
_16: hwFloat = (isNegative: false; QWordValue: 4294967296 * 16); |
168 |
_19: hwFloat = (isNegative: false; QWordValue: 4294967296 * 19); |
|
169 |
_20: hwFloat = (isNegative: false; QWordValue: 4294967296 * 20); |
|
170 |
_25: hwFloat = (isNegative: false; QWordValue: 4294967296 * 25); |
|
171 |
_30: hwFloat = (isNegative: false; QWordValue: 4294967296 * 30); |
|
2955
fb361d137524
Tweak to joke in french locale (everyone always fixes the spelling) updated explosive frames from Palewolf, increase explosive fall damage from 30 to 40
nemo
parents:
2948
diff
changeset
|
172 |
_40: hwFloat = (isNegative: false; QWordValue: 4294967296 * 40); |
7594 | 173 |
_41: hwFloat = (isNegative: false; QWordValue: 4294967296 * 41); |
7593
b966e2d833f2
An attempt to run main rope code only every 8th tick:
unc0rr
parents:
7515
diff
changeset
|
174 |
_49: hwFloat = (isNegative: false; QWordValue: 4294967296 * 49); |
3036
c6ba6531cb4b
Make barrels a little more likely to blow up. 25% more damage in fall
nemo
parents:
2955
diff
changeset
|
175 |
_50: hwFloat = (isNegative: false; QWordValue: 4294967296 * 50); |
2933 | 176 |
_70: hwFloat = (isNegative: false; QWordValue: 4294967296 * 70); |
5599
2e4b90f33a83
aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen
Xeli
parents:
5319
diff
changeset
|
177 |
_90: hwFloat = (isNegative: false; QWordValue: 4294967296 * 90); |
498 | 178 |
_128: hwFloat = (isNegative: false; QWordValue: 4294967296 * 128); |
5599
2e4b90f33a83
aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen
Xeli
parents:
5319
diff
changeset
|
179 |
_180: hwFloat = (isNegative: false; QWordValue: 4294967296 * 180); |
5319
51d8e4747876
bounce. tweak of values, remove friction modifier, move to weapon, to match timer behaviour
nemo
parents:
5192
diff
changeset
|
180 |
_250: hwFloat = (isNegative: false; QWordValue: 4294967296 * 250); |
1915 | 181 |
_256: hwFloat = (isNegative: false; QWordValue: 4294967296 * 256); |
1124 | 182 |
_300: hwFloat = (isNegative: false; QWordValue: 4294967296 * 300); |
5599
2e4b90f33a83
aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen
Xeli
parents:
5319
diff
changeset
|
183 |
_360: hwFloat = (isNegative: false; QWordValue: 4294967296 * 360); |
498 | 184 |
_450: hwFloat = (isNegative: false; QWordValue: 4294967296 * 450); |
5319
51d8e4747876
bounce. tweak of values, remove friction modifier, move to weapon, to match timer behaviour
nemo
parents:
5192
diff
changeset
|
185 |
_1000: hwFloat = (isNegative: false; QWordValue: 4294967296 * 1000); |
611 | 186 |
_1024: hwFloat = (isNegative: false; QWordValue: 4294967296 * 1024); |
187 |
_2048: hwFloat = (isNegative: false; QWordValue: 4294967296 * 2048); |
|
1753 | 188 |
_4096: hwFloat = (isNegative: false; QWordValue: 4294967296 * 4096); |
498 | 189 |
_10000: hwFloat = (isNegative: false; QWordValue: 4294967296 * 10000); |
351 | 190 |
|
191 |
cLittle: hwFloat = (isNegative: false; QWordValue: 1); |
|
967 | 192 |
cHHKick: hwFloat = (isNegative: false; QWordValue: 42949673); // _0_01 |
611 | 193 |
{$WARNINGS ON} |
351 | 194 |
{$ENDIF} |
195 |
||
196 |
{$IFNDEF FPC} |
|
197 |
type hwFloat = Extended; |
|
198 |
{$ENDIF} |
|
199 |
||
200 |
implementation |
|
4415 | 201 |
uses uSinTable; |
351 | 202 |
|
3599 | 203 |
|
351 | 204 |
{$IFDEF FPC} |
205 |
||
515 | 206 |
function int2hwFloat (const i: LongInt) : hwFloat; |
351 | 207 |
begin |
498 | 208 |
int2hwFloat.isNegative:= i < 0; |
209 |
int2hwFloat.Round:= abs(i); |
|
210 |
int2hwFloat.Frac:= 0 |
|
351 | 211 |
end; |
212 |
||
5151
cbadb9fa52fc
An experiment - make bazooka AI use float instead of hwFloat - should be as accurate, but faster.
nemo
parents:
5124
diff
changeset
|
213 |
function hwFloat2Float (const i: hwFloat) : extended; |
cbadb9fa52fc
An experiment - make bazooka AI use float instead of hwFloat - should be as accurate, but faster.
nemo
parents:
5124
diff
changeset
|
214 |
begin |
cbadb9fa52fc
An experiment - make bazooka AI use float instead of hwFloat - should be as accurate, but faster.
nemo
parents:
5124
diff
changeset
|
215 |
hwFloat2Float:= i.QWordValue / $100000000; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
216 |
if i.isNegative then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
217 |
hwFloat2Float:= -hwFloat2Float; |
5151
cbadb9fa52fc
An experiment - make bazooka AI use float instead of hwFloat - should be as accurate, but faster.
nemo
parents:
5124
diff
changeset
|
218 |
end; |
cbadb9fa52fc
An experiment - make bazooka AI use float instead of hwFloat - should be as accurate, but faster.
nemo
parents:
5124
diff
changeset
|
219 |
|
6415 | 220 |
operator = (const z1, z2: hwFloat) z : boolean; inline; |
5599
2e4b90f33a83
aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen
Xeli
parents:
5319
diff
changeset
|
221 |
begin |
5665 | 222 |
z:= (z1.isNegative = z2.isNegative) and (z1.QWordValue = z2.QWordValue); |
5599
2e4b90f33a83
aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen
Xeli
parents:
5319
diff
changeset
|
223 |
end; |
2e4b90f33a83
aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen
Xeli
parents:
5319
diff
changeset
|
224 |
|
7043
7c080e5ac8d0
Some work to make more units compile after conversion to c
unc0rr
parents:
7042
diff
changeset
|
225 |
{$IFDEF PAS2C} |
7042
de20086a6bcc
Support overloaded operators on (hwFloat op hwFloat) calls
unc0rr
parents:
6879
diff
changeset
|
226 |
operator <> (const z1, z2: hwFloat) z : boolean; inline; |
de20086a6bcc
Support overloaded operators on (hwFloat op hwFloat) calls
unc0rr
parents:
6879
diff
changeset
|
227 |
begin |
de20086a6bcc
Support overloaded operators on (hwFloat op hwFloat) calls
unc0rr
parents:
6879
diff
changeset
|
228 |
z:= (z1.isNegative <> z2.isNegative) or (z1.QWordValue <> z2.QWordValue); |
de20086a6bcc
Support overloaded operators on (hwFloat op hwFloat) calls
unc0rr
parents:
6879
diff
changeset
|
229 |
end; |
7043
7c080e5ac8d0
Some work to make more units compile after conversion to c
unc0rr
parents:
7042
diff
changeset
|
230 |
{$ENDIF} |
7042
de20086a6bcc
Support overloaded operators on (hwFloat op hwFloat) calls
unc0rr
parents:
6879
diff
changeset
|
231 |
|
515 | 232 |
operator + (const z1, z2: hwFloat) z : hwFloat; |
351 | 233 |
begin |
234 |
if z1.isNegative = z2.isNegative then |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
235 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
236 |
z.isNegative:= z1.isNegative; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
237 |
z.QWordValue:= z1.QWordValue + z2.QWordValue |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
238 |
end |
351 | 239 |
else |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
240 |
if z1.QWordValue > z2.QWordValue then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
241 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
242 |
z.isNegative:= z1.isNegative; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
243 |
z.QWordValue:= z1.QWordValue - z2.QWordValue |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
244 |
end |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
245 |
else |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
246 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
247 |
z.isNegative:= z2.isNegative; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
248 |
z.QWordValue:= z2.QWordValue - z1.QWordValue |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
249 |
end |
351 | 250 |
end; |
251 |
||
515 | 252 |
operator - (const z1, z2: hwFloat) z : hwFloat; |
351 | 253 |
begin |
254 |
if z1.isNegative = z2.isNegative then |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
255 |
if z1.QWordValue > z2.QWordValue then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
256 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
257 |
z.isNegative:= z1.isNegative; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
258 |
z.QWordValue:= z1.QWordValue - z2.QWordValue |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
259 |
end |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
260 |
else |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
261 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
262 |
z.isNegative:= not z2.isNegative; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
263 |
z.QWordValue:= z2.QWordValue - z1.QWordValue |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
264 |
end |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
265 |
else |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
266 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
267 |
z.isNegative:= z1.isNegative; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
268 |
z.QWordValue:= z1.QWordValue + z2.QWordValue |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
269 |
end |
351 | 270 |
end; |
271 |
||
515 | 272 |
operator - (const z1: hwFloat) z : hwFloat; |
351 | 273 |
begin |
274 |
z:= z1; |
|
275 |
z.isNegative:= not z.isNegative |
|
276 |
end; |
|
277 |
||
278 |
||
515 | 279 |
operator * (const z1, z2: hwFloat) z : hwFloat; |
351 | 280 |
begin |
281 |
z.isNegative:= z1.isNegative xor z2.isNegative; |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
282 |
z.QWordValue:= QWord(z1.Round) * z2.Frac + QWord(z1.Frac) * z2.Round + ((QWord(z1.Frac) * z2.Frac) shr 32); |
351 | 283 |
z.Round:= z.Round + QWord(z1.Round) * z2.Round; |
284 |
end; |
|
285 |
||
515 | 286 |
operator * (const z1: hwFloat; const z2: LongInt) z : hwFloat; |
351 | 287 |
begin |
288 |
z.isNegative:= z1.isNegative xor (z2 < 0); |
|
515 | 289 |
z.QWordValue:= z1.QWordValue * abs(z2) |
351 | 290 |
end; |
291 |
||
515 | 292 |
operator / (const z1: hwFloat; z2: hwFloat) z : hwFloat; |
351 | 293 |
var t: hwFloat; |
294 |
begin |
|
295 |
z.isNegative:= z1.isNegative xor z2.isNegative; |
|
296 |
z.Round:= z1.QWordValue div z2.QWordValue; |
|
297 |
t:= z1 - z2 * z.Round; |
|
298 |
if t.QWordValue = 0 then |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
299 |
z.Frac:= 0 |
351 | 300 |
else |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
301 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
302 |
while ((t.QWordValue and $8000000000000000) = 0) and ((z2.QWordValue and $8000000000000000) = 0) do |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
303 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
304 |
t.QWordValue:= t.QWordValue shl 1; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
305 |
z2.QWordValue:= z2.QWordValue shl 1 |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
306 |
end; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
307 |
if z2.Round > 0 then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
308 |
z.Frac:= (t.QWordValue) div (z2.Round) |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
309 |
else |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
310 |
z.Frac:= 0 |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
311 |
end |
351 | 312 |
end; |
313 |
||
515 | 314 |
operator / (const z1: hwFloat; const z2: LongInt) z : hwFloat; |
498 | 315 |
begin |
316 |
z.isNegative:= z1.isNegative xor (z2 < 0); |
|
515 | 317 |
z.QWordValue:= z1.QWordValue div abs(z2) |
498 | 318 |
end; |
319 |
||
515 | 320 |
operator < (const z1, z2: hwFloat) b : boolean; |
351 | 321 |
begin |
916 | 322 |
if z1.isNegative xor z2.isNegative then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
323 |
b:= z1.isNegative |
351 | 324 |
else |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
325 |
if z1.QWordValue = z2.QWordValue then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
326 |
b:= false |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
327 |
else |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
328 |
b:= (z1.QWordValue < z2.QWordValue) xor z1.isNegative |
351 | 329 |
end; |
330 |
||
515 | 331 |
operator > (const z1, z2: hwFloat) b : boolean; |
351 | 332 |
begin |
916 | 333 |
if z1.isNegative xor z2.isNegative then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
334 |
b:= z2.isNegative |
351 | 335 |
else |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
336 |
if z1.QWordValue = z2.QWordValue then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
337 |
b:= false |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
338 |
else |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
339 |
b:= (z1.QWordValue > z2.QWordValue) xor z2.isNegative |
351 | 340 |
end; |
341 |
||
2905 | 342 |
function cstr(const z: hwFloat): shortstring; |
343 |
var tmpstr: shortstring; |
|
351 | 344 |
begin |
345 |
str(z.Round, cstr); |
|
346 |
if z.Frac <> 0 then |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
347 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
348 |
str(z.Frac / $100000000, tmpstr); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
349 |
delete(tmpstr, 1, 2); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
350 |
cstr:= cstr + '.' + copy(tmpstr, 1, 10) |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
351 |
end; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
352 |
if z.isNegative then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
353 |
cstr:= '-' + cstr |
351 | 354 |
end; |
355 |
||
515 | 356 |
function hwRound(const t: hwFloat): LongInt; |
351 | 357 |
begin |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
358 |
if t.isNegative then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
359 |
hwRound:= -(t.Round and $7FFFFFFF) |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
360 |
else |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
361 |
hwRound:= t.Round and $7FFFFFFF |
351 | 362 |
end; |
363 |
||
515 | 364 |
function hwAbs(const t: hwFloat): hwFloat; |
351 | 365 |
begin |
366 |
hwAbs:= t; |
|
367 |
hwAbs.isNegative:= false |
|
368 |
end; |
|
369 |
||
515 | 370 |
function hwSqr(const t: hwFloat): hwFloat; |
351 | 371 |
begin |
1433 | 372 |
hwSqr.isNegative:= false; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
373 |
hwSqr.QWordValue:= ((QWord(t.Round) * t.Round) shl 32) + QWord(t.Round) * t.Frac * 2 + ((QWord(t.Frac) * t.Frac) shr 32); |
351 | 374 |
end; |
375 |
||
6785 | 376 |
function hwPow(const t: hwFloat;p: LongWord): hwFloat; |
377 |
begin |
|
378 |
hwPow:= t; |
|
7515 | 379 |
if p mod 2 = 0 then hwPow.isNegative:= false; |
6785 | 380 |
|
381 |
while p > 0 do |
|
382 |
begin |
|
383 |
hwPow.QWordValue:= QWord(hwPow.Round) * t.Frac + QWord(hwPow.Frac) * t.Round + ((QWord(hwPow.Frac) * t.Frac) shr 32); |
|
384 |
dec(p) |
|
385 |
end |
|
386 |
end; |
|
387 |
||
515 | 388 |
function hwSqrt(const t: hwFloat): hwFloat; |
738 | 389 |
var l, r: QWord; |
390 |
c: hwFloat; |
|
357 | 391 |
begin |
392 |
hwSqrt.isNegative:= false; |
|
744 | 393 |
|
394 |
if t.Round = 0 then |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
395 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
396 |
l:= t.QWordValue; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
397 |
r:= $100000000 |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
398 |
end |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
399 |
else |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
400 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
401 |
l:= $100000000; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
402 |
r:= t.QWordValue div 2 + $80000000; // r:= t / 2 + 0.5 |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
403 |
if r > $FFFFFFFFFFFF then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
404 |
r:= $FFFFFFFFFFFF |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
405 |
end; |
744 | 406 |
|
738 | 407 |
repeat |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
408 |
c.QWordValue:= (l + r) div 2; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
409 |
if hwSqr(c).QWordValue > t.QWordValue then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
410 |
r:= c.QWordValue |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
411 |
else |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
412 |
l:= c.QWordValue |
738 | 413 |
until r - l <= 1; |
744 | 414 |
|
738 | 415 |
hwSqrt.QWordValue:= l |
357 | 416 |
end; |
417 |
||
515 | 418 |
function Distance(const dx, dy: hwFloat): hwFloat; |
351 | 419 |
begin |
738 | 420 |
Distance:= hwSqrt(hwSqr(dx) + hwSqr(dy)) |
351 | 421 |
end; |
422 |
||
515 | 423 |
function DistanceI(const dx, dy: LongInt): hwFloat; |
498 | 424 |
begin |
856 | 425 |
DistanceI:= hwSqrt(int2hwFloat(sqr(dx) + sqr(dy))) |
498 | 426 |
end; |
427 |
||
515 | 428 |
function SignAs(const num, signum: hwFloat): hwFloat; |
498 | 429 |
begin |
856 | 430 |
SignAs.QWordValue:= num.QWordValue; |
498 | 431 |
SignAs.isNegative:= signum.isNegative |
432 |
end; |
|
433 |
||
4374 | 434 |
function hwSign(r: hwFloat): LongInt; |
435 |
begin |
|
436 |
// yes, we have negative zero for a reason |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
437 |
if r.isNegative then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
438 |
hwSign:= -1 |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
439 |
else |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
440 |
hwSign:= 1 |
4374 | 441 |
end; |
442 |
||
6879 | 443 |
function hwSignf(r: real): LongInt; |
6775 | 444 |
begin |
445 |
if r < 0 then |
|
6879 | 446 |
hwSignf:= -1 |
6775 | 447 |
else |
6879 | 448 |
hwSignf:= 1 |
6775 | 449 |
end; |
450 |
||
357 | 451 |
|
515 | 452 |
function AngleSin(const Angle: Longword): hwFloat; |
351 | 453 |
begin |
3929
9a4bbc1f67a2
Inline most of uFloat (saves ~7.5% opcount on a test game), inline a few very short candidates in uMisc, comment out some unused functions in uMisc
nemo
parents:
3599
diff
changeset
|
454 |
//TryDo((Angle >= 0) and (Angle <= 2048), 'Sin param exceeds limits', true); |
351 | 455 |
AngleSin.isNegative:= false; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
456 |
if Angle < 1024 then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
457 |
AngleSin.QWordValue:= SinTable[Angle] |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
458 |
else |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
459 |
AngleSin.QWordValue:= SinTable[2048 - Angle] |
351 | 460 |
end; |
461 |
||
515 | 462 |
function AngleCos(const Angle: Longword): hwFloat; |
351 | 463 |
begin |
3929
9a4bbc1f67a2
Inline most of uFloat (saves ~7.5% opcount on a test game), inline a few very short candidates in uMisc, comment out some unused functions in uMisc
nemo
parents:
3599
diff
changeset
|
464 |
//TryDo((Angle >= 0) and (Angle <= 2048), 'Cos param exceeds limits', true); |
357 | 465 |
AngleCos.isNegative:= Angle > 1024; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
466 |
if Angle < 1024 then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
467 |
AngleCos.QWordValue:= SinTable[1024 - Angle] |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
468 |
else |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
469 |
AngleCos.QWordValue:= SinTable[Angle - 1024] |
351 | 470 |
end; |
471 |
||
5599
2e4b90f33a83
aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen
Xeli
parents:
5319
diff
changeset
|
472 |
function isZero(const z: hwFloat): boolean; inline; |
2e4b90f33a83
aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen
Xeli
parents:
5319
diff
changeset
|
473 |
begin |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6498
diff
changeset
|
474 |
isZero := z.QWordValue = 0; |
5599
2e4b90f33a83
aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen
Xeli
parents:
5319
diff
changeset
|
475 |
end; |
351 | 476 |
{$ENDIF} |
477 |
||
478 |
end. |