#include <X11/Xlib.h>
#include <X11/Xutil.h>
#include <X11/Xos.h>
#include <stdio.h>
#include <stdlib.h>

#define AWESOME 7

Display *dis;
int screen;
Window win;
GC gc;
int width=320;
int height=240;
int i=0;

void init_x();
void close_x();
void redraw();

int main ()
{
	XEvent event;		/* the XEvent declaration !!! */
	KeySym key;		/* a dealie-bob to handle KeyPress Events */	
	char text[255];		/* a char buffer for KeyPress Events */
	XColor col;
	int initOffsetBMP;

	init_x();

	printf("Patte de canard\n");
	Colormap cmap = DefaultColormap(dis, DefaultScreen(dis));
	printf("?\n");

	FILE* home = NULL;
	char buffer[4];
	home = fopen("home.bmp", "r");
	if(home == NULL)
		return 0;

	fseek(home, 0x0A, SEEK_SET);
	buffer[0] = getc(home);
	buffer[1] = getc(home);
	buffer[2] = getc(home);
	buffer[3] = getc(home);
	printf("Pixel array offset %02x %02x %02x %02x\n", buffer[0], buffer[1], buffer[2], buffer[3]);
	initOffsetBMP = buffer[0] + (buffer[1] >> 8) + (buffer[2] >> 16) + (buffer[3] >> 24);

	fseek(home, 0x12, SEEK_SET);
        buffer[0] = getc(home);
        buffer[1] = getc(home);
        buffer[2] = getc(home);
        buffer[3] = getc(home);
        printf("Width %02x %02x %02x %02x\n", buffer[0], buffer[1], buffer[2], buffer[3]);

	//fseek(home, 0x12, SEEK_SET);
        buffer[0] = getc(home);
        buffer[1] = getc(home);
        buffer[2] = getc(home);
        buffer[3] = getc(home);
        printf("Height %02x %02x %02x %02x\n", buffer[0], buffer[1], buffer[2], buffer[3]);

	fseek(home, 0x1C, SEEK_SET);
        buffer[0] = getc(home);
        buffer[1] = getc(home);
        printf("Bits Per Pixel %02x %02x\n", buffer[0], buffer[1]);

	if(buffer[1] != 0 || buffer[0] != 0x18)
	{
		printf("Could not read BMP\n");
		return 1;
	}


	fseek(home, initOffsetBMP, SEEK_SET);

	while(1)
	{
		XNextEvent(dis, &event);
	
		if (event.type==Expose && event.xexpose.count==0)
			redraw();

		if (event.type==KeyPress&& XLookupString(&event.xkey,text,255,&key,0)==1)
		{
			if (text[0]=='q')
				close_x();
			printf("You pressed the %c key!\n",text[0]);
		}
		if (event.type==ButtonPress)
		{
			//int x=event.xbutton.x,
			    //y=event.xbutton.y;

			//strcpy(text,"X is FUN!");
			//XSetForeground(dis,gc,rand()%event.xbutton.x%255);
			//XDrawString(dis,win,gc,x,y, text, strlen(text));

		        buffer[0] = getc(home);
		        buffer[1] = getc(home);
		        buffer[2] = getc(home);

			int j;

			for(j=0; j<AWESOME; j++)
			{
				col.red = buffer[2];
				col.green = buffer[1];
				col.blue = buffer[0];





				if(XAllocColor(dis, cmap, &col) == 0)
					printf("Failed to allocate color\n");
				if(XSetForeground(dis, gc, col.pixel) == 0)
					printf("Failed to set foreground\n");
				if(XDrawPoint(dis,win,gc,i%width,i/height) == 0)
					printf("Failed to draw point\n");
			        buffer[0] = getc(home);
			        buffer[1] = getc(home);
			        buffer[2] = getc(home);
				printf("X %03d Y %03d R %02x G %02x B %02x\n", i%width, i/height, buffer[0], buffer[1], buffer[2]);
				i++;
			}
		}
	}
	printf("End of display\n");
	return 0;
}

void init_x() {
	unsigned long black,white;

	dis=XOpenDisplay((char *)0);
   	screen=DefaultScreen(dis);
	black=BlackPixel(dis,screen),
	white=WhitePixel(dis, screen);
   	win=XCreateSimpleWindow(dis,DefaultRootWindow(dis),0,0,width,height, 0,black, white);
	XSetStandardProperties(dis,win,"Howdy","Hi",None,NULL,0,NULL);
	XSelectInput(dis, win, ExposureMask|ButtonPressMask|KeyPressMask);
        gc=XCreateGC(dis, win, 0,0);        
	XSetBackground(dis,gc,white);
	XSetForeground(dis,gc,black);
	XClearWindow(dis, win);
	XMapRaised(dis, win);
};

void close_x() {
	XFreeGC(dis, gc);
	XDestroyWindow(dis,win);
	XCloseDisplay(dis);	
	exit(1);				
};

void redraw() {
	XClearWindow(dis, win);
};