/*******************************************************************************/
/* COS2000 - Compatible Operating System - LGPL v3 - Hordé Nicolas             */
/*                                                                             */
#include "3d.h"
#include "types.h"
#include "video.h"
#include "string.h"

/*******************************************************************************/
/* Crée une projection simple pour test */
void proj(vector4 list[], vertex2d plane[], vector4 origin[], u16 number, float factor)
{
    for (u32 i=0;i<number;i++)
    {   
        plane[i].x=(int)((list[i].x*factor)/(list[i].z+origin->z)+origin->x);
        plane[i].y=(int)((list[i].y*factor)/(list[i].z+origin->z)+origin->y);
    }   
}

/*******************************************************************************/
/* Crée une liste de vertex3D pour un cube */

void cube(model3d *model, vector4 *origin, u16 size)
{
    strcpy("cube",model->name);
    model->vertexnb=8;
    model->vertexlist=0x00300000;
    model->vertexlist[0].x=origin->x;
    model->vertexlist[0].y=origin->y;
    model->vertexlist[0].z=origin->z;
    model->vertexlist[0].w=1.0f;
    model->vertexlist[1].x=origin->x+size;
    model->vertexlist[1].y=origin->y;
    model->vertexlist[1].z=origin->z;
    model->vertexlist[1].w=1.0f;
    model->vertexlist[2].x=origin->x;
    model->vertexlist[2].y=origin->y+size;
    model->vertexlist[2].z=origin->z;
    model->vertexlist[2].w=1.0f;
    model->vertexlist[3].x=origin->x+size;
    model->vertexlist[3].y=origin->y+size;
    model->vertexlist[3].z=origin->z;
    model->vertexlist[3].w=1.0f;
    model->vertexlist[4].x=origin->x;
    model->vertexlist[4].y=origin->y;
    model->vertexlist[4].z=origin->z+size;
    model->vertexlist[4].w=1.0f;
    model->vertexlist[5].x=origin->x+size;
    model->vertexlist[5].y=origin->y;
    model->vertexlist[5].z=origin->z+size;
    model->vertexlist[5].w=1.0f;
    model->vertexlist[6].x=origin->x;
    model->vertexlist[6].y=origin->y+size;
    model->vertexlist[6].z=origin->z+size;
    model->vertexlist[6].w=1.0f;
    model->vertexlist[7].x=origin->x+size;
    model->vertexlist[7].y=origin->y+size;
    model->vertexlist[7].z=origin->z+size;    
    model->vertexlist[7].w=1.0f;
    model->facelist=0x00310000;
    model->facelist[0].V1=0;
    model->facelist[0].V2=1;
    model->facelist[0].V3=3;
    model->facelist[1].V1=0;
    model->facelist[1].V2=2;
    model->facelist[1].V3=3;
    model->facelist[2].V1=4;
    model->facelist[2].V2=5;
    model->facelist[2].V3=7;
    model->facelist[3].V1=4;
    model->facelist[3].V2=6;
    model->facelist[3].V3=7;
    model->facelist[4].V1=0;
    model->facelist[4].V2=1;
    model->facelist[4].V3=5;
    model->facelist[5].V1=0;
    model->facelist[5].V2=4;
    model->facelist[5].V3=5;
    model->facelist[6].V1=0;
    model->facelist[6].V2=0;
    model->facelist[6].V3=0;
    model->facelist[7].V1=0;
    model->facelist[7].V2=0;
    model->facelist[7].V3=0;
    model->facelist[8].V1=0;
    model->facelist[8].V2=0;
    model->facelist[8].V3=0;
    model->facelist[9].V1=0;
    model->facelist[9].V2=0;
    model->facelist[9].V3=0;
    model->facelist[10].V1=0;
    model->facelist[10].V2=0;
    model->facelist[10].V3=0;
    model->facelist[11].V1=0;
    model->facelist[11].V2=0;
    model->facelist[11].V3=0;
}

/*******************************************************************************/
/* Affiche un modèle 3D */

void show3dmodel(model3d *model, matrix44 *transformation, vector4 origin[], float factor, type3D type)
{
    u16 i;
    vertex2d *plane=0x00250000;
    for (i = 0; i < model->vertexnb; i++) 
    {
        matrix44_transform(transformation, &model->vertexlist[i]);
    }
    proj(model->vertexlist, plane, origin, model->vertexnb, factor);
    switch (type) {
	    case TYPE3D_POINTS:
            for(i=0;i<model->vertexnb;i++) {
                v_writepxl(&plane[i], egatorgb(4));
            }
            break;
	    case TYPE3D_LINES:
            for(i=0;i<model->facenb;i++) {
                v_line(&plane[model->facelist[i].V1], &plane[model->facelist[i].V2], egatorgb(4));
                v_line(&plane[model->facelist[i].V1], &plane[model->facelist[i].V3], egatorgb(4));
                v_line(&plane[model->facelist[i].V2], &plane[model->facelist[i].V3], egatorgb(4));
            }
            break;
	    case TYPE3D_FACES:
            break;
	    case TYPE3D_FLAT:
            break;
	    case TYPE3D_TEXTURE:
            break;
    }
}

/*******************************************************************************/
/* Charge un fichier 3DS */

int load3ds(u8 *pointer,u32 size, model3d *model)
{
    u8 *ptr=pointer;
    u16 chunk_id;
    u32 chunk_size;
    u16 i;
    float *listfloat;
    u16 *listunsigned;
    dsState state=DS_READ_CHUNK_ID;
    bool dsfile=false;
    while(ptr-pointer<size) {
		switch(state)
		{
            case DS_READ_CHUNK_ID:
                chunk_id=*((u16*) ptr);
                ptr+=2;
                state=DS_READ_CHUNK_LENGTH;                   
			    break;
            case DS_READ_CHUNK_LENGTH:
                chunk_size=*((u32*) ptr);
                ptr+=4;
                switch(chunk_id)
                {
                    case MAIN3DS:
                        dsfile=true;
                        ptr+=10;
                        state=DS_READ_CHUNK_ID;                      
                        break;
                    case EDIT3DS:
                        state=DS_READ_CHUNK_ID;   
                        break;
                    case OBJ_TRIMESH:
                        state=DS_READ_CHUNK_ID;
                        break;
                    case EDIT_OBJECT:
                        state=DS_READ_OBJECT_NAME;   
                        break;
                    case TRI_VERTEXL:
                        state=DS_READ_POINT_COUNT;
                        break;
                    case TRI_FACEL1:
                        state=DS_READ_FACE_COUNT;
                        break;
                    case TRI_LOCAL:
                        state=DS_READ_MATRIX;
                        break;
                    default:
                        if (!dsfile) return 1;
                        ptr+=(chunk_size-6);
                        state=DS_READ_CHUNK_ID;  
                        break;
                }
			    break;
            case DS_READ_OBJECT_NAME:
                strcpy(ptr, model->name);
                ptr+=(strlen(ptr)+1);
                state=DS_READ_CHUNK_ID;                 
			    break;
            case DS_SKIP_CHUNK:
			    break;
            case DS_READ_POINT_COUNT:
                model->vertexnb=*((u16*) ptr);
                state=DS_READ_POINTS;  
                ptr+=2;
			    break;
            case DS_READ_POINTS:
                i=0;
                listfloat=ptr;
                model->vertexlist=0x00300000;
                while(i<model->vertexnb)
                {
                    model->vertexlist[i].x=*(listfloat++);
                    model->vertexlist[i].y=*(listfloat++);
                    model->vertexlist[i].z=*(listfloat++);
                    model->vertexlist[i++].w=1.0;               
                }
                ptr=listfloat;                
                state=DS_READ_CHUNK_ID;  
			    break;
            case DS_READ_FACE_COUNT:
                model->facenb=*((u16*) ptr);
                state=DS_READ_FACES;  
                ptr+=2;
			    break;
            case DS_READ_FACES:
                i=0;
                listunsigned=ptr;
                model->facelist=0x00400000;
                while(i<model->facenb)
                {
                    model->facelist[i].V1=*(listunsigned++);
                    model->facelist[i].V2=*(listunsigned++);
                    model->facelist[i++].V3=*(listunsigned++);
                    listunsigned++;
                }
                ptr=listunsigned;                
                state=DS_READ_CHUNK_ID;  
			    break;
            case DS_READ_MATRIX:
                i=0;
                listfloat=ptr;
                while(i<4)
                {
                    model->view.V[i].x=*(listfloat++);
                    model->view.V[i].y=*(listfloat++);
                    model->view.V[i].z=*(listfloat++);    
                    model->view.V[i++].w=0.0f;         
                }
                model->view.V[3].w=1.0f;
                ptr=listfloat;       
                state=DS_READ_CHUNK_ID;       
			    break;
            case DS_READ_DONE:
			    break;
                
        }
            
    }
}