// license:BSD-3-Clause // copyright-holders:Carlos A. Lozano /*************************************************************************** video.c Functions to emulate the video hardware of the machine. ***************************************************************************/ #include "emu.h" #include "includes/terracre.h" TILE_GET_INFO_MEMBER(terracre_state::get_bg_tile_info) { /* xxxx.----.----.---- * ----.xx--.----.---- * ----.--xx.xxxx.xxxx */ unsigned data = m_bg_videoram[tile_index]; unsigned color = data>>11; SET_TILE_INFO_MEMBER(1,data&0x3ff,color,0 ); } TILE_GET_INFO_MEMBER(terracre_state::get_fg_tile_info) { unsigned data = m_fg_videoram[tile_index]; SET_TILE_INFO_MEMBER(0,data&0xff,0,0 ); } void terracre_state::draw_sprites(bitmap_ind16 &bitmap, const rectangle &cliprect ) { const uint8_t *spritepalettebank = memregion("user1")->base(); gfx_element *pGfx = m_gfxdecode->gfx(2); const uint16_t *pSource = m_spriteram->buffer(); int flip = flip_screen(); int transparent_pen; if( pGfx->elements() > 0x200 ) { /* HORE HORE Kid */ transparent_pen = 0xf; } else { transparent_pen = 0x0; } for( int i=0; i<0x200; i+=8 ) { int tile = pSource[1]&0xff; int attrs = pSource[2]; int flipx = attrs&0x04; int flipy = attrs&0x08; int color = (attrs&0xf0)>>4; int sx = (pSource[3] & 0xff) - 0x80 + 256 * (attrs & 1); int sy = 240 - (pSource[0] & 0xff); if( transparent_pen ) { int bank; if( attrs&0x02 ) tile |= 0x200; if( attrs&0x10 ) tile |= 0x100; bank = (tile&0xfc)>>1; if( tile&0x200 ) bank |= 0x80; if( tile&0x100 ) bank |= 0x01; color &= 0xe; color += 16*(spritepalettebank[bank]&0xf); } else { if( attrs&0x02 ) tile|= 0x100; color += 16 * (spritepalettebank[(tile>>1)&0xff] & 0x0f); } if (flip) { sx=240-sx; sy=240-sy; flipx = !flipx; flipy = !flipy; } pGfx->transpen( bitmap,cliprect,tile, color,flipx,flipy,sx,sy,transparent_pen ); pSource += 4; } } void terracre_state::terracre_palette(palette_device &palette) const { const uint8_t *color_prom = memregion("proms")->base(); // create a lookup table for the palette for (int i = 0; i < 0x100; i++) { int const r = pal4bit(color_prom[i + 0x000]); int const g = pal4bit(color_prom[i + 0x100]); int const b = pal4bit(color_prom[i + 0x200]); palette.set_indirect_color(i, rgb_t(r, g, b)); } // color_prom now points to the beginning of the lookup table color_prom += 0x300; // characters use colors 0-0x0f for (int i = 0; i < 0x10; i++) palette.set_pen_indirect(i, i); // background tiles use colors 0xc0-0xff in four banks // the bottom two bits of the color code select the palette bank for pens 0-7; // the top two bits for pens 8-0x0f. for (int i = 0; i < 0x100; i++) { uint8_t const ctabentry = 0xc0 | (i & 0x0f) | ((i >> ((i & 0x08) ? 2 : 0)) & 0x30); palette.set_pen_indirect(0x10 + i, ctabentry); } // sprites use colors 128-191 in four banks // The lookup table tells which colors to pick from the selected bank // the bank is selected by another PROM and depends on the top 8 bits of the sprite code. // The PROM selects the bank *separately* for pens 0-7 and 8-15 (like for tiles). for (int i = 0; i < 0x1000; i++) { uint8_t const ctabentry = 0x80 | ((i << ((i & 0x80) ? 2 : 4)) & 0x30) | (color_prom[i >> 4] & 0x0f); int i_swapped = ((i & 0x0f) << 8) | ((i & 0xff0) >> 4); palette.set_pen_indirect(0x110 + i_swapped, ctabentry); } } WRITE16_MEMBER(terracre_state::amazon_background_w) { COMBINE_DATA(&m_bg_videoram[offset]); m_background->mark_tile_dirty(offset); } WRITE16_MEMBER(terracre_state::amazon_foreground_w) { COMBINE_DATA(&m_fg_videoram[offset]); m_foreground->mark_tile_dirty(offset); } WRITE16_MEMBER(terracre_state::amazon_flipscreen_w) { if( ACCESSING_BITS_0_7 ) { machine().bookkeeping().coin_counter_w(0, data&0x01 ); machine().bookkeeping().coin_counter_w(1, (data&0x02)>>1 ); flip_screen_set(data&0x04); } } WRITE16_MEMBER(terracre_state::amazon_scrolly_w) { COMBINE_DATA(&m_yscroll); m_background->set_scrolly(0,m_yscroll); } WRITE16_MEMBER(terracre_state::amazon_scrollx_w) { COMBINE_DATA(&m_xscroll); m_background->set_scrollx(0,m_xscroll); } void terracre_state::video_start() { m_background = &machine().tilemap().create(*m_gfxdecode, tilemap_get_info_delegate(*this, FUNC(terracre_state::get_bg_tile_info)), TILEMAP_SCAN_COLS, 16,16, 64,32); m_foreground = &machine().tilemap().create(*m_gfxdecode, tilemap_get_info_delegate(*this, FUNC(terracre_state::get_fg_tile_info)), TILEMAP_SCAN_COLS, 8, 8, 64,32); m_foreground->set_transparent_pen(0xf); /* register for saving */ save_item(NAME(m_xscroll)); save_item(NAME(m_yscroll)); } uint32_t terracre_state::screen_update_amazon(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect) { if( m_xscroll&0x2000 ) bitmap.fill(m_palette->black_pen(), cliprect ); else m_background->draw(screen, bitmap, cliprect, 0, 0 ); draw_sprites(bitmap,cliprect ); if ((m_xscroll & 0x1000) == 0) m_foreground->draw(screen, bitmap, cliprect, 0, 0); return 0; }