#include <iostream>

#include <utility>

#include <gdkmm/pixbuf.h>

#include <gtkmm/hvbox.h>

#include <gtkmm/image.h>

#include "mainwindow.h"

MainWindow::MainWindow():

	src_rect0   (new View::Point( Vector2(-1, -1) )),

	src_rect1   (new View::Point( Vector2( 1,  1) )),

	dst_rect0   (new View::Point( Vector2(-1, -1) )),

	dst_rect1   (new View::Point( Vector2( 1, -1) )),

	dst_rect2   (new View::Point( Vector2( 1,  1) )),

	dst_rect3   (new View::Point( Vector2(-1,  1) )),

	dst_bounds0 (new View::Point( Vector2(-2, -2) )),

	dst_bounds1 (new View::Point( Vector2( 2,  2) ))

{

	std::cout << "generator seed: " << generator.seed() << std::endl;

	set_default_size(750, 500);

	Gtk::HBox *hbox = manage(new Gtk::HBox());

	hbox->set_homogeneous(true);

	src_view.transform.scale(50, 50);

	src_view.points.push_back(src_rect0);

	src_view.points.push_back(src_rect1);

	src_view.signal_point_motion.connect(

		sigc::mem_fun(*this, &MainWindow::on_point_motion) );

	src_view.signal_point_changed.connect(

		sigc::mem_fun(*this, &MainWindow::on_point_changed) );

	src_view.signal_transform_changed.connect(

		sigc::bind(

			sigc::mem_fun(*this, &MainWindow::on_view_transform_changed),

			&src_view ));

	src_view.signal_draw_view.connect(

		sigc::mem_fun(*this, &MainWindow::on_draw_src_view) );

	hbox->add(src_view);

	dst_view.transform.scale(50, 50);

	dst_view.points.push_back(dst_rect0);

	dst_view.points.push_back(dst_rect1);

	dst_view.points.push_back(dst_rect2);

	dst_view.points.push_back(dst_rect3);

	dst_view.points.push_back(dst_bounds0);

	dst_view.points.push_back(dst_bounds1);

	dst_view.signal_point_motion.connect(

		sigc::mem_fun(*this, &MainWindow::on_point_motion) );

	dst_view.signal_point_changed.connect(

		sigc::mem_fun(*this, &MainWindow::on_point_changed) );

	src_view.signal_transform_changed.connect(

		sigc::bind(

			sigc::mem_fun(*this, &MainWindow::on_view_transform_changed),

			&dst_view ));

	dst_view.signal_draw_view.connect(

		sigc::mem_fun(*this, &MainWindow::on_draw_dst_view) );

	hbox->add(dst_view);

	//hbox->add(*manage(generator_demo()));

	add(*hbox);

	show_all();

	update_view_surface();

}

Gtk::Widget*

MainWindow::generator_demo() {

	std::cout << "generator demo: generate" << std::endl;

	DataSurface surface(256, 256);

	generator.generate(surface, Vector2(0, 0), Vector2(16, 16));

	std::cout << "generator demo: convert" << std::endl;

	Glib::RefPtr<Gdk::Pixbuf> pixbuf = Gdk::Pixbuf::create(

		Gdk::COLORSPACE_RGB, true, 8, surface.width(), surface.height() );

	guint8 *pixel = pixbuf->get_pixels();

	for(int r = 0; r < surface.height(); ++r) {

		Color *row = surface[r];

		for(int c = 0; c < surface.width(); ++c) {

			const Color &color = row[c];

			*(pixel++) = (guint8)(color.r*255.9);

			*(pixel++) = (guint8)(color.g*255.9);

			*(pixel++) = (guint8)(color.b*255.9);

			*(pixel++) = (guint8)(color.a*255.9);

		}

	}

	return new Gtk::Image(pixbuf);

}

void

MainWindow::update_view_surface() {

	Matrix4 transform = src_view.transform.inverted();

	int w = src_view.get_width();

	int h = src_view.get_height();

	Vector2 rect0(transform * Vector4(0, 0, 0, 1));

	Vector2 rect1(transform * Vector4(w, h, 0, 1));

	if (w <= 0 || h <= 0) {

		view_surface.clear();

	} else

	if ( !view_surface

	  || view_surface->get_width() != w

	  || view_surface->get_height() != h

	  || view_surface_rect0 != rect0

	  || view_surface_rect1 != rect1 )

	{

		DataSurface surface(w, h);

		generator.generate(surface, rect0, rect1);

		view_surface = surface.to_cairo_surface();

		view_surface_rect0 = rect0;

		view_surface_rect1 = rect1;

	}

}

void

MainWindow::on_point_motion(const View::PointPtr &/*point*/) {

	queue_draw();

}

void

MainWindow::on_point_changed(const View::PointPtr &/*point*/) {

}

void

MainWindow::on_view_transform_changed(View *view) {

	if (view == &src_view) {

		update_view_surface();

		view->queue_draw();

	}

}

void

MainWindow::on_draw_src_view(const Cairo::RefPtr<Cairo::Context> &context) {

	const Real ps = src_view.get_pixel_size();

	context->save();

	if ( !view_surface

	  || src_view.get_width() != view_surface->get_width()

	  || src_view.get_height() != view_surface->get_height() )

		update_view_surface();

	if (view_surface) {

		context->save();

		src_view.back_transform_context(context);

		context->set_source(view_surface, 0, 0);

		context->paint();

		context->restore();

	}

	context->move_to(src_rect0->position.x, src_rect0->position.y);

	context->line_to(src_rect0->position.x, src_rect1->position.y);

	context->line_to(src_rect1->position.x, src_rect1->position.y);

	context->line_to(src_rect1->position.x, src_rect0->position.y);

	context->close_path();

	context->set_line_width(ps);

	context->set_source_rgba(1, 1, 0, 0.5);

	context->stroke();

	context->restore();

}

void

MainWindow::on_draw_dst_view(const Cairo::RefPtr<Cairo::Context> &context) {

	const Real ps = src_view.get_pixel_size();

	context->save();

	context->move_to(dst_rect0->position.x, dst_rect0->position.y);

	context->line_to(dst_rect1->position.x, dst_rect1->position.y);

	context->line_to(dst_rect2->position.x, dst_rect2->position.y);

	context->line_to(dst_rect3->position.x, dst_rect3->position.y);

	context->close_path();

	context->set_line_width(ps);

	context->set_source_rgba(1, 1, 0, 0.5);

	context->stroke();

	context->move_to(dst_bounds0->position.x, dst_bounds0->position.y);

	context->line_to(dst_bounds0->position.x, dst_bounds1->position.y);

	context->line_to(dst_bounds1->position.x, dst_bounds1->position.y);

	context->line_to(dst_bounds1->position.x, dst_bounds0->position.y);

	context->close_path();

	context->set_line_width(ps);

	context->set_source_rgba(1, 0, 0, 0.5);

	context->stroke();

	context->restore();

}