nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

definition of "PI" and modes for angles.

Browse Source
This commit is contained in:
Roberto Ierusalimschy
1997-10-24 15:44:22 -02:00
parent e78cf96c97
commit 41223a01ec
1 changed files with 23 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
lmathlib.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: $ ** $Id: lmathlib.c,v 1.1 1997/09/16 19:25:59 roberto Exp roberto $
** Lua standard mathematical library ** Lua standard mathematical library
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -16,9 +16,23 @@
#define PI 3.14159265358979323846 #define PI 3.14159265358979323846
#endif #endif
#define TODEGREE(a) ((a)*180.0/PI)
#define TORAD(a) ((a)*PI/180.0)
static double torad = PI/180.0;
#define FROMRAD(a) ((a)/torad)
#define TORAD(a) ((a)*torad)
static void modeang (void)
{
char *s = luaL_opt_string(1, "degree");
switch (*s) {
case 'd' : torad = PI/180.0; break;
case 'r' : torad = 1.0; break;
case 'g' : torad = PI/50.0; break;
default: luaL_arg_check(0, 1, "invalid mode");
}
}
static void math_abs (void) static void math_abs (void)
@@ -45,22 +59,22 @@ static void math_tan (void)
static void math_asin (void) static void math_asin (void)
{ {
lua_pushnumber(asin(TODEGREE(luaL_check_number(1)))); lua_pushnumber(FROMRAD(asin(luaL_check_number(1))));
} }
static void math_acos (void) static void math_acos (void)
{ {
lua_pushnumber(acos(TODEGREE(luaL_check_number(1)))); lua_pushnumber(FROMRAD(acos(luaL_check_number(1))));
} }
static void math_atan (void) static void math_atan (void)
{ {
lua_pushnumber(atan(TODEGREE(luaL_check_number(1)))); lua_pushnumber(FROMRAD(atan(luaL_check_number(1))));
} }
static void math_atan2 (void) static void math_atan2 (void)
{ {
lua_pushnumber(TODEGREE(atan2(luaL_check_number(1), luaL_check_number(2)))); lua_pushnumber(FROMRAD(atan2(luaL_check_number(1), luaL_check_number(2))));
} }
static void math_ceil (void) static void math_ceil (void)
@@ -159,6 +173,7 @@ static void math_randomseed (void)
static struct luaL_reg mathlib[] = { static struct luaL_reg mathlib[] = {
{"modeang", modeang},
{"abs", math_abs}, {"abs", math_abs},
{"sin", math_sin}, {"sin", math_sin},
{"cos", math_cos}, {"cos", math_cos},
@@ -191,5 +206,6 @@ void lua_mathlibopen (void)
lua_pushcfunction(math_pow); lua_pushcfunction(math_pow);
lua_pushnumber(0); /* to get its tag */ lua_pushnumber(0); /* to get its tag */
lua_settagmethod(lua_tag(lua_pop()), "pow"); lua_settagmethod(lua_tag(lua_pop()), "pow");
lua_pushnumber(PI); lua_setglobal("PI");
} }