38ddbb37b9
--HG-- extra : convert_revision : svn%3A39bc706e-5318-0410-9160-8a85361fbb7c/trunk%401237
315 lines
7.3 KiB
C++
315 lines
7.3 KiB
C++
/**
|
|
* vim: set ts=4 :
|
|
* ================================================================
|
|
* SourceMod
|
|
* Copyright (C) 2004-2007 AlliedModders LLC. All rights reserved.
|
|
* ================================================================
|
|
*
|
|
* This program is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU General Public License,
|
|
* version 3.0, as published by the Free Software Foundation.
|
|
*
|
|
* 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, see <http://www.gnu.org/licenses/>.
|
|
*
|
|
* As a special exception, AlliedModders LLC gives you permission to
|
|
* link the code of this program (as well as its derivative works) to
|
|
* "Half-Life 2," the "Source Engine," the "SourcePawn JIT," and any
|
|
* Game MODs that run on software by the Valve Corporation. You must
|
|
* obey the GNU General Public License in all respects for all other
|
|
* code used. Additionally, AlliedModders LLC grants this exception
|
|
* to all derivative works. AlliedModders LLC defines further
|
|
* exceptions, found in LICENSE.txt (as of this writing, version
|
|
* JULY-31-2007), or <http://www.sourcemod.net/license.php>.
|
|
*
|
|
* Version: $Id$
|
|
*/
|
|
|
|
#include <math.h>
|
|
#include <string.h>
|
|
#include <stdlib.h>
|
|
#include "sm_globals.h"
|
|
|
|
/****************************************
|
|
* *
|
|
* FLOATING POINT NATIVE IMPLEMENTATIONS *
|
|
* *
|
|
****************************************/
|
|
|
|
|
|
static cell_t sm_float(IPluginContext *pCtx, const cell_t *params)
|
|
{
|
|
float val = static_cast<float>(params[1]);
|
|
|
|
return sp_ftoc(val);
|
|
}
|
|
|
|
static cell_t sm_FloatAbs(IPluginContext *pCtx, const cell_t *params)
|
|
{
|
|
float val = sp_ctof(params[1]);
|
|
val = (val >= 0.0f) ? val : -val;
|
|
|
|
return sp_ftoc(val);
|
|
}
|
|
|
|
static cell_t sm_FloatAdd(IPluginContext *pCtx, const cell_t *params)
|
|
{
|
|
float val = sp_ctof(params[1]) + sp_ctof(params[2]);
|
|
|
|
return sp_ftoc(val);
|
|
}
|
|
|
|
static cell_t sm_FloatSub(IPluginContext *pCtx, const cell_t *params)
|
|
{
|
|
float val = sp_ctof(params[1]) - sp_ctof(params[2]);
|
|
|
|
return sp_ftoc(val);
|
|
}
|
|
|
|
static cell_t sm_FloatMul(IPluginContext *pCtx, const cell_t *params)
|
|
{
|
|
float val = sp_ctof(params[1]) * sp_ctof(params[2]);
|
|
|
|
return sp_ftoc(val);
|
|
}
|
|
|
|
static cell_t sm_FloatDiv(IPluginContext *pCtx, const cell_t *params)
|
|
{
|
|
float val = sp_ctof(params[1]) / sp_ctof(params[2]);
|
|
|
|
return sp_ftoc(val);
|
|
}
|
|
|
|
static cell_t sm_FloatCompare(IPluginContext *pCtx, const cell_t *params)
|
|
{
|
|
float val1 = sp_ctof(params[1]);
|
|
float val2 = sp_ctof(params[2]);
|
|
|
|
if (val1 > val2)
|
|
{
|
|
return 1;
|
|
} else if (val1 < val2) {
|
|
return -1;
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
static cell_t sm_Logarithm(IPluginContext *pCtx, const cell_t *params)
|
|
{
|
|
float val = sp_ctof(params[1]);
|
|
float base = sp_ctof(params[2]);
|
|
|
|
if ((val <= 0.0f) || (base <= 0.0f))
|
|
{
|
|
return pCtx->ThrowNativeError("Cannot evaluate the logarithm of zero or a negative number (val:%f base:%f)", val, base);
|
|
}
|
|
if (base == 10.0f)
|
|
{
|
|
val = log10(val);
|
|
} else {
|
|
val = log(val) / log(base);
|
|
}
|
|
|
|
return sp_ftoc(val);
|
|
}
|
|
|
|
static cell_t sm_Exponential(IPluginContext *pCtx, const cell_t *params)
|
|
{
|
|
float val = sp_ctof(params[1]);
|
|
|
|
return sp_ftoc(exp(val));
|
|
}
|
|
|
|
static cell_t sm_Pow(IPluginContext *pCtx, const cell_t *params)
|
|
{
|
|
float base = sp_ctof(params[1]);
|
|
float exponent = sp_ctof(params[2]);
|
|
|
|
return sp_ftoc(pow(base, exponent));
|
|
}
|
|
|
|
static cell_t sm_SquareRoot(IPluginContext *pCtx, const cell_t *params)
|
|
{
|
|
float val = sp_ctof(params[1]);
|
|
|
|
if (val < 0.0f)
|
|
{
|
|
return pCtx->ThrowNativeError("Cannot evaluate the square root of a negative number (val:%f)", val);
|
|
}
|
|
|
|
return sp_ftoc(sqrt(val));
|
|
}
|
|
|
|
static cell_t sm_RoundToNearest(IPluginContext *pCtx, const cell_t *params)
|
|
{
|
|
float val = sp_ctof(params[1]);
|
|
val = (float)floor(val + 0.5f);
|
|
|
|
return static_cast<int>(val);
|
|
}
|
|
|
|
static cell_t sm_RoundToFloor(IPluginContext *pCtx, const cell_t *params)
|
|
{
|
|
float val = sp_ctof(params[1]);
|
|
val = floor(val);
|
|
|
|
return static_cast<int>(val);
|
|
}
|
|
|
|
static cell_t sm_RoundToCeil(IPluginContext *pCtx, const cell_t *params)
|
|
{
|
|
float val = sp_ctof(params[1]);
|
|
val = ceil(val);
|
|
|
|
return static_cast<int>(val);
|
|
}
|
|
|
|
static cell_t sm_RoundToZero(IPluginContext *pCtx, const cell_t *params)
|
|
{
|
|
float val = sp_ctof(params[1]);
|
|
if (val >= 0.0f)
|
|
{
|
|
val = floor(val);
|
|
} else {
|
|
val = ceil(val);
|
|
}
|
|
|
|
return static_cast<int>(val);
|
|
}
|
|
|
|
static cell_t sm_FloatFraction(IPluginContext *pCtx, const cell_t *params)
|
|
{
|
|
float val = sp_ctof(params[1]);
|
|
val = val - floor(val);
|
|
|
|
return sp_ftoc(val);
|
|
}
|
|
|
|
static cell_t sm_Sine(IPluginContext *pCtx, const cell_t *params)
|
|
{
|
|
float val = sp_ctof(params[1]);
|
|
val = sin(val);
|
|
|
|
return sp_ftoc(val);
|
|
}
|
|
|
|
static cell_t sm_Cosine(IPluginContext *pCtx, const cell_t *params)
|
|
{
|
|
float val = sp_ctof(params[1]);
|
|
val = cos(val);
|
|
|
|
return sp_ftoc(val);
|
|
}
|
|
|
|
static cell_t sm_Tangent(IPluginContext *pCtx, const cell_t *params)
|
|
{
|
|
float val = sp_ctof(params[1]);
|
|
val = tan(val);
|
|
|
|
return sp_ftoc(val);
|
|
}
|
|
|
|
static cell_t sm_ArcSine(IPluginContext *pCtx, const cell_t *params)
|
|
{
|
|
float val = sp_ctof(params[1]);
|
|
val = asin(val);
|
|
|
|
return sp_ftoc(val);
|
|
}
|
|
|
|
static cell_t sm_ArcCosine(IPluginContext *pCtx, const cell_t *params)
|
|
{
|
|
float val = sp_ctof(params[1]);
|
|
val = acos(val);
|
|
|
|
return sp_ftoc(val);
|
|
}
|
|
|
|
static cell_t sm_ArcTangent(IPluginContext *pCtx, const cell_t *params)
|
|
{
|
|
float val = sp_ctof(params[1]);
|
|
val = atan(val);
|
|
|
|
return sp_ftoc(val);
|
|
}
|
|
|
|
static cell_t sm_ArcTangent2(IPluginContext *pCtx, const cell_t *params)
|
|
{
|
|
float val1 = sp_ctof(params[1]);
|
|
float val2 = sp_ctof(params[2]);
|
|
val1 = atan2(val1, val2);
|
|
|
|
return sp_ftoc(val1);
|
|
}
|
|
|
|
static cell_t sm_FloatRound(IPluginContext *pCtx, const cell_t *params)
|
|
{
|
|
float val = sp_ctof(params[1]);
|
|
|
|
switch (params[2])
|
|
{
|
|
case 1:
|
|
{
|
|
val = floor(val);
|
|
break;
|
|
}
|
|
case 2:
|
|
{
|
|
val = ceil(val);
|
|
break;
|
|
}
|
|
case 3:
|
|
{
|
|
if (val >= 0.0f)
|
|
{
|
|
val = floor(val);
|
|
} else {
|
|
val = ceil(val);
|
|
}
|
|
break;
|
|
}
|
|
default:
|
|
{
|
|
val = (float)floor(val + 0.5f);
|
|
break;
|
|
}
|
|
}
|
|
|
|
return static_cast<int>(val);
|
|
}
|
|
|
|
REGISTER_NATIVES(floatnatives)
|
|
{
|
|
{"float", sm_float},
|
|
{"FloatMul", sm_FloatMul},
|
|
{"FloatDiv", sm_FloatDiv},
|
|
{"FloatAdd", sm_FloatAdd},
|
|
{"FloatSub", sm_FloatSub},
|
|
{"FloatFraction", sm_FloatFraction},
|
|
{"RoundToZero", sm_RoundToZero},
|
|
{"RoundToCeil", sm_RoundToCeil},
|
|
{"RoundToFloor", sm_RoundToFloor},
|
|
{"RoundToNearest", sm_RoundToNearest},
|
|
{"FloatCompare", sm_FloatCompare},
|
|
{"SquareRoot", sm_SquareRoot},
|
|
{"Pow", sm_Pow},
|
|
{"Exponential", sm_Exponential},
|
|
{"Logarithm", sm_Logarithm},
|
|
{"Sine", sm_Sine},
|
|
{"Cosine", sm_Cosine},
|
|
{"Tangent", sm_Tangent},
|
|
{"FloatAbs", sm_FloatAbs},
|
|
{"ArcTangent", sm_ArcTangent},
|
|
{"ArcCosine", sm_ArcCosine},
|
|
{"ArcSine", sm_ArcSine},
|
|
{"ArcTangent2", sm_ArcTangent2},
|
|
{"FloatRound", sm_FloatRound}, /* Backwards compat shim */
|
|
{NULL, NULL}
|
|
};
|