#define _XOPEN_SOURCE
#include <stdio.h>
#include <stdlib.h>
#include <X11/Xlib.h>
#include <math.h>

#define WIDTH 1280
#define HEIGHT 720
#define SEED 200

#define POINTS 15

static int seed_offset = 1;

struct point {
    int x;
    int y;
};


double dist_p1_p2(int p1x, int p1y, int p2x, int p2y)
{
    double pA, pB;
    pA = p1x - p2x;
    pB = p1y - p2y;

    return sqrt(pA * pA + pB * pB);

}

void draw_pixel(Display * di, Window wi, GC gc, int x, int y, int color)
{
    XSetForeground(di, gc, color);
    XDrawPoint(di, wi, gc, x, y);
}

float rand_0_1()
{
    return drand48();
}

void sort(double *arr)
{
    int arr_size = POINTS;
    int i, j, aux;
    for (i = 0; i < arr_size; i++) {
	for (j = i + 1; j < arr_size; j++) {
	    if (arr[i] > arr[j]) {
		aux = arr[j];
		arr[j] = arr[i];
		arr[i] = aux;
	    }
	}
    }

}

int map(int value, int min, int max, int map_min, int map_max)
{
    double R = (double) (map_max - map_min) / (double) (max - min);
    double y = map_min + (value * R) + R;
    return (int) y;
}

void worley_noise(Display * di, Window wi, GC gc)
{
    int x, y, i;
    int c;
    int noise_space[WIDTH][HEIGHT];
    double dist[POINTS], sdist[POINTS];
    struct point p[POINTS];


    for (i = 0; i < POINTS; i++) {
	p[i].x = (int) (rand_0_1() * WIDTH);
	p[i].y = (int) (rand_0_1() * HEIGHT);
    }

    for (x = 0; x < WIDTH; x++) {
	for (y = 0; y < HEIGHT; y++) {
	    for (i = 0; i < POINTS; i++) {
		dist[i] = dist_p1_p2(x, y, p[i].x, p[i].y);
		sort(dist);
	    }
	    int d1 = map(dist[0], 0, WIDTH / 2, 200, 0);
	    int d2 = map(dist[1], 0, WIDTH / 2, 200, 0);
	    int d3 = map(dist[2], 0, WIDTH / 2, 200, 0);

	    /* 0x000000 rgb value where 
	     * 16 r
	     *  8 g
	     *  4 b*/
	    c = (d1 << 16) + (d2 << 8) + d3;
	    noise_space[x][y] = c;
	}
    }

    for (x = 0; x < WIDTH; x++) {
	for (y = 0; y < HEIGHT; y++) {
	    draw_pixel(di, wi, gc, x, y, noise_space[x][y]);
	}
    }
}

void redraw(Display * di, Window wi, GC gc)
{

    XClearWindow(di, wi);
    worley_noise(di, wi, gc);
    XFlush(di);
}

int main()
{
    Display *di = XOpenDisplay(getenv("DISPLAY"));
    if (di == NULL) {
	fprintf(stderr, "ERROR: No display");
	exit(EXIT_FAILURE);
    }
    int x = 0, y = 0, width = WIDTH, height = HEIGHT, border_width = 1;
    int sc = DefaultScreen(di);
    Window ro = DefaultRootWindow(di);
    Window wi = XCreateSimpleWindow(di,
				    ro,
				    x,
				    y,
				    width,
				    height,
				    border_width,
				    BlackPixel(di, sc),
				    WhitePixel(di, sc));

    XMapWindow(di, wi);
    XStoreName(di, wi, "Default Window");

    GC gc = XCreateGC(di, ro, 0, NULL);

    XSelectInput(di, wi, KeyPressMask | ExposureMask);
    XEvent ev;
    int quit = 0;
    while (!quit) {
	if (XPending(di) > 0) {
	    int a = XNextEvent(di, &ev);
	    if (ev.type == KeyPress) {
		printf("KeyPress %x\n", ev.xkey.keycode);
		if (ev.xkey.keycode == 0x18)
		    quit = 1;
	    }
	    if (ev.type == Expose) {
		redraw(di, wi, gc);
	    }
	}
	redraw(di, wi, gc);
    }

    XFreeGC(di, gc);
    XDestroyWindow(di, wi);
    XCloseDisplay(di);
    return (EXIT_SUCCESS);
}