/*************************************************************************** video.c Functions to emulate the video hardware of the machine. ***************************************************************************/ #include "emu.h" #include "video/resnet.h" #include "includes/fastfred.h" static const rectangle spritevisiblearea = { 2*8, 32*8-1, 2*8, 30*8-1 }; static const rectangle spritevisibleareaflipx = { 0*8, 30*8-1, 2*8, 30*8-1 }; /*************************************************************************** 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( fastfred ) { 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); /* allocate the colortable */ machine.colortable = colortable_alloc(machine, 0x100); /* 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); colortable_palette_set_color(machine.colortable, i, MAKE_RGB(r, g, b)); } /* characters and sprites use the same palette */ for (i = 0; i < 0x100; i++) colortable_entry_set_value(machine.colortable, i, i); } /*************************************************************************** Callbacks for the TileMap code ***************************************************************************/ static TILE_GET_INFO( get_tile_info ) { fastfred_state *state = machine.driver_data(); UINT8 x = tile_index & 0x1f; UINT16 code = state->m_charbank | state->m_videoram[tile_index]; UINT8 color = state->m_colorbank | (state->m_attributesram[2 * x + 1] & 0x07); SET_TILE_INFO(0, code, color, 0); } /************************************* * * Video system start * *************************************/ VIDEO_START( fastfred ) { fastfred_state *state = machine.driver_data(); state->m_bg_tilemap = tilemap_create(machine, get_tile_info,tilemap_scan_rows,8,8,32,32); tilemap_set_transparent_pen(state->m_bg_tilemap, 0); tilemap_set_scroll_cols(state->m_bg_tilemap, 32); } /************************************* * * Memory handlers * *************************************/ WRITE8_HANDLER( fastfred_videoram_w ) { fastfred_state *state = space->machine().driver_data(); state->m_videoram[offset] = data; tilemap_mark_tile_dirty(state->m_bg_tilemap, offset); } WRITE8_HANDLER( fastfred_attributes_w ) { fastfred_state *state = space->machine().driver_data(); if (state->m_attributesram[offset] != data) { if (offset & 0x01) { /* color change */ int i; for (i = offset / 2; i < 0x0400; i += 32) tilemap_mark_tile_dirty(state->m_bg_tilemap, i); } else { /* coloumn scroll */ tilemap_set_scrolly(state->m_bg_tilemap, offset / 2, data); } state->m_attributesram[offset] = data; } } WRITE8_HANDLER( fastfred_charbank1_w ) { fastfred_state *state = space->machine().driver_data(); UINT16 new_data = (state->m_charbank & 0x0200) | ((data & 0x01) << 8); if (new_data != state->m_charbank) { tilemap_mark_all_tiles_dirty(state->m_bg_tilemap); state->m_charbank = new_data; } } WRITE8_HANDLER( fastfred_charbank2_w ) { fastfred_state *state = space->machine().driver_data(); UINT16 new_data = (state->m_charbank & 0x0100) | ((data & 0x01) << 9); if (new_data != state->m_charbank) { tilemap_mark_all_tiles_dirty(state->m_bg_tilemap); state->m_charbank = new_data; } } WRITE8_HANDLER( fastfred_colorbank1_w ) { fastfred_state *state = space->machine().driver_data(); UINT8 new_data = (state->m_colorbank & 0x10) | ((data & 0x01) << 3); if (new_data != state->m_colorbank) { tilemap_mark_all_tiles_dirty(state->m_bg_tilemap); state->m_colorbank = new_data; } } WRITE8_HANDLER( fastfred_colorbank2_w ) { fastfred_state *state = space->machine().driver_data(); UINT8 new_data = (state->m_colorbank & 0x08) | ((data & 0x01) << 4); if (new_data != state->m_colorbank) { tilemap_mark_all_tiles_dirty(state->m_bg_tilemap); state->m_colorbank = new_data; } } WRITE8_HANDLER( fastfred_flip_screen_x_w ) { fastfred_state *state = space->machine().driver_data(); if (flip_screen_x_get(space->machine()) != (data & 0x01)) { flip_screen_x_set(space->machine(), data & 0x01); tilemap_set_flip(state->m_bg_tilemap, (flip_screen_x_get(space->machine()) ? TILEMAP_FLIPX : 0) | (flip_screen_y_get(space->machine()) ? TILEMAP_FLIPY : 0)); } } WRITE8_HANDLER( fastfred_flip_screen_y_w ) { fastfred_state *state = space->machine().driver_data(); if (flip_screen_y_get(space->machine()) != (data & 0x01)) { flip_screen_y_set(space->machine(), data & 0x01); tilemap_set_flip(state->m_bg_tilemap, (flip_screen_x_get(space->machine()) ? TILEMAP_FLIPX : 0) | (flip_screen_y_get(space->machine()) ? TILEMAP_FLIPY : 0)); } } /************************************* * * Video update * *************************************/ static void draw_sprites(running_machine &machine, bitmap_t *bitmap, const rectangle *cliprect) { fastfred_state *state = machine.driver_data(); int offs; for (offs = state->m_spriteram_size - 4; offs >= 0; offs -= 4) { UINT8 code,sx,sy; int flipx,flipy; sx = state->m_spriteram[offs + 3]; sy = 240 - state->m_spriteram[offs]; if (state->m_hardware_type == 3) { // Imago code = (state->m_spriteram[offs + 1]) & 0x3f; flipx = 0; flipy = 0; } else if (state->m_hardware_type == 2) { // Boggy 84 code = state->m_spriteram[offs + 1] & 0x7f; flipx = 0; flipy = state->m_spriteram[offs + 1] & 0x80; } else if (state->m_hardware_type == 1) { // Fly-Boy/Fast Freddie/Red Robin code = state->m_spriteram[offs + 1] & 0x7f; flipx = 0; flipy = ~state->m_spriteram[offs + 1] & 0x80; } else { // Jump Coaster code = (state->m_spriteram[offs + 1] & 0x3f) | 0x40; flipx = ~state->m_spriteram[offs + 1] & 0x40; flipy = state->m_spriteram[offs + 1] & 0x80; } if (flip_screen_x_get(machine)) { sx = 240 - sx; flipx = !flipx; } if (flip_screen_y_get(machine)) { sy = 240 - sy; flipy = !flipy; } drawgfx_transpen(bitmap,flip_screen_x_get(machine) ? &spritevisibleareaflipx : &spritevisiblearea,machine.gfx[1], code, state->m_colorbank | (state->m_spriteram[offs + 2] & 0x07), flipx,flipy, sx,sy,0); } } SCREEN_UPDATE( fastfred ) { fastfred_state *state = screen->machine().driver_data(); bitmap_fill(bitmap, cliprect, *state->m_background_color); tilemap_draw(bitmap,cliprect,state->m_bg_tilemap,0,0); draw_sprites(screen->machine(), bitmap, cliprect); return 0; } static TILE_GET_INFO( imago_get_tile_info_bg ) { fastfred_state *state = machine.driver_data(); UINT8 x = tile_index & 0x1f; UINT16 code = state->m_charbank * 0x100 + state->m_videoram[tile_index]; UINT8 color = state->m_colorbank | (state->m_attributesram[2 * x + 1] & 0x07); SET_TILE_INFO(0, code, color, 0); } static TILE_GET_INFO( imago_get_tile_info_fg ) { fastfred_state *state = machine.driver_data(); int code = state->m_imago_fg_videoram[tile_index]; SET_TILE_INFO(2, code, 2, 0); } static TILE_GET_INFO( imago_get_tile_info_web ) { SET_TILE_INFO(3, tile_index & 0x1ff, 0, 0); } WRITE8_HANDLER( imago_fg_videoram_w ) { fastfred_state *state = space->machine().driver_data(); state->m_imago_fg_videoram[offset] = data; tilemap_mark_tile_dirty(state->m_fg_tilemap, offset); } WRITE8_HANDLER( imago_charbank_w ) { fastfred_state *state = space->machine().driver_data(); if( state->m_charbank != data ) { state->m_charbank = data; tilemap_mark_all_tiles_dirty(state->m_bg_tilemap); } } VIDEO_START( imago ) { fastfred_state *state = machine.driver_data(); state->m_web_tilemap = tilemap_create(machine, imago_get_tile_info_web,tilemap_scan_rows, 8,8,32,32); state->m_bg_tilemap = tilemap_create(machine, imago_get_tile_info_bg, tilemap_scan_rows,8,8,32,32); state->m_fg_tilemap = tilemap_create(machine, imago_get_tile_info_fg, tilemap_scan_rows,8,8,32,32); tilemap_set_transparent_pen(state->m_bg_tilemap, 0); tilemap_set_transparent_pen(state->m_fg_tilemap, 0); /* the game has a galaxian starfield */ galaxold_init_stars(machine, 256); state->m_stars_on = 1; /* web colors */ palette_set_color(machine,256+64+0,MAKE_RGB(0x50,0x00,0x00)); palette_set_color(machine,256+64+1,MAKE_RGB(0x00,0x00,0x00)); } SCREEN_UPDATE( imago ) { fastfred_state *state = screen->machine().driver_data(); tilemap_draw(bitmap,cliprect,state->m_web_tilemap,0,0); galaxold_draw_stars(screen->machine(), bitmap, cliprect); tilemap_draw(bitmap,cliprect,state->m_bg_tilemap,0,0); draw_sprites(screen->machine(), bitmap, cliprect); tilemap_draw(bitmap,cliprect,state->m_fg_tilemap,0,0); return 0; }