mirror of
https://git.code.sf.net/p/quake/quakeforge
synced 2024-11-26 14:20:59 +00:00
Ruamoko: New math constants, some new math functions
Also, switch all of the math builtins functions we use from Rua to the ones that accept and return floats, avoiding conversions to/from double.
This commit is contained in:
Jeff Teunissen
parent
054e52528e
commit
361255cf31
2 changed files with 163 additions and 49 deletions
|
|
@ -47,100 +47,124 @@ static __attribute__ ((used)) const char rcsid[] =
|
|||
static void
|
||||
bi_sin (progs_t *pr)
|
||||
{
|
||||
R_FLOAT (pr) = sin (P_FLOAT (pr, 0));
|
||||
R_FLOAT (pr) = sinf (P_FLOAT (pr, 0));
|
||||
}
|
||||
|
||||
static void
|
||||
bi_cos (progs_t *pr)
|
||||
{
|
||||
R_FLOAT (pr) = cos (P_FLOAT (pr, 0));
|
||||
R_FLOAT (pr) = cosf (P_FLOAT (pr, 0));
|
||||
}
|
||||
|
||||
static void
|
||||
bi_tan (progs_t *pr)
|
||||
{
|
||||
R_FLOAT (pr) = tan (P_FLOAT (pr, 0));
|
||||
R_FLOAT (pr) = tanf (P_FLOAT (pr, 0));
|
||||
}
|
||||
|
||||
static void
|
||||
bi_asin (progs_t *pr)
|
||||
{
|
||||
R_FLOAT (pr) = asin (P_FLOAT (pr, 0));
|
||||
R_FLOAT (pr) = asinf (P_FLOAT (pr, 0));
|
||||
}
|
||||
|
||||
static void
|
||||
bi_acos (progs_t *pr)
|
||||
{
|
||||
R_FLOAT (pr) = acos (P_FLOAT (pr, 0));
|
||||
R_FLOAT (pr) = acosf (P_FLOAT (pr, 0));
|
||||
}
|
||||
|
||||
static void
|
||||
bi_atan (progs_t *pr)
|
||||
{
|
||||
R_FLOAT (pr) = atan (P_FLOAT (pr, 0));
|
||||
R_FLOAT (pr) = atanf (P_FLOAT (pr, 0));
|
||||
}
|
||||
|
||||
static void
|
||||
bi_atan2 (progs_t *pr)
|
||||
{
|
||||
R_FLOAT (pr) = atan2 (P_FLOAT (pr, 0), P_FLOAT (pr, 1));
|
||||
R_FLOAT (pr) = atan2f (P_FLOAT (pr, 0), P_FLOAT (pr, 1));
|
||||
}
|
||||
|
||||
static void
|
||||
bi_log (progs_t *pr)
|
||||
{
|
||||
R_FLOAT (pr) = log (P_FLOAT (pr, 0));
|
||||
R_FLOAT (pr) = logf (P_FLOAT (pr, 0));
|
||||
}
|
||||
|
||||
static void
|
||||
bi_log2 (progs_t *pr)
|
||||
{
|
||||
R_FLOAT (pr) = log2f (P_FLOAT (pr, 0));
|
||||
}
|
||||
|
||||
static void
|
||||
bi_log10 (progs_t *pr)
|
||||
{
|
||||
R_FLOAT (pr) = log10 (P_FLOAT (pr, 0));
|
||||
R_FLOAT (pr) = log10f (P_FLOAT (pr, 0));
|
||||
}
|
||||
|
||||
static void
|
||||
bi_pow (progs_t *pr)
|
||||
{
|
||||
R_FLOAT (pr) = pow (P_FLOAT (pr, 0), P_FLOAT (pr, 1));
|
||||
R_FLOAT (pr) = powf (P_FLOAT (pr, 0), P_FLOAT (pr, 1));
|
||||
}
|
||||
|
||||
static void
|
||||
bi_sqrt (progs_t *pr)
|
||||
{
|
||||
R_FLOAT (pr) = sqrtf (P_FLOAT (pr, 0));
|
||||
}
|
||||
|
||||
static void
|
||||
bi_cbrt (progs_t *pr)
|
||||
{
|
||||
R_FLOAT (pr) = cbrtf (P_FLOAT (pr, 0));
|
||||
}
|
||||
|
||||
static void
|
||||
bi_hypot (progs_t *pr)
|
||||
{
|
||||
R_FLOAT (pr) = hypotf (P_FLOAT (pr, 0), P_FLOAT (pr, 1));
|
||||
}
|
||||
|
||||
static void
|
||||
bi_sinh (progs_t *pr)
|
||||
{
|
||||
R_FLOAT (pr) = sinh (P_FLOAT (pr, 0));
|
||||
R_FLOAT (pr) = sinhf (P_FLOAT (pr, 0));
|
||||
}
|
||||
|
||||
static void
|
||||
bi_cosh (progs_t *pr)
|
||||
{
|
||||
R_FLOAT (pr) = cosh (P_FLOAT (pr, 0));
|
||||
R_FLOAT (pr) = coshf (P_FLOAT (pr, 0));
|
||||
}
|
||||
|
||||
static void
|
||||
bi_tanh (progs_t *pr)
|
||||
{
|
||||
R_FLOAT (pr) = tanh (P_FLOAT (pr, 0));
|
||||
R_FLOAT (pr) = tanhf (P_FLOAT (pr, 0));
|
||||
}
|
||||
|
||||
static void
|
||||
bi_asinh (progs_t *pr)
|
||||
{
|
||||
double y = P_FLOAT (pr, 0);
|
||||
R_FLOAT (pr) = log (y + sqrt (y * y + 1));
|
||||
R_FLOAT (pr) = logf (y + sqrtf (y * y + 1));
|
||||
}
|
||||
|
||||
static void
|
||||
bi_acosh (progs_t *pr)
|
||||
{
|
||||
double y = P_FLOAT (pr, 0);
|
||||
R_FLOAT (pr) = log (y + sqrt (y * y - 1));
|
||||
R_FLOAT (pr) = logf (y + sqrtf (y * y - 1));
|
||||
}
|
||||
|
||||
static void
|
||||
bi_atanh (progs_t *pr)
|
||||
{
|
||||
double y = P_FLOAT (pr, 0);
|
||||
R_FLOAT (pr) = log ((1 + y) / (1 - y)) / 2;
|
||||
R_FLOAT (pr) = logf ((1 + y) / (1 - y)) / 2;
|
||||
}
|
||||
|
||||
static builtin_t builtins[] = {
|
||||
|
|
@ -152,8 +176,12 @@ static builtin_t builtins[] = {
|
|||
{"atan", bi_atan, -1},
|
||||
{"atan2", bi_atan2, -1},
|
||||
{"log", bi_log, -1},
|
||||
{"log2", bi_log2, -1},
|
||||
{"log10", bi_log10, -1},
|
||||
{"pow", bi_pow, -1},
|
||||
{"sqrt", bi_sqrt, -1},
|
||||
{"cbrt", bi_cbrt, -1},
|
||||
{"hypot", bi_hypot, -1},
|
||||
{"sinh", bi_sinh, -1},
|
||||
{"cosh", bi_cosh, -1},
|
||||
{"tanh", bi_tanh, -1},
|
||||
|
|
|
|||
|
|
@ -32,7 +32,7 @@
|
|||
#define __ruamoko_math_h
|
||||
|
||||
/**
|
||||
\defgroup math Math Functions
|
||||
\defgroup math Math Definitions
|
||||
\{
|
||||
*/
|
||||
|
||||
|
|
@ -41,6 +41,8 @@
|
|||
*/
|
||||
@extern float random (void);
|
||||
|
||||
///\name Conversions
|
||||
//\{
|
||||
/**
|
||||
Returns the integer component of \a f
|
||||
*/
|
||||
|
|
@ -70,31 +72,43 @@
|
|||
Returns the absolute value of \a f
|
||||
*/
|
||||
@extern float fabs (float f);
|
||||
//\}
|
||||
|
||||
/****************************************************************************
|
||||
* VECTORS *
|
||||
****************************************************************************/
|
||||
///\name Exponentials and Logarithms
|
||||
//\{
|
||||
/**
|
||||
Returns the natural log of \a x.
|
||||
*/
|
||||
@extern float log (float x);
|
||||
|
||||
/**
|
||||
Transform vector \a v into a unit vector (a vector with a length of 1).
|
||||
The direction is not changed, except for (possible) roundoff errors.
|
||||
Returns the base-2 log of \a x.
|
||||
*/
|
||||
@extern vector normalize (vector v);
|
||||
@extern float log2 (float x);
|
||||
|
||||
/**
|
||||
Return the length of vector \a v
|
||||
Returns the base-10 log of \a x.
|
||||
*/
|
||||
@extern float vlen (vector v);
|
||||
@extern float log10 (float x);
|
||||
|
||||
/**
|
||||
Returns the yaw angle ("bearing"), in degrees, associated with vector \a v.
|
||||
Returns \a x to the \a y power
|
||||
*/
|
||||
@extern float vectoyaw (vector v);
|
||||
@extern float pow (float x, float y);
|
||||
|
||||
/**
|
||||
Returns a vector 'pitch yaw 0' corresponding to vector \a v.
|
||||
Returns the square root of \a x
|
||||
*/
|
||||
@extern vector vectoangles (vector v);
|
||||
@extern float sqrt (float x);
|
||||
|
||||
/**
|
||||
Returns the cube root of \a x
|
||||
*/
|
||||
@extern float cbrt (float x);
|
||||
//\}
|
||||
|
||||
///\name Trigonometric functions
|
||||
//\{
|
||||
|
||||
/**
|
||||
Returns the sine of \a x.
|
||||
|
|
@ -128,27 +142,99 @@
|
|||
@extern float atan2 (float y, float x);
|
||||
|
||||
/**
|
||||
Returns the natural log of \a x.
|
||||
Returns the length of the hypotenuse of a right triangle with sides \a x
|
||||
and \a y. That is, this function returns
|
||||
<code>sqrt (\a x*\a x + \a y*\a y)</code>.
|
||||
*/
|
||||
@extern float log (float x);
|
||||
|
||||
/**
|
||||
Returns the base-10 log of \a x.
|
||||
*/
|
||||
@extern float log10 (float x);
|
||||
|
||||
/**
|
||||
Returns \a x to the \a y power
|
||||
*/
|
||||
@extern float pow (float x, float y);
|
||||
|
||||
@extern float sinh (float x);
|
||||
@extern float cosh (float x);
|
||||
@extern float tanh (float x);
|
||||
@extern float asinh (float x);
|
||||
@extern float acosh (float x);
|
||||
@extern float atanh (float x);
|
||||
|
||||
@extern float hypot (float x, float y);
|
||||
//\}
|
||||
|
||||
///\name Hyperbolic functions
|
||||
//\{
|
||||
/**
|
||||
Returns the hyperbolic sine of \a x
|
||||
*/
|
||||
@extern float sinh (float x);
|
||||
|
||||
/**
|
||||
Returns the hyperbolic cosine of \a x
|
||||
*/
|
||||
@extern float cosh (float x);
|
||||
|
||||
/**
|
||||
Returns the hyperbolic tangent of \a x
|
||||
*/
|
||||
@extern float tanh (float x);
|
||||
|
||||
/**
|
||||
Returns the area hyperbolic sine of \a x
|
||||
*/
|
||||
@extern float asinh (float x);
|
||||
|
||||
/**
|
||||
Returns the area hyperbolic cosine of \a x
|
||||
*/
|
||||
@extern float acosh (float x);
|
||||
|
||||
/**
|
||||
Returns the area hyperbolic tangent of \a x
|
||||
*/
|
||||
@extern float atanh (float x);
|
||||
//\}
|
||||
|
||||
///\name Vector Functions
|
||||
//\{
|
||||
/**
|
||||
Transform vector \a v into a unit vector (a vector with a length of 1).
|
||||
The direction is not changed, except for (possible) rounding errors.
|
||||
*/
|
||||
@extern vector normalize (vector v);
|
||||
|
||||
/**
|
||||
Return the length of vector \a v
|
||||
*/
|
||||
@extern float vlen (vector v);
|
||||
|
||||
/**
|
||||
Returns the yaw angle ("bearing"), in degrees, associated with vector \a v.
|
||||
*/
|
||||
@extern float vectoyaw (vector v);
|
||||
|
||||
/**
|
||||
Returns a vector 'pitch yaw 0' corresponding to vector \a v.
|
||||
*/
|
||||
@extern vector vectoangles (vector v);
|
||||
//\}
|
||||
|
||||
/**
|
||||
\name Constants
|
||||
Constants for speeding up math calculations.
|
||||
These constants are defined to replace some common math functions. Since
|
||||
these are the same values that would be returned by any math functions or
|
||||
floating-point calculations, these allow you to get the results without
|
||||
actually calling them.
|
||||
\note There does not appear to be a portable way to translate C's HUGE_VAL
|
||||
value, the basis for positive and negative infinities, to Ruamoko.
|
||||
\{
|
||||
*/
|
||||
# define M_E 2.7182818284590452354 ///< Euler's number \em e, the irrational base of the natural logarithm and a really neat thing
|
||||
# define M_LOG2E 1.4426950408889634074 ///< The log, base 2, of \em e: <code>log2 (\ref M_E)</code>
|
||||
# define M_LOG10E 0.43429448190325182765 ///< The log, base 10, of \em e: <code>log10 (\ref M_E)</code>
|
||||
# define M_LN2 0.69314718055994530942 ///< The natural log evaluated at 2: <code>log (2)</code>
|
||||
# define M_LN10 2.30258509299404568402 ///< The natural log evaluated at 10: <code>log (10)</code>
|
||||
# define M_PI 3.14159265358979323846 ///< The most famous irrational number, and the sixteenth letter of the Greek alphabet
|
||||
# define M_PI_2 1.57079632679489661923 ///< Half of pi, (\ref M_PI/2)
|
||||
# define M_PI_4 0.78539816339744830962 ///< One quarter of pi, (\ref M_PI/4)
|
||||
# define M_PI_6 0.52359877559829887308 ///< One sixth of pi, (\ref M_PI/6)
|
||||
# define M_1_PI 0.31830988618379067154 ///< The reciprocal of pi, (1/\ref M_PI)
|
||||
# define M_2_PI 0.63661977236758134308 ///< Twice the reciprocal of pi, (2/\ref M_PI)
|
||||
# define M_2_SQRTPI 1.12837916709551257390 ///< Twice the reciprocal of the square root of pi, 2/\ref sqrt(\ref M_PI)
|
||||
# define M_SQRT2 1.41421356237309504880 ///< The square root of 2
|
||||
# define M_SQRT1_2 0.70710678118654752440 ///< 1/sqrt(2)
|
||||
# define M_SQRT3 1.73205080756887729353 ///< The square root of 3
|
||||
# define M_SQRT1_3 0.57735026918962576451 ///< 1/sqrt(3)
|
||||
/**
|
||||
\} Constants
|
||||
\} Math Definitions
|
||||
*/
|
||||
#endif //__ruamoko_math_h
|
||||
|
|
|
|||
Loading…
Reference in a new issue