/*
	view3d.c

	v3d1.bat = cl /AL view3d.c vimage3 graphlib

	reads a [filename].3d file and makes '.lbl','.pal', and '.dat'

*/
#include <stdio.h>
#include <string.h>
#include "nomouse.h"

int ScreenXs=640,ScreenYs=480;
struct   Color
{
	unsigned char  r, g, b;
}Lut[256];
VideoType='X';
struct board
{
	int row,col,color;
}B_Id;
unsigned char Buffer[3][640];


main(int argc,char *argv[])

{
	int i,j,k;
	char string[100],datname[30],palname[30],lblname[30],name[30];
	FILE *fp3d,*fplbl,*fpdat,*fppal;
	float r,b;
	int ir,ib,val,num=0;

	if(argc>1)
		strcpy(string,argv[1]);
	while((num=get_file_name("*.3d",string,num))>=0)
	{
		strcpy(name,string);
		for(k=0;k<strlen(name);k++)
			if(name[k]=='.')
				name[k]='\0';
		fp3d=fopen(string,"rb");
		if(!fp3d)
		{
			printf("Could not open '%s' to read.\n\n",string);
			exit(0);
		}
		sprintf(lblname,"%s.lbl",name);
		fplbl=fopen(lblname,"wt");
		if(!fplbl)
		{
			printf("Could not open '%s' to write.\n",lblname);
			exit(0);
		}
		fprintf(fplbl,"FILE_TYPE          = 3D_IMAGE\n");
		fprintf(fplbl,"IMAGE_LINES        = 480\n");
		fprintf(fplbl,"LINE_SAMPLES       = 640\n");
		fprintf(fplbl,"IMAGE_POINTER      = '%s.dat'\n",name);
		fprintf(fplbl,"PAL_POINTER        = '%s.pal'\n",name);
		fprintf(fplbl,"END\n");
		fclose(fplbl);
		video_on();
		sprintf(palname,"%s.pal",name);
		fppal=fopen(palname,"wt");
		if(!fppal)
		{
			video_off();
			printf("Could not open '%s' to write.\n",palname);
			exit(0);
		}
		for(i=0;i<256;i++)
			fprintf(fppal,"%3d  %3d %3d %3d\n",i,
				(int)Lut[i].r,(int)Lut[i].g,(int)Lut[i].b);
		fclose(fppal);
		sprintf(datname,"%s.dat",name);
		fpdat=fopen(datname,"wb");
		if(!fpdat)
		{
			printf("Could not open '%s' to write.\n",datname);
			exit(0);
		}
		for(i=0;i<ScreenYs;i++)
		{
			fread((char *)Buffer,sizeof(char),ScreenXs*2,fp3d);
			if(kbhit()>0)
			{
				val=getch();
				if(val==27)
				{
					if(fpdat)
						fclose(fpdat);
					unlink(lblname);
					unlink(palname);
					unlink(datname);
					exit(0);
				}
			}
			for(j=0;j<ScreenXs;j++)
			{
				if(Buffer[0][j]==64)
					ir=0;
				else
				{
					r=Buffer[0][j];
					ir=(r-(float)16.0)/(float)3.4286;
					ir+=1;
				}
				if(Buffer[1][j]==64)
					ib=0;
				else
				{
					b=Buffer[1][j];
					ib=(b-(float)16.0)/(float)3.4286;
					ib+=1;
				}
				Buffer[2][j]=ir*15+ib;
			}
			plotrow(0,0,ScreenXs-1,i,Buffer[2]);
			fwrite((char *)Buffer[2],sizeof(char),ScreenXs,fpdat);
		}
		if(fp3d)
			fclose(fp3d);
		fclose(fpdat);
		video_off();
	}
}


/**********************************************************************
**
**
**
**********************************************************************/

int video_off()
{
	SetVideoMode(0);
}

/**************************************************************************
**
**
**
************************************************************************* */

int video_on()

{
	int i,row;

	i=GetVideoBoardID();
	if(i==0)
		VideoType='E';
	else if(i==1&&(VideoType=='X'||VideoType=='Y'))
		VideoType='V';
	if(VideoType=='X')
	{
		row=SetVideoMode(480,&B_Id);
		if(B_Id.color==256&&B_Id.row==480)
		{
			ScreenXs=640;
			ScreenYs=480;
		}
		else if(B_Id.color==256&&B_Id.row==400)
			VideoType='Y';
		else
			VideoType='V';
	}
	if(VideoType=='Y')
	{
		row=SetVideoMode(400,&B_Id);
		if(B_Id.row<400)
			VideoType='V';
		else
		{
			ScreenXs=640;
			ScreenYs=row;
		}
	}
	if(VideoType=='V')
	{
		row=SetVideoMode(0x12,&B_Id);
		if(B_Id.row!=480||row!=480||B_Id.color!=16||B_Id.col!=640)
			VideoType='E';
		else
		{
			ScreenXs=640;
			ScreenYs=480;
		}
	}
	if(VideoType=='S')
	{
		row=SetVideoMode(0x13,&B_Id);
		if(B_Id.row!=200)
		{
			SetVideoMode(0,&B_Id);
			printf("Could not boot color board.\n");
			exit(0);
		}
		ScreenXs=320;
		ScreenYs=200;
	}
	if(VideoType=='E')
	{
		row=SetVideoMode(0x10,&B_Id);
		if(B_Id.row!=350||row<350||B_Id.col!=640)
		{
			SetVideoMode(0,&B_Id);
			printf("Could not boot color board.\n");
			exit(0);
		}
		ScreenXs=640;
		ScreenYs=350;
	}
	if(B_Id.row<0)
	{
		SetVideoMode(0,&B_Id);
		printf("Could not boot board -- row = %d\n\n",row);
		exit(0);
	}
	set_lut();
}



/********************************************************************
**
**
**
********************************************************************* */

int set_lut()

{
	int i,j,k=0;
	float min=102;
	float blu,red,fi,fj,scale=((float)255.0-min)/(float)13;
	int iblu,ired,imin=min;

	for(i=0;i<15;i++)
	{
		if(i==0)
			iblu=0;
		else
		{
			fi=i-1;
			blu=(fi*scale+min);
			iblu=blu;
		}
		for(j=0;j<15;j++)
		{
			if(j==0)
				ired=0;
			else
			{
				fj=j-1;
				red=fj*scale+min;
				ired=red;
			}
			Lut[k].r=ired;
			Lut[k].g=0;
			Lut[k].b=iblu;
			k+=1;
		}
	}
	WritePalette(Lut); 
}
                  