// license:BSD-3-Clause
// copyright-holders:Zsolt Vasvari
/***************************************************************************
video.c
Functions to emulate the video hardware of the machine.
***************************************************************************/
#include "emu.h"
#include "video/resnet.h"
#include "includes/fastfred.h"
/***************************************************************************
Convert the color PROMs into a more useable format.
bit 0 -- 1 kohm resistor -- RED/GREEN/BLUE
-- 470 ohm resistor -- RED/GREEN/BLUE
-- 220 ohm resistor -- RED/GREEN/BLUE
bit 3 -- 100 ohm resistor -- RED/GREEN/BLUE
***************************************************************************/
PALETTE_INIT_MEMBER(fastfred_state,fastfred)
{
const uint8_t *color_prom = memregion("proms")->base();
static const int resistances[4] = { 1000, 470, 220, 100 };
double rweights[4], gweights[4], bweights[4];
int i;
/* compute the color output resistor weights */
compute_resistor_weights(0, 255, -1.0,
4, resistances, rweights, 470, 0,
4, resistances, gweights, 470, 0,
4, resistances, bweights, 470, 0);
/* create a lookup table for the palette */
for (i = 0; i < 0x100; i++)
{
int bit0, bit1, bit2, bit3;
int r, g, b;
/* red component */
bit0 = (color_prom[i + 0x000] >> 0) & 0x01;
bit1 = (color_prom[i + 0x000] >> 1) & 0x01;
bit2 = (color_prom[i + 0x000] >> 2) & 0x01;
bit3 = (color_prom[i + 0x000] >> 3) & 0x01;
r = combine_4_weights(rweights, bit0, bit1, bit2, bit3);
/* green component */
bit0 = (color_prom[i + 0x100] >> 0) & 0x01;
bit1 = (color_prom[i + 0x100] >> 1) & 0x01;
bit2 = (color_prom[i + 0x100] >> 2) & 0x01;
bit3 = (color_prom[i + 0x100] >> 3) & 0x01;
g = combine_4_weights(gweights, bit0, bit1, bit2, bit3);
/* blue component */
bit0 = (color_prom[i + 0x200] >> 0) & 0x01;
bit1 = (color_prom[i + 0x200] >> 1) & 0x01;
bit2 = (color_prom[i + 0x200] >> 2) & 0x01;
bit3 = (color_prom[i + 0x200] >> 3) & 0x01;
b = combine_4_weights(bweights, bit0, bit1, bit2, bit3);
palette.set_indirect_color(i, rgb_t(r, g, b));
}
/* characters and sprites use the same palette */
for (i = 0; i < 0x100; i++)
palette.set_pen_indirect(i, i);
}
/***************************************************************************
Callbacks for the TileMap code
***************************************************************************/
TILE_GET_INFO_MEMBER(fastfred_state::get_tile_info)
{
uint8_t x = tile_index & 0x1f;
uint16_t code = m_charbank | m_videoram[tile_index];
uint8_t color = m_colorbank | (m_attributesram[2 * x + 1] & 0x07);
SET_TILE_INFO_MEMBER(0, code, color, 0);
}
/*************************************
*
* Video system start
*
*************************************/
VIDEO_START_MEMBER(fastfred_state,fastfred)
{
m_bg_tilemap = &machine().tilemap().create(*m_gfxdecode, tilemap_get_info_delegate(FUNC(fastfred_state::get_tile_info),this),TILEMAP_SCAN_ROWS,8,8,32,32);
m_bg_tilemap->set_transparent_pen(0);
m_bg_tilemap->set_scroll_cols(32);
}
/*************************************
*
* Memory handlers
*
*************************************/
WRITE8_MEMBER(fastfred_state::fastfred_videoram_w )
{
m_videoram[offset] = data;
m_bg_tilemap->mark_tile_dirty(offset);
}
WRITE8_MEMBER(fastfred_state::fastfred_attributes_w )
{
if (m_attributesram[offset] != data)
{
if (offset & 0x01)
{
/* color change */
int i;
for (i = offset / 2; i < 0x0400; i += 32)
m_bg_tilemap->mark_tile_dirty(i);
}
else
{
/* coloumn scroll */
m_bg_tilemap->set_scrolly(offset / 2, data);
}
m_attributesram[offset] = data;
}
}
WRITE_LINE_MEMBER(fastfred_state::charbank1_w)
{
uint16_t new_data = (m_charbank & 0x0200) | (state << 8);
if (new_data != m_charbank)
{
m_bg_tilemap->mark_all_dirty();
m_charbank = new_data;
}
}
WRITE_LINE_MEMBER(fastfred_state::charbank2_w)
{
uint16_t new_data = (m_charbank & 0x0100) | (state << 9);
if (new_data != m_charbank)
{
m_bg_tilemap->mark_all_dirty();
m_charbank = new_data;
}
}
WRITE_LINE_MEMBER(fastfred_state::colorbank1_w)
{
uint8_t new_data = (m_colorbank & 0x10) | (state << 3);
if (new_data != m_colorbank)
{
m_bg_tilemap->mark_all_dirty();
m_colorbank = new_data;
}
}
WRITE_LINE_MEMBER(fastfred_state::colorbank2_w)
{
uint8_t new_data = (m_colorbank & 0x08) | (state << 4);
if (new_data != m_colorbank)
{
m_bg_tilemap->mark_all_dirty();
m_colorbank = new_data;
}
}
WRITE_LINE_MEMBER(fastfred_state::flip_screen_x_w)
{
flip_screen_x_set(state);
m_bg_tilemap->set_flip((flip_screen_x() ? TILEMAP_FLIPX : 0) | (flip_screen_y() ? TILEMAP_FLIPY : 0));
}
WRITE_LINE_MEMBER(fastfred_state::flip_screen_y_w)
{
flip_screen_y_set(state);
m_bg_tilemap->set_flip((flip_screen_x() ? TILEMAP_FLIPX : 0) | (flip_screen_y() ? TILEMAP_FLIPY : 0));
}
/*************************************
*
* Video update
*
*************************************/
void fastfred_state::draw_sprites(bitmap_ind16 &bitmap, const rectangle &cliprect)
{
const rectangle spritevisiblearea(2*8, 32*8-1, 2*8, 30*8-1);
const rectangle spritevisibleareaflipx(0*8, 30*8-1, 2*8, 30*8-1);
int offs;
for (offs = m_spriteram.bytes() - 4; offs >= 0; offs -= 4)
{
uint8_t code,sx,sy;
int flipx,flipy;
sx = m_spriteram[offs + 3];
sy = 240 - m_spriteram[offs];
if (m_hardware_type == 3)
{
// Imago
code = (m_spriteram[offs + 1]) & 0x3f;
flipx = 0;
flipy = 0;
}
else if (m_hardware_type == 2)
{
// Boggy 84
code = m_spriteram[offs + 1] & 0x7f;
flipx = 0;
flipy = m_spriteram[offs + 1] & 0x80;
}
else if (m_hardware_type == 1)
{
// Fly-Boy/Fast Freddie/Red Robin
code = m_spriteram[offs + 1] & 0x7f;
flipx = 0;
flipy = ~m_spriteram[offs + 1] & 0x80;
}
else
{
// Jump Coaster
code = (m_spriteram[offs + 1] & 0x3f) | 0x40;
flipx = ~m_spriteram[offs + 1] & 0x40;
flipy = m_spriteram[offs + 1] & 0x80;
}
if (flip_screen_x())
{
sx = 240 - sx;
flipx = !flipx;
}
if (flip_screen_y())
{
sy = 240 - sy;
flipy = !flipy;
}
m_gfxdecode->gfx(1)->transpen(bitmap,flip_screen_x() ? spritevisibleareaflipx : spritevisiblearea,
code,
m_colorbank | (m_spriteram[offs + 2] & 0x07),
flipx,flipy,
sx,sy,0);
}
}
uint32_t fastfred_state::screen_update_fastfred(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect)
{
bitmap.fill(*m_background_color, cliprect);
m_bg_tilemap->draw(screen, bitmap, cliprect, 0,0);
draw_sprites(bitmap, cliprect);
return 0;
}
TILE_GET_INFO_MEMBER(fastfred_state::imago_get_tile_info_bg)
{
uint8_t x = tile_index & 0x1f;
uint16_t code = m_charbank * 0x100 + m_videoram[tile_index];
uint8_t color = m_colorbank | (m_attributesram[2 * x + 1] & 0x07);
SET_TILE_INFO_MEMBER(0, code, color, 0);
}
TILE_GET_INFO_MEMBER(fastfred_state::imago_get_tile_info_fg)
{
int code = m_imago_fg_videoram[tile_index];
SET_TILE_INFO_MEMBER(2, code, 2, 0);
}
TILE_GET_INFO_MEMBER(fastfred_state::imago_get_tile_info_web)
{
SET_TILE_INFO_MEMBER(3, tile_index & 0x1ff, 0, 0);
}
WRITE8_MEMBER(fastfred_state::imago_fg_videoram_w )
{
m_imago_fg_videoram[offset] = data;
m_fg_tilemap->mark_tile_dirty(offset);
}
WRITE_LINE_MEMBER(fastfred_state::imago_charbank_w)
{
if (m_charbank != state)
{
m_charbank = state;
m_bg_tilemap->mark_all_dirty();
}
}
VIDEO_START_MEMBER(fastfred_state,imago)
{
m_web_tilemap = &machine().tilemap().create(*m_gfxdecode, tilemap_get_info_delegate(FUNC(fastfred_state::imago_get_tile_info_web),this),TILEMAP_SCAN_ROWS,8,8,32,32);
m_bg_tilemap = &machine().tilemap().create(*m_gfxdecode, tilemap_get_info_delegate(FUNC(fastfred_state::imago_get_tile_info_bg),this), TILEMAP_SCAN_ROWS,8,8,32,32);
m_fg_tilemap = &machine().tilemap().create(*m_gfxdecode, tilemap_get_info_delegate(FUNC(fastfred_state::imago_get_tile_info_fg),this), TILEMAP_SCAN_ROWS,8,8,32,32);
m_bg_tilemap->set_transparent_pen(0);
m_fg_tilemap->set_transparent_pen(0);
/* the game has a galaxian starfield */
galaxold_init_stars(256);
m_stars_on = 1;
/* web colors */
m_palette->set_pen_color(256+64+0,rgb_t(0x50,0x00,0x00));
m_palette->set_pen_color(256+64+1,rgb_t(0x00,0x00,0x00));
save_item(NAME(m_imago_sprites));
save_item(NAME(m_imago_sprites_address));
save_item(NAME(m_imago_sprites_bank));
// galaxold starfield related save states. Something's still missing here.
save_item(NAME(m_stars_on));
save_item(NAME(m_stars_blink_state));
save_item(NAME(m_timer_adjusted));
save_item(NAME(m_stars_colors_start));
save_item(NAME(m_stars_scrollpos));
for (int i = 0; i < STAR_COUNT; i++)
{
save_item(NAME(m_stars[i].x), i);
save_item(NAME(m_stars[i].y), i);
save_item(NAME(m_stars[i].color), i);
}
}
uint32_t fastfred_state::screen_update_imago(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect)
{
m_web_tilemap->draw(screen, bitmap, cliprect, 0,0);
galaxold_draw_stars(bitmap, cliprect);
m_bg_tilemap->draw(screen, bitmap, cliprect, 0,0);
draw_sprites(bitmap, cliprect);
m_fg_tilemap->draw(screen, bitmap, cliprect, 0,0);
return 0;
}