#include "random.h"

#include "curvearea.h"

CurveArea::CurveArea():

	hp0(new ActivePoint(Vector(100, 120), Color::white())),

	hp1(new ActivePoint(Vector(400, 420), Color::white())),

	ht0(new ActivePoint(Vector(400, 120), Color::yellow())),

	ht1(new ActivePoint(Vector(800, 420), Color::yellow())),

	bp0(new ActivePoint(Vector(600, 80), Color::white())),

	bp1(new ActivePoint(Vector(900, 380), Color::white())),

	bpp0(new ActivePoint(Vector(700, 80), Color::yellow())),

	bpp1(new ActivePoint(Vector(800, 380), Color::yellow())),

	cross(new ActivePoint(Vector(500, 250), Color::gray()))

{

	set_size_request(1000, 500);

	add_point(hp0);

	add_point(hp1);

	add_point(ht0);

	add_point(ht1);

	add_point(bp0);

	add_point(bp1);

	add_point(bpp0);

	add_point(bpp1);

	add_point(cross);

}

void CurveArea::on_point_move(const ActivePoint::Handle &point, const Vector &oldposition, const Vector &newposition) {

	if (point == hp0)

		ht0->position += newposition - oldposition;

	if (point == hp1)

		ht1->position += newposition - oldposition;

}

void CurveArea::put_rect(const Context &context, const Rect &rect) {

	context->move_to(rect.x0, rect.y0);

	context->line_to(rect.x1, rect.y0);

	context->line_to(rect.x1, rect.y1);

	context->line_to(rect.x0, rect.y1);

	context->close_path();

}

void CurveArea::put_hmark(const Context &context, const Vector &point) {

	context->move_to(point.x, point.y - 10);

	context->line_to(point.x, point.y + 10);

}

void CurveArea::put_vmark(const Context &context, const Vector &point) {

	context->move_to(point.x - 10, point.y);

	context->line_to(point.x + 10, point.y);

}

void CurveArea::put_hline(const Context &context, const Vector &point) {

	Real width = get_allocated_width();

	context->move_to(0, point.y);

	context->line_to(width, point.y);

	put_vmark(context, point);

}

void CurveArea::put_vline(const Context &context, const Vector &point) {

	Real height = get_allocated_height();

	context->move_to(point.x, 0);

	context->line_to(point.x, height);

	put_hmark(context, point);

}

void CurveArea::put_cross(const Context &context, const Vector &point) {

	put_hmark(context, point);

	put_vmark(context, point);

}

void CurveArea::on_draw_content(const Context &context) {

	Real roots[3];

	context->save();

	context.set_line_width_px(1);

	context.set_source_rgba(Color::gray().mulalpha(0.5));

	put_vline(context, cross->position);

	put_hline(context, cross->position);

	context->stroke();

	{

		context.set_line_width_px(1);

		Hermite h(

			hp0->position,

			hp1->position,

			ht0->position - hp0->position,

			ht1->position - hp1->position );

		context.set_source_rgba(Color::gray());

		context.move_to(hp0->position);

		context.line_to(ht0->position);

		context.move_to(hp1->position);

		context.line_to(ht1->position);

		context->stroke();

		context.set_source_rgba(Color::gray().mulalpha(0.25));

		put_rect(context, h.bounds_accurate());

		context->stroke();

		context.set_source_rgba(Color::gray().mulalpha(0.5));

		for(int i = h.bends_x(roots) - 1; i >= 0; --i)

			put_cross(context, h(roots[i]));

		for(int i = h.bends_y(roots) - 1; i >= 0; --i)

			put_cross(context, h(roots[i]));

		for(int i = h.intersections_x(roots, cross->position.x) - 1; i >= 0; --i)

			put_vmark(context, h(roots[i]));

		for(int i = h.intersections_y(roots, cross->position.y) - 1; i >= 0; --i)

			put_hmark(context, h(roots[i]));

		for(int i = h.inflection_x(roots) - 1; i >= 0; --i)

			put_cross(context, h(roots[i]));

		for(int i = h.inflection_y(roots) - 1; i >= 0; --i)

			put_cross(context, h(roots[i]));

		context->stroke();

		context.set_source_rgba(Color::blue().withalpha(0.5));

		context.hermite(h);

		context->stroke();

		context.set_line_width_px(3);

		Bezier bb = h.sub(rnd::real(), rnd::real()).get_bezier();

		context.set_source_rgba(Color::blue());

		context.bezier(bb);

		context->stroke();

	}

	{

		context.set_line_width_px(1);

		Bezier b(

			bp0->position,

			bp1->position,

			bpp0->position,

			bpp1->position );

		context.set_source_rgba(Color::gray());

		context.move_to(bp0->position);

		context.line_to(bpp0->position);

		context.line_to(bpp1->position);

		context.line_to(bp1->position);

		context->stroke();

		context.set_source_rgba(Color::gray().mulalpha(0.25));

		put_rect(context, b.bounds_accurate());

		context->stroke();

		context.set_source_rgba(Color::gray().mulalpha(0.5));

		for(int i = b.bends_x(roots) - 1; i >= 0; --i)

			put_cross(context, b(roots[i]));

		for(int i = b.bends_y(roots) - 1; i >= 0; --i)

			put_cross(context, b(roots[i]));

		for(int i = b.intersections_x(roots, cross->position.x) - 1; i >= 0; --i)

			put_vmark(context, b(roots[i]));

		for(int i = b.intersections_y(roots, cross->position.y) - 1; i >= 0; --i)

			put_hmark(context, b(roots[i]));

		for(int i = b.inflection_x(roots) - 1; i >= 0; --i)

			put_cross(context, b(roots[i]));

		for(int i = b.inflection_y(roots) - 1; i >= 0; --i)

			put_cross(context, b(roots[i]));

		context->stroke();

		context.set_source_rgba(Color::blue().mulalpha(0.5));

		context.bezier(b);

		context->stroke();

		context.set_line_width_px(3);

		Hermite hh = b.sub(rnd::real(), rnd::real()).get_hermite();

		context.set_source_rgba(Color::blue());

		context.hermite(hh);

		context->stroke();

	}

	context->restore();

}