/*
 * sprite_eupdate.c: 効果つき更新
 *
 * Copyright (C) 1997-1998 Masaki Chikama (Wren) <chikama@kasumi.ipl.mech.nagoya-u.ac.jp>
 *               1998-                           <masaki-c@is.aist-nara.ac.jp>
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 *
*/
/* $Id: sprite_eupdate.c,v 1.5 2003/07/20 19:30:16 chikama Exp $ */

#include "config.h"

#include <stdio.h>
#include <string.h>

#include "portab.h"
#include "system.h"
#include "ngraph.h"
#include "ags.h"
#include "nact.h"
#include "image.h"
#include "input.h"
#include "sact.h"
#include "sprite.h"
#include "surface.h"
#include "sactcg.h"
#include "counter.h"



static void ec1_cb(surface_t *, surface_t *);
static void ec6_cb(surface_t *, surface_t *);
static void ec7_cb(surface_t *, surface_t *);
static void ec8_cb(surface_t *, surface_t *);
static void ec9_cb(surface_t *, surface_t *);
static void ec11_cb(surface_t *, surface_t *);
static void ec12_cb(surface_t *, surface_t *);
static void ec13_cb(surface_t *, surface_t *);
static void ec14_cb(surface_t *, surface_t *);
static void ec15_cb(surface_t *, surface_t *);
static void ec16_cb(surface_t *, surface_t *);
static void ec17_cb(surface_t *, surface_t *);
static void ec_dummy_cb(surface_t *, surface_t *);

struct ecopyparam {
	int sttime;
	int curtime;
	int edtime;
	int curstep;
	int oldstep;
};
typedef struct ecopyparam ecopyparam_t;
static ecopyparam_t ecp;

#include "sprite_eupdate_perspect.c"
#include "sprite_eupdate_mosaic.c"
#include "sprite_eupdate_aff.c"
#include "sprite_eupdate_uneune.c"
#include "sprite_eupdate_buller.c"
#include "sprite_eupdate_zmbbul.c"

typedef void entrypoint (surface_t *, surface_t *);

static entrypoint *cb[39] = {
	ec1_cb,
	ec_dummy_cb, // 欠番
	ec_dummy_cb, // 欠番
	ec_dummy_cb, // 欠番
	ec_dummy_cb, // 欠番
	ec6_cb,
	ec7_cb,
	ec8_cb,
	ec9_cb,
	ec10_cb,
	ec11_cb,
	ec12_cb,
	ec13_cb,
	ec14_cb,
	ec15_cb,
	ec16_cb,
	ec17_cb,
	ec_dummy_cb,  // 欠番
	ec19_cb,
	ec20_cb,
	ec21_cb,
	ec22_cb,
	ec23_cb,
	ec_dummy_cb,
	ec25_cb,
	ec26_cb,
	ec_dummy_cb,
	ec28_cb,
	ec29_cb,
	ec_dummy_cb,
	ec31_cb,
	ec_dummy_cb,
	ec_dummy_cb,
	ec_dummy_cb,
	ec_dummy_cb,  // 35
	ec_dummy_cb,
	ec_dummy_cb,
	ec_dummy_cb,
	ec_dummy_cb
};

static void ec_dummy_cb(surface_t *sfsrc, surface_t *sfdst) {
	WARNING("NOT IMPLEMENTED\n");
}

// クロスフェード
static void ec1_cb(surface_t *sfsrc, surface_t *sfdst) {
	int curstep;
	
	curstep = 255 * (ecp.curtime - ecp.sttime) / (ecp.edtime - ecp.sttime);
	if (ecp.oldstep == curstep) {
		usleep(0);
		return;
	}
	gre_Blend(sf0, 0, 0, sfsrc, 0, 0, sfdst, 0, 0, sfsrc->width, sfsrc->height, curstep);

	SACT_DEBUG("step = %d\n", curstep);
	ags_updateFull();
	
	ecp.oldstep = curstep;
}

// すだれ落ち
static void ec7_cb(surface_t *sfsrc, surface_t *sfdst) {
#define EC7DELTA 16
	int curstep, maxstep = sfsrc->height / EC7DELTA + EC7DELTA;
	int i, t, y;
	
	curstep = maxstep * (ecp.curtime - ecp.sttime)/ (ecp.edtime - ecp.sttime);
	SACT_DEBUG("step = %d\n", curstep);
	
	if (ecp.oldstep == curstep) {
		usleep(0);
		return;
	}
	t = ecp.oldstep;
	while(t < curstep) {
		for (i = 0; i < min(t + 1, EC7DELTA); i++) {
			y = i + EC7DELTA * (t - i);
			if (y < 0 || y >= sfsrc->height) continue;
			gr_copy(sf0, 0, y,
				sfdst, 0, y, sfsrc->width, 1);
		}
		t++;
	}
	
	ecp.oldstep = curstep;
	ags_updateFull();
}

// すだれ左->右
static void ec8_cb(surface_t *sfsrc, surface_t *sfdst) {
#define EC8DELTA 16
	int curstep, maxstep = sfsrc->width / EC8DELTA + EC8DELTA;
	int i, t, x;
	
	curstep = maxstep * (ecp.curtime - ecp.sttime) / (ecp.edtime - ecp.sttime);
	SACT_DEBUG("step = %d\n", curstep);
	
	if (ecp.oldstep == curstep) {
		usleep(0);
		return;
	}
	t = ecp.oldstep;
	while(t < curstep) {
		for (i = 0; i < min(t + 1, EC8DELTA); i++) {
			x = i + EC8DELTA * (t - i);
			if (x < 0 || x >= sfsrc->width) continue;
			gr_copy(sf0,   x, 0,
				sfdst, x, 0, 1, sfsrc->height);
		}
		t++;
	}
	
	ecp.oldstep = curstep;
	ags_updateFull();
}

// すだれ落ち＆左->右
static void ec9_cb(surface_t *sfsrc, surface_t *sfdst) {
#define EC9DELTA 16
	int curstep, maxstep; 
	int i, t, x, y;

	maxstep = max(sfsrc->height / EC9DELTA + EC9DELTA,
		      sfsrc->width  / EC9DELTA + EC9DELTA);
	
	curstep = maxstep * (ecp.curtime - ecp.sttime)/ (ecp.edtime - ecp.sttime);
	SACT_DEBUG("step = %d\n", curstep);
	
	if (ecp.oldstep == curstep) {
		usleep(0);
		return;
	}
	t = ecp.oldstep;
	while(t < curstep) {
		for (i = 0; i < min(t + 1, EC9DELTA); i++) {
			y = i + EC9DELTA * (t - i);
			if (y < 0 || y >= sfsrc->height) continue;
			gr_copy(sf0, 0, y,
				sfdst, 0, y, sfsrc->width, 1);
		}
		for (i = 0; i < min(t + 1, EC9DELTA); i++) {
			x = i + EC9DELTA * (t - i);
			if (x < 0 || x >= sfsrc->width) continue;
			gr_copy(sf0,   x, 0,
				sfdst, x, 0, 1, sfsrc->height);
		}
		t++;
	}
	
	ecp.oldstep = curstep;
	ags_updateFull();
}

// 上->下クロスフェード
static void ec12_cb(surface_t *src, surface_t *dst) {
#define EC12DELTA 256
	int curstep, maxstep = src->height + EC12DELTA;
	int j, st_i, ed_i, l;
	
	curstep = maxstep * (ecp.curtime - ecp.sttime)/ (ecp.edtime - ecp.sttime);
	SACT_DEBUG("step = %d\n", curstep);
	
	if (ecp.oldstep == curstep) {
		usleep(0); return;
	}
	
	st_i = max(0, curstep - EC12DELTA + 1);
	ed_i = min(src->height -1, curstep);
	l = ed_i - st_i + 1;
	for (j = st_i; j < ed_i; j++) {
		gre_Blend(sf0, 0, j, src, 0, j, dst, 0, j, src->width, 1, curstep - j);
	}
	if ((st_i - ecp.oldstep) > 1) {
		gr_copy(sf0, 0, ecp.oldstep, dst, 0, ecp.oldstep, src->width, st_i - ecp.oldstep);
		ags_updateArea(0, ecp.oldstep, src->width, st_i - ecp.oldstep);
	}
	
	ags_updateArea(0, st_i, src->width, l);
	ecp.oldstep = st_i;
}

// 下->上クロスフェード
static void ec13_cb(surface_t *src, surface_t *dst) {
#define EC13DELTA 256
	int curstep, maxstep = src->height + EC12DELTA;
	int j, st_i, ed_i, l;
	int syy1 = 0 + dst->height -1;
	int syy2 = 0 + src->height -1;
	int dyy  = 0 + sf0->height -1;
	
	curstep = maxstep * (ecp.curtime - ecp.sttime)/ (ecp.edtime - ecp.sttime);
	SACT_DEBUG("step = %d\n", curstep);
	
	if (ecp.oldstep == curstep) {
		usleep(0); return;
	}
	
	st_i = max(0, curstep - EC13DELTA + 1);
	ed_i = min(src->height -1, curstep);
	l = ed_i - st_i + 1;
	for (j = st_i; j < ed_i; j++) {
		gre_Blend(sf0, 0, dyy - j, src, 0, syy1-j, dst, 0, syy2-j, src->width, 1, curstep - j);
	}
	if ((st_i - ecp.oldstep) > 1) {
		gr_copy(sf0, 0, dyy-ecp.oldstep, dst, 0, syy2-ecp.oldstep, src->width, st_i - ecp.oldstep);
		ags_updateArea(0, dyy-ecp.oldstep, src->width, st_i - ecp.oldstep);
	}
	
	ags_updateArea(0, dyy-ed_i, src->width, l);
	ecp.oldstep = st_i;
}

// 五芒星 (内->外)
static void ec14_cb(surface_t *sfsrc, surface_t *sfdst) {
	int curstep, maxstep;
	maxstep = 256;
	curstep = maxstep * (ecp.curtime - ecp.sttime)/ (ecp.edtime - ecp.sttime);
	
	if (ecp.oldstep == 0) {
		sf_copyall(sf0, sfdst);
	}
	sdl_maskupdate(0, 0, sfsrc->width, sfsrc->height, 0, 0, 44, curstep);
	ecp.oldstep = curstep;
}

// 五芒星 (外->内)
static void ec15_cb(surface_t *sfsrc, surface_t *sfdst) {
	int curstep, maxstep;
	maxstep = 256;
	curstep = maxstep * (ecp.curtime - ecp.sttime)/ (ecp.edtime - ecp.sttime);
	
	if (ecp.oldstep == 0) {
		sf_copyall(sf0, sfdst);
	}
	sdl_maskupdate(0, 0, sfsrc->width, sfsrc->height, 0, 0, 45, curstep);
	ecp.oldstep = curstep;
}

// 六芒星 (内->外)
static void ec16_cb(surface_t *sfsrc, surface_t *sfdst) {
	int curstep, maxstep;
	maxstep = 256;
	curstep = maxstep * (ecp.curtime - ecp.sttime)/ (ecp.edtime - ecp.sttime);
	
	if (ecp.oldstep == 0) {
		sf_copyall(sf0, sfdst);
	}
	sdl_maskupdate(0, 0, sfsrc->width, sfsrc->height, 0, 0, 46, curstep);
	ecp.oldstep = curstep;
}

// 六芒星 (外->内)
static void ec17_cb(surface_t *sfsrc, surface_t *sfdst) {
	int curstep, maxstep;
	maxstep = 256;
	curstep = maxstep * (ecp.curtime - ecp.sttime)/ (ecp.edtime - ecp.sttime);
	
	if (ecp.oldstep == 0) {
		sf_copyall(sf0, sfdst);
	}
	sdl_maskupdate(0, 0, sfsrc->width, sfsrc->height, 0, 0, 47, curstep);
	ecp.oldstep = curstep;
}



//ブロックディゾルブ
static void ec24_cb(surface_t *sfsrc, surface_t *sfdst) {
}

// 振動
static void ec27_cb(surface_t *sfsrc, surface_t *sfdst) {
}

// 回転ズームブレンドブラー(SRCのみ参照
static void ec30_cb(surface_t *sfsrc, surface_t *sfdst) {
}

// ＴＶスイッチオフ(Destのみ参照)
static void ec32_cb(surface_t *sfsrc, surface_t *sfdst) {
}

// ＴＶスイッチオン(Srcのみ参照)
static void ec33_cb(surface_t *sfsrc, surface_t *sfdst) {
}

// ポリゴン爆発
static void ec34_cb(surface_t *sfsrc, surface_t *sfdst) {
}

// ノイズクロスフェード
static void ec35_cb(surface_t *sfsrc, surface_t *sfdst) {
}

// ページめくり
static void ec36_cb(surface_t *sfsrc, surface_t *sfdst) {
}

// セピアノイズクロスフェード
static void ec37_cb(surface_t *sfsrc, surface_t *sfdst) {
}

// ぐしゃぐしゃ紙右下ひっぱり
static void ec38_cb(surface_t *sfsrc, surface_t *sfdst) {
}

// 横うねうね
static void ec39_cb(surface_t *sfsrc, surface_t *sfdst) {
}


/*
  効果つき画面更新
  @param type: 効果の種類
  @param time: 実行時間
  @param cancel: キー抜け(0:なし, 1:あり)
*/
int sp_eupdate(int type, int time, int cancel) {
	surface_t *sfsrc, *sfdst;
	int key;

	if (sact.waitskiplv > 1) {
		sp_update_all(TRUE);
		return OK;
	}
	
	// 現在の sf0 をセーブ
	sfsrc = sf_dup(sf0);
	
	sp_update_all(FALSE);
	
	sfdst = sf_dup(sf0);
	
	sf_copyall(sf0, sfsrc); // 全部の効果タイプにこの処理は要らないんだけど
	// 5つを越えたら別の方法を考えよう
	if (type == 10) {
		ec10_prepare(sfsrc, sfdst);
	}
	if (type == 11) {
		ec11_prepare(sfsrc, sfdst);
	}
	if (type == 19) {
		ec19_prepare(sfsrc, sfdst);
	}
	
	ecp.sttime = ecp.curtime = get_high_counter(SYSTEMCOUNTER_MSEC);
	ecp.edtime = ecp.curtime + time*10;
	ecp.oldstep = 0;
	
	while ((ecp.curtime = get_high_counter(SYSTEMCOUNTER_MSEC)) < ecp.edtime) {
		int rest;
		
		(*cb[type-1])(sfsrc, sfdst);
		rest = 15 - (get_high_counter(SYSTEMCOUNTER_MSEC) - ecp.curtime);
		key = sys_keywait(rest, cancel);
		
		if (cancel && key) break;
	}
	
	sf_copyall(sf0, sfdst);
	ags_updateFull();
	sf_free(sfsrc);
	sf_free(sfdst);

	if (type == 10) {
		ec10_drain(sfsrc, sfdst);
	}
	if (type == 11) {
		ec11_drain(sfsrc, sfdst);
	}
	if (type == 19) {
		ec19_drain(sfsrc, sfdst);
	}
	
	return OK;
}