#include "config.h"

#include <stdio.h>

#include "portab.h"
#include "system.h"
#include "surface.h"
// #include "gleffectcopy.h"
#include "sdl_core.h"
#include "ags.h"
#include "input.h"
#include "graph.h"
#include "ngraph.h"

/* saved parameter */
struct ecopyparam {
	surface_t *src;
	int sx;
	int sy;
	surface_t *dst;
	int dx;
	int dy;
	int w;
	int h;
	surface_t *write;
	int wx;
	int wy;
	int time;
	boolean cancel;
	int spCol;
	int extp[10];
	
	// for ec11
	surface_t *ss[8];
	surface_t *sd[8];
};
typedef struct ecopyparam ecopyparam_t;
static ecopyparam_t ecp;



#define ECA12_D 256

static void ec11_cb(int step);
static void ec11_prepare(void);
static void ec12_cb(int step);
static void ec13_cb(int step);

void gpx_effect(int no,
		int wx, int wy,
		surface_t *dst, int dx, int dy,
		surface_t *src, int sx, int sy,
		int width, int height,
		int time,
		int *endtype) {
	surface_t *write = nact->ags.dib;
	if (!gr_clip(dst, &dx, &dy, &width, &height, write, &wx, &wy)) return;
	if (!gr_clip(src, &sx, &sy, &width, &height, write, &wx, &wy)) return;

	*endtype = 0;

	enum sdl_effect sdl_effect = from_sact_effect(no);
	if (sdl_effect != EFFECT_INVALID) {
		SDL_Rect rect = { wx, wy, width, height };
		struct sdl_fader *fader = sdl_fader_init(&rect, dst, dx, dy, src, sx, sy, sdl_effect);
		ags_fade2(time ? time : 2700, FALSE, (ags_fade2_callback)sdl_fader_step, fader);
		sdl_fader_finish(fader);

		switch (no) {
		case SACT_EFFECT_FADEOUT:
			gr_fill(write, wx, wy, width, height, 0, 0, 0);
			break;
		case SACT_EFFECT_WHITEOUT:
			gr_fill(write, wx, wy, width, height, 255, 255, 255);
			break;
		default:
			gr_copy(write, wx, wy, src, sx, sy, width, height);
			break;
		}
		ags_updateArea(wx, wy, width, height);
		return;
	}

	ecp.write = write;
	ecp.wx  = wx;
	ecp.wy  = wy;
	ecp.dst = dst;
	ecp.dx  = dx;
	ecp.dy  = dy;	
	ecp.src = src;
	ecp.sx  = sx;
	ecp.sy  = sy;
	ecp.w = width;
	ecp.h = height;
	ecp.time = time;

	ags_faderinfo_t i;

	switch(no) {
	case 11:
		ec11_prepare();
		i.step_max = 6;
		i.effect_time = time == 0 ? 2700 : time;
		i.cancel = FALSE;
		i.callback = ec11_cb;
		ags_fader(&i);
		break;
	case 12:
		i.step_max = ECA12_D + ecp.h;
		i.effect_time = time == 0 ? 1150 : time;
		i.cancel = FALSE;
		i.callback = ec12_cb;
		ags_fader(&i);
		break;
	case 13:
		i.step_max = ECA12_D + ecp.h;
		i.effect_time = time == 0 ? 1150 : time;
		i.cancel = FALSE;
		i.callback = ec13_cb;
		ags_fader(&i);
		break;
	default:
		gr_copy(write, wx, wy, src, sx, sy, width, height);
		ags_updateArea(wx, wy, width, height);
	}
}


static void ec11_prepare() {
	int i;
	
	ecp.ss[0] = sf_create_surface(ecp.w, ecp.h, ecp.write->depth);
	ecp.sd[0] = sf_create_surface(ecp.w, ecp.h, ecp.write->depth);
	gr_buller(ecp.ss[0], 0, 0, ecp.src, ecp.sx, ecp.sy, ecp.w, ecp.h, 1 << 2);
	gr_buller(ecp.sd[0], 0, 0, ecp.dst, ecp.dx, ecp.dy, ecp.w, ecp.h, 1 << 2);
	
	for (i = 1; i < 6; i++) {
		ecp.ss[i] = sf_create_surface(ecp.w, ecp.h, ecp.write->depth);
		ecp.sd[i] = sf_create_surface(ecp.w, ecp.h, ecp.write->depth);
		gr_buller(ecp.ss[i], 0, 0, ecp.ss[i-1], 0, 0, ecp.w, ecp.h, 1 << (i+2));
		gr_buller(ecp.sd[i], 0, 0, ecp.sd[i-1], 0, 0, ecp.w, ecp.h, 1 << (i+2));
	}
}

static void ec11_cb(int step) {
	int i;
	
	if (step == 6) {
		for (i = 0; i < 6; i++) {
			sf_free(ecp.ss[i]);
			sf_free(ecp.sd[i]);
		}
		gr_copy(ecp.write, ecp.wx, ecp.wy, ecp.src, ecp.sx, ecp.sy, ecp.w, ecp.h);
		ags_updateArea(ecp.wx, ecp.wy, ecp.w, ecp.h);
		return;
	}
	
	gre_Blend(ecp.write, ecp.wx, ecp.wy, ecp.sd[step], 0, 0, ecp.ss[5-step], 0, 0, ecp.w, ecp.h, ((step+1)*256)/7);
	
	ags_updateArea(ecp.wx, ecp.wy, ecp.w, ecp.h);
}

#if 0
static void ec11_cb(int step) {
	static surface_t *ss;
	static surface_t *sd;
	
	if (step == 0) {
		ss = sf_create_surface(ecp.w, ecp.h, ecp.write->depth);
		sd = sf_create_surface(ecp.w, ecp.h, ecp.write->depth);
		gr_copy(ss, 0, 0, ecp.src, ecp.sx, ecp.sy, ecp.w, ecp.h);
		gr_copy(sd, 0, 0, ecp.dst, ecp.dx, ecp.dy, ecp.w, ecp.h);
		return;
	}
	if (step == 6) {
		sf_free(ss);
		sf_free(sd);
		gr_copy(ecp.write, ecp.wx, ecp.wy, ecp.src, ecp.sx, ecp.sy, ecp.w, ecp.h);
		ags_updateArea(ecp.wx, ecp.wy, ecp.w, ecp.h);
		return;
	}
	
	gr_buller(ss, 0, 0, ecp.src, ecp.sx, ecp.sy, ecp.w, ecp.h, 1 << (7-step));
	gr_buller(sd, 0, 0, ecp.dst, ecp.dx, ecp.dy, ecp.w, ecp.h, 1 << (step+1));
	gre_Blend(ecp.write, ecp.wx, ecp.wy, sd, 0, 0, ss, 0, 0, ecp.w, ecp.h, (step*256)/6);
	ags_updateArea(ecp.wx, ecp.wy, ecp.w, ecp.h);
}
#endif

static void ec12_cb(int step) {
	int j, l;
	int st_i, ed_i;
	static int last_i = 0;
	
	if (step == 0) {
		return;
	}
	
	if (step == ECA12_D + ecp.h) {
		gr_copy(ecp.write, ecp.wx, ecp.wy, ecp.src, ecp.sx, ecp.sy, ecp.w, ecp.h);
		ags_updateArea(ecp.wx, ecp.wy, ecp.w, ecp.h);
		return;
	}
	
	st_i = max(0, step - ECA12_D + 1);
	ed_i = min(ecp.h - 1, step);
	l = ed_i - st_i + 1;
	
	for (j = st_i; j < ed_i; j++) {
		gre_Blend(ecp.write, ecp.wx, ecp.wy + j, ecp.dst, ecp.dx, ecp.dy + j, ecp.src, ecp.sx, ecp.sy + j, ecp.w, 1, step - j);
	}

	if ((st_i - last_i) > 1) {
		gr_copy(ecp.write, ecp.wx, ecp.wy + last_i, ecp.src, ecp.sx, ecp.sy+last_i, ecp.w, st_i - last_i);
		ags_updateArea(ecp.wx, ecp.wy + last_i, ecp.w, st_i - last_i);
	}
	
	ags_updateArea(ecp.wx, ecp.wy + st_i, ecp.w, l);
	
	last_i = st_i;
}

static void ec13_cb(int step) {
	int j, l;
	int st_i,ed_i;
	static int last_i = 0;
	int syy1 = ecp.dy + ecp.h -1;
	int syy2 = ecp.sy + ecp.h -1;
	int dyy  = ecp.wy + ecp.h -1;
	
	if (step == 0) {
		return;
	}
	
	if (step == ECA12_D + ecp.h) {
		gr_copy(ecp.write, ecp.wx, ecp.wy, ecp.src, ecp.sx, ecp.sy, ecp.w, ecp.h);
		ags_updateArea(ecp.wx, ecp.wy, ecp.w, ecp.h);
		return;
	}
	
	st_i = max(0, step - ECA12_D + 1);
	ed_i = min(ecp.h -1, step);
	l = ed_i - st_i+1;
	
	for (j = st_i; j <= ed_i; j++) {
		gre_Blend(ecp.write, ecp.wx, dyy - j, ecp.dst, ecp.dx, syy1 - j, ecp.src, ecp.sx, syy2 - j, ecp.w, 1, step - j);
	}
	
	if ((st_i - last_i) > 1) {
		gr_copy(ecp.write, ecp.wx, dyy - st_i + 1, ecp.src, ecp.sx, syy2 - st_i + 1, ecp.w, st_i - last_i);
		ags_updateArea(ecp.wx, dyy - st_i + 1, ecp.w, st_i - last_i);
	}
	
	ags_updateArea(ecp.wx, dyy-ed_i, ecp.w, l);
	
	last_i = st_i;
}