From 3cd3e0a02516df06aa16bba590838fb55a0a8115 Mon Sep 17 00:00:00 2001
From: Spoike <acceptthis@users.sourceforge.net>
Date: Sat, 4 Sep 2004 18:08:51 +0000
Subject: [PATCH] water warp stuff for proper q2 transparency support.

git-svn-id: https://svn.code.sf.net/p/fteqw/code/trunk@138 fc73d0e0-1445-4013-8a0c-d673dee63da5
---
 engine/gl/gl_warp.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/engine/gl/gl_warp.c b/engine/gl/gl_warp.c
index 10462c865..c2fcfc152 100644
--- a/engine/gl/gl_warp.c
+++ b/engine/gl/gl_warp.c
@@ -202,7 +202,7 @@ EmitWaterPolys
 Does a water warp on the pre-fragmented glpoly_t chain
 =============
 */
-void EmitWaterPolys (msurface_t *fa)
+void EmitWaterPolys (msurface_t *fa, float basealpha)
 {
 	glpoly_t	*p;
 	float		*v;
@@ -246,7 +246,7 @@ void EmitWaterPolys (msurface_t *fa)
 		int l;
 		glDisable(GL_ALPHA_TEST);
 		glEnable(GL_BLEND);	//to ensure.
-		for (a=r_wateralphaval,l = 0; l < r_waterlayers.value; l++,a=a*4/6)
+		for (a=basealpha,l = 0; l < r_waterlayers.value; l++,a=a*4/6)
 		{
 			glColor4f(1, 1, 1, a);
 			stm =cos(l)/10;