[BRL.Math] SuperStrict and single-precision

BlitzMax Forums/BlitzMax Module Tweaks/[BRL.Math] SuperStrict and single-precision

ProfJake

(Posted 2012) [#1]

This is just a quick hack to add single-precision operations to the math module.
It adds a float equivalent for all math functions:

Print Sqr(90.0) ' double-precision
Print Sqrf(90.0) ' single-precision using floats

I tried to change the original version as less as possible and added the single-precision functions in C in the way BRL did.

math.bmx

SuperStrict

Rem
bbdoc: Math/Math
End Rem
Module BRL.Math

ModuleInfo "Version: 1.05"
ModuleInfo "Author: Mark Sibly"
ModuleInfo "License: Blitz Shared Source Code"
ModuleInfo "Copyright: Blitz Research Ltd"
ModuleInfo "Modserver: BRL"

ModuleInfo "History: 1.05 Release"
ModuleInfo "History: Added IsNan and IsInf"

Import "math.c"

Extern

Rem
bbdoc: Check if a value is NAN
returns: True if @x is 'not a number' (eg: Sqr(-1))
End Rem
Function IsNan:Int( x:Double )="bbIsNan"

Rem
bbdoc: Check if a value is infinite (eg: 1.0/0.0)
returns: True if @x is infinite
End Rem
Function IsInf:Int( x:Double )="bbIsInf"

Rem
bbdoc: Square root of @x
End Rem
Function Sqr:Double( x:Double )="bbSqr"

Rem
bbdoc: Sine of @x degrees
End Rem
Function Sin:Double( x:Double )="bbSin"

Rem
bbdoc: Cosine of @x degrees
End Rem
Function Cos:Double( x:Double )="bbCos"

Rem
bbdoc: Tangent of @x degrees
End Rem
Function Tan:Double( x:Double )="bbTan"

Rem
bbdoc: Inverse sine of @x 
End Rem
Function ASin:Double( x:Double )="bbASin"

Rem
bbdoc: Inverse cosine of @x
End Rem
Function ACos:Double( x:Double )="bbACos"

Rem
bbdoc: Inverse tangent of @x
End Rem
Function ATan:Double( x:Double )="bbATan"

Rem
bbdoc: Inverse tangent of two variables @x , @y
End Rem
Function ATan2:Double( y:Double,x:Double )="bbATan2"

Rem
bbdoc: Hyperbolic sine of @x
End Rem
Function Sinh:Double( x:Double )="bbSinh"

Rem
bbdoc: Hyperbolic cosine of @x
End Rem
Function Cosh:Double( x:Double )="bbCosh"

Rem
bbdoc: Hyperbolic tangent of @x
End Rem
Function Tanh:Double( x:Double )="bbTanh"

Rem
bbdoc: Exponential function
end rem
Function Exp:Double( x:Double )="bbExp"

Rem
bbdoc: Natural logarithm
End Rem
Function Log:Double( x:Double )="bbLog"

Rem
bbdoc: Base 10 logarithm
End Rem
Function Log10:Double( x:Double )="bbLog10"

Rem
bbdoc: Smallest integral value not less than @x
End Rem
Function Ceil:Double( x:Double )="bbCeil"

Rem
bbdoc: Largest integral value not greater than @x
End Rem
Function Floor:Double( x:Double )="bbFloor"

End Extern

Extern 

Rem
bbdoc: Check if a single-precision value is NAN
returns: True if @x is 'not a number' (eg: Sqrf(-1))
End Rem
Function IsNanf:Int( x:Float )="bbIsNanf"

Rem
bbdoc: Check if a single-precision value is infinite (eg: 1.0/0.0)
returns: True if @x is infinite
End Rem
Function IsInff:Int( x:Float )="bbIsInff"

Rem
bbdoc: Square root of @x
End Rem
Function Sqrf:Float( x:Float )="bbSqrf"

Rem
bbdoc: Sine of @x degrees
End Rem
Function Sinf:Float( x:Float )="bbSinf"

Rem
bbdoc: Cosine of @x degrees
End Rem
Function Cosf:Float( x:Float )="bbCosf"

Rem
bbdoc: Tangent of @x degrees
End Rem
Function Tanf:Float( x:Float )="bbTanf"

Rem
bbdoc: Inverse sine of @x 
End Rem
Function ASinf:Float( x:Float )="bbASinf"

Rem
bbdoc: Inverse cosine of @x
End Rem
Function ACosf:Float( x:Float )="bbACosf"

Rem
bbdoc: Inverse tangent of @x
End Rem
Function ATanf:Float( x:Float )="bbATanf"

Rem
bbdoc: Inverse tangent of two single-precision variables @x , @y
End Rem
Function ATan2f:Float( y:Float,x:Float )="bbATan2f"

Rem
bbdoc: Hyperbolic sine of @x
End Rem
Function Sinhf:Float( x:Float )="bbSinhf"

Rem
bbdoc: Hyperbolic cosine of @x
End Rem
Function Coshf:Float( x:Float )="bbCoshf"

Rem
bbdoc: Hyperbolic tangent of @x
End Rem
Function Tanhf:Float( x:Float )="bbTanhf"

Rem
bbdoc: Exponential function
end rem
Function Expf:Float( x:Float )="bbExpf"

Rem
bbdoc: Natural logarithm
End Rem
Function Logf:Float( x:Float )="bbLogf"

Rem
bbdoc: Base 10 logarithm
End Rem
Function Log10f:Float( x:Float )="bbLog10f"

Rem
bbdoc: Smallest integral single-precision value not less than @x
End Rem
Function Ceilf:Float( x:Float )="bbCeilf"

Rem
bbdoc: Largest integral single-precision value not greater than @x
End Rem
Function Floorf:Float( x:Float )="bbFloorf"

End Extern

math.c

#include <math.h>

#define RAD_TO_DEG 57.2957795130823208767981548141052
#define DEG_TO_RAD 0.0174532925199432957692369076848861

int bbIsNan( double x ){
	return isnan(x) ? 1 : 0;
}
int bbIsInf( double x ){
	return isinf(x) ? 1 : 0;
}
double bbSqr( double x ){
	return sqrt( x );
}
double bbSin( double x ){
	return sin( x*DEG_TO_RAD );
}
double bbCos( double x ){
	return cos( x*DEG_TO_RAD );
}
double bbTan( double x ){
	return tan( x*DEG_TO_RAD );
}
double bbASin( double x ){
	return asin( x ) * RAD_TO_DEG;
}
double bbACos( double x ){
	return acos( x ) * RAD_TO_DEG;
}
double bbATan( double x ){
	return atan( x ) * RAD_TO_DEG;
}
double bbATan2( double y,double x ){
	return atan2( y,x ) * RAD_TO_DEG;
}
double bbSinh( double x ){
	return sinh( x );
}
double bbCosh( double x ){
	return cosh( x );
}
double bbTanh( double x ){
	return tanh( x );
}
double bbExp( double x ){
	return exp( x );
}
double bbFloor( double x ){
	return floor( x );
}
double bbLog( double x ){
	return log(x);
}
double bbLog10( double x ){
	return log10(x);
}
double bbCeil( double x ){
	return ceil( x );
}

// Single-precision

int bbIsNanf( float x ){
	return isnanf(x) ? 1 : 0;
}
int bbIsInff( float x ){
	return isinf(x) ? 1 : 0;
}
float bbSqrf( float x ){
	return sqrtf( x );
}
float bbSinf( float x ){
	return sinf( x*DEG_TO_RAD );
}
float bbCosf( float x ){
	return cosf( x*DEG_TO_RAD );
}
float bbTanf( float x ){
	return tanf( x*DEG_TO_RAD );
}
float bbASinf( float x ){
	return asinf( x ) * RAD_TO_DEG;
}
float bbACosf( float x ){
	return acosf( x ) * RAD_TO_DEG;
}
float bbATanf( float x ){
	return atanf( x ) * RAD_TO_DEG;
}
float bbATan2f( float y,float x ){
	return atan2f( y,x ) * RAD_TO_DEG;
}
float bbSinhf( float x ){
	return sinhf( x );
}
float bbCoshf( float x ){
	return coshf( x );
}
float bbTanhf( float x ){
	return tanhf( x );
}
float bbExpf( float x ){
	return expf( x );
}
float bbFloorf( float x ){
	return floorf( x );
}
float bbLogf( float x ){
	return logf(x);
}
float bbLog10f( float x ){
	return log10f(x);
}
float bbCeilf( float x ){
	return ceilf( x );
}

SuperStrict is just a little gimmick here.

Enjoy