/*
	tga2lbl.c

	tl1.bat = cl /AL tga2lbl.c getfile 

	converts a '.tga' file to a '.lbl' ,'.pal', and '.dat' file

*/
#include <stdio.h>
#include <string.h>
#include "nomouse.h"

#define MAX_COL 32768

int Mouse=0;

struct hdr
{
	int id_size;					/* byte 0 */
	int color_map;					/* byte 1 (1 if PAL else 0) */
	unsigned char image_type;	/* byte 2 */
										/*  0 -- no image data      */
										/*  1 -- Uncomp,color map   */
										/*  2 -- Uncomp,true color  */
										/*  3 -- Uncomp, B&W        */
										/*  9 -- Comprs,color map   */
										/* 10 -- Comprs,true color  */
										/* 11 -- Comprs, B&W        */
	int map_length;				/* bytes 6 and 5 */
	int bits_per_color;			/*	byte 7 */
	int col;							/* bytes 13 & 12 */
	int row;							/* bytes 15 & 14 */
	int pixel_depth;				/* byte 16 */
	int first_pixel;				/* byte 17 */
										/*  0 -- Bottom Left  */
										/* 16 -- Bottom Right */
										/* 32 -- Top Left     */
										/* 48 -- Top Right    */
};
unsigned char Pal[256][3],Buffer[MAX_COL];
unsigned char Vga[16][3]=
{
	{   0,  0,  0},
	{  46, 46, 46},
	{ 128,128,128},
	{ 255,255,255},
	{ 105, 90, 75},
	{ 130,111, 93},
	{  96, 28, 14},
	{ 255,  0,  0},
	{ 255,128,  0},
	{ 160,160,  0},
	{   0,200,  0},
	{   0,120,  0},
	{   0, 72,  0},
	{   0,  0,200},
	{   0, 20, 60},
	{ 255,  0,255}
};

int trans_header(unsigned char *dat,struct hdr *h);
int print_hdr(struct hdr h);
int make_pal(char *name,FILE *fptga,struct hdr h);
int make_lbl(char *name,struct hdr h);
int make_dat(char *name,FILE *fptga,struct hdr h);

main()
{
	int i,j,k;
	char name[100],string[100];
	FILE *fptga,*fplbl,*fpdat;
	unsigned char header[18];
	struct hdr h;

	if(get_file_name("*.tga",name,0)>=0)
	{
		printf("input = '%s'\n",name);
		fptga=fopen(name,"rb");
		if(!fptga)
		{
			printf("Could not open '%s'\n",name);
			exit(0);
		}
		for(k=0;k<strlen(name);k++)
			if(name[k]=='.')
				name[k]='\0';
		if(fread((char *)header,sizeof(char),18,fptga)<18)
		{
			printf("Could not read header.\n\n");
			exit(0);
		}
		trans_header(header,&h);
		print_hdr(h);
printf("Hit any key to continue\n\n");
getch();
		if(h.row<=0||h.col<=0)
		{
			printf("Bad image size\n");
			exit(0);
		}
		if(h.image_type==1||h.image_type==9)
			make_pal(name,fptga,h);
		make_lbl(name,h);
		make_dat(name,fptga,h);
	}
}


/**********************************************************************
**
**
**
**********************************************************************/

int make_dat(char *name,FILE *fptga,struct hdr h)

{
	int i,j,k;
	char string[100];
	FILE *fpdat;
	unsigned char dat[3];
	long offset,lrow=h.row,lcol=h.col;
	char cr=0xd;

	sprintf(string,"%s.dat",name);
	fpdat=fopen(string,"wt");
	if(!fpdat)
	{
		printf("Could not open '%s' to write\n\n",string);
		exit(0);
	}
	if(lcol>MAX_COL)
	{
		printf("Image to wide\n\n");
		exit(0);
	}
	printf("      of %d",h.row);
	for(i=0;i<h.row;i++)
	{
		printf("%c%5d",cr,i+1);
		fread((char *)Buffer,sizeof(char),h.col,fptga);
		if(h.first_pixel==0)	/* start at bottom  left*/
		{
			offset=(lrow-(long)(1+i))*lcol;
			fseek(fpdat,offset,SEEK_SET);
		}
		fwrite((char *)Buffer,sizeof(char),h.col,fpdat);
	}
	fclose(fpdat);
}



/**********************************************************************
**
**
**
**********************************************************************/

int make_lbl(char *name,struct hdr h)

{
	int i,j,k;
	char string[100];
	FILE *fplbl;
	unsigned char lbl[3];

	sprintf(string,"%s.lbl",name);
	fplbl=fopen(string,"wt");
	if(!fplbl)
	{
		printf("Could not open '%s' to write\n\n",string);
		exit(0);
	}

	fprintf(fplbl,"FILE_TYPE          = IMAGE\n");
	fprintf(fplbl,"IMAGE_LINES        = %5d\n",h.row);
	fprintf(fplbl,"LINE_SAMPLES       = %5d\n",h.col);
	fprintf(fplbl,"IMAGE_POINTER      = '%s.dat'\n",name);
	if(h.image_type==1||h.image_type==9)
	{
		fprintf(fplbl,"PAL_POINTER        = '%s.pal'\n",name);
		fprintf(fplbl,"PALETTE_POINTER    = '%s.pal'\n",name);
	}
	fprintf(fplbl,"END\n");
	fclose(fplbl);
}



/**********************************************************************
**
**
**
**********************************************************************/

int make_pal(char *name,FILE *fptga,struct hdr h)

{
	int i,j,k;
	char string[100];
	FILE *fppal;
	unsigned char pal[3];

	sprintf(string,"%s.pal",name);
	fppal=fopen(string,"wt");
	if(!fppal)
	{
		printf("Could not open '%s' to write\n\n",string);
		exit(0);
	}
	if(h.map_length>256)
	{
		printf("color map too long\n\n");
		exit(0);
	}
	for(i=0;i<h.map_length;i++)
	{
		fread((char *)pal,sizeof(char),3,fptga);
		for(k=0;k<3;k++)
			Pal[i][k]=pal[2-k];
	}
	for(i=0;i<16;i++)
		if(Pal[i+240][0]==0&&Pal[i+240][1]==0&&Pal[i+240][2]==0)
			for(k=0;k<3;k++)
				Pal[i+240][k]=Vga[i][k];
	for(i=0;i<256;i++)
		fprintf(fppal,"%3d  %3d %3d %3d\n",i,Pal[i][0],Pal[i][1],Pal[i][2]);
	fclose(fppal);
}




/**********************************************************************
**
**
**
**********************************************************************/

int print_hdr(struct hdr h)

{
	printf("       id_size = %d\n",h.id_size);
	printf("     color_map = %d\n",h.color_map);
	printf("    image_type = %d\n",h.image_type);
	printf("    map_length = %d\n",h.map_length);
	printf("bits_per_color = %d\n",h.bits_per_color);
	printf("           col = %d\n",h.col);
	printf("           row = %d\n",h.row);
	printf("   pixel_depth = %d\n",h.pixel_depth);
	printf("   first_pixel = %d\n",h.first_pixel);
}



/**********************************************************************
**
**
**
**********************************************************************/

int trans_header(unsigned char *dat,struct hdr *h)

{
	int i,j,k;

	h->id_size=dat[0];
	h->color_map=dat[1];
	h->image_type=dat[2];
	h->map_length=(int)dat[6]*256+(int)dat[5];
	h->bits_per_color=dat[7];
	h->col=(int)dat[13]*256+(int)dat[12];
	h->row=(int)dat[15]*256+(int)dat[14];
	h->pixel_depth=dat[16];
	h->first_pixel=dat[17];
}
                                        