#include  <stdio.h>
#include  <string.h>
#include  <stdlib.h>
#include  <unistd.h>
#include  <time.h>

#include  "../floatimg.h"

int		verbosity;

/* --------------------------------------------------------------------- */
#define		T_BLACK		1
#define		T_DRAND48	2
#define		T_GRAY		3
#define		T_HDEG_A	4
#define		T_VDEG_A	5

typedef struct {
	int		code;
	char		*name;
	} Type;

Type types[] = {
	{ T_BLACK,	"black"			},
	{ T_DRAND48,	"drand48"		},
	{ T_GRAY,	"gray"			},
	{ T_GRAY,	"grey"			},
	{ T_HDEG_A,	"hdeg"			},
	{ T_VDEG_A,	"vdeg"			},

	{ 0,		NULL			}
	};

static int get_type(char *name)
{
Type	*type;

#if DEBUG_LEVEL
fprintf(stderr, ">>> %s ( '%s' )\n", __func__, name);
#endif

// #define TEST(str)	( ! strcmp(name, str) )

for (type = types; type->code; type++) {
	if (!strcmp(name, type->name)) {
		return type->code;
		}
	}

return -1;
}
/* --------------------------------------------------------------------- */
static void help(int lj)
{
int		foo;

puts("Usage:\tmkfimg [options]  quux.fimg width height");

puts("\t-k N.N\tgive a float parameter");
fputs("\t-t bla\thowto make the pic\n\t\t", stdout);
for (foo=0; types[foo].code; foo++) {
	printf("%s ", types[foo].name);
	}
puts("\n\t-v\tincrease verbosity");

if (verbosity) {
	fimg_print_version(1);
	printf("*** compiled %s, %s\n", __DATE__, __TIME__);
	}

exit(0);
}
/* --------------------------------------------------------------------- */
int main(int argc, char *argv[])
{
int		foo, opt;
int		width, height;
char		*fname;
float		fvalue = 1.0;
int		type = T_BLACK;
char		*tname = "wtf?";

FloatImg	fimg;

while ((opt = getopt(argc, argv, "hk:t:v")) != -1) {
	switch(opt) {
		case 'h':	help(0);			break;
		case 'k':	fvalue = atof(optarg);		break;
		case 't':	type = get_type(tname=optarg);	break;
		case 'v':	verbosity++;			break;
		}
	}

#if DEBUG_LEVEL
fprintf(stderr, "argc %d optind %d\n", argc, optind);
for (foo=0; foo<argc; foo++)
	fprintf(stderr, "%3d  %s\n", foo, argv[foo]);
#endif

if (3 != argc-optind) {
	fprintf(stderr, "%s need filename, width & height\n", argv[0]);
	exit(1);
	}

if (type < 0) {
	fprintf(stderr, "type '%s' is unknow\n", tname);
	exit(2);
	}

fname = argv[optind];
width = atoi(argv[optind+1]);	height = atoi(argv[optind+2]);	

if (verbosity) fprintf(stderr, "making  '%s'  %d x %d\n", fname, width, height);

srand48(getpid() ^ time(NULL));

foo = fimg_create(&fimg, width, height, 3);
if (foo) {
	fprintf(stderr, "create floatimg -> %d\n", foo);
	exit(3);
	}

switch(type) {
	default:
	case T_BLACK:		fimg_clear(&fimg);		break;
	case T_DRAND48:		fimg_drand48(&fimg, fvalue);	break;
	case T_GRAY:		fimg_rgb_constant(&fimg, fvalue, fvalue, fvalue);
				break;
	case T_HDEG_A:		fimg_hdeg_a(&fimg, 1.0);	break;
	case T_VDEG_A:		fimg_vdeg_a(&fimg, 1.0);	break;
	}

foo = fimg_dump_to_file(&fimg, fname, 0);
if (foo) {
	fprintf(stderr, "dump fimg -> %d\n", foo);
	exit(1);
	}

return 0;
}
/* --------------------------------------------------------------------- */