/*
	show.c

	sh1.bat = cl /AL show.c vimage3 graphlib

	show [name*] [palname]

*/
#include <stdio.h>
#include <string.h>
#include "nomouse.h"
#include "font.h"
#include <sys\types.h>
#include <sys\timeb.h>

#define MAX_NUM 200
#define S_SIZE 40

#define BUFF    240 
#define RED     241 
#define ORANGE  242 
#define YELLOW  243 
#define GREEN   244 
#define CYAN    245 
#define BLUE    246 
#define MAGENTA 247 
#define BROWN   248 
#define D_CYAN  249 
#define WHITE   250 
#define BLACK   251 
#define D_GREY  252 
#define M_GREY  253 
#define L_GREY  254 
#define D_GREEN 255 

int ScreenXs=640,ScreenYs=480;
long Delay;
struct   Color
{
	unsigned char  r, g, b;
}Lut[256];
VideoType='X';
struct board
{
	int row,col,color;
}B_Id;

struct file_id
{
	char name[S_SIZE];
	long size;
	unsigned date,time;
};
extern struct file_id GF_File[MAX_NUM];
extern int GF_Order[MAX_NUM];
unsigned char Buffer1[120][320],Buffer2[120][320];
unsigned char BarBuffer[18][640];
int D_Grey,Black,M_Grey,L_Grey,White;
int VGA_Color[16][3]=
{
	{105, 90, 75},		/* 240 BUFF */
	{255,  0,  0},		/* 241 RED */
	{255,128,  0},		/* 242 ORANGE */
	{191,192,  0},		/* 243 YELLOW */
	{  0,191,  0},		/* 244 GREEN */
	{  0,191,191},		/* 245 CYAN */
	{  0,  0,255},		/* 246 BLUE */
	{191,  0,191},		/* 247 MAGENTA */
	{ 96, 28, 14},		/* 248 BROWN */
	{  0, 91, 91},		/* 249 D_CYAN */
	{255,255,255},		/* 250 WHITE */
	{  0,  0,  0},		/* 251 BLACK */
	{ 70, 70, 70},		/* 252 D_GREY */
	{127,127,127},		/* 253 M_GREY */
	{191,191,191},		/* 254 L_GREY */
	{  0,128,  0}		/* 255 D_GREEN */
};
int Auto=0;
int Text=0,I1,I2,I3,I4;
int Quick=0;
char HdrText[16][46];
int Script;

int plotrow(int plane,int x1,int x2,int y,unsigned char *buffer);
long set_time(long delay);

main(int argc,char *argv[])

{
	int i,j,k,r,c,j2;
	long li;
	int num_files,time=0;
	char string[100],ans;
	FILE *fp;
	unsigned char val[2];
	long offset;
	int row,col,num,x1,x2,y1,row2;
	int txc,tyc,txs=12*7,tys=15,end;
	unsigned int size=38400;
	int quick=0;

	Delay=set_time((long)10000)/10;
 	printf("Delay = %ld\n",Delay);
	if(argc==2)
		strcpy(string,argv[1]);
	else
		Auto=1;
	for(;;)
	{
		if(Auto==1)
		{
			Quick=0;
			if(get_file_name("*.shw",string)<0)
			{
				if(time==0)
				{
					printf(
"\n\n\n     No '.shw' files or none chosen.\n\n");
					printf(
"     Program 'show' displays a sequence of quarter screen images all\n");
					printf(
"     of which use the same palette (or color look up table).  Before\n");
					printf(
"     you can use this program you must run program 'showprep' which\n");
					printf(
"     reads a series of '.dat' files.  The format for running\n");
					printf(
"     'showprep'  is as follows:\n");
					printf("\n");
					printf(
" 1.       showprep name*\n");
					printf(
"     or \n");
					printf(
" 2.       showprep name???\n");
					printf("\n");
					printf(
"     or \n");
					printf(
" 3.       showprep /script name.spt\n");
					printf("\n");
					printf(
"The name must contain wild cards (option 1&2) to identify a series of '.dat'\n");
					printf(
"files.  The files will be processed in alphabetical order (except option 3)\n");
					printf("\n");
				}
				exit(0);
			}
		}
		time+=1;
		for(k=0;k<strlen(string);k++)
			if(string[k]=='.')
				string[k]='\0';
		strcat(string,".shw");
		fp=fopen(string,"rb");
		if(!fp)
		{	
			printf("Could not open '%s' to read binary.\n\n",string);
			exit(0);
		}
		fread((char *)&row,sizeof(int),1,fp);
		fread((char *)&col,sizeof(int),1,fp);
		fread((char *)&num,sizeof(int),1,fp);
		fread((char *)&Text,sizeof(int),1,fp);
		fread((char *)&Script,sizeof(int),1,fp);
		fread((char *)&I2,sizeof(int),1,fp);
		fread((char *)&I3,sizeof(int),1,fp);
		fread((char *)&I4,sizeof(int),1,fp);
		if(Text==1)
			fread((char *)HdrText,sizeof(char),736,fp);
		row2=row/2;
		x1=(640-col)/2;
		x2=x1+col-1;
		y1=(480-row)/2;
		txc=x1+3;
		tyc=y1+row+9;
		fread((char *)Lut,sizeof(struct Color),256,fp);
		offset=ftell(fp);
		for(i=0;i<16;i++)
		{
			if(Lut[i+240].r==0&&Lut[i+240].g==0&&Lut[i+240].b==0)
			{
				Lut[i+240].r=VGA_Color[i][0];
				Lut[i+240].g=VGA_Color[i][1];
				Lut[i+240].b=VGA_Color[i][2];
			}
		}
		video_on();
		WritePalette(Lut);
		paint_box(0,D_GREY,BarBuffer,0,0,ScreenXs,ScreenYs);
		paint_box(0,BLACK,BarBuffer,x1-6,y1-6,col+12,row+12);
		paint_box(0,M_GREY,BarBuffer,x1-3,y1-3,col+6,row+6);
		paint_box(0,BLACK,BarBuffer,x1-6,tyc-6,col+12,tys+12);
		paint_box(0,D_GREY,BarBuffer,x1-3,tyc-3,col+6,tys+6);
		plot_font_h(L_GREY,66,10,"Geologic Information Visualization",1,Font);
		plot_font_h(L_GREY,75,45,
	"U.S. Geological Survey/Office of Energy and Marine Geology, Reston, VA",
			2,Font);
		if(Script==0)
		{
			plot_font_h(L_GREY,txc+2,tyc+2,"Source File:  ",2,Font);
			txc+=98;
		}
		else
		{
			txc+=20;
			txs=273;
		}
		plot_font_h(L_GREY,246,400,"     'Esc' to exit",2,Font);
		plot_font_h(L_GREY,246,415,"     'f' for faster",2,Font);
		plot_font_h(L_GREY,246,430,"     's' for slower",2,Font);
		plot_font_h(L_GREY,246,445,"ANY OTHER KEY to PAUSE",2,Font);
		plot_font_h(L_GREY,246,460,"  ANY KEY to CONTINUE",2,Font);
		if(Text==1)
		{
			for(i=0;i<16;i++)
				plot_font_h(BLACK,x1+2,y1+2+i*15,HdrText[i],2,Font);
			getch();
		}
		for(;;)
		{ 
			end=0;
			fseek(fp,offset,SEEK_SET);
			for(r=0;r<num;r++)
			{
				fread((char *)string,sizeof(char),40,fp);
				fread((char *)Buffer1,sizeof(char),size,fp);
				fread((char *)Buffer2,sizeof(char),size,fp);
				if(kbhit()>0)
				{
					ans=getch();
					if(ans==27)
					{
						video_off();
						if(Auto==0)
							exit(0);
						else
						{
							end=1;
							break;
						}
					}
					else if(ans=='s')
					{
						if(quick==0)
							Delay*=2;
						else
							quick=0;
					}
					else if(ans=='f')
					{	
						if(Delay>1)
							Delay/=2;
						else if(quick==0)
						{
							quick=1;
							paint_box(0,D_GREY,BarBuffer,txc,tyc,txs,tys);
						}							
					}
					else
						getch();
				}
				if(end==1)
					break;
				if(quick==0)
				{
					paint_box(0,D_GREY,BarBuffer,txc,tyc,txs,tys);
					plot_font_h(L_GREY,txc+2,tyc+2,string,2,Font);
				}
				for(i=0;i<row2;i++)
					PlotLine(i+y1,x1,i+y1,x2,Buffer1[i]);
				for(i=0;i<row2;i++)
					PlotLine(i+y1+row2,x1,i+y1+row2,x2,Buffer2[i]);
				for(li=0;li<Delay;li++);
			}
			if(end==1)
				break;
		}
		video_off();	
		fclose(fp);
	}
}

/***********************************************************************
**
**
**
**
************************************************************************/

long set_time(long delay)

{
	int i,j,k;
	struct timeb t1,t2;
	long li,ds,dm,dt;

	ftime(&t1);
	for(li=0;li<delay;li++);
	ftime(&t2);
	ds=t2.time-t1.time;
	dm=(long)t2.millitm-(long)t1.millitm;
	dt=ds*1000+dm;
	if(dt==0)
	{
		delay*=25;
		ftime(&t1);
		for(li=0;li<delay;li++);
		ftime(&t2);
		ds=t2.time-t1.time;
		dm=(long)t2.millitm-(long)t1.millitm;
		dt=ds*1000+dm;
	}
	if(dt>0)
	{
		delay=3000*delay;
		delay/=dt;
	}
	return(delay);
}


/**********************************************************************
**
**
**
**********************************************************************/

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);
	}
}

/**********************************************************************
**
**
**
**********************************************************************/

int set_lut()
{}