DLLFUNC int save_hmp(char* filename,ENTITY* terrain)
{
	if(terrain)
	{
		hmpdata hmp;
		int num_skin=_INT(ent_status(terrain,_VAR(8)));
		cSkin *skins=(cSkin*)malloc(sizeof(cSkin)*num_skin);

		hmp.iNumSkins=num_skin;
		hmp.skinlist=skins;

		int total_vertices=_INT(ent_status(terrain,_VAR(0)));
		hmpvertex *verts;

		verts=(hmpvertex*)malloc(sizeof(hmpvertex)*total_vertices);
		for(int i=0;i<total_vertices;i++)
		{
			CONTACT *c=ent_getvertex(terrain,NULL,_VAR(i));
			verts[i].nx=_FLOAT(c->nx);
			verts[i].ny=_FLOAT(c->ny);
			verts[i].nz=_FLOAT(c->nz);
			verts[i].x=_FLOAT(c->x);
			verts[i].y=_FLOAT(c->y);
			verts[i].z=_FLOAT(c->z);
		}

		float x_size=_FLOAT(terrain->max_x-terrain->min_x);
		float y_size=_FLOAT(terrain->max_y-terrain->min_y);
		
		int x_tiles=_INT(ent_status(terrain,_VAR(2)));
		int y_tiles=_INT(ent_status(terrain,_VAR(3)));

		hmp.vlist=verts;
		hmp.vlistsize=total_vertices;
		
		hmp.xVerticesNum = x_tiles+1;
		hmp.bFloor=true;
	
		hmp.fFaceWidth=x_size/x_tiles;
		hmp.fFaceHeight=y_size/y_tiles;

		hmp.v_min.set(0,0,0);
		hmp.v_max.set(0,0,0);
		
		if(hmp.allVertices())
		{
			float x,y,z;
			float nx,ny,nz;
			hmp.vertex (0,x,y,z, nx,ny,nz);

			hmp.v_min.set(x,y,z);
			hmp.v_max.set(x,y,z);

			for ( int i=1;  i < hmp.allVertices(); i++)
			{
				hmp.vertex ( i,x,y,z, nx,ny,nz);
				
				if ( x < hmp.v_min.x) hmp.v_min.x = x;
				if ( y < hmp.v_min.y) hmp.v_min.y = y;
				if ( z < hmp.v_min.z) hmp.v_min.z = z;

				if ( x > hmp.v_max.x) hmp.v_max.x = x;
				if ( y > hmp.v_max.y) hmp.v_max.y = y;
				if ( z > hmp.v_max.z) hmp.v_max.z = z;
			}
		}

		hmp.iNumFrames = 1;
		strcpy(hmp.cFrameName,"Frame0");

		if(save_hmp7(filename,hmp)) return 1;
		else return 0;
	}
	return 0;
}

///////////////////////////////
#include <acknex.h>
#include <default.c>
#include <level.c>
///////////////////////////////

BMAP* height_map="heightmap.bmp";
BMAP* color_map="colormap.bmp";
BMAP* detail="detail.bmp";

////////////////////////////////////////////
/// save_hmp("example.hmp",source_terrain);
int save_hmp(char* filename,ENTITY* terrain);

function main()
{
	vec_set(screen_size,vector(800,600,0));
	level_load("");
	vec_set(camera.x,vector(0,0,500));
	
	///////////////////////
	//test create a terrain 
	ENTITY* terrain=ent_createterrain(height_map,nullvector,32,32,32);
	c_setminmax(terrain);
	wait(1);
	
	int i;
	var height_factor=1;
	for(i=0;i<ent_status(terrain,0);i++)
	{
		CONTACT *pos=ent_getvertex(terrain,NULL,i);
		COLOR * tp=terrain_getpixel(terrain,pos.x,pos.y,height_map);
		var n=tp.blue+tp.red+tp.green/(3*255);
		//pos.z=0.1+(n*height_factor);
		pos.v.y= 0.1+(n*height_factor);
		//pos.v=NULL;
		ent_setvertex(terrain,pos,i);
	}
	c_updatehull(terrain,0);
	wait(1);	
	
	ent_setskin(terrain,color_map,1);
	ent_setskin(terrain,detail,2);
	
	///////////////////
	//save the hmp file
	save_hmp("test.hmp",terrain);
}