TheGameCreators - CodeBase - Noise Library Part 5: Math.dba

Return to the CodeBase listing

Category: Libraries

Version: 1.0

Information

Uploaded: 31st Oct 2010 10:20

Modified: 31st Oct 2010 10:53

Author: The Sab

Summary

Math constants and functions used by NoiseGen.dba and NoiseUtils.dba

Full Description

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

#constant FALSE 0

#constant TRUE 1

#constant PI 3.1415926535897932385

#constant SQRT_2 1.4142135623730950488

#constant SQRT_3 1.7320508075688772935

#constant DEG_TO_RAD PI / 180.0

#constant RAD_TO_DEG 1.0 / DEG_TO_RAD

function getMin(a as double float, b as double float)

result as double float

if a < b

result = a

else

result = b

endif

endfunction result

function getMax(a as double float, b as double float)

result as double float

if a > b

result = a

else

result = b

endif

endfunction result

function ClampValue(value as integer, lowerBound as integer, upperBound as integer)

result as integer

if value < lowerBound

result = lowerBound

else

if value > upperBound

result = upperBound

else

result = value

endif

endfunction result

function CubicInterp(n0 as float, n1 as float, n2 as float, n3 as float, a as float)

result as float

p as float

q as float

r as float

s as float

p = (n3 - n2) - (n0 - n1)

q = (n0 - n1) - p

r = n2 - n0

s = n1

result = p * a ^ 3 + q * a ^ 2 + r * a + s

endfunction result

function LinearInterp(n0 as float, n1 as float, a as float)

result as float

result = ((1.0 - a) * n0) + (a * n1)

endfunction result

function MakeInt32Range(n as float)

result as float

if n >= 1073741824.0

result = (2.0 * (n mod 1073741824.0)) - 1073741824.0

else

if n <= -1073741824.0

result = (2.0 * (n mod 1073741824.0)) + 1073741824.0

else

result = n

endif

endfunction result

function LatLonToX(lat as float, lon as float)

r as float

x as float

r = cos(lat)

x = r * cos(lon)

endfunction x

function LatLonToY(lat as float, lon as float)

y as float

y = sin(lat)

endfunction y

function LatLonToZ(lat as float, lon as float)

r as float

z as float

r = cos(lat)

z = r * sin(lon)

endfunction z

Download

Please login to download

Comments

No comments yet.

Author Name:	The Sab
CodeBase Entries:	10

CodeBase - Noise Library Part 5: Math.dba

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments