#include <stdlib.h>
#include <string.h>
#include <stdio.h>
#include "pict.h"
#if defined (THINK_C) || defined (__MWERKS__)
#include <console.h>
#endif


#define IW	pictOut->image_W
#define IH	pictOut->image_H
#define IN	pictOut->n_comp

#if defined(__STDC__) || defined (__stdc__)
int main(int argc,char *argv[])
#else
int main(argc,argv)
int argc;char *argv[];
#endif
{
	char *fname;
	C_MAP cm;
	char *ct;

	Pict pictOut;
	int ti,tj,i,j,n,mode;

	U_char *po;

#if defined (THINK_C) || defined (__MWERKS__)
	argc = ccommand(&argv);
#endif

	if (argc<5)
	{
		fprintf(stderr,"%s: genera un pict\n",argv[0]);
		fprintf(stderr,"Uso: %s pict x y mode\n",argv[0]);
		fprintf(stderr,"mode: 0 1 3 4\n");
		exit(1);
	}

	ct=(char*)cm;
	for( n=0;n<256*3;n++) ct[n]=n+n%3;
	fname = argv[1];
	ti = atoi(argv[2]);
	tj = atoi(argv[3]);
	mode = atoi(argv[4]);
	
	if(	(ti<=0) || 
		(tj<=0) 	)
	{
		fprintf(stderr,"Error en los limites:  %dx%d\n",ti,tj );
		fprintf(stderr,"Header9A %d, Header98 %d\n",
				sizeof(Header9A),sizeof(Header98) );
		exit(-1);
	}
		
	pictOut = pict_open((char *)fname,P_WRITE, tj,ti,mode,cm);
	
	if ((pictOut->pixels =
		(U_char*)malloc(pictOut->image_W*pictOut->n_comp+1))==NULL)
		exit(1);
	
	for(j=0;j<tj;j++)
	{
		po=pictOut->pixels;
		for(n=0;n<IN;n++)
			for(i=0;i<ti;i++)
				*po++ = ( unsigned char ) (50*n+i*j)%255;

		pict_put_line(pictOut,pictOut->pixels);
	}
	
	pict_close(pictOut);
	return(0);
}