#ifndef __IVMODELFN_H__
#define __IVMODELFN_H__

#include <iostream>
#include <fstream>
#include <stdio.h>
#include <string>
// #include "StdAfx.h"

using namespace std;

#include "ivmodel.h"

#define MAX_OBJ 100 //Maximum objects in file
#define MAX_VERTS 100 //Maximum vertices a face can have

const string AMB = "ambientColor";
const string DIF = "diffuseColor";
const string SPE = "specularColor";
const string SHI = "shininess";

void ReadModel(Model &model, string filename) {
	//string filename="test.iv";
	ifstream fin(filename.data());

	if(!fin) {
		printf ("Unable to open Model file %s", filename);
		return;
	}

	char buffer[255];
	string sbuffer;

//First Pass = Counting

	while(true) {
		fin.getline(buffer, 255);
		sbuffer = buffer;
		if ((int)sbuffer.find("Coordinate3")!=-1) break;
	}

	// Vertices
	model.nverts=0;
	while(true) {
		fin.getline(buffer, 255);
		sbuffer = buffer;
		model.nverts++;
		if ((int)sbuffer.find("]")!=-1) break;
	}

	cout<<"Vertices: "<<model.nverts<<endl;

	while(true) {
		fin.getline(buffer, 255);
		sbuffer = buffer;
		if ((int)sbuffer.find("Normal {")!=-1) break;
	}

	//Normals
	model.nnorms=0;
	while(true) {
		fin.getline(buffer, 255);
		sbuffer = buffer;
		model.nnorms++;
		if ((int)sbuffer.find("]")!=-1) break;
	}

	cout<<"Normals: "<<model.nnorms<<endl;

	//Objects
	ObjDesc od[MAX_OBJ];

	int count=0;
	bool flag=false;
	while(!fin.eof()) {

		while(true) {
			fin.getline(buffer, 255);
			if (fin.eof()) {
				flag=true;
				break;
			}

			sbuffer = buffer;
			if ((int)sbuffer.find("Separator")!=-1) break;
		}
		if (flag) break;

		//cout << count << " Seperator Found"<<endl;

		//Material
		while(true) {
			fin.getline(buffer, 255);
			sbuffer = buffer;
			if ((int)sbuffer.find("Material")!=-1) break;

		}

		//cout << count << " Material Found"<<endl;

		while(true) {
			fin.getline(buffer, 255);
			sbuffer = buffer;
			if ((int)sbuffer.find("}")!=-1) break;
		}

		//cout << count << " Material Skipped"<<endl;

		//Faces
		while(true) {
			fin.getline(buffer, 255);
			sbuffer = buffer;
			if ((int)sbuffer.find("IndexedFaceSet")!=-1) break;
		}

		//cout << count << " Faces Found"<<endl;

		od[count].nfaces=0;
		while(true) {
			fin.getline(buffer, 255);
			sbuffer = buffer;
			//count the number of -1's
			int pos=1;
			while (true) {
				if (pos>sbuffer.size()) break;
				if (sbuffer.find("-1",pos)==-1) break;
				pos=sbuffer.find("-1",pos)+1;
				od[count].nfaces++;

			}
			if ((int)sbuffer.find("]")!=-1) break;

		}
		//cout << count << " Faces Counted"<<endl;


		od[count].nnorms=0;
		while(true) {
			fin.getline(buffer, 255);
			sbuffer = buffer;
			//count the number of -1's
			int pos=1;
			while (true) {
				if (pos>sbuffer.size()) break;
				if (sbuffer.find("-1",pos)==-1) break;
				pos=sbuffer.find("-1",pos)+1;
				od[count].nnorms++;

			}
			if ((int)sbuffer.find("]")!=-1) break;

		}

		//cout << count << " Normals Counted"<<endl;

		count++;
		cout<<"Object "<<count<<": Faces "<<od[count-1].nfaces<<endl;

	}
	model.nobjs= count;
	fin.close();



//Allocating Memory

	//Model
	model.AllocMem();
	int i,j,k,m;
	//Objects
	for (i=0; i<model.nobjs; i++) {
		model.obj[i].nnorms=od[i].nnorms;
		model.obj[i].nfaces=od[i].nfaces;
		model.obj[i].AllocMem();

	}


	cout<<" Memory Allocated"<<endl;

//Second Pass = Reading Model
	ifstream fin2(filename.data());
	//fin=fin2;

	//cout<<fin.tellg();

	while(true) {
		fin2.getline(buffer, 255);
		sbuffer = buffer;
		if ((int)sbuffer.find("Coordinate3")!=-1) break;
	}

	//Vertices
	fin2>>sbuffer>>sbuffer;
	//cout<<sbuffer;

	for (i=0; i<model.nverts; i++) {
		fin2>>model.vert[i][0]>>model.vert[i][1]>>model.vert[i][2]>>sbuffer;
	}

	cout<<model.vert[model.nverts-1][0]<<model.vert[model.nverts-1][1]<<model.vert[model.nverts-1][2]<<sbuffer<<endl;


	cout<<" Vertices Read"<<endl;


	while(true) {
		fin2.getline(buffer, 255);
		sbuffer = buffer;
		if ((int)sbuffer.find("Normal {")!=-1) break;
	}


	//Normals
	fin2>>sbuffer>>sbuffer;

	for (i=0; i<model.nnorms; i++) {
		fin2>>model.norm[i][0]>>model.norm[i][1]>>model.norm[i][2]>>sbuffer;
	}

	cout<<model.norm[model.nnorms-1][0]<<model.norm[model.nnorms-1][1]<<model.norm[model.nnorms-1][2]<<sbuffer<<endl;

	cout<<" Normals Read"<<endl;

	//Objects

	for (i=0; i<model.nobjs; i++) {
		//Material
		while(true) {
			fin2.getline(buffer, 255);
			sbuffer = buffer;
			if ((int)sbuffer.find("Material")!=-1) break;

		}

		while(true) {
			fin2>>sbuffer;

			if (sbuffer.find (AMB.data())!=-1) {
				fin2>>model.obj[i].mat.ambient[0]>>model.obj[i].mat.ambient[1]>>model.obj[i].mat.ambient[2];
				printf ("Color: %lf, %lf, %lf\n", model.obj[i].mat.ambient[0], model.obj[i].mat.ambient[1], model.obj[i].mat.ambient[2]);
			} else if (sbuffer.find (DIF.data())!=-1) {
				fin2>>model.obj[i].mat.diffuse[0]>>model.obj[i].mat.diffuse[1]>>model.obj[i].mat.diffuse[2];
			} else if (sbuffer.find (SPE.data())!=-1) {
				fin2>>model.obj[i].mat.specular[0]>>model.obj[i].mat.specular[1]>>model.obj[i].mat.specular[2];
			} else if (sbuffer.find (SHI.data())!=-1) {
				fin2>>model.obj[i].mat.shininess;
			} else {
				break;
			}


		}
		
		//cout<<model.obj[i].mat.ambient[0]<<model.obj[i].mat.ambient[1]<<model.obj[i].mat.ambient[2]<<endl;
		cout << "Object "<<i+1<<" material Read"<<endl;

		//Faces
		while(true) {
			fin2.getline(buffer, 255);
			sbuffer = buffer;
			if ((int)sbuffer.find("IndexedFaceSet")!=-1) break;
		}
		
		fin2>>sbuffer>>sbuffer;
		int currface[MAX_VERTS], ibuffer;
		
		
		for(j=0; j<model.obj[i].nfaces; j++) {

			ibuffer=0;
			for (k=0; ibuffer != -1; k++) {
				fin2>>ibuffer>>sbuffer;
				currface[k]=ibuffer;
			}


//			cout<<k;

			//Allocate mem for each face
			//model.obj[i].face[j] = new int[k];
			model.obj[i].AllocFace(j,k);


			for (m=0; m<k; m++) {
				model.obj[i].face[j][m]=currface[m];
			}
		}

		cout << "Object "<<i+1<<" faces Read"<<endl;

		//Normals
		fin2>>sbuffer>>sbuffer;


		for(j=0; j<model.obj[i].nnorms; j++) {
			ibuffer=0;
			for (k=0; ibuffer != -1; k++) {
				fin2>>ibuffer>>sbuffer;
				currface[k]=ibuffer;
			}

//			cout<<k;

			//Allocate mem for each face
			model.obj[i].AllocNorm(j,k);

			for (int m=0; m<k; m++) {
				model.obj[i].norm[j][m]=currface[m];
			}
		}

		cout << "Object "<<i+1<<" normals Read"<<endl;

	}
	
}

void DrawModel (Model &model) {
	for (int i=0; i<model.nobjs; i++) {
		//Set Material

		//Draw Object
		for (int j=0; j<model.obj[i].nfaces; j++) {
			
			glBegin(GL_POLYGON);
				for (int k=0; k<MAX_VERTS; k++) {
					int m = model.obj[i].face[j][k];
					if (m == -1) break;
					float temp[3];
					temp[0] = model.obj[i].mat.ambient[0];
					temp[1] = model.obj[i].mat.ambient[1];
					temp[2] = model.obj[i].mat.ambient[2];
//					glMaterial3d(GL_FRONT_AND_BACK, GL_AMBIENT, model.obj[i].mat.ambient[0], model.obj[i].mat.ambient[1], model.obj[i].mat.ambient[2]);
					glMaterialfv(GL_FRONT_AND_BACK, GL_AMBIENT, temp);
					//glMaterialfv(GL_FRONT_AND_BACK, GL_DIFFUSE, (float *) model.obj[i].mat.diffuse);
					//glMaterialfv(GL_FRONT_AND_BACK, GL_SPECULAR, (float *) model.obj[i].mat.specular);
					//glMaterialf(GL_FRONT_AND_BACK, GL_SHININESS, (float) model.obj[i].mat.shininess);

					glNormal3dv(model.norm[m]);
					glVertex3dv(model.vert[m]);
				}
			glEnd();


		}
	}
}
#endif