diff options
| author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2004-05-10 15:11:32 -0300 |
|---|---|---|
| committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2004-05-10 15:11:32 -0300 |
| commit | a17dd24b34cdbf2fd88773c743f6086059d8a272 (patch) | |
| tree | 576bf8b5c1ecd75b4b18c76ecaea347371668094 | |
| parent | b072e4ea0ba72a78712f9a10f25c7266f906d5c5 (diff) | |
| download | lua-a17dd24b34cdbf2fd88773c743f6086059d8a272.tar.gz lua-a17dd24b34cdbf2fd88773c743f6086059d8a272.tar.bz2 lua-a17dd24b34cdbf2fd88773c743f6086059d8a272.zip | |
no more USE_DEGREES option
| -rw-r--r-- | lmathlib.c | 29 |
1 files changed, 8 insertions, 21 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: lmathlib.c,v 1.59 2003/11/05 11:59:14 roberto Exp roberto $ | 2 | ** $Id: lmathlib.c,v 1.60 2004/04/30 20:13:38 roberto Exp roberto $ |
| 3 | ** Standard mathematical library | 3 | ** Standard mathematical library |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -23,56 +23,43 @@ | |||
| 23 | 23 | ||
| 24 | 24 | ||
| 25 | 25 | ||
| 26 | /* | ||
| 27 | ** If you want Lua to operate in degrees (instead of radians), | ||
| 28 | ** define USE_DEGREES | ||
| 29 | */ | ||
| 30 | #ifdef USE_DEGREES | ||
| 31 | #define FROMRAD(a) ((a)/RADIANS_PER_DEGREE) | ||
| 32 | #define TORAD(a) ((a)*RADIANS_PER_DEGREE) | ||
| 33 | #else | ||
| 34 | #define FROMRAD(a) (a) | ||
| 35 | #define TORAD(a) (a) | ||
| 36 | #endif | ||
| 37 | |||
| 38 | |||
| 39 | static int math_abs (lua_State *L) { | 26 | static int math_abs (lua_State *L) { |
| 40 | lua_pushnumber(L, fabs(luaL_checknumber(L, 1))); | 27 | lua_pushnumber(L, fabs(luaL_checknumber(L, 1))); |
| 41 | return 1; | 28 | return 1; |
| 42 | } | 29 | } |
| 43 | 30 | ||
| 44 | static int math_sin (lua_State *L) { | 31 | static int math_sin (lua_State *L) { |
| 45 | lua_pushnumber(L, sin(TORAD(luaL_checknumber(L, 1)))); | 32 | lua_pushnumber(L, sin(luaL_checknumber(L, 1))); |
| 46 | return 1; | 33 | return 1; |
| 47 | } | 34 | } |
| 48 | 35 | ||
| 49 | static int math_cos (lua_State *L) { | 36 | static int math_cos (lua_State *L) { |
| 50 | lua_pushnumber(L, cos(TORAD(luaL_checknumber(L, 1)))); | 37 | lua_pushnumber(L, cos(luaL_checknumber(L, 1))); |
| 51 | return 1; | 38 | return 1; |
| 52 | } | 39 | } |
| 53 | 40 | ||
| 54 | static int math_tan (lua_State *L) { | 41 | static int math_tan (lua_State *L) { |
| 55 | lua_pushnumber(L, tan(TORAD(luaL_checknumber(L, 1)))); | 42 | lua_pushnumber(L, tan(luaL_checknumber(L, 1))); |
| 56 | return 1; | 43 | return 1; |
| 57 | } | 44 | } |
| 58 | 45 | ||
| 59 | static int math_asin (lua_State *L) { | 46 | static int math_asin (lua_State *L) { |
| 60 | lua_pushnumber(L, FROMRAD(asin(luaL_checknumber(L, 1)))); | 47 | lua_pushnumber(L, asin(luaL_checknumber(L, 1))); |
| 61 | return 1; | 48 | return 1; |
| 62 | } | 49 | } |
| 63 | 50 | ||
| 64 | static int math_acos (lua_State *L) { | 51 | static int math_acos (lua_State *L) { |
| 65 | lua_pushnumber(L, FROMRAD(acos(luaL_checknumber(L, 1)))); | 52 | lua_pushnumber(L, acos(luaL_checknumber(L, 1))); |
| 66 | return 1; | 53 | return 1; |
| 67 | } | 54 | } |
| 68 | 55 | ||
| 69 | static int math_atan (lua_State *L) { | 56 | static int math_atan (lua_State *L) { |
| 70 | lua_pushnumber(L, FROMRAD(atan(luaL_checknumber(L, 1)))); | 57 | lua_pushnumber(L, atan(luaL_checknumber(L, 1))); |
| 71 | return 1; | 58 | return 1; |
| 72 | } | 59 | } |
| 73 | 60 | ||
| 74 | static int math_atan2 (lua_State *L) { | 61 | static int math_atan2 (lua_State *L) { |
| 75 | lua_pushnumber(L, FROMRAD(atan2(luaL_checknumber(L, 1), luaL_checknumber(L, 2)))); | 62 | lua_pushnumber(L, atan2(luaL_checknumber(L, 1), luaL_checknumber(L, 2))); |
| 76 | return 1; | 63 | return 1; |
| 77 | } | 64 | } |
| 78 | 65 | ||
