#include <stdio.h>
#include <unistd.h>
#include <sys/time.h>
#include <sys/select.h>
#include <X11/Xlib.h>
#include <X11/Xutil.h>
#include <cairo.h>
#include <cairo-xlib.h>

#include <string.h>
#include "shapes.h"
#include "redraw_man.h"
#include "paint.h"
#include "mb_timer.h"
#include "animate.h"

#define OK 0
#define ERR -1

Display *display;
Window win;

struct test_motion_data {
    paint_t *text_stroke;
    redraw_man_t *rdman;
};

void test_motion(const mb_timeval_t *tmo,
		 const mb_timeval_t *now,
		 void *arg) {
    struct test_motion_data *data = (struct test_motion_data *)arg;

    paint_color_set(data->text_stroke, 1, 0.5, 0.5, 0.5);
    rdman_paint_changed(data->rdman, data->text_stroke);
    rdman_redraw_changed(data->rdman);
}

void hint_shape(redraw_man_t *rdman, shape_t *shape) {
    static shape_t *last_shape = NULL;
    if(last_shape != shape) {
	if(last_shape != NULL && last_shape->stroke != NULL) {
	    last_shape->stroke_width -= 2;
	    rdman_shape_changed(rdman, last_shape);
	}
	if(shape != NULL && shape->stroke != NULL) {
	    shape->stroke_width += 2;
	    rdman_shape_changed(rdman, shape);
	    rdman_redraw_changed(rdman);
	}
    }
    last_shape = shape;
}

void event_interaction(Display *display,
		       redraw_man_t *rdman, int w, int h) {
    XEvent evt;
    XMotionEvent *mevt;
    int r;
    co_aix x, y;
    shape_t *shape = NULL;
    int in_stroke;

    while(XEventsQueued(display, QueuedAfterReading) > 0) {
	r = XNextEvent(display, &evt);
	if(r == -1)
	    break;

	switch(evt.type) {
	case MotionNotify:
	    mevt = (XMotionEvent *)&evt;
	    x = mevt->x;
	    y = mevt->y;
	    shape = find_shape_at_pos(rdman, x, y, &in_stroke);
	    hint_shape(rdman, shape);
	    break;
	case Expose:
	    rdman_redraw_all(rdman);
	    /* rdman_redraw_area(rdman, evt.xexpose.x, evt.xexpose.y,
	       evt.xexpose.width, evt.xexpose.height); */
	    break;
	}
    }
    XFlush(display);
}

void handle_connection(Display *display, mb_tman_t *tman,
		       redraw_man_t *rdman, int w, int h) {
    int xcon;
    fd_set rds;
    int nfds;
    struct timeval tmo;
    mb_timeval_t mb_tmo;
    int r, r1;

    XSelectInput(display, win, PointerMotionMask | ExposureMask);
    XFlush(display);

    xcon = XConnectionNumber(display);
    nfds = xcon + 1;

    r = gettimeofday(&tmo, NULL);
    if(r == -1) {
	perror("gettimeofday");
	return;
    }
    MB_TIMEVAL_SET(&mb_tmo, tmo.tv_sec, tmo.tv_usec);

    while(1) {
	FD_ZERO(&rds);
	FD_SET(xcon, &rds);

	r = mb_tman_next_timeout(tman, &mb_tmo, &mb_tmo);
	if(r != OK)
	    r = select(nfds, &rds, NULL, NULL, NULL);
	else {
	    tmo.tv_sec = MB_TIMEVAL_SEC(&mb_tmo);
	    tmo.tv_usec = MB_TIMEVAL_USEC(&mb_tmo);
	    r = select(nfds, &rds, NULL, NULL, &tmo);
	}

	if(r == -1) {
	    perror("select");
	    return;
	}

	r1 = gettimeofday(&tmo, NULL);
	if(r1 == -1) {
	    perror("gettimeofday");
	    return;
	}
	MB_TIMEVAL_SET(&mb_tmo, tmo.tv_sec, tmo.tv_usec);

	if(r == 0) {
	    MB_TIMEVAL_SET(&mb_tmo, tmo.tv_sec, tmo.tv_usec);
	    mb_tman_handle_timeout(tman, &mb_tmo);
	    rdman_redraw_changed(rdman);
	    XFlush(display);
	} else if(FD_ISSET(xcon, &rds)) {
	    event_interaction(display, rdman, w, h);
	}
    }
}

void draw_path(cairo_t *cr, int w, int h) {
    cairo_t *tmpcr;
    cairo_surface_t *tmpsuf;
    redraw_man_t rdman;
    shape_t *path1, *path2, *rect;
    coord_t *coord1, *coord2, *coord3;
    paint_t *fill1, *fill2, *fill3;
    paint_t *stroke, *text_stroke;
    shape_t *text;
    grad_stop_t fill3_stops[3];
    cairo_font_face_t *face;
    struct test_motion_data mdata;
    struct timeval tv;
    mb_tman_t *tman;
    mb_timeval_t mbtv, start, playing;
    mb_progm_t *progm;
    mb_word_t *word;
    mb_action_t *act;
    int i;

    tmpsuf = cairo_image_surface_create(CAIRO_FORMAT_ARGB32, w, h);
    tmpcr = cairo_create(tmpsuf);

    cairo_set_source_surface(cr, tmpsuf, 0, 0);
    redraw_man_init(&rdman, tmpcr, cr);
    coord1 = rdman_coord_new(&rdman, rdman.root_coord);
    coord2 = rdman_coord_new(&rdman, rdman.root_coord);
    coord3 = rdman_coord_new(&rdman, rdman.root_coord);

    fill1 = paint_color_new(&rdman, 1, 1, 0, 0.5);
    fill2 = paint_color_new(&rdman, 0, 1, 1, 0.5);
    stroke = paint_color_new(&rdman, 0.4, 0.4, 0.4, 1);
    text_stroke = paint_color_new(&rdman, 0.5, 0.5, 0.5, 1);

    face = cairo_get_font_face(tmpcr);
    text = sh_text_new("hello \xe6\xbc\xa2\xe5\xad\x97", 10, h / 4,
		       36.0, face);
    rdman_paint_stroke(&rdman, text_stroke, text);
    text->stroke_width = 0.5;
    rdman_add_shape(&rdman, text, coord3);

    path1 = sh_path_new("M 22,89.36218 C -34,-0.63782 39,-9.637817 82,12.36218 C 125,34.36218 142,136.36218 142,136.36218 C 100.66667,125.36218 74.26756,123.42795 22,89.36218 z ");
    rdman_paint_fill(&rdman, fill1, path1);
    rdman_paint_stroke(&rdman, stroke, path1);
    coord1->matrix[0] = 0.8;
    coord1->matrix[1] = 0;
    coord1->matrix[2] = 20;
    coord1->matrix[4] = 0.8;
    coord1->matrix[5] = 20;

    path2 = sh_path_new("M 22,89.36218 C -34,-0.63782 39,-9.637817 82,12.36218 C 125,34.36218 142,136.36218 142,136.36218 C 100.66667,125.36218 74.26756,123.42795 22,89.36218 z ");
    rdman_paint_fill(&rdman, fill2, path2);
    rdman_paint_stroke(&rdman, stroke, path2);
    coord2->matrix[0] = -0.8;
    coord2->matrix[1] = 0;
    coord2->matrix[2] = 180;
    coord2->matrix[4] = 0.8;
    coord2->matrix[5] = 20;

    rdman_coord_changed(&rdman, coord1);
    rdman_coord_changed(&rdman, coord2);
    rdman_add_shape(&rdman, (shape_t *)path1, coord1);
    rdman_add_shape(&rdman, (shape_t *)path2, coord2);

    
    fill3 = paint_linear_new(&rdman, 50, 50, 150, 150);
    grad_stop_init(fill3_stops, 0, 1, 0, 0, 0.5);
    grad_stop_init(fill3_stops + 1, 0.5, 0, 1, 0, 0.5);
    grad_stop_init(fill3_stops + 2, 1, 0, 0, 1, 0.5);
    paint_linear_stops(fill3, 3, fill3_stops);
    rect = sh_rect_new(50, 50, 100, 100, 20, 20);
    rdman_paint_fill(&rdman, fill3, rect);
    rdman_add_shape(&rdman, (shape_t *)rect, rdman.root_coord);

    rdman_redraw_all(&rdman);

    XFlush(display);

    for(i = 0; i < 50; i++) {
	usleep(20000);
	path1->stroke_width = i / 10;
	path2->stroke_width = i / 10;
	coord1->matrix[2] += 1;
	coord1->matrix[5] += 1;
	coord2->matrix[2] -= 1;
	coord2->matrix[5] += 1;
	paint_color_set(fill1, 1, 1, (i/25) & 0x1, 0.5);
	paint_color_set(fill2, (i/25) & 0x1, 1, 1, 0.5);
	rdman_paint_changed(&rdman, fill1);
	rdman_paint_changed(&rdman, fill2);
	rdman_coord_changed(&rdman, coord1);
	rdman_coord_changed(&rdman, coord2);
	rdman_redraw_changed(&rdman);
	XFlush(display);
    }

    for(i = 0; i < 5; i++) {
	usleep(100000);
	paint_color_set(fill1, 1, i % 2, 0, 0.5);
	paint_color_set(fill2, 0, i % 2, 1, 0.5);
	rdman_paint_changed(&rdman, fill1);
	rdman_paint_changed(&rdman, fill2);
	rdman_redraw_changed(&rdman);
	XFlush(display);
    }

    for(i = 0; i < 4; i++) {
	usleep(100000);
	path1->stroke_width -= 1;
	path2->stroke_width -= 1;
	rdman_shape_changed(&rdman, path1);
	rdman_shape_changed(&rdman, path2);
	rdman_redraw_changed(&rdman);
	XFlush(display);
    }
    for(i = 0; i < 4; i++) {
	usleep(100000);
	path1->stroke_width += 1;
	path2->stroke_width += 1;
	rdman_shape_changed(&rdman, path1);
	rdman_shape_changed(&rdman, path2);
	rdman_redraw_changed(&rdman);
	XFlush(display);
    }

    for(i = 0; i < 4; i++) {
	usleep(100000);
	text->stroke_width += 1;
	rdman_shape_changed(&rdman, text);
	coord3->matrix[2] += 5;
	rdman_coord_changed(&rdman, coord3);
	rdman_redraw_changed(&rdman);
	XFlush(display);
    }
    for(i = 0; i < 4; i++) {
	usleep(100000);
	text->stroke_width -= 1;
	rdman_shape_changed(&rdman, text);
	coord3->matrix[2] -= 5;
	rdman_coord_changed(&rdman, coord3);
	rdman_redraw_changed(&rdman);
	XFlush(display);
    }

    for(i = 0; i < 4; i++) {
	usleep(100000);
	text->stroke_width += 1;
	rdman_shape_changed(&rdman, text);
	coord3->matrix[5] += 5;
	rdman_coord_changed(&rdman, coord3);
	rdman_redraw_changed(&rdman);
	XFlush(display);
    }
    for(i = 0; i < 4; i++) {
	usleep(100000);
	text->stroke_width -= 1;
	rdman_shape_changed(&rdman, text);
	coord3->matrix[5] -= 5;
	rdman_coord_changed(&rdman, coord3);
	rdman_redraw_changed(&rdman);
	XFlush(display);
    }

    tman = mb_tman_new();
    if(tman) {
	progm = mb_progm_new(2, &rdman);
	
	MB_TIMEVAL_SET(&start, 1, 0);
	MB_TIMEVAL_SET(&playing, 2, 0);
	word = mb_progm_next_word(progm, &start, &playing);
	act = mb_shift_new(0, 20, coord1, word);
	
	act = mb_shift_new(0, -20, coord2, word);
	
	MB_TIMEVAL_SET(&start, 3, 0);
	MB_TIMEVAL_SET(&playing, 2, 0);
	word = mb_progm_next_word(progm, &start, &playing);
	act = mb_shift_new(0, -20, coord1, word);
	
	act = mb_shift_new(0, 20, coord2, word);

	act = mb_chgcolor_new(0, 0, 1, 0.5, fill1, word);
	act = mb_chgcolor_new(1, 0, 0, 0.5, fill2, word);
	
	gettimeofday(&tv, NULL);
	MB_TIMEVAL_SET(&mbtv, tv.tv_sec, tv.tv_usec);
	mb_progm_start(progm, tman, &mbtv);

	mdata.text_stroke = text_stroke;
	mdata.rdman = &rdman;
	gettimeofday(&tv, NULL);
	tv.tv_sec += 3;
	MB_TIMEVAL_SET(&mbtv, tv.tv_sec, tv.tv_usec);
	mb_tman_timeout(tman, &mbtv, test_motion, &mdata);

	handle_connection(display, tman, &rdman, w, h);

	mb_tman_free(tman);
    }

    fill1->free(fill1);
    fill2->free(fill2);
    stroke->free(stroke);
    text_stroke->free(text_stroke);
    redraw_man_destroy(&rdman);
    sh_path_free(path1);
    sh_path_free(path2);
    sh_rect_free(rect);
    sh_text_free(text);
    cairo_destroy(tmpcr);
    cairo_surface_destroy(tmpsuf);
}

void drawing(cairo_surface_t *surface, int w, int h) {
    cairo_t *cr;

    cr = cairo_create(surface);
    cairo_set_source_rgb(cr, 0, 0, 0);
    cairo_paint(cr);
    draw_path(cr, w, h);
    cairo_destroy(cr);
}

int
main(int argc, char * const argv[]) {
    Window root;
    Visual *visual;
    int screen;
    XSetWindowAttributes wattr;
    int depth;
    cairo_surface_t *surface;
    int w, h;
    int x, y;
    int r;

    display = XOpenDisplay(":0.0");
    if(display == NULL)
	printf("XOpenDisplay\n");
    screen = DefaultScreen(display);
    root = DefaultRootWindow(display);
    visual = DefaultVisual(display, screen);
    depth = DefaultDepth(display, screen);
    wattr.override_redirect = False;
    x = 10;
    y = 10;
    w = 200;
    h = 200;
    win = XCreateWindow(display, root,
			x, y,
			w, h,
			1, depth, InputOutput, visual,
			CWOverrideRedirect, &wattr);
    r = XMapWindow(display, win);

    surface = cairo_xlib_surface_create(display, win, visual, w, h);
    if(surface == NULL)
	printf("cairo_xlib_surface_create\n");

    drawing(surface, w, h);

    XFlush(display);
    sleep(10);

    XCloseDisplay(display);
    return 0;
}