#include <stdio.h>
#include <stdlib.h>

#define REALLY 1
#define WIDTH  2048
#define HEIGHT 1216

void printargs(int argc, char * argv[]);
void outputcroppedppm(char * outfilename, 
	char **red, char **green, char **blue,
	int xstart, int ystart, int width, int height);

void main(int argc, char * argv[])
{
	char * infilename;
	FILE * infile;

	char ** red;
	char ** green;
	char ** blue;

	int i,j;

	printargs(argc, argv);

	if (argc < 2)
	{
		printf("Usage: gigo filename\n");
		exit(0);
	}
	
	infilename = argv[1];	

	if ((infile = fopen(infilename, "rb")) == NULL)
	{
		printf("Couldn't find %s\n", infilename);
		exit(0);
	}

    if (REALLY)
    {

/* ----------------------- RED ------------------------- */

	printf("Mallocing red[].\n");
	red = (char **) malloc (WIDTH * sizeof (char *));
	for (i=0; i<WIDTH; i++)
	{
		if (!(i %100)) 
			printf("Mallocing red[%d].\n", i);
		red[i] = (char *) malloc (HEIGHT * sizeof (char));
	}	

	for (j=0; j<HEIGHT; j++)
	{
	    if (!(j %100)) 
		printf("Red: Reading line %d\n", j);
	    for (i=0; i<WIDTH; i++)
	    {
		fscanf(infile, "%c", &(red[i][j]));
	    }
	}

/* ---------------------- GREEN ------------------------ */

	printf("Mallocing green[].\n");
	green = (char **) malloc (WIDTH * sizeof (char *));
	for (i=0; i<WIDTH; i++)
	{
		if (!(i %100)) 
			printf("Mallocing green[%d].\n", i);
		green[i] = (char *) malloc (HEIGHT * sizeof (char));
	}	

	for (j=0; j<HEIGHT; j++)
	{
	    if (!(j %100)) 
		printf("Green: Reading line %d\n", j);
	    for (i=0; i<WIDTH; i++)
	    {
		fscanf(infile, "%c", &(green[i][j]));
	    }
	}

/* ----------------------- BLUE ------------------------ */

	printf("Mallocing blue[].\n");
	blue = (char **) malloc (WIDTH * sizeof (char *));
	for (i=0; i<WIDTH; i++)
	{
		if (!(i %100)) 
			printf("Mallocing blue[%d].\n", i);
		blue[i] = (char *) malloc (HEIGHT * sizeof (char));
	}	

	for (j=0; j<HEIGHT; j++)
	{
	    if (!(j %100)) 
		printf("Blue: Reading line %d\n", j);
	    for (i=0; i<WIDTH; i++)
	    {
		fscanf(infile, "%c", &(blue[i][j]));
	    }
	}

/* ----------------------------------------------------- */

    }

	fclose(infile);

	outputcroppedppm(infilename, red, green, blue, 180, 100, 1630, 700);
}

void outputcroppedppm(char * outfilename, 
	char **red, char **green, char **blue,
	int xstart, int ystart, int width, int height)
{
	char * outfilename;
	FILE * outfile;
	int ifnlength;
	int i, j;
	
	ifnlength = strlen(infilename);
	
	printf("outputppm: infilename is %s\n", infilename);
	printf("ifnlength = %d\n", ifnlength);
	
	if (infilename[ifnlength-4] == '.')
	{
		printf("Replacing .___ with .ppm...\n");
		outfilename = (char *) malloc (ifnlength+1 * sizeof(char));
		strncpy(outfilename, infilename, ifnlength+1);
		printf("Temp outfilename is %s\n", outfilename);
		outfilename[ifnlength-3] = 'p';
		outfilename[ifnlength-2] = 'p';
		outfilename[ifnlength-1] = 'm';
	}

	else 
	{
		printf("Appending .ppm...\n");
		outfilename = (char *) malloc ((ifnlength+5) * sizeof(char));
		strncpy(outfilename, infilename, ifnlength+5);
		outfilename[ifnlength  ] = '.';
		outfilename[ifnlength+1] = 'p';
		outfilename[ifnlength+2] = 'p';
		outfilename[ifnlength+3] = 'm';
	}

	i = 0;
	j = 20;
	while (j != 0)
	{
		printf("outfilename[%d] is %c\n", i, j=outfilename[i]);
		i++;
	}
		
	printf("outfilename is %s\n", outfilename);		

    if (REALLY)
    {
	if ((outfile = fopen(outfilename, "wb")) == NULL)
	{
		printf("Couldn't open %s\n", outfilename);
		exit(0);
	}

	fprintf(outfile, "P6\n%d %d\n255\n", WIDTH, HEIGHT);

	for (j=0; j<HEIGHT; j++)
	{
	    if (!(j %100)) 
		printf("Writing line %d\n", j);
	    for (i=0; i<WIDTH; i++)
	    {
		fprintf(outfile, "%c", red[i][j]);
		fprintf(outfile, "%c", green[i][j]);
		fprintf(outfile, "%c", blue[i][j]);
	    }
	}


	fclose(outfile);
    }

}


void printargs(int argc, char * argv[])
{
	int i;

	for (i=0; i<argc; i++)
	{
		printf("%d: %s\n", i, argv[i]);
	}
}