// license:BSD-3-Clause // copyright-holders:Luca Elia,Olivier Galibert,Paul Priest /*************************************************************************** -= Psikyo Games =- driver by Luca Elia (l.elia@tin.it) Note: if MAME_DEBUG is defined, pressing Z with: Q shows layer 0 W shows layer 1 A shows the sprites Keys can be used together! [ 2 Scrolling Layers ] - Dynamic Size - Line Scroll Layer Sizes: 512 x 2048 ( $20 x $80 tiles) 1024 x 1048 ( $40 x $40 tiles) 2048 x 512 ( $80 x $20 tiles) 4096 x 256 ($100 x $10 tiles) Tengai uses all four above Tiles: 16x16x4 Color Codes: 8 [ ~ $300 Multi-Tile Sprites With Zoom ] Each sprite is made of 16x16 tiles, up to 8x8 tiles. There are $300 sprites, followed by a list of the indexes of the sprites to actually display ($400 max). The list is terminated by the special index value FFFF. The tile code specified for a sprite is actually fed to a ROM holding a look-up table with the real tile code to display. Sprites can be shrinked up to ~50% following a linear curve of sizes. Since the tilemaps can change size its safest to allocate all the possible sizes at startup, as opposed to during the emulation By doing it this way theres no chance of a memory allocation failing during gameplay and crashing MAME **************************************************************************/ #include "emu.h" #include "includes/psikyo.h" /*************************************************************************** Callbacks for the TileMap code [ Tiles Format ] Offset: 0000.w fed- ---- ---- ---- Color ---c ba98 7654 3210 Code ***************************************************************************/ template TILE_GET_INFO_MEMBER(psikyo_state::get_tile_info) { u16 code = m_vram[Layer][tile_index & 0xfff]; tileinfo.set(1, (code & 0x1fff) + 0x2000 * m_tilemap_bank[Layer], ((code >> 13) & 7) + (Layer * 0x40), 0); } template TILEMAP_MAPPER_MEMBER(psikyo_state::tile_scan) { switch (m_tmapsize[Layer]) { case 0: return (col & 0x3f) | ((row & 0x3f) << 6) | ((col & 0xc0) << 6) | ((row & 0x40) << 8); case 1: return (col & 0x7f) | ((row & 0x1f) << 7) | ((col & 0x80) << 5) | ((row & 0x60) << 8); case 2: return (col & 0xff) | ((row & 0x0f) << 8) | ((row & 0x70) << 8); default: return (col & 0x1f) | ((row & 0x7f) << 5) | ((col & 0xe0) << 7); } } void psikyo_state::switch_bgbanks(u8 tmap, u8 bank) { if (bank != m_tilemap_bank[tmap]) { m_tilemap_bank[tmap] = bank; m_tilemap[tmap]->mark_all_dirty(); } } VIDEO_START_MEMBER(psikyo_state,psikyo) { m_spritelist = std::make_unique(0x800/2*8*8); m_sprite_ptr_pre = m_spritelist.get(); /* The Hardware is Capable of Changing the Dimensions of the Tilemaps, its safer to create the various sized tilemaps now as opposed to later */ m_tilemap[0] = &machine().tilemap().create(*m_gfxdecode, tilemap_get_info_delegate(*this, FUNC(psikyo_state::get_tile_info<0>)), tilemap_mapper_delegate(*this, FUNC(psikyo_state::tile_scan<0>)), 16, 16, 256, 128); m_tilemap[1] = &machine().tilemap().create(*m_gfxdecode, tilemap_get_info_delegate(*this, FUNC(psikyo_state::get_tile_info<1>)), tilemap_mapper_delegate(*this, FUNC(psikyo_state::tile_scan<1>)), 16, 16, 256, 128); for (int layer = 0; layer < 2; layer++) { m_tilemap[layer]->set_scroll_rows(1); m_tilemap[layer]->set_scroll_cols(1); } save_item(NAME(m_old_linescroll)); save_item(NAME(m_old_tmapsize)); save_item(NAME(m_tmapsize)); save_item(NAME(m_sprite_ctrl)); } VIDEO_START_MEMBER(psikyo_state,sngkace) { VIDEO_START_CALL_MEMBER( psikyo ); switch_bgbanks(0, 0); // sngkace / samuraia don't use banking switch_bgbanks(1, 1); // They share "gfx2" to save memory on other boards } /*************************************************************************** Sprites Drawing Offset: Value: 0000/2.w Y/X + Y/X Size fedc ---- ---- ---- Zoom Y/X ??? ---- ba9- ---- ---- Tiles along Y/X ---- ---8 7654 3210 Position 0004.w Color + Flags f--- ---- ---- ---- Flip Y -e-- ---- ---- ---- Flip X --d- ---- ---- ---- ? USED ---c ba98 ---- ---- Color ---- ---- 76-- ---- Priority ---- ---- --54 321- - ---- ---- ---- ---0 Code High Bit 0006.w Code Low Bits (Code goes into a LUT in ROM where the real tile code is.) Note: Not all sprites are displayed: in the top part of spriteram (e.g. 401800-401fff) there's the list of sprites indexes to actually display, terminated by FFFF. The last entry (e.g. 401ffe) is special and holds some flags: fedc ba98 7654 ---- ---- ---- ---- 32-- Transparent Pen select? 10 for 0xf, 01 for 0x0. ---- ---- ---- --1- ---- ---- ---- ---0 Sprites Disable ***************************************************************************/ void psikyo_state::get_sprites() { /* tile layers 0 & 1 have priorities 1 & 2 */ m_sprite_ctrl = m_spriteram->buffer()[0x1ffe / 4] & 0xffff; static const int pri[] = { 0, 0xfc, 0xff, 0xff }; const auto spritelist = util::big_endian_cast(m_spriteram->buffer() + 0x1800 / 4); u16 const width = m_screen->width(); u16 const height = m_screen->height(); /* Exit if sprites are disabled */ m_sprite_ptr_pre = m_spritelist.get(); if (m_sprite_ctrl & 1) return; /* Look for "end of sprites" marker in the sprites list */ for (int offs = 0/2 ; offs < (0x800 - 2)/2 ; offs += 2/2) // skip last "sprite" { /* Get next entry in the list */ u16 sprite = spritelist[offs]; if (sprite == 0xffff) break; sprite %= 0x300; const u32 *source = &m_spriteram->buffer()[sprite * 8 / 4]; /* Draw this sprite */ s32 y = source[0 / 4] >> 16; s32 x = source[0 / 4] & 0xffff; u16 const attr = source[4 / 4] >> 16; u32 code = source[4 / 4] & 0x1ffff; int flipx = attr & 0x4000; int flipy = attr & 0x8000; u32 zoomx = ((x & 0xf000) >> 12); u32 zoomy = ((y & 0xf000) >> 12); u8 const nx = ((x & 0x0e00) >> 9) + 1; u8 const ny = ((y & 0x0e00) >> 9) + 1; x = ((x & 0x01ff)); y = ((y & 0x00ff)) - (y & 0x100); /* 180-1ff are negative coordinates. Note that $80 pixels is the maximum extent of a sprite, which can therefore be moved out of screen without problems */ if (x >= 0x180) x -= 0x200; x += (nx * zoomx + 2) / 4; y += (ny * zoomy + 2) / 4; zoomx = 32 - zoomx; zoomy = 32 - zoomy; if (flip_screen()) { x = width - x - (nx * zoomx) / 2; y = height - y - (ny * zoomy) / 2; flipx = !flipx; flipy = !flipy; } int xstart, xend, xinc; if (flipx) { xstart = nx - 1; xend = -1; xinc = -1; } else { xstart = 0; xend = nx; xinc = +1; } int ystart, yend, yinc; if (flipy) { ystart = ny - 1; yend = -1; yinc = -1; } else { ystart = 0; yend = ny; yinc = +1; } for (int dy = ystart; dy != yend; dy += yinc) { for (int dx = xstart; dx != xend; dx += xinc) { m_sprite_ptr_pre->gfx = 0; m_sprite_ptr_pre->code = m_spritelut[code & (m_spritelut.length() - 1)]; m_sprite_ptr_pre->color = attr >> 8; m_sprite_ptr_pre->flipx = flipx; m_sprite_ptr_pre->flipy = flipy; if (zoomx == 32 && zoomy == 32) { m_sprite_ptr_pre->x = x + dx * 16; m_sprite_ptr_pre->y = y + dy * 16; } else { m_sprite_ptr_pre->x = x + (dx * zoomx) / 2; m_sprite_ptr_pre->y = y + (dy * zoomy) / 2; } m_sprite_ptr_pre->zoomx = zoomx << 11; m_sprite_ptr_pre->zoomy = zoomy << 11; m_sprite_ptr_pre->primask = pri[(attr & 0xc0) >> 6]; m_sprite_ptr_pre++; code++; } } } } // for now this is the same as the above function // until I work out why it makes a partial copy of the sprite list, and how best to apply it // sprite placement of the explosion graphic seems incorrect compared to the original sets? (no / different zoom support?) // it might be a problem with the actual bootleg void psikyo_state::get_sprites_bootleg() { /* tile layers 0 & 1 have priorities 1 & 2 */ m_sprite_ctrl = m_spriteram->buffer()[0x1ffe / 4] & 0xffff; static const int pri[] = { 0, 0xfc, 0xff, 0xff }; const auto spritelist = util::big_endian_cast(m_spriteram->buffer() + 0x1800 / 4); u16 const width = m_screen->width(); u16 const height = m_screen->height(); /* Exit if sprites are disabled */ m_sprite_ptr_pre = m_spritelist.get(); if (m_sprite_ctrl & 1) return; /* Look for "end of sprites" marker in the sprites list */ for (int offs = 0/2 ; offs < (0x800 - 2)/2 ; offs += 2/2) // skip last "sprite" { /* Get next entry in the list */ u16 sprite = spritelist[offs]; if (sprite == 0xffff) break; sprite %= 0x300; const u32 *source = &m_spriteram->buffer()[sprite * 8 / 4]; /* Draw this sprite */ s32 y = source[0 / 4] >> 16; s32 x = source[0 / 4] & 0xffff; u16 const attr = source[4 / 4] >> 16; u32 code = source[4 / 4] & 0x1ffff; int flipx = attr & 0x4000; int flipy = attr & 0x8000; u32 zoomx = ((x & 0xf000) >> 12); u32 zoomy = ((y & 0xf000) >> 12); u8 const nx = ((x & 0x0e00) >> 9) + 1; u8 const ny = ((y & 0x0e00) >> 9) + 1; x = ((x & 0x01ff)); y = ((y & 0x00ff)) - (y & 0x100); /* 180-1ff are negative coordinates. Note that $80 pixels is the maximum extent of a sprite, which can therefore be moved out of screen without problems */ if (x >= 0x180) x -= 0x200; x += (nx * zoomx + 2) / 4; y += (ny * zoomy + 2) / 4; zoomx = 32 - zoomx; zoomy = 32 - zoomy; if (flip_screen()) { x = width - x - (nx * zoomx) / 2; y = height - y - (ny * zoomy) / 2; flipx = !flipx; flipy = !flipy; } int xstart, xend, xinc; if (flipx) { xstart = nx - 1; xend = -1; xinc = -1; } else { xstart = 0; xend = nx; xinc = +1; } int ystart, yend, yinc; if (flipy) { ystart = ny - 1; yend = -1; yinc = -1; } else { ystart = 0; yend = ny; yinc = +1; } for (int dy = ystart; dy != yend; dy += yinc) { for (int dx = xstart; dx != xend; dx += xinc) { m_sprite_ptr_pre->gfx = 0; m_sprite_ptr_pre->code = m_spritelut[code & (m_spritelut.length() - 1)]; m_sprite_ptr_pre->color = attr >> 8; m_sprite_ptr_pre->flipx = flipx; m_sprite_ptr_pre->flipy = flipy; if (zoomx == 32 && zoomy == 32) { m_sprite_ptr_pre->x = x + dx * 16; m_sprite_ptr_pre->y = y + dy * 16; } else { m_sprite_ptr_pre->x = x + (dx * zoomx) / 2; m_sprite_ptr_pre->y = y + (dy * zoomy) / 2; } m_sprite_ptr_pre->zoomx = zoomx << 11; m_sprite_ptr_pre->zoomy = zoomy << 11; m_sprite_ptr_pre->primask = pri[(attr & 0xc0) >> 6]; m_sprite_ptr_pre++; code++; } } } } void psikyo_state::draw_sprites(screen_device &screen, bitmap_rgb32 &bitmap, const rectangle &cliprect) { struct sprite_t *sprite_ptr = m_sprite_ptr_pre; u32 transmask = 0; if (m_sprite_ctrl & 4) transmask |= (1 << 0); if (m_sprite_ctrl & 8) transmask |= (1 << 15); while (sprite_ptr != m_spritelist.get()) { sprite_ptr--; if (sprite_ptr->zoomx == 0x10000 && sprite_ptr->zoomy == 0x10000) { m_gfxdecode->gfx(sprite_ptr->gfx)->prio_transmask(bitmap,cliprect, sprite_ptr->code, sprite_ptr->color, sprite_ptr->flipx,sprite_ptr->flipy, sprite_ptr->x,sprite_ptr->y, screen.priority(),sprite_ptr->primask,transmask); } else { m_gfxdecode->gfx(sprite_ptr->gfx)->prio_zoom_transmask(bitmap,cliprect, sprite_ptr->code, sprite_ptr->color, sprite_ptr->flipx,sprite_ptr->flipy, sprite_ptr->x,sprite_ptr->y, sprite_ptr->zoomx,sprite_ptr->zoomy, screen.priority(),sprite_ptr->primask,transmask); } } } /*************************************************************************** Screen Drawing ***************************************************************************/ u32 psikyo_state::screen_update(screen_device &screen, bitmap_rgb32 &bitmap, const rectangle &cliprect) { u32 bgpen = 0; int i, layers_ctrl = -1; u32 scrollx[2]{ m_vregs[0x406 / 4], m_vregs[0x40e / 4] }, scrolly[2]{ m_vregs[0x402 / 4], m_vregs[0x40a / 4] }; u32 layer_ctrl[2]{ m_vregs[0x412 / 4], m_vregs[0x416 / 4] }; flip_screen_set(~m_in_dsw->read() & 0x00010000); // hardwired to a DSW bit /* Layers enable (not quite right) */ /* bit 0 : layer enable 1 : opaque tiles (used in Gunbird attract mode) 2 : ? 3 : transparent colour (0 or 15) 4- 5: ? 6- 7: tilemap size 8 : per-line rowscroll 9 : per-tile rowscroll 10 : tilebank (btlkroad/gunbird/s1945n only) 11-15: ? */ /* gunbird: L:00d0-04d0 S:0008 (00e1 04e1 0009 or 00e2 04e2 000a, for a blink, on scene transitions) sngkace: L:00d0-00d0 S:0008 (00d1 00d1 0009, for a blink, on scene transitions) s1945: L:00d0-04d0 S:0008 btlkrodj: L:0120-0510 S:0008 (0121 0511 0009, for a blink, on scene transitions) tengai: L:0178-0508 S:0004 <-- Transpen is 0 as opposed to 15. tengai: L:01f8-05c8, 1 needs size 0, 2 needs size 0 Title L:00f8-05c8, 1 needs size 0, 2 needs size 0 No RowScroll on layer 0 L:01b8-05c8, 1 needs size 3, 2 needs size 0 L:0178-0508, 1 needs size ?, 2 needs size 1 Psikyo logo L:0178-0508, 1 needs size 2, 2 needs size 1 Intro L:0178-0548, 1 needs size 2, 2 needs size ? Test L:0178-0588, 2 needs size 3 More Intro */ for (int layer = 0; layer < 2; layer++) { /* For gfx banking for s1945jn/gunbird/btlkroad */ if (m_ka302c_banking) { switch_bgbanks(layer, (layer_ctrl[layer] & 0x400) >> 10); } u32 new_size = ((layer_ctrl[layer] & 0x00c0) >> 6); if (m_old_tmapsize[layer] != new_size) { m_tmapsize[layer] = new_size; m_tilemap[layer]->mark_mapping_dirty(); } m_tilemap[layer]->enable(~layer_ctrl[layer] & 1); /* Layers scrolling */ m_tilemap[layer]->set_scrolly(0, scrolly[layer]); if (layer_ctrl[layer] & 0x0300) /* per-line rowscroll */ { int tile_rowscroll = (layer_ctrl[layer] & 0x0200) >> 7; /* per-tile rowscroll */ assert(tile_rowscroll == 0 || tile_rowscroll == 4); if (m_old_linescroll[layer] != (layer_ctrl[layer] & 0x0300)) { m_tilemap[layer]->set_scroll_rows(0x800); m_old_linescroll[layer] = (layer_ctrl[layer] & 0x0300); } const auto vregs = util::big_endian_cast(m_vregs.target()); for (i = 0; i < 256; i++) /* 256 screen lines */ { const int x0 = vregs[(layer * 0x200)/2 + (i >> tile_rowscroll)]; m_tilemap[layer]->set_scrollx( (i + scrolly[layer]) & 0x7ff, scrollx[layer] + x0 ); } } else { if (m_old_linescroll[layer] != (layer_ctrl[layer] & 0x0300)) { m_tilemap[layer]->set_scroll_rows(1); m_old_linescroll[layer] = (layer_ctrl[layer] & 0x0300); } m_tilemap[layer]->set_scrollx(0, scrollx[layer]); } m_tilemap[layer]->set_transparent_pen((layer_ctrl[layer] & 8 ? 0 : 15)); } // TODO : is this correct? // Note layers_ctrl is hardcoded to -1 above: Coverity 315110 if (layers_ctrl & 1) bgpen = m_palette->pen(((layer_ctrl[0] & 8) ? 0x800 : 0x80f)); else if (layers_ctrl & 2) bgpen = m_palette->pen(((layer_ctrl[1] & 8) ? 0xc00 : 0xc0f)); else bgpen = m_palette->black_pen(); // TODO bitmap.fill(bgpen, cliprect); screen.priority().fill(0, cliprect); if (layers_ctrl & 1) m_tilemap[0]->draw(screen, bitmap, cliprect, layer_ctrl[0] & 2 ? TILEMAP_DRAW_OPAQUE : 0, 1); if (layers_ctrl & 2) m_tilemap[1]->draw(screen, bitmap, cliprect, layer_ctrl[1] & 2 ? TILEMAP_DRAW_OPAQUE : 0, 2); if (layers_ctrl & 4) draw_sprites(screen, bitmap, cliprect); return 0; } /* todo: work out why the sprites flicker, if it misses a frame due to slowdown it wipes both the list and the extra buffer the bootleg has layer offsets should also differ? */ u32 psikyo_state::screen_update_bootleg(screen_device &screen, bitmap_rgb32 &bitmap, const rectangle &cliprect) { u32 bgpen = 0; int i, layers_ctrl = -1; u32 scrollx[2]{ m_vregs[0x406 / 4], m_vregs[0x40e / 4] }, scrolly[2]{ m_vregs[0x402 / 4], m_vregs[0x40a / 4] }; u32 layer_ctrl[2]{ m_vregs[0x412 / 4], m_vregs[0x416 / 4] }; flip_screen_set(~m_in_dsw->read() & 0x00010000); // hardwired to a DSW bit /* Layers enable (not quite right) */ /* bit 0 : layer enable 1 : opaque tiles (used in Gunbird attract mode) 2 : ? 3 : transparent colour (0 or 15) 4- 5: ? 6- 7: tilemap size 8 : per-line rowscroll 9 : per-tile rowscroll 10 : tilebank (btlkroad/gunbird/s1945n only) 11-15: ? */ /* gunbird: L:00d0-04d0 S:0008 (00e1 04e1 0009 or 00e2 04e2 000a, for a blink, on scene transitions) sngkace: L:00d0-00d0 S:0008 (00d1 00d1 0009, for a blink, on scene transitions) s1945: L:00d0-04d0 S:0008 btlkrodj: L:0120-0510 S:0008 (0121 0511 0009, for a blink, on scene transitions) tengai: L:0178-0508 S:0004 <-- Transpen is 0 as opposed to 15. tengai: L:01f8-05c8, 1 needs size 0, 2 needs size 0 Title L:00f8-05c8, 1 needs size 0, 2 needs size 0 No RowScroll on layer 0 L:01b8-05c8, 1 needs size 3, 2 needs size 0 L:0178-0508, 1 needs size ?, 2 needs size 1 Psikyo logo L:0178-0508, 1 needs size 2, 2 needs size 1 Intro L:0178-0548, 1 needs size 2, 2 needs size ? Test L:0178-0588, 2 needs size 3 More Intro */ for (int layer = 0; layer < 2; layer++) { /* For gfx banking for s1945jn/gunbird/btlkroad */ if (m_ka302c_banking) { switch_bgbanks(layer, (layer_ctrl[layer] & 0x400) >> 10); } u32 new_size = ((layer_ctrl[layer] & 0x00c0) >> 6); if (m_old_tmapsize[layer] != new_size) { m_tmapsize[layer] = new_size; m_tilemap[layer]->mark_mapping_dirty(); } m_tilemap[layer]->enable(~layer_ctrl[layer] & 1); /* Layers scrolling */ m_tilemap[layer]->set_scrolly(0, scrolly[layer]); if (layer_ctrl[layer] & 0x0300) /* per-line rowscroll */ { int tile_rowscroll = (layer_ctrl[layer] & 0x0200) >> 7; /* per-tile rowscroll */ assert(tile_rowscroll == 0 || tile_rowscroll == 4); if (m_old_linescroll[layer] != (layer_ctrl[layer] & 0x0300)) { m_tilemap[layer]->set_scroll_rows(0x800); m_old_linescroll[layer] = (layer_ctrl[layer] & 0x0300); } const auto vregs = util::big_endian_cast(m_vregs.target()); for (i = 0; i < 256; i++) /* 256 screen lines */ { const int x0 = vregs[(layer * 0x200)/2 + (i >> tile_rowscroll)]; m_tilemap[layer]->set_scrollx( (i + scrolly[layer]) & 0x7ff, scrollx[layer] + x0); } } else { if (m_old_linescroll[layer] != (layer_ctrl[layer] & 0x0300)) { m_tilemap[layer]->set_scroll_rows(1); m_old_linescroll[layer] = (layer_ctrl[layer] & 0x0300); } m_tilemap[layer]->set_scrollx(0, scrollx[layer]); } m_tilemap[layer]->set_transparent_pen((layer_ctrl[layer] & 8 ? 0 : 15)); } // TODO : is this correct? // Note layers_ctrl is hardcoded to -1 above: Coverity 315935 if (layers_ctrl & 1) bgpen = m_palette->pen(((layer_ctrl[0] & 8) ? 0x800 : 0x80f)); else if (layers_ctrl & 2) bgpen = m_palette->pen(((layer_ctrl[1] & 8) ? 0xc00 : 0xc0f)); else bgpen = m_palette->black_pen(); // TODO bitmap.fill(bgpen, cliprect); screen.priority().fill(0, cliprect); if (layers_ctrl & 1) m_tilemap[0]->draw(screen, bitmap, cliprect, layer_ctrl[0] & 2 ? TILEMAP_DRAW_OPAQUE : 0, 1); if (layers_ctrl & 2) m_tilemap[1]->draw(screen, bitmap, cliprect, layer_ctrl[1] & 2 ? TILEMAP_DRAW_OPAQUE : 0, 2); if (layers_ctrl & 4) draw_sprites(screen, bitmap, cliprect); return 0; } WRITE_LINE_MEMBER(psikyo_state::screen_vblank) { // rising edge if (state) { get_sprites(); m_spriteram->copy(); } } WRITE_LINE_MEMBER(psikyo_state::screen_vblank_bootleg) { // rising edge if (state) { get_sprites_bootleg(); // TODO : it's seems differ? m_spriteram->copy(); } }