nuclear@1: /*
nuclear@1: libvmath - a vector math library
nuclear@1: Copyright (C) 2004-2011 John Tsiombikas <nuclear@member.fsf.org>
nuclear@1: 
nuclear@1: This program is free software: you can redistribute it and/or modify
nuclear@1: it under the terms of the GNU Lesser General Public License as published
nuclear@1: by the Free Software Foundation, either version 3 of the License, or
nuclear@1: (at your option) any later version.
nuclear@1: 
nuclear@1: This program is distributed in the hope that it will be useful,
nuclear@1: but WITHOUT ANY WARRANTY; without even the implied warranty of
nuclear@1: MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
nuclear@1: GNU Lesser General Public License for more details.
nuclear@1: 
nuclear@1: You should have received a copy of the GNU Lesser General Public License
nuclear@1: along with this program.  If not, see <http://www.gnu.org/licenses/>.
nuclear@1: */
nuclear@1: 
nuclear@1: #include <stdlib.h>
nuclear@1: 
nuclear@1: static inline scalar_t smoothstep(float a, float b, float x)
nuclear@1: {
nuclear@1: 	if(x < a) return 0.0;
nuclear@1: 	if(x >= b) return 1.0;
nuclear@1: 
nuclear@1: 	x = (x - a) / (b - a);
nuclear@1: 	return x * x * (3.0 - 2.0 * x);
nuclear@1: }
nuclear@1: 
nuclear@1: /** Generates a random number in [0, range) */
nuclear@1: static inline scalar_t frand(scalar_t range)
nuclear@1: {
nuclear@1: 	return range * (scalar_t)rand() / (scalar_t)RAND_MAX;
nuclear@1: }
nuclear@1: 
nuclear@1: /** Generates a random vector on the surface of a sphere */
nuclear@1: static inline vec3_t sphrand(scalar_t rad)
nuclear@1: {
nuclear@1: 	scalar_t u = (scalar_t)rand() / RAND_MAX;
nuclear@1: 	scalar_t v = (scalar_t)rand() / RAND_MAX;
nuclear@1: 
nuclear@1: 	scalar_t theta = 2.0 * M_PI * u;
nuclear@1: 	scalar_t phi = acos(2.0 * v - 1.0);
nuclear@1: 
nuclear@1: 	vec3_t res;
nuclear@1: 	res.x = rad * cos(theta) * sin(phi);
nuclear@1: 	res.y = rad * sin(theta) * sin(phi);
nuclear@1: 	res.z = rad * cos(phi);
nuclear@1: 	return res;
nuclear@1: }
nuclear@1: 
nuclear@1: /** linear interpolation */
nuclear@1: static inline scalar_t lerp(scalar_t a, scalar_t b, scalar_t t)
nuclear@1: {
nuclear@1: 	return a + (b - a) * t;
nuclear@1: }