#include "core_include/api.h"
#include "core_include/msg.h"
#include "core_include/rect.h"
#include "core_include/surface.h"
#include "core_include/display.h"
#include "core_include/cmd_target.h"
#include "core_include/wnd.h"
#include "../widgets_include/gesture.h"
#include "../widgets_include/slide_group.h"
#include <stdlib.h>

//#define FLIP_STEP			300//for arm
#define FLIP_STEP			10//for PC & ANDROID
#define MOVE_THRESHOLD		10

void* c_gesture::task_handle_msg(void* param)
{
	c_gesture* This = (c_gesture*)param;
	MSG_INFO msg;
	while(1)
	{
		This->m_hid_fifo->read(&msg, sizeof(msg));
		if(This->handle_flip(msg))
		{
			This->handle_hid_msg(msg);
		}
	}
	return 0;
}

c_gesture::c_gesture(c_wnd* root, c_slide_group* group, c_fifo* hid_fifo)
{
	m_root = root;
	m_slide_group = group;
	m_hid_fifo = hid_fifo;
	m_action = TOUCH_IDLE;
	m_down_x = m_down_y = m_move_x = m_move_y = 0;

	unsigned long pid;
	create_thread(&pid, NULL, task_handle_msg, this);
}

bool c_gesture::handle_flip(MSG_INFO &msg)
{
	int x = msg.dwParam1;

	if(msg.dwMsgId == 0x4700)//MOUSE_LBUTTONDOWN
	{
		if(m_action == TOUCH_IDLE)
		{
			m_action = TOUCH_MOVE;
			m_move_x = m_down_x = x;
			return true;
		}
		else//TOUCH_MOVE
		{
			return on_move(x);
		}
	}
	else if(msg.dwMsgId == 0x4600)//MOUSE_LBUTTONUP
	{
		if(m_action == TOUCH_MOVE)
		{
			m_action = TOUCH_IDLE;
			return on_flip(x);
		}
		else
		{
			return false;
			//ASSERT(false);
		}
	}
	return true;
}

bool c_gesture::on_move(int x)
{
	if (m_slide_group == NULL)
	{
		return true;
	}
	if (abs(x - m_move_x) < MOVE_THRESHOLD)
	{
		return false;
	}

	m_slide_group->disabel_all_slide();
	m_move_x = x;
	if ((m_move_x - m_down_x) > 0)
	{
		move_right();
	}
	else
	{
		move_left();
	}
	return false;
}

bool c_gesture::on_flip(int x)
{
	if (m_slide_group == NULL)
	{
		return true;
	}
	if ((m_down_x == m_move_x) && (abs(x - m_down_x) < MOVE_THRESHOLD))
	{
		return true;
	}

	m_slide_group->disabel_all_slide();
	int page = -1;
	m_move_x = x;
	if ((m_move_x - m_down_x) > 0)
	{
		page = flip_right();
	}
	else
	{
		page = flip_left();
	}
	if (page >= 0)
	{
		m_slide_group->set_active_slide(page);
	}
	else
	{
		m_slide_group->set_active_slide(m_slide_group->get_active_slide_index(), false);
	}
	return false;
}

int c_gesture::flip_left()
{
	if (m_slide_group == NULL)
	{
		return -1;
	}
	int index = m_slide_group->get_active_slide_index();
	if((index + 1) >= MAX_PAGES ||
		m_slide_group->get_slide(index + 1) == NULL ||
		m_slide_group->get_slide(index) == NULL)
	{
		return -2;
	}
	c_surface* s1 = m_slide_group->get_slide(index + 1)->get_surface();
	c_surface* s2 = m_slide_group->get_slide(index)->get_surface();
	if (s1->get_display() != s2->get_display())
	{
		return -3;
	}

	int step = m_down_x - m_move_x;
	c_rect rc;
	m_slide_group->get_screen_rect(rc);
	while(step < rc.Width())
	{
		s1->get_display()->merge_surface(s2, s1, rc.m_left, rc.m_right, rc.m_top, rc.m_bottom, step);
		step += FLIP_STEP;
	}
	if (step != rc.Width())
	{
		s1->get_display()->merge_surface(s2, s1, rc.m_left, rc.m_right, rc.m_top, rc.m_bottom, rc.Width());
	}
	return (index + 1);
}

int c_gesture::flip_right()
{
	if (m_slide_group == NULL)
	{
		return -1;
	}
	int index = m_slide_group->get_active_slide_index();
	if(index <= 0 ||
			m_slide_group->get_slide(index - 1) == NULL ||
			m_slide_group->get_slide(index) == NULL)
	{
		return -2;
	}
	c_surface* s1 = m_slide_group->get_slide(index -1)->get_surface();
	c_surface* s2 = m_slide_group->get_slide(index)->get_surface();
	if (s1->get_display() != s2->get_display())
	{
		return -3;
	}

	c_rect rc;
	m_slide_group->get_screen_rect(rc);
	int step = rc.Width() - (m_move_x - m_down_x);
	while(step > 0)
	{
		s1->get_display()->merge_surface(s1, s2, rc.m_left, rc.m_right, rc.m_top, rc.m_bottom, step);
		step -= FLIP_STEP;
	}
	if (step != 0)
	{
		s1->get_display()->merge_surface(s1, s2, rc.m_left, rc.m_right, rc.m_top, rc.m_bottom, 0);
	}
	return (index - 1);
}

void c_gesture::move_left()
{
	int index = m_slide_group->get_active_slide_index();
	if((index + 1) >= MAX_PAGES ||
			m_slide_group->get_slide(index + 1) == NULL ||
			m_slide_group->get_slide(index) == NULL)
	{
		return;
	}
	c_surface* s1 = m_slide_group->get_slide(index +1)->get_surface();
	c_surface* s2 = m_slide_group->get_slide(index)->get_surface();
	c_rect rc;
	m_slide_group->get_screen_rect(rc);
	if(s1->get_display() == s2->get_display())
	{
		s1->get_display()->merge_surface(s2, s1, rc.m_left, rc.m_right, rc.m_top, rc.m_bottom, (m_down_x - m_move_x));
	}
}

void c_gesture::move_right()
{
	int index = m_slide_group->get_active_slide_index();
	if(index <= 0 ||
			m_slide_group->get_slide(index - 1) == NULL ||
			m_slide_group->get_slide(index) == NULL)
	{
		return;
	}
	c_surface* s1 = m_slide_group->get_slide(index -1)->get_surface();
	c_surface* s2 = m_slide_group->get_slide(index)->get_surface();
	c_rect rc;
	m_slide_group->get_screen_rect(rc);
	if(s1->get_display() == s2->get_display())
	{
		s1->get_display()->merge_surface(s1, s2, rc.m_left, rc.m_right, rc.m_top, rc.m_bottom, (rc.Width() - (m_move_x - m_down_x)));
	}
}

void c_gesture::handle_hid_msg(MSG_INFO &msg)
{
	switch(msg.dwMsgId)
	{
	case 0x4700://MOUSE_LBUTTONDOWN
		m_root->on_touch(msg.dwParam1, msg.dwParam2, TOUCH_DOWN);
		break;
	case 0x4600://MOUSE_LBUTTONUP
		m_root->on_touch(msg.dwParam1, msg.dwParam2, TOUCH_UP);
		break;
	}
}