// license:GPL-2.0+
// copyright-holders:byuu, Nach
/***************************************************************************
cx4oam.c
Code based on original work by zsKnight, anomie and Nach.
This implementation is based on C++ "cx4*.cpp" by byuu
(up to date with source v 0.49).
***************************************************************************/
//Build OAM
static void CX4_op00_00(running_machine &machine)
{
int32_t i;
uint32_t oamptr = cx4.ram[0x626] << 2;
uint16_t globalx, globaly;
uint32_t oamptr2;
int16_t sprx, spry;
uint8_t sprname, sprattr;
uint8_t sprcount;
uint8_t offset;
uint32_t srcptr;
for(i = 0x1fd; i > oamptr && i >= 0; i -= 4)
{
//clear oam-to-be
if(i >= 0)
{
cx4.ram[i] = 0xe0;
}
}
globalx = CX4_readw(0x621);
globaly = CX4_readw(0x623);
oamptr2 = 0x200 + (cx4.ram[0x626] >> 2);
if(!cx4.ram[0x620])
{
return;
}
sprcount = 128 - cx4.ram[0x626];
offset = (cx4.ram[0x626] & 3) * 2;
srcptr = 0x220;
address_space &space = machine.device<cpu_device>("maincpu")->space(AS_PROGRAM);
for(i = cx4.ram[0x620]; i > 0 && sprcount > 0; i--, srcptr += 16)
{
uint32_t spraddr = CX4_readl(srcptr + 7);
sprx = CX4_readw(srcptr) - globalx;
spry = CX4_readw(srcptr + 2) - globaly;
sprname = cx4.ram[srcptr + 5];
sprattr = cx4.ram[srcptr + 4] | cx4.ram[srcptr + 6];
if(space.read_byte(spraddr))
{
int16_t x, y;
int32_t sprcnt;
for(sprcnt = space.read_byte(spraddr++); sprcnt > 0 && sprcount > 0; sprcnt--, spraddr += 4)
{
x = (int8_t)space.read_byte(spraddr + 1);
if(sprattr & 0x40)
{
x = -x - ((space.read_byte(spraddr) & 0x20) ? 16 : 8);
}
x += sprx;
if(x >= -16 && x <= 272)
{
y = (int8_t)space.read_byte(spraddr + 2);
if(sprattr & 0x80)
{
y = -y - ((space.read_byte(spraddr) & 0x20) ? 16 : 8);
}
y += spry;
if(y >= -16 && y <= 224)
{
cx4.ram[oamptr ] = (uint8_t)x;
cx4.ram[oamptr + 1] = (uint8_t)y;
cx4.ram[oamptr + 2] = sprname + space.read_byte(spraddr + 3);
cx4.ram[oamptr + 3] = sprattr ^ (space.read_byte(spraddr) & 0xc0);
cx4.ram[oamptr2] &= ~(3 << offset);
if(x & 0x100)
{
cx4.ram[oamptr2] |= 1 << offset;
}
if(space.read_byte(spraddr) & 0x20)
{
cx4.ram[oamptr2] |= 2 << offset;
}
oamptr += 4;
sprcount--;
offset = (offset + 2) & 6;
if(!offset)
{
oamptr2++;
}
}
}
}
}
else if(sprcount > 0)
{
cx4.ram[oamptr ] = (uint8_t)sprx;
cx4.ram[oamptr + 1] = (uint8_t)spry;
cx4.ram[oamptr + 2] = sprname;
cx4.ram[oamptr + 3] = sprattr;
cx4.ram[oamptr2] &= ~(3 << offset);
if(sprx & 0x100)
{
cx4.ram[oamptr2] |= 3 << offset;
}
else
{
cx4.ram[oamptr2] |= 2 << offset;
}
oamptr += 4;
sprcount--;
offset = (offset + 2) & 6;
if(!offset)
{
oamptr2++;
}
}
}
}
//Scale and Rotate
static void CX4_op00_03(void)
{
CX4_C4DoScaleRotate(0);
}
//Transform Lines
static void CX4_op00_05(running_machine &machine)
{
int32_t i;
uint32_t ptr = 0, ptr2 = 0;
cx4.C4WFX2Val = CX4_read(0x1f83);
cx4.C4WFY2Val = CX4_read(0x1f86);
cx4.C4WFDist = CX4_read(0x1f89);
cx4.C4WFScale = CX4_read(0x1f8c);
//Transform Vertices
for(i = CX4_readw(0x1f80); i > 0; i--, ptr += 0x10)
{
cx4.C4WFXVal = CX4_readw(ptr + 1);
cx4.C4WFYVal = CX4_readw(ptr + 5);
cx4.C4WFZVal = CX4_readw(ptr + 9);
CX4_C4TransfWireFrame();
//Displace
CX4_writew(machine, ptr + 1, cx4.C4WFXVal + 0x80);
CX4_writew(machine, ptr + 5, cx4.C4WFYVal + 0x50);
}
CX4_writew(machine, 0x600, 23);
CX4_writew(machine, 0x602, 0x60);
CX4_writew(machine, 0x605, 0x40);
CX4_writew(machine, 0x600 + 8, 23);
CX4_writew(machine, 0x602 + 8, 0x60);
CX4_writew(machine, 0x605 + 8, 0x40);
ptr = 0xb02;
for(i = CX4_readw(0xb00); i > 0; i--, ptr += 2, ptr2 += 8)
{
cx4.C4WFXVal = CX4_readw((CX4_read(ptr + 0) << 4) + 1);
cx4.C4WFYVal = CX4_readw((CX4_read(ptr + 0) << 4) + 5);
cx4.C4WFX2Val = CX4_readw((CX4_read(ptr + 1) << 4) + 1);
cx4.C4WFY2Val = CX4_readw((CX4_read(ptr + 1) << 4) + 5);
CX4_C4CalcWireFrame();
CX4_writew(machine, ptr2 + 0x600, cx4.C4WFDist ? cx4.C4WFDist : 1);
CX4_writew(machine, ptr2 + 0x602, cx4.C4WFXVal);
CX4_writew(machine, ptr2 + 0x605, cx4.C4WFYVal);
}
}
//Scale and Rotate
static void CX4_op00_07(void)
{
CX4_C4DoScaleRotate(64);
}
//Draw Wireframe
static void CX4_op00_08(running_machine &machine)
{
CX4_C4DrawWireFrame(machine);
}
//Disintegrate
static void CX4_op00_0b(running_machine &machine)
{
uint8_t width, height;
uint32_t startx, starty;
uint32_t srcptr;
uint32_t x, y;
int32_t scalex, scaley;
int32_t cx, cy;
int32_t i, j;
width = CX4_read(0x1f89);
height = CX4_read(0x1f8c);
cx = CX4_readw(0x1f80);
cy = CX4_readw(0x1f83);
scalex = (int16_t)CX4_readw(0x1f86);
scaley = (int16_t)CX4_readw(0x1f8f);
startx = -cx * scalex + (cx << 8);
starty = -cy * scaley + (cy << 8);
srcptr = 0x600;
for(i = 0; i < (width * height) >> 1; i++)
{
CX4_write(machine, i, 0);
}
for(y = starty, i = 0;i < height; i++, y += scaley)
{
for(x = startx, j = 0;j < width; j++, x += scalex)
{
if((x >> 8) < width && (y >> 8) < height && (y >> 8) * width + (x >> 8) < 0x2000)
{
uint8_t pixel = (j & 1) ? (cx4.ram[srcptr] >> 4) : (cx4.ram[srcptr]);
int32_t index = (y >> 11) * width * 4 + (x >> 11) * 32 + ((y >> 8) & 7) * 2;
uint8_t mask = 0x80 >> ((x >> 8) & 7);
if(pixel & 1) cx4.ram[index ] |= mask;
if(pixel & 2) cx4.ram[index + 1] |= mask;
if(pixel & 4) cx4.ram[index + 16] |= mask;
if(pixel & 8) cx4.ram[index + 17] |= mask;
}
if(j & 1)
{
srcptr++;
}
}
}
}
//Bitplane Wave
static void CX4_op00_0c(running_machine &machine)
{
int i, j;
uint32_t destptr = 0;
uint32_t waveptr = CX4_read(0x1f83);
uint16_t mask1 = 0xc0c0;
uint16_t mask2 = 0x3f3f;
for(j = 0; j < 0x10; j++)
{
do
{
int16_t height = -((int8_t)CX4_read(waveptr + 0xb00)) - 16;
for(i = 0; i < 40; i++)
{
uint16_t temp = CX4_readw(destptr + CX4_wave_data[i]) & mask2;
if(height >= 0)
{
if(height < 8)
{
temp |= mask1 & CX4_readw(0xa00 + height * 2);
}
else
{
temp |= mask1 & 0xff00;
}
}
CX4_writew(machine, destptr + CX4_wave_data[i], temp);
height++;
}
waveptr = (waveptr + 1) & 0x7f;
mask1 = (mask1 >> 2) | (mask1 << 6);
mask2 = (mask2 >> 2) | (mask2 << 6);
} while(mask1 != 0xc0c0);
destptr += 16;
do
{
int16_t height = -((int8_t)CX4_read(waveptr + 0xb00)) - 16;
for(i = 0; i < 40; i++)
{
uint16_t temp = CX4_readw(destptr + CX4_wave_data[i]) & mask2;
if(height >= 0)
{
if(height < 8)
{
temp |= mask1 & CX4_readw(0xa10 + height * 2);
}
else
{
temp |= mask1 & 0xff00;
}
}
CX4_writew(machine, destptr + CX4_wave_data[i], temp);
height++;
}
waveptr = (waveptr + 1) & 0x7f;
mask1 = (mask1 >> 2) | (mask1 << 6);
mask2 = (mask2 >> 2) | (mask2 << 6);
} while(mask1 != 0xc0c0);
destptr += 16;
}
}