bool C3DModel::Load(LPCSTR Filename)
{
	int i;
	FILE * l_file;
	unsigned short l_chunk_id;
	unsigned int l_chunk_length;
	unsigned short l_qty;
	unsigned short l_face_flags;

	ModelMesh = new CMesh;
	
	if ((l_file=fopen (Filename, "rb"))== NULL) 
			return false;

	while (ftell (l_file) < filelength (fileno (l_file))) //Loop to scan the whole file 
	{
		fread (&l_chunk_id, 2, 1, l_file); //Read the chunk header
		fread (&l_chunk_length, 4, 1, l_file); //Read the length of the chunk

		switch (l_chunk_id)
		{
			case 0x4d4d: 
			break;

			case 0x3d3d:
			break;

			case 0x4000: 
			break;

			case 0x4100:
			break;

			case 0x4110: 
			fread (&l_qty, sizeof (unsigned short), 1, l_file);

			ModelMesh->i_VertexCount = l_qty;
			ModelMesh->Vertices = new Vertex[l_qty];

			for (i = 0; i < l_qty; i++)
			{
				fread (&ModelMesh->Vertices.x, sizeof(float), 1, l_file);
				fread (&ModelMesh->Vertices.y, sizeof(float), 1, l_file);
				fread (&ModelMesh->Vertices.z, sizeof(float), 1, l_file);
			}
			break;

			case 0x4120:
			fread (&l_qty, sizeof (unsigned short), 1, l_file);

			ModelMesh->i_PolygonCount = l_qty;
			ModelMesh->Polygons = new Vector4[l_qty];

			for (i = 0; i < l_qty; i++)
			{
				fread (&ModelMesh->Polygons.a, sizeof (unsigned short), 1, l_file);
				fread (&ModelMesh->Polygons.b, sizeof (unsigned short), 1, l_file);
				fread (&ModelMesh->Polygons.c, sizeof (unsigned short), 1, l_file);
				fread (&l_face_flags, sizeof (unsigned short), 1, l_file);
			}
			break;

			case 0x4140:
			fread (&l_qty, sizeof (unsigned short), 1, l_file);
			for (i = 0; i < l_qty; i++)
			{
				fread (&ModelMesh->Vertices.u, sizeof (float), 1, l_file);
				fread (&ModelMesh->Vertices.v, sizeof (float), 1, l_file);
			}
			break;

			default:
			fseek(l_file, l_chunk_length-6, SEEK_CUR);
		} 
	}

	fclose (l_file);

	return true;
}