mirror of
https://git.code.sf.net/p/quake/quakeforge
synced 2025-01-17 22:50:51 +00:00
ruamoko math functions from Grievre
This commit is contained in:
Bill Currie
parent
3a85dbda18
commit
bb31308953
4 changed files with 172 additions and 1 deletions
|
|
@ -48,6 +48,8 @@ void RUA_File_Init (struct progs_s *pr, int secure);
|
|||
|
||||
void RUA_Hash_Init (struct progs_s *pr, int secure);
|
||||
|
||||
void RUA_Math_Init (struct progs_s *pr, int secure);
|
||||
|
||||
void RUA_Obj_Init (struct progs_s *pr, int secure);
|
||||
|
||||
void RUA_Plist_Init (struct progs_s *pr, int secure);
|
||||
|
|
|
|||
|
|
@ -9,4 +9,5 @@ libQFruamoko_la_LDFLAGS= -version-info 1:0:0 -no-undefined
|
|||
libQFruamoko_la_LIBADD= $(top_builddir)/libs/gamecode/engine/libQFgamecode.la $(top_builddir)/libs/util/libQFutil.la
|
||||
libQFruamoko_la_SOURCES= \
|
||||
rua_cbuf.c rua_cmd.c rua_cvar.c rua_file.c rua_hash.c rua_init.c \
|
||||
rua_obj.c rua_plist.c rua_qfile.c rua_qfs.c rua_string.c
|
||||
rua_obj.c rua_plist.c rua_qfile.c rua_qfs.c rua_string.c \
|
||||
rua_math.c
|
||||
|
|
|
|||
|
|
@ -44,6 +44,7 @@ static void (*init_funcs[])(progs_t *, int) = {
|
|||
RUA_Cvar_Init,
|
||||
RUA_File_Init,
|
||||
RUA_Hash_Init,
|
||||
RUA_Math_Init,
|
||||
RUA_Plist_Init,
|
||||
RUA_QFile_Init,
|
||||
RUA_QFS_Init,
|
||||
|
|
|
|||
167
libs/ruamoko/rua_math.c
Normal file
167
libs/ruamoko/rua_math.c
Normal file
|
|
@ -0,0 +1,167 @@
|
|||
/*
|
||||
rua_math.c
|
||||
|
||||
Floating point math api for ruamoko
|
||||
|
||||
Copyright (C) 2003 Robert F Merrill
|
||||
|
||||
Author: Robert F Merrill
|
||||
Date: 2003-01-22
|
||||
|
||||
This program is free software; you can redistribute it and/or
|
||||
modify it under the terms of the GNU General Public License
|
||||
as published by the Free Software Foundation; either version 2
|
||||
of the License, or (at your option) any later version.
|
||||
|
||||
This program is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
||||
|
||||
See the GNU General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU General Public License
|
||||
along with this program; if not, write to:
|
||||
|
||||
Free Software Foundation, Inc.
|
||||
59 Temple Place - Suite 330
|
||||
Boston, MA 02111-1307, USA
|
||||
|
||||
*/
|
||||
#ifdef HAVE_CONFIG_H
|
||||
# include "config.h"
|
||||
#endif
|
||||
|
||||
static __attribute__ ((unused)) const char rcsid[] =
|
||||
"$Id$";
|
||||
|
||||
#include <stdlib.h>
|
||||
#include <math.h>
|
||||
|
||||
#include "QF/cmd.h"
|
||||
#include "QF/hash.h"
|
||||
#include "QF/progs.h"
|
||||
#include "QF/sys.h"
|
||||
|
||||
#include "rua_internal.h"
|
||||
|
||||
static void
|
||||
bi_sin (progs_t *pr)
|
||||
{
|
||||
R_FLOAT (pr) = sin (P_FLOAT (pr, 0));
|
||||
}
|
||||
|
||||
static void
|
||||
bi_cos (progs_t *pr)
|
||||
{
|
||||
R_FLOAT (pr) = cos (P_FLOAT (pr, 0));
|
||||
}
|
||||
|
||||
static void
|
||||
bi_tan (progs_t *pr)
|
||||
{
|
||||
R_FLOAT (pr) = tan (P_FLOAT (pr, 0));
|
||||
}
|
||||
|
||||
static void
|
||||
bi_asin (progs_t *pr)
|
||||
{
|
||||
R_FLOAT (pr) = asin (P_FLOAT (pr, 0));
|
||||
}
|
||||
|
||||
static void
|
||||
bi_acos (progs_t *pr)
|
||||
{
|
||||
R_FLOAT (pr) = acos (P_FLOAT (pr, 0));
|
||||
}
|
||||
|
||||
static void
|
||||
bi_atan (progs_t *pr)
|
||||
{
|
||||
R_FLOAT (pr) = atan (P_FLOAT (pr, 0));
|
||||
}
|
||||
|
||||
static void
|
||||
bi_atan2 (progs_t *pr)
|
||||
{
|
||||
R_FLOAT (pr) = atan2 (P_FLOAT (pr, 0), P_FLOAT (pr, 1));
|
||||
}
|
||||
|
||||
static void
|
||||
bi_log (progs_t *pr)
|
||||
{
|
||||
R_FLOAT (pr) = log (P_FLOAT (pr, 0));
|
||||
}
|
||||
|
||||
static void
|
||||
bi_log10 (progs_t *pr)
|
||||
{
|
||||
R_FLOAT (pr) = log10 (P_FLOAT (pr, 0));
|
||||
}
|
||||
|
||||
static void
|
||||
bi_pow (progs_t *pr)
|
||||
{
|
||||
R_FLOAT (pr) = pow (P_FLOAT (pr, 0), P_FLOAT (pr, 1));
|
||||
}
|
||||
|
||||
static void
|
||||
bi_sinh (progs_t *pr)
|
||||
{
|
||||
R_FLOAT (pr) = sinh (P_FLOAT (pr, 0));
|
||||
}
|
||||
|
||||
static void
|
||||
bi_cosh (progs_t *pr)
|
||||
{
|
||||
R_FLOAT (pr) = cosh (P_FLOAT (pr, 0));
|
||||
}
|
||||
|
||||
static void
|
||||
bi_tanh (progs_t *pr)
|
||||
{
|
||||
R_FLOAT (pr) = tanh (P_FLOAT (pr, 0));
|
||||
}
|
||||
|
||||
static void
|
||||
bi_asinh (progs_t *pr)
|
||||
{
|
||||
R_FLOAT (pr) = asinh (P_FLOAT (pr, 0));
|
||||
}
|
||||
|
||||
static void
|
||||
bi_acosh (progs_t *pr)
|
||||
{
|
||||
R_FLOAT (pr) = acosh (P_FLOAT (pr, 0));
|
||||
}
|
||||
|
||||
static void
|
||||
bi_atanh (progs_t *pr)
|
||||
{
|
||||
R_FLOAT (pr) = atanh (P_FLOAT (pr, 0));
|
||||
}
|
||||
|
||||
static builtin_t builtins[] = {
|
||||
{"sin", bi_sin, -1},
|
||||
{"cos", bi_cos, -1},
|
||||
{"tan", bi_tan, -1},
|
||||
{"asin", bi_asin, -1},
|
||||
{"acos", bi_acos, -1},
|
||||
{"atan", bi_atan, -1},
|
||||
{"atan2", bi_atan2, -1},
|
||||
{"log", bi_log, -1},
|
||||
{"log10", bi_log10, -1},
|
||||
{"pow", bi_pow, -1},
|
||||
{"sinh", bi_sinh, -1},
|
||||
{"cosh", bi_cosh, -1},
|
||||
{"tanh", bi_tanh, -1},
|
||||
{"asinh", bi_asinh, -1},
|
||||
{"acosh", bi_acosh, -1},
|
||||
{"atanh", bi_atanh, -1},
|
||||
{0}
|
||||
};
|
||||
|
||||
void
|
||||
RUA_Math_Init (progs_t *pr, int secure)
|
||||
{
|
||||
PR_RegisterBuiltins (pr, builtins);
|
||||
}
|
||||
Loading…
Reference in a new issue