mirror of
https://github.com/kichikuou/xsystem35-sdl2.git
synced 2026-09-28 01:37:58 +03:00
408 lines
9.6 KiB
C
408 lines
9.6 KiB
C
#include "config.h"
|
|
|
|
#include <stdio.h>
|
|
|
|
#include "portab.h"
|
|
#include "system.h"
|
|
#include "surface.h"
|
|
// #include "gleffectcopy.h"
|
|
#include "counter.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 ECA7_D 16
|
|
#define ECA12_D 256
|
|
|
|
static void ec1_cb(int step);
|
|
static void ec2_cb(int step);
|
|
static void ec3_cb(int step);
|
|
static void ec4_cb(int step);
|
|
static void ec5_cb(int step);
|
|
static void ec7_cb();
|
|
static void ec11_cb(int step);
|
|
static void ec11_prepare(void);
|
|
static void ec12_cb(int step);
|
|
static void ec13_cb(int step);
|
|
|
|
static int get_ecounter(void) {
|
|
return get_high_counter(SYSTEMCOUNTER_MSEC);
|
|
}
|
|
|
|
#if 0
|
|
void gle_set_check_clik() {
|
|
}
|
|
void gle_set_itimer() {
|
|
}
|
|
#endif
|
|
|
|
void gpx_effect(int no,
|
|
surface_t *write, 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) {
|
|
|
|
ags_faderinfo_t i;
|
|
|
|
if (!gr_clip(dst, &dx, &dy, &width, &height, write, &wx, &wy)) return;
|
|
if (!gr_clip(src, &sx, &sy, &width, &height, write, &wx, &wy)) 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;
|
|
|
|
switch(no) {
|
|
case 1:
|
|
i.step_max = 64;
|
|
i.effect_time = time == 0 ? 2700 : time;
|
|
i.cancel = FALSE;
|
|
i.callback = ec1_cb;
|
|
ags_fader(&i);
|
|
break;
|
|
case 2:
|
|
i.step_max = 64;
|
|
i.effect_time = time == 0 ? 2700 : time;
|
|
i.cancel = FALSE;
|
|
i.callback = ec2_cb;
|
|
ags_fader(&i);
|
|
break;
|
|
case 3:
|
|
i.step_max = 64;
|
|
i.effect_time = time == 0 ? 2700 : time;
|
|
i.cancel = FALSE;
|
|
i.callback = ec3_cb;
|
|
ags_fader(&i);
|
|
break;
|
|
case 4:
|
|
i.step_max = 64;
|
|
i.effect_time = time == 0 ? 2700 : time;
|
|
i.cancel = FALSE;
|
|
i.callback = ec4_cb;
|
|
ags_fader(&i);
|
|
break;
|
|
case 5:
|
|
i.step_max = 64;
|
|
i.effect_time = time == 0 ? 2700 : time;
|
|
i.cancel = FALSE;
|
|
i.callback = ec5_cb;
|
|
ags_fader(&i);
|
|
break;
|
|
case 7:
|
|
ec7_cb();
|
|
break;
|
|
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);
|
|
}
|
|
|
|
*endtype = 0;
|
|
|
|
}
|
|
|
|
void sf_blend_white_level(surface_t *dst, int dx, int dy, surface_t *src, int sx, int sy, int sw, int sh, int lv) {
|
|
|
|
int x, y;
|
|
BYTE *sp, *dp;
|
|
|
|
sp = GETOFFSET_PIXEL(src, sx, sy);
|
|
dp = GETOFFSET_PIXEL(dst, dx, dy);
|
|
|
|
switch(dst->depth) {
|
|
case 16:
|
|
{
|
|
WORD *yls, *yld;
|
|
|
|
for (y = 0; y < sh; y++) {
|
|
yls = (WORD *)(sp + y * src->bytes_per_line);
|
|
yld = (WORD *)(dp + y * dst->bytes_per_line);
|
|
|
|
for (x = 0; x < sw; x++) {
|
|
*yld = WHITELEVEL16(*yls, lv);
|
|
yls++; yld++;
|
|
}
|
|
}
|
|
break;
|
|
}
|
|
case 24:
|
|
case 32:
|
|
{
|
|
DWORD *yls, *yld;
|
|
|
|
for (y = 0; y < sh; y++) {
|
|
yls = (DWORD *)(sp + y * src->bytes_per_line);
|
|
yld = (DWORD *)(dp + y * dst->bytes_per_line);
|
|
|
|
for (x = 0; x < sw; x++) {
|
|
*yld = WHITELEVEL24(*yls, lv);
|
|
yls++; yld++;
|
|
}
|
|
}
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
static void ec1_cb(int step) {
|
|
if (step == 64) {
|
|
gr_copy(ecp.write, ecp.wx, ecp.wy, ecp.src, ecp.sx, ecp.sy, ecp.w, ecp.h);
|
|
} else {
|
|
gre_Blend(ecp.write, ecp.wx, ecp.wy, ecp.dst, ecp.dx, ecp.dy, ecp.src, ecp.sx, ecp.sy, ecp.w, ecp.h, step * 4);
|
|
}
|
|
ags_updateArea(ecp.wx, ecp.wy, ecp.w, ecp.h);
|
|
}
|
|
|
|
static void ec2_cb(int step) {
|
|
if (step == 0) {
|
|
gr_copy_bright(ecp.write, ecp.wx, ecp.wy, ecp.dst, ecp.dx, ecp.dy, ecp.w, ecp.h, 255);
|
|
} else if (step == 64) {
|
|
gr_copy_bright(ecp.write, ecp.wx, ecp.wy, ecp.dst, ecp.dx, ecp.dy, ecp.w, ecp.h, 0);
|
|
} else {
|
|
gr_copy_bright(ecp.write, ecp.wx, ecp.wy, ecp.dst, ecp.dx, ecp.dy, ecp.w, ecp.h, 255 - step * 4);
|
|
}
|
|
ags_updateArea(ecp.wx, ecp.wy, ecp.w, ecp.h);
|
|
}
|
|
|
|
static void ec3_cb(int step) {
|
|
if (step != 64) {
|
|
gr_copy_bright(ecp.write, ecp.wx, ecp.wy, ecp.src, ecp.sx, ecp.sy, ecp.w, ecp.h, step * 4);
|
|
} else {
|
|
gr_copy_bright(ecp.write, ecp.wx, ecp.wy, ecp.src, ecp.sx, ecp.sy, ecp.w, ecp.h, 255);
|
|
}
|
|
ags_updateArea(ecp.wx, ecp.wy, ecp.w, ecp.h);
|
|
}
|
|
|
|
static void ec4_cb(int step) {
|
|
if (step != 64) {
|
|
sf_blend_white_level(ecp.write, ecp.wx, ecp.wy, ecp.dst, ecp.dx, ecp.dy, ecp.w, ecp.h, step * 4);
|
|
} else {
|
|
sf_blend_white_level(ecp.write, ecp.wx, ecp.wy, ecp.dst, ecp.dx, ecp.dy, ecp.w, ecp.h, 255);
|
|
}
|
|
ags_updateArea(ecp.wx, ecp.wy, ecp.w, ecp.h);
|
|
}
|
|
|
|
static void ec5_cb(int step) {
|
|
if (step == 0) {
|
|
sf_blend_white_level(ecp.write, ecp.wx, ecp.wy, ecp.src, ecp.sx, ecp.sy, ecp.w, ecp.h, 255);
|
|
} else if (step == 64) {
|
|
sf_blend_white_level(ecp.write, ecp.wx, ecp.wy, ecp.src, ecp.sx, ecp.sy, ecp.w, ecp.h, 0);
|
|
} else {
|
|
sf_blend_white_level(ecp.write, ecp.wx, ecp.wy, ecp.src, ecp.sx, ecp.sy, ecp.w, ecp.h, 255 - step * 4);
|
|
}
|
|
ags_updateArea(ecp.wx, ecp.wy, ecp.w, ecp.h);
|
|
}
|
|
|
|
#define EC_WAIT \
|
|
if ((key |= sys_getInputInfo()) && ecp.cancel) break; \
|
|
key = sys_keywait(cnt - get_ecounter(), ecp.cancel);
|
|
|
|
static void ec7_cb() {
|
|
int i, j, y, key = 0, cnt;
|
|
int waitcnt = ecp.time == 0 ? 40 : (ecp.time/60);
|
|
|
|
cnt = get_ecounter();
|
|
for (i = 0; i < ECA7_D + ecp.h / ECA7_D -1; i++) {
|
|
cnt += waitcnt;
|
|
for (j = 0; j < min(i + 1, ECA7_D); j++) {
|
|
y = j + ECA7_D * (i-j);
|
|
if (y < 0 || y >= ecp.h) continue;
|
|
gr_copy(ecp.write, ecp.wx, ecp.wy + y, ecp.src, ecp.sx, ecp.sy + y, ecp.w, 1);
|
|
}
|
|
ags_updateArea(ecp.wx, ecp.wy, ecp.w, ecp.h);
|
|
EC_WAIT;
|
|
}
|
|
|
|
ags_updateArea(ecp.wx, ecp.wy, ecp.w, ecp.h);
|
|
}
|
|
|
|
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;
|
|
}
|