#include <stdio.h>
#include <unistd.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"

Display *display;
Window win;

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;

    XSelectInput(display, win, PointerMotionMask);
    while((r = XNextEvent(display, &evt)) == 0) {
	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;
	}
    }
}

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;
    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);
    }

    event_interaction(display, &rdman, w, h);

    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;
}