plugins/include/float.inc
author David Anderson <dvander@alliedmods.net>
Mon Jun 25 14:58:59 2007 +0000 (2007-06-25)
changeset 1015 6b27b8e57f47
parent 851 66d23844a8aa
child 1268 9360f5ea2289
permissions -rw-r--r--
fixed bug amb462
faluco@242
     1
/**
ds@475
     2
 * vim: set ts=4 :
dvander@374
     3
 * ===============================================================
dvander@374
     4
 * SourceMod (C)2004-2007 AlliedModders LLC.  All rights reserved.
dvander@374
     5
 * ===============================================================
dvander@374
     6
 *
dvander@374
     7
 *  This file is part of the SourceMod/SourcePawn SDK.  This file may only be used 
dvander@374
     8
 * or modified under the Terms and Conditions of its License Agreement, which is found 
dvander@374
     9
 * in LICENSE.txt.  The Terms and Conditions for making SourceMod extensions/plugins 
dvander@374
    10
 * may change at any time.  To view the latest information, see:
dvander@374
    11
 *   http://www.sourcemod.net/license.php
dvander@374
    12
 *
dvander@374
    13
 * Version: $Id$
faluco@242
    14
 */
dvander@374
    15
 
faluco@242
    16
#if defined _float_included
faluco@242
    17
 #endinput
faluco@242
    18
#endif
faluco@242
    19
#define _float_included
faluco@242
    20
faluco@242
    21
/**
faluco@242
    22
 * Converts an integer into a floating point value.
faluco@242
    23
 *
faluco@242
    24
 * @param value			Integer to convert.
faluco@242
    25
 * @return				Floating point value.
faluco@242
    26
 */
faluco@242
    27
native Float:float(value);
faluco@242
    28
faluco@242
    29
/**
faluco@242
    30
 * Multiplies two floats together.
faluco@242
    31
 *
faluco@242
    32
 * @param oper1			First value.
faluco@242
    33
 * @param oper2			Second value.
faluco@242
    34
 * @return				oper1*oper2.
faluco@242
    35
 */
faluco@242
    36
native Float:FloatMul(Float:oper1, Float:oper2);
faluco@242
    37
faluco@242
    38
/**
faluco@242
    39
 * Divides the dividend by the divisor.
faluco@242
    40
 *
faluco@242
    41
 * @param dividend		First value.
faluco@242
    42
 * @param divisor		Second value.
faluco@242
    43
 * @return				dividend/divisor.
faluco@242
    44
 */
faluco@242
    45
native Float:FloatDiv(Float:dividend, Float:divisor);
faluco@242
    46
faluco@242
    47
/**
faluco@242
    48
 * Adds two floats together.
faluco@242
    49
 *
faluco@242
    50
 * @param oper1			First value.
faluco@242
    51
 * @param oper2			Second value.
faluco@242
    52
 * @return				oper1+oper2.
faluco@242
    53
 */
faluco@242
    54
native Float:FloatAdd(Float:oper1, Float:oper2);
faluco@242
    55
faluco@242
    56
/**
faluco@242
    57
 * Subtracts oper2 from oper1.
faluco@242
    58
 *
faluco@242
    59
 * @param oper1			First value.
faluco@242
    60
 * @param oper2			Second value.
faluco@242
    61
 * @return				oper1-oper2.
faluco@242
    62
 */
faluco@242
    63
native Float:FloatSub(Float:oper1, Float:oper2);
faluco@242
    64
faluco@242
    65
/**
faluco@242
    66
 * Returns the decimal part of a float.
faluco@242
    67
 *
faluco@242
    68
 * @param value			Input value.
faluco@242
    69
 * @return				Decimal part.
faluco@242
    70
 */
faluco@242
    71
native Float:FloatFraction(Float:value);
faluco@242
    72
faluco@242
    73
/**
faluco@831
    74
 * Rounds a float to the closest integer to zero.
faluco@831
    75
 *
faluco@831
    76
 * @param value			Input value to be rounded.
faluco@831
    77
 * @return				Rounded value.
faluco@831
    78
 */
faluco@831
    79
native RoundToZero(Float:value);
faluco@831
    80
faluco@831
    81
/**
faluco@831
    82
 * Rounds a float to the next highest integer value.
faluco@242
    83
 *
faluco@242
    84
 * @param value			Input value to be rounded.
faluco@831
    85
 * @return				Rounded value.
faluco@831
    86
 */
faluco@831
    87
native RoundToCeil(Float:value);
faluco@831
    88
faluco@831
    89
/**
faluco@831
    90
 * Rounds a float to the next lowest integer value.
faluco@831
    91
 *
faluco@831
    92
 * @param value			Input value to be rounded.
faluco@242
    93
 * @return				Rounded value.
faluco@242
    94
 */
faluco@831
    95
native RoundToFloor(Float:value);
faluco@831
    96
faluco@831
    97
/**
faluco@831
    98
 * Standard IEEE rounding.
faluco@831
    99
 *
faluco@831
   100
 * @param value			Input value to be rounded.
faluco@831
   101
 * @return				Rounded value.
faluco@831
   102
 */
faluco@851
   103
native RoundToNearest(Float:value);
faluco@242
   104
faluco@242
   105
/**
faluco@242
   106
 * Compares two floats.
faluco@242
   107
 *
faluco@242
   108
 * @param fOne			First value.
faluco@242
   109
 * @param fTwo			Second value.
faluco@242
   110
 * @return				Returns 1 if the first argument is greater than the second argument.
faluco@242
   111
 *                      Returns -1 if the first argument is smaller than the second argument.
faluco@242
   112
 *                      Returns 0 if both arguments are equal.
faluco@242
   113
 */
faluco@242
   114
native FloatCompare(Float:fOne, Float:fTwo);
faluco@242
   115
faluco@242
   116
/**
faluco@242
   117
 * Returns the square root of the input value, equivalent to floatpower(value, 0.5).
faluco@242
   118
 *
faluco@242
   119
 * @param value			Input value.
faluco@242
   120
 * @return				Square root of the value.
faluco@242
   121
 */
faluco@242
   122
native Float:SquareRoot(Float:value);
faluco@242
   123
faluco@242
   124
/**
faluco@242
   125
 * Returns the value raised to the power of the exponent.
faluco@242
   126
 *
faluco@242
   127
 * @param value			Value to be raised.
faluco@242
   128
 * @param exponent		Value to raise the base.
faluco@242
   129
 * @return				value^exponent.
faluco@242
   130
 */
faluco@242
   131
native Float:Pow(Float:value, Float:exponent);
faluco@242
   132
faluco@242
   133
/**
faluco@242
   134
 * Returns the value of raising the input by e.
faluco@242
   135
 *
faluco@242
   136
 * @param value			Input value.
faluco@242
   137
 * @return				exp(value).
faluco@242
   138
 */
faluco@242
   139
native Float:Exponential(Float:value);
faluco@242
   140
faluco@242
   141
/**
faluco@242
   142
 * Returns the logarithm of any base specified.
faluco@242
   143
 *
faluco@242
   144
 * @param value			Input value.
faluco@242
   145
 * @param base			Logarithm base to use, default is 10.
faluco@242
   146
 * @return				log(value)/log(base).
faluco@242
   147
 */
faluco@242
   148
native Float:Logarithm(Float:value, Float:base=10.0);
faluco@242
   149
faluco@242
   150
/**
faluco@242
   151
 * Returns the sine of the argument.
faluco@242
   152
 *
faluco@242
   153
 * @param value			Input value in radians.
faluco@242
   154
 * @return				sin(value).
faluco@242
   155
 */
faluco@242
   156
native Float:Sine(Float:value);
faluco@242
   157
faluco@242
   158
/**
faluco@242
   159
 * Returns the cosine of the argument.
faluco@242
   160
 *
faluco@242
   161
 * @param value			Input value in radians.
faluco@242
   162
 * @return				cos(value).
faluco@242
   163
 */
faluco@242
   164
native Float:Cosine(Float:value);
faluco@242
   165
faluco@242
   166
/**
faluco@242
   167
 * Returns the tangent of the argument.
faluco@242
   168
 *
faluco@242
   169
 * @param value			Input value in radians.
faluco@242
   170
 * @return				tan(value).
faluco@242
   171
 */
faluco@242
   172
native Float:Tangent(Float:value);
faluco@242
   173
faluco@242
   174
/**
dvander@619
   175
 * Returns an absolute value.
faluco@242
   176
 *
faluco@242
   177
 * @param value			Input value.
dvander@619
   178
 * @return				Absolute value of the input.
faluco@242
   179
 */
faluco@242
   180
native Float:FloatAbs(Float:value);
faluco@242
   181
faluco@242
   182
/**
faluco@242
   183
 * Returns the arctangent of the input value.
faluco@242
   184
 *
faluco@242
   185
 * @param angle			Input value.
faluco@242
   186
 * @return				atan(value) in radians.
faluco@242
   187
 */
faluco@242
   188
native Float:ArcTangent(Float:angle);
faluco@242
   189
faluco@242
   190
/**
faluco@242
   191
 * Returns the arccosine of the input value.
faluco@242
   192
 *
faluco@242
   193
 * @param angle			Input value.
faluco@242
   194
 * @return				acos(value) in radians.
faluco@242
   195
 */
faluco@242
   196
native Float:ArcCosine(Float:angle);
faluco@242
   197
faluco@242
   198
/**
faluco@242
   199
 * Returns the arcsine of the input value.
faluco@242
   200
 *
faluco@242
   201
 * @param angle			Input value.
faluco@242
   202
 * @return				asin(value) in radians.
faluco@242
   203
 */
faluco@242
   204
native Float:ArcSine(Float:angle);
faluco@242
   205
faluco@242
   206
/**
faluco@242
   207
 * Returns the arctangent2 of the input values.
faluco@242
   208
 *
faluco@242
   209
 * @param x				Horizontal value.
faluco@242
   210
 * @param y				Vertical value.
faluco@242
   211
 * @return				atan2(value) in radians.
faluco@242
   212
 */
faluco@244
   213
native Float:ArcTangent2(Float:x, Float:y);
faluco@242
   214
faluco@242
   215
/**
dvander@845
   216
 * Rounds a floating point number using the "round to nearest" algorithm.
dvander@845
   217
 *
dvander@845
   218
 * @param value			Floating point value to round.
dvander@845
   219
 * @return				The value rounded to the nearest integer.
faluco@836
   220
 */
dvander@845
   221
stock RoundFloat(Float:value)
faluco@836
   222
{
dvander@845
   223
	return RoundToNearest(value);
dvander@845
   224
}
faluco@836
   225
faluco@836
   226
/**
dvander@845
   227
 * Backwards compatibility stock.  Do not use.
dvander@845
   228
 *
faluco@836
   229
 * @deprecated
faluco@836
   230
 */
dvander@845
   231
stock FloatRound(Float:value)
dvander@845
   232
{
dvander@845
   233
	return RoundToNearest(value);
dvander@845
   234
}
faluco@836
   235
faluco@836
   236
/**
faluco@242
   237
 * User defined operators.
faluco@242
   238
 *
faluco@242
   239
 */
faluco@242
   240
#pragma rational Float
faluco@242
   241
faluco@242
   242
native Float:operator*(Float:oper1, Float:oper2) = FloatMul;
faluco@242
   243
native Float:operator/(Float:oper1, Float:oper2) = FloatDiv;
faluco@242
   244
native Float:operator+(Float:oper1, Float:oper2) = FloatAdd;
faluco@242
   245
native Float:operator-(Float:oper1, Float:oper2) = FloatSub;
faluco@242
   246
faluco@242
   247
stock Float:operator++(Float:oper)
dvander@815
   248
{
faluco@242
   249
	return oper+1.0;
dvander@815
   250
}
faluco@242
   251
faluco@242
   252
stock Float:operator--(Float:oper)
dvander@815
   253
{
faluco@242
   254
	return oper-1.0;
dvander@815
   255
}
faluco@242
   256
faluco@242
   257
stock Float:operator-(Float:oper)
dvander@815
   258
{
faluco@242
   259
	return oper^Float:((-1)^((-1)/2));				/* IEEE values are sign/magnitude */
dvander@815
   260
}
faluco@242
   261
faluco@242
   262
stock Float:operator*(Float:oper1, oper2)
dvander@815
   263
{
faluco@242
   264
	return FloatMul(oper1, float(oper2));			/* "*" is commutative */
dvander@815
   265
}
faluco@242
   266
faluco@242
   267
stock Float:operator/(Float:oper1, oper2)
dvander@815
   268
{
faluco@242
   269
	return FloatDiv(oper1, float(oper2));
dvander@815
   270
}
faluco@242
   271
faluco@242
   272
stock Float:operator/(oper1, Float:oper2)
dvander@815
   273
{
faluco@242
   274
	return FloatDiv(float(oper1), oper2);
dvander@815
   275
}
faluco@242
   276
faluco@242
   277
stock Float:operator+(Float:oper1, oper2)
dvander@815
   278
{
faluco@242
   279
	return FloatAdd(oper1, float(oper2));			/* "+" is commutative */
dvander@815
   280
}
faluco@242
   281
faluco@242
   282
stock Float:operator-(Float:oper1, oper2)
dvander@815
   283
{
faluco@242
   284
	return FloatSub(oper1, float(oper2));
dvander@815
   285
}
faluco@242
   286
faluco@242
   287
stock Float:operator-(oper1, Float:oper2)
dvander@815
   288
{
faluco@242
   289
	return FloatSub(float(oper1), oper2);
dvander@815
   290
}
faluco@242
   291
faluco@242
   292
stock bool:operator==(Float:oper1, Float:oper2)
dvander@815
   293
{
faluco@242
   294
	return FloatCompare(oper1, oper2) == 0;
dvander@815
   295
}
faluco@242
   296
faluco@242
   297
stock bool:operator==(Float:oper1, oper2)
dvander@815
   298
{
faluco@242
   299
	return FloatCompare(oper1, float(oper2)) == 0; 	/* "==" is commutative */
dvander@815
   300
}
faluco@242
   301
faluco@242
   302
stock bool:operator!=(Float:oper1, Float:oper2)
dvander@815
   303
{
faluco@242
   304
	return FloatCompare(oper1, oper2) != 0;
dvander@815
   305
}
faluco@242
   306
faluco@242
   307
stock bool:operator!=(Float:oper1, oper2)
dvander@815
   308
{
faluco@242
   309
	return FloatCompare(oper1, float(oper2)) != 0; 	/* "==" is commutative */
dvander@815
   310
}
faluco@242
   311
faluco@242
   312
stock bool:operator>(Float:oper1, Float:oper2)
dvander@815
   313
{
faluco@242
   314
	return FloatCompare(oper1, oper2) > 0;
dvander@815
   315
}
faluco@242
   316
faluco@242
   317
stock bool:operator>(Float:oper1, oper2)
dvander@815
   318
{
faluco@242
   319
	return FloatCompare(oper1, float(oper2)) > 0;
dvander@815
   320
}
faluco@242
   321
faluco@242
   322
stock bool:operator>(oper1, Float:oper2)
dvander@815
   323
{
faluco@242
   324
	return FloatCompare(float(oper1), oper2) > 0;
dvander@815
   325
}
faluco@242
   326
faluco@242
   327
stock bool:operator>=(Float:oper1, Float:oper2)
dvander@815
   328
{
faluco@242
   329
	return FloatCompare(oper1, oper2) >= 0;
dvander@815
   330
}
faluco@242
   331
faluco@242
   332
stock bool:operator>=(Float:oper1, oper2)
dvander@815
   333
{
faluco@242
   334
	return FloatCompare(oper1, float(oper2)) >= 0;
dvander@815
   335
}
faluco@242
   336
faluco@242
   337
stock bool:operator>=(oper1, Float:oper2)
dvander@815
   338
{
faluco@242
   339
	return FloatCompare(float(oper1), oper2) >= 0;
dvander@815
   340
}
faluco@242
   341
faluco@242
   342
stock bool:operator<(Float:oper1, Float:oper2)
dvander@815
   343
{
faluco@242
   344
	return FloatCompare(oper1, oper2) < 0;
dvander@815
   345
}
faluco@242
   346
faluco@242
   347
stock bool:operator<(Float:oper1, oper2)
dvander@815
   348
{
faluco@242
   349
	return FloatCompare(oper1, float(oper2)) < 0;
dvander@815
   350
}
faluco@242
   351
faluco@242
   352
stock bool:operator<(oper1, Float:oper2)
dvander@815
   353
{
faluco@242
   354
	return FloatCompare(float(oper1), oper2) < 0;
dvander@815
   355
}
faluco@242
   356
faluco@242
   357
stock bool:operator<=(Float:oper1, Float:oper2)
dvander@815
   358
{
faluco@242
   359
	return FloatCompare(oper1, oper2) <= 0;
dvander@815
   360
}
faluco@242
   361
faluco@242
   362
stock bool:operator<=(Float:oper1, oper2)
dvander@815
   363
{
faluco@242
   364
	return FloatCompare(oper1, float(oper2)) <= 0;
dvander@815
   365
}
faluco@242
   366
faluco@242
   367
stock bool:operator<=(oper1, Float:oper2)
dvander@815
   368
{
faluco@242
   369
	return FloatCompare(float(oper1), oper2) <= 0;
dvander@815
   370
}
faluco@242
   371
faluco@242
   372
stock bool:operator!(Float:oper)
dvander@815
   373
{
faluco@242
   374
	return (_:oper & ((-1)/2)) == 0;		/* -1 = all bits to 1; /2 = remove most significant bit (sign)
faluco@242
   375
											works on both 32bit and 64bit systems; no constant required */
dvander@815
   376
}
faluco@242
   377
faluco@242
   378
/**
faluco@242
   379
 * Forbidden operators.
faluco@242
   380
 *
faluco@242
   381
 */
faluco@242
   382
forward operator%(Float:oper1, Float:oper2);
faluco@242
   383
forward operator%(Float:oper1, oper2);
faluco@261
   384
forward operator%(oper1, Float:oper2);
faluco@261
   385
faluco@261
   386
#define FLOAT_PI 3.1415926535897932384626433832795
faluco@261
   387
dvander@619
   388
/**
dvander@619
   389
 * Converts degrees to radians.
dvander@619
   390
 *
dvander@619
   391
 * @param angle		Degrees.
dvander@619
   392
 * @return			Radians.
dvander@619
   393
 */
faluco@261
   394
stock Float:DegToRad(Float:angle)
faluco@261
   395
{
faluco@261
   396
	return (angle*FLOAT_PI)/180;
faluco@261
   397
}
faluco@261
   398
dvander@619
   399
/**
dvander@619
   400
 * Converts degrees to radians.
dvander@619
   401
 *
dvander@619
   402
 * @param angle		Radians.
dvander@619
   403
 * @return			Degrees.
dvander@619
   404
 */
faluco@261
   405
stock Float:RadToDeg(Float:angle)
faluco@261
   406
{
faluco@261
   407
	return (angle*180)/FLOAT_PI;
ds@475
   408
}