var get_height(var Px, var Py, int SW, ENTITY* Terrain)
{
	//P = point that we want the height of (x,y,0)
	//SW = vertex number of terrain ent closest towards the lower left corner of the square
	//Terrain we are calculating for
	
	
	VECTOR P;
	//TRANSFORM SKIN PIXEL COORDS TO LOCAL ENT COORD SYSTEM
	vec_set(P,vector(Px,Py,0));
	P.x-= 256;
	P.y = 256-P.y;
	
	
	CONTACT* c1;
	VECTOR Triangle[3];
	VECTOR temp_vec;
	ANGLE temp_ang;
	VECTOR Director[2];
	
	VECTOR formula;
	var ind_term;
	
	//retrieve first point of containing triangle (base corner)
	c1= ent_getvertex(Terrain,NULL,SW);
	Triangle[0].x=c1.v.x;
	Triangle[0].y=c1.v.z;
	Triangle[0].z=c1.v.y;
	
	//retrieve second point of containing triangle (diagonal to base)
	c1= ent_getvertex(Terrain,NULL,SW-32);
	Triangle[1].x=c1.v.x;
	Triangle[1].y=c1.v.z;
	Triangle[1].z=c1.v.y;
	
	//determine third point of containing triangle (varying point)
	vec_set (temp_vec, P);
	vec_sub (temp_vec,Triangle[0].x);
	vec_to_angle (temp_ang.pan,temp_vec);
	
	//retrieve third point of containing triangle (varying point)
	if(temp_ang.pan>45)
	{
		c1= ent_getvertex(Terrain,NULL,SW-33);
	}
	else
	{
		c1= ent_getvertex(Terrain,NULL,SW+1);
	}
	Triangle[2].x=c1.v.x;
	Triangle[2].y=c1.v.z;
	Triangle[2].z=c1.v.y;
	
	//calculate the triangle's plane normal for the formula coeficients
	vec_set(Director[0],Triangle[1]);
	vec_sub(Director[0],Triangle[0]);
	vec_set(Director[1],Triangle[2]);
	vec_sub(Director[1],Triangle[0]);
	vec_cross(formula,Director[0],Director[1]);
	//set the independant term of the formula
	ind_term=(-1*formula.x*Triangle[0].x)+(-1*formula.y*Triangle[0].y)+(-1*formula.z*Triangle[0].z);
	//calculate our point's height plugging our values into the formula
	P.z=(-1*((formula.x*P.x)+(formula.y*P.y)+ind_term))/formula.z;
	return(P.z);
}

void Terrain_Paint(int x, int y)
{
	//wait(1);
	
	ENTITY* Terr = Terrain[x][y];
	int i; //vertex info for terrain
	
	BMAP* Source_BM;
	//BMAP* NewSkin = bmap_createblack(512,512,24);
	BMAP* NewSkin = bmap_create("Terrain_Sand.tga");
	BMAP* OldSkin;
	//bmap_for_entity (Terr,Terr.frame);
	VECTOR Pixel_pos; //pixel coordinates for skin bmap
	
	var height;
	var slope;
	
	var pixel_source; var pixel_dest;
	//var t_format1; var t_format2;
	COLOR* t_color; var t_alpha; 
	
	t_format1=bmap_lock(NewSkin,0);
	
	//	t_format2=bmap_lock(Sand_BM,0);
	//	t_format2=bmap_lock(Grass_BM,0);
	//	t_format2=bmap_lock(Rock_BM,0);
	//	t_format2=bmap_lock(Snow_BM,0);

	for(Pixel_pos.y=0;Pixel_pos.y<512;Pixel_pos.y++)
	{
		for(Pixel_pos.x=0;Pixel_pos.x<512;Pixel_pos.x++)
		{
			//              (0to31)+1          (((0to31)+1)*33)+1
			
			i = (integer((Pixel_pos.x)/16)+1) + (((integer((Pixel_pos.y)/16)+1)*33));
			height = get_height(Pixel_pos.x,Pixel_pos.y,i,Terr);
			//slope = get_slope(Pixel_pos.x,Pixel_pos.y,i,Terr);
			
			if(height>16)
			{
				if(height<=16)//sand
				{
					Source_BM=Sand_BM;
				}
				else if(height<75)//grass
				{
					Source_BM=Grass_BM;
				}
				else if(height<150)//stone
				{
					Source_BM=Rock_BM;
				}
				else//snow
				{
					Source_BM=Snow_BM;
				}
			pixel_source = pixel_for_bmap(Source_BM,Pixel_pos.x,Pixel_pos.y);
			t_color = pixel_to_vec(NULL, t_alpha ,t_format2,pixel_source);
			
			//paint pixel on selected terrain's texture
			pixel_dest=pixel_for_vec(t_color,t_alpha,t_format1);
			pixel_to_bmap(NewSkin,Pixel_pos.x,Pixel_pos.y,pixel_dest);
		}
		
		//bmap_unlock(Source_BM);
	}
	
}

//	bmap_unlock(Sand_BM);
//	bmap_unlock(Grass_BM);
//	bmap_unlock(Rock_BM);
//	bmap_unlock(Snow_BM);

bmap_unlock(NewSkin);
OldSkin=ent_getskin(Terr,1);
ptr_remove(OldSkin);
ent_setskin(Terr,NewSkin,1);
}

var t_format1; var t_format2;


t_format2=bmap_lock(Sand_BM,0);
t_format2=bmap_lock(Grass_BM,0);
t_format2=bmap_lock(Rock_BM,0);
t_format2=bmap_lock(Snow_BM,0);
for(x=0;x<TERRAIN_COUNT;x++)
{
	for(y=0;y<TERRAIN_COUNT;y++)
	{			
		Terrain_Paint(x,y);
		wait(1);
	}
}
wait_for(Terrain_Paint);
bmap_unlock(Sand_BM);
bmap_unlock(Grass_BM);
bmap_unlock(Rock_BM);
bmap_unlock(Snow_BM);