/***************************************************************************
video.c
Functions to emulate the video hardware of the machine.
***************************************************************************/
#include "emu.h"
#include "includes/lastduel.h"
/***************************************************************************
Callbacks for the TileMap code
***************************************************************************/
static TILE_GET_INFO( ld_get_bg_tile_info )
{
lastduel_state *state = machine.driver_data<lastduel_state>();
int tile = state->m_scroll2[2 * tile_index] & 0x1fff;
int color = state->m_scroll2[2 * tile_index + 1];
SET_TILE_INFO(
2,
tile,color & 0xf,
TILE_FLIPYX((color & 0x60) >> 5));
}
static TILE_GET_INFO( ld_get_fg_tile_info )
{
lastduel_state *state = machine.driver_data<lastduel_state>();
int tile = state->m_scroll1[2 * tile_index] & 0x1fff;
int color = state->m_scroll1[2 * tile_index + 1];
SET_TILE_INFO(
3,
tile,
color & 0xf,
TILE_FLIPYX((color & 0x60) >> 5));
tileinfo->group = (color & 0x80) >> 7;
}
static TILE_GET_INFO( get_bg_tile_info )
{
lastduel_state *state = machine.driver_data<lastduel_state>();
int tile = state->m_scroll2[tile_index] & 0x1fff;
int color = state->m_scroll2[tile_index + 0x0800];
SET_TILE_INFO(
2,
tile,
color & 0xf,
TILE_FLIPYX((color & 0x60) >> 5));
}
static TILE_GET_INFO( get_fg_tile_info )
{
lastduel_state *state = machine.driver_data<lastduel_state>();
int tile = state->m_scroll1[tile_index] & 0x1fff;
int color = state->m_scroll1[tile_index + 0x0800];
SET_TILE_INFO(
3,
tile,
color & 0xf,
TILE_FLIPYX((color & 0x60) >> 5));
tileinfo->group = (color & 0x10) >> 4;
}
static TILE_GET_INFO( get_fix_info )
{
lastduel_state *state = machine.driver_data<lastduel_state>();
int tile = state->m_vram[tile_index];
SET_TILE_INFO(
1,
tile & 0x7ff,
tile>>12,
(tile & 0x800) ? TILE_FLIPY : 0);
}
/***************************************************************************
Start the video hardware emulation.
***************************************************************************/
VIDEO_START( lastduel )
{
lastduel_state *state = machine.driver_data<lastduel_state>();
state->m_bg_tilemap = tilemap_create(machine, ld_get_bg_tile_info, tilemap_scan_rows, 16, 16, 64, 64);
state->m_fg_tilemap = tilemap_create(machine, ld_get_fg_tile_info, tilemap_scan_rows, 16, 16, 64, 64);
state->m_tx_tilemap = tilemap_create(machine, get_fix_info, tilemap_scan_rows, 8, 8, 64, 32);
tilemap_set_transmask(state->m_fg_tilemap, 0, 0xffff, 0x0001);
tilemap_set_transmask(state->m_fg_tilemap, 1, 0xf07f, 0x0f81);
tilemap_set_transparent_pen(state->m_tx_tilemap, 3);
state->m_sprite_flipy_mask = 0x40;
state->m_sprite_pri_mask = 0x00;
state->m_tilemap_priority = 0;
}
VIDEO_START( madgear )
{
lastduel_state *state = machine.driver_data<lastduel_state>();
state->m_bg_tilemap = tilemap_create(machine, get_bg_tile_info,tilemap_scan_cols,16,16,64,32);
state->m_fg_tilemap = tilemap_create(machine, get_fg_tile_info,tilemap_scan_cols,16,16,64,32);
state->m_tx_tilemap = tilemap_create(machine, get_fix_info,tilemap_scan_rows,8,8,64,32);
tilemap_set_transmask(state->m_fg_tilemap, 0, 0xffff, 0x8000);
tilemap_set_transmask(state->m_fg_tilemap, 1, 0x80ff, 0xff00);
tilemap_set_transparent_pen(state->m_tx_tilemap, 3);
tilemap_set_transparent_pen(state->m_bg_tilemap, 15);
state->m_sprite_flipy_mask = 0x80;
state->m_sprite_pri_mask = 0x10;
}
/***************************************************************************
Memory handlers
***************************************************************************/
WRITE16_HANDLER( lastduel_flip_w )
{
if (ACCESSING_BITS_0_7)
{
flip_screen_set(space->machine(), data & 0x01);
coin_lockout_w(space->machine(), 0, ~data & 0x10);
coin_lockout_w(space->machine(), 1, ~data & 0x20);
coin_counter_w(space->machine(), 0, data & 0x40);
coin_counter_w(space->machine(), 1, data & 0x80);
}
}
WRITE16_HANDLER( lastduel_scroll_w )
{
lastduel_state *state = space->machine().driver_data<lastduel_state>();
data = COMBINE_DATA(&state->m_scroll[offset]);
switch (offset)
{
case 0: tilemap_set_scrolly(state->m_fg_tilemap, 0, data); break;
case 1: tilemap_set_scrollx(state->m_fg_tilemap, 0, data); break;
case 2: tilemap_set_scrolly(state->m_bg_tilemap, 0, data); break;
case 3: tilemap_set_scrollx(state->m_bg_tilemap, 0, data); break;
case 7: state->m_tilemap_priority = data; break;
default:
logerror("Unmapped video write %d %04x\n", offset, data);
break;
}
}
WRITE16_HANDLER( lastduel_scroll1_w )
{
lastduel_state *state = space->machine().driver_data<lastduel_state>();
COMBINE_DATA(&state->m_scroll1[offset]);
tilemap_mark_tile_dirty(state->m_fg_tilemap, offset / 2);
}
WRITE16_HANDLER( lastduel_scroll2_w )
{
lastduel_state *state = space->machine().driver_data<lastduel_state>();
COMBINE_DATA(&state->m_scroll2[offset]);
tilemap_mark_tile_dirty(state->m_bg_tilemap, offset / 2);
}
WRITE16_HANDLER( lastduel_vram_w )
{
lastduel_state *state = space->machine().driver_data<lastduel_state>();
COMBINE_DATA(&state->m_vram[offset]);
tilemap_mark_tile_dirty(state->m_tx_tilemap, offset);
}
WRITE16_HANDLER( madgear_scroll1_w )
{
lastduel_state *state = space->machine().driver_data<lastduel_state>();
COMBINE_DATA(&state->m_scroll1[offset]);
tilemap_mark_tile_dirty(state->m_fg_tilemap, offset & 0x7ff);
}
WRITE16_HANDLER( madgear_scroll2_w )
{
lastduel_state *state = space->machine().driver_data<lastduel_state>();
COMBINE_DATA(&state->m_scroll2[offset]);
tilemap_mark_tile_dirty(state->m_bg_tilemap, offset & 0x7ff);
}
WRITE16_HANDLER( lastduel_palette_word_w )
{
lastduel_state *state = space->machine().driver_data<lastduel_state>();
int red, green, blue, bright;
data = COMBINE_DATA(&state->m_paletteram[offset]);
// Brightness parameter interpreted same way as CPS1
bright = 0x10 + (data & 0x0f);
red = ((data >> 12) & 0x0f) * bright * 0x11 / 0x1f;
green = ((data >> 8) & 0x0f) * bright * 0x11 / 0x1f;
blue = ((data >> 4) & 0x0f) * bright * 0x11 / 0x1f;
palette_set_color (space->machine(), offset, MAKE_RGB(red, green, blue));
}
/***************************************************************************
Display refresh
***************************************************************************/
static void draw_sprites( running_machine &machine, bitmap_t *bitmap, const rectangle *cliprect, int pri )
{
lastduel_state *state = machine.driver_data<lastduel_state>();
UINT16 *buffered_spriteram16 = machine.generic.buffered_spriteram.u16;
int offs;
if (!state->m_sprite_pri_mask)
if (pri == 1)
return; /* only low priority sprites in lastduel */
for (offs = 0x400 - 4; offs >= 0; offs -= 4)
{
int attr, sy, sx, flipx, flipy, code, color;
attr = buffered_spriteram16[offs + 1];
if (state->m_sprite_pri_mask) /* only madgear seems to have this */
{
if (pri == 1 && (attr & state->m_sprite_pri_mask))
continue;
if (pri == 0 && !(attr & state->m_sprite_pri_mask))
continue;
}
code = buffered_spriteram16[offs];
sx = buffered_spriteram16[offs + 3] & 0x1ff;
sy = buffered_spriteram16[offs + 2] & 0x1ff;
if (sy > 0x100)
sy -= 0x200;
flipx = attr & 0x20;
flipy = attr & state->m_sprite_flipy_mask; /* 0x40 for lastduel, 0x80 for madgear */
color = attr & 0x0f;
if (flip_screen_get(machine))
{
sx = 496 - sx;
sy = 240 - sy;
flipx = !flipx;
flipy = !flipy;
}
drawgfx_transpen(bitmap,cliprect,
machine.gfx[0],
code,
color,
flipx,flipy,
sx,sy,15);
}
}
SCREEN_UPDATE( lastduel )
{
lastduel_state *state = screen->machine().driver_data<lastduel_state>();
tilemap_draw(bitmap, cliprect, state->m_bg_tilemap, 0, 0);
tilemap_draw(bitmap, cliprect, state->m_fg_tilemap, TILEMAP_DRAW_LAYER1, 0);
draw_sprites(screen->machine(), bitmap, cliprect, 0);
tilemap_draw(bitmap, cliprect, state->m_fg_tilemap, TILEMAP_DRAW_LAYER0, 0);
draw_sprites(screen->machine(), bitmap, cliprect, 1);
tilemap_draw(bitmap, cliprect, state->m_tx_tilemap, 0, 0);
return 0;
}
SCREEN_UPDATE( madgear )
{
lastduel_state *state = screen->machine().driver_data<lastduel_state>();
if (state->m_tilemap_priority)
{
tilemap_draw(bitmap, cliprect, state->m_fg_tilemap, TILEMAP_DRAW_LAYER1 | TILEMAP_DRAW_OPAQUE, 0);
draw_sprites(screen->machine(), bitmap, cliprect, 0);
tilemap_draw(bitmap, cliprect, state->m_fg_tilemap, TILEMAP_DRAW_LAYER0, 0);
tilemap_draw(bitmap, cliprect, state->m_bg_tilemap, 0, 0);
draw_sprites(screen->machine(), bitmap, cliprect, 1);
}
else
{
tilemap_draw(bitmap, cliprect, state->m_bg_tilemap, TILEMAP_DRAW_OPAQUE, 0);
tilemap_draw(bitmap, cliprect, state->m_fg_tilemap, TILEMAP_DRAW_LAYER1, 0);
draw_sprites(screen->machine(), bitmap, cliprect, 0);
tilemap_draw(bitmap, cliprect, state->m_fg_tilemap, TILEMAP_DRAW_LAYER0, 0);
draw_sprites(screen->machine(), bitmap, cliprect, 1);
}
tilemap_draw(bitmap, cliprect, state->m_tx_tilemap, 0, 0);
return 0;
}
SCREEN_EOF( lastduel )
{
address_space *space = machine.device("maincpu")->memory().space(AS_PROGRAM);
/* Spriteram is always 1 frame ahead, suggesting buffering. I can't find
a register to control this so I assume it happens automatically
every frame at the end of vblank */
buffer_spriteram16_w(space, 0, 0, 0xffff);
}