/*
 * $Id$
 *
 * $Date: 2005-10-28 10:08:07 -0359
 * $Revision$
 *
 * (C) 1999 by Hyperion
 * All rights reserved
 *
 * This file is part of the MiniGL library project
 * See the file Licence.txt for more details
 *
 */

#include <math.h>

#include "displaylists.h"
#include "sysinc.h"
#include "util.h"

static char rcsid[] UNUSED = "$Id$";

void cgl_GLFogf(struct GLContextIFace *Self, GLenum pname, GLfloat param)
{
	GLcontext context = GET_INSTANCE(Self);

	DL_CHECK(Fogf(Self, pname, param))

	context->FogDirty = GL_TRUE;

	switch (pname) {
		case GL_FOG_MODE:
			context->fog.FogMode = param;
			switch ((GLint)param) {
				case GL_LINEAR:
					context->w3dFogMode = W3D_FOG_LINEAR;
					break;

				case GL_EXP:
					context->w3dFogMode = W3D_FOG_EXP;
					break;

				case GL_EXP2:
					context->w3dFogMode = W3D_FOG_EXP_2;
					break;

				default:
					GLFlagError(context, 1, GL_INVALID_ENUM);
			}
			break;

		case GL_FOG_DENSITY:
			GLFlagError(context, param<0, GL_INVALID_VALUE);
			context->w3dFog.fog_density = (W3D_Float)param;
			context->fog.FogDensity = param;
			break;

		case GL_FOG_START:
			context->fog.FogStart = param;
			break;

		case GL_FOG_END:
			context->fog.FogEnd   = param;
			break;

		case GL_FOG_INDEX:
			GLFlagError(context, 1, GL_INVALID_ENUM);
			break;

		default:
			GLFlagError(context, 1, GL_INVALID_ENUM);
			break;
	}
}

void cgl_GLFogfv(struct GLContextIFace *Self, GLenum pname, const GLfloat *param)
{
	GLcontext context = GET_INSTANCE(Self);

	DL_CHECK(Fogfv(Self, pname, param))

	context->FogDirty = GL_TRUE;

	switch (pname) {
		case GL_FOG_MODE:
			context->fog.FogMode = *param;
			switch((GLint)*param) {
				case GL_LINEAR:
					context->w3dFogMode = W3D_FOG_LINEAR;
					break;

				case GL_EXP:
					context->w3dFogMode = W3D_FOG_EXP;
					break;

				case GL_EXP2:
					context->w3dFogMode = W3D_FOG_EXP_2;
					break;

				default:
					GLFlagError(context, 1, GL_INVALID_ENUM);
			}
			break;

		case GL_FOG_DENSITY:
			GLFlagError(context, *param<0, GL_INVALID_VALUE);
			context->w3dFog.fog_density = (W3D_Float)(*param);
			context->fog.FogDensity = *param;
			break;

		case GL_FOG_START:
			context->fog.FogStart = *param;
			break;

		case GL_FOG_END:
			context->fog.FogEnd   = *param;
			break;

		case GL_FOG_INDEX:
			GLFlagError(context, 1, GL_INVALID_ENUM);
			break;

		case GL_FOG_COLOR:
			context->w3dFog.fog_color.r = (W3D_Float)*param;
			context->w3dFog.fog_color.g = (W3D_Float)*(param+1);
			context->w3dFog.fog_color.b = (W3D_Float)*(param+2);
			context->fog.FogColor.r = *param;
			context->fog.FogColor.g = *(param+1);
			context->fog.FogColor.b = *(param+2);
			context->fog.FogColor.a = *(param+3);
			break;

		default:
			GLFlagError(context, 1, GL_INVALID_ENUM);
			break;
	}
}

static float fog_Clamp(float f)
{
	if (f > 1.0) {
		f = 1.0;
	}
	if (f < 0.0) {
		f = 0.0;
	}
	return f;
}

void fog_Set(GLcontext context)
{
	uint32 error;

	if (context->UseZFog == GL_FALSE) {
#ifdef DISABLE_TRANSFORMATION
		context->w3dFog.fog_start = fog_Clamp(context->fog.FogStart);
		context->w3dFog.fog_end   = fog_Clamp(context->fog.FogEnd);
#else
		context->w3dFog.fog_start = fog_Clamp(fabs(-1.0 / ((context->fog.FogStart) * (CurrentP->v[OF_43]) + (CurrentP->v[OF_44]))));
		context->w3dFog.fog_end   = fog_Clamp(fabs(-1.0 / ((context->fog.FogEnd)   * (CurrentP->v[OF_43]) + (CurrentP->v[OF_44]))));
#endif

		if(context->w3dFogMode == W3D_FOG_LINEAR) {
			if(context->w3dFog.fog_density < 0) {
				// Warp3D will reject fog params if fog_density < 0 regardless of whether the fog mode uses it
				context->w3dFog.fog_density = 0;
			}
		} else {
			if(context->w3dFog.fog_start <= context->w3dFog.fog_end) {
				// Warp3D will reject fog params if fog_start >= fog_end, even if the fog mode doesn't use it
				context->w3dFog.fog_start = context->w3dFog.fog_end + 1e-7;
			}
		}
		error = IWarp3D->W3D_SetFogParams(
			context->w3dContext,
			&(context->w3dFog),
			context->w3dFogMode
		);

		if (error == W3D_UNSUPPORTEDFOG) {
			context->w3dFogMode = W3D_FOG_INTERPOLATED;
			error = IWarp3D->W3D_SetFogParams(context->w3dContext, &(context->w3dFog), context->w3dFogMode);
		}
	}
	else {
#ifdef MGL_NEW_WARP3D
#ifdef sdfhl//DISABLE_TRANSFORMATION
		context->w3dFog.fog_start = fog_Clamp(context->fog.FogStart);
		context->w3dFog.fog_end   = fog_Clamp(context->fog.FogEnd);
#else
		context->w3dFog.fog_start = fog_Clamp(-1.0 / ((context->fog.FogStart) * (CurrentP->v[OF_43]) + (CurrentP->v[OF_44])));
		context->w3dFog.fog_end   = fog_Clamp(-1.0 / ((context->fog.FogEnd)   * (CurrentP->v[OF_43]) + (CurrentP->v[OF_44])));
#endif
		IWarp3D->W3D_SetParameter(context->w3dContext, W3D_FOG_COLOR, &(context->w3dFog.fog_color));
#endif
	}
}