summaryrefslogtreecommitdiffstatshomepage
path: root/src/mame/video/fastfred.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/mame/video/fastfred.c')
-rw-r--r--src/mame/video/fastfred.c407
1 files changed, 407 insertions, 0 deletions
diff --git a/src/mame/video/fastfred.c b/src/mame/video/fastfred.c
new file mode 100644
index 00000000000..d08251cccfb
--- /dev/null
+++ b/src/mame/video/fastfred.c
@@ -0,0 +1,407 @@
+/***************************************************************************
+
+ video.c
+
+ Functions to emulate the video hardware of the machine.
+
+***************************************************************************/
+
+#include "driver.h"
+#include "fastfred.h"
+
+extern UINT8 galaxian_stars_on;
+void galaxian_init_stars(running_machine *machine, int colors_offset);
+void galaxian_draw_stars(running_machine *machine, mame_bitmap *bitmap);
+
+UINT8 *fastfred_videoram;
+UINT8 *fastfred_spriteram;
+size_t fastfred_spriteram_size;
+UINT8 *fastfred_attributesram;
+UINT8 *imago_fg_videoram;
+
+
+static rectangle spritevisiblearea =
+{
+ 2*8, 32*8-1,
+ 2*8, 30*8-1
+};
+
+static rectangle spritevisibleareaflipx =
+{
+ 0*8, 30*8-1,
+ 2*8, 30*8-1
+};
+
+static UINT16 charbank;
+static UINT8 colorbank;
+int fastfred_hardware_type;
+static const UINT8 *fastfred_color_prom;
+static tilemap *bg_tilemap, *fg_tilemap, *web_tilemap;
+
+/***************************************************************************
+
+ 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
+
+***************************************************************************/
+
+static void set_color(pen_t pen, int i)
+{
+ UINT8 r,g,b;
+ int bit0, bit1, bit2, bit3;
+
+ bit0 = (fastfred_color_prom[i] >> 0) & 0x01;
+ bit1 = (fastfred_color_prom[i] >> 1) & 0x01;
+ bit2 = (fastfred_color_prom[i] >> 2) & 0x01;
+ bit3 = (fastfred_color_prom[i] >> 3) & 0x01;
+ r = 0x0e * bit0 + 0x1f * bit1 + 0x43 * bit2 + 0x8f * bit3;
+ bit0 = (fastfred_color_prom[i + 0x100] >> 0) & 0x01;
+ bit1 = (fastfred_color_prom[i + 0x100] >> 1) & 0x01;
+ bit2 = (fastfred_color_prom[i + 0x100] >> 2) & 0x01;
+ bit3 = (fastfred_color_prom[i + 0x100] >> 3) & 0x01;
+ g = 0x0e * bit0 + 0x1f * bit1 + 0x43 * bit2 + 0x8f * bit3;
+ bit0 = (fastfred_color_prom[i + 0x200] >> 0) & 0x01;
+ bit1 = (fastfred_color_prom[i + 0x200] >> 1) & 0x01;
+ bit2 = (fastfred_color_prom[i + 0x200] >> 2) & 0x01;
+ bit3 = (fastfred_color_prom[i + 0x200] >> 3) & 0x01;
+ b = 0x0e * bit0 + 0x1f * bit1 + 0x43 * bit2 + 0x8f * bit3;
+
+ palette_set_color_rgb(Machine,pen,r,g,b);
+}
+
+PALETTE_INIT( fastfred )
+{
+ pen_t i;
+ #define TOTAL_COLORS(gfxn) (machine->gfx[gfxn]->total_colors * machine->gfx[gfxn]->color_granularity)
+ #define COLOR(gfxn,offs) (colortable[machine->drv->gfxdecodeinfo[gfxn].color_codes_start + offs])
+
+
+ fastfred_color_prom = color_prom; /* we'll need this later */
+
+ for (i = 0;i < 256;i++)
+ {
+ set_color(i, i);
+ }
+
+
+ /* characters and sprites use the same palette */
+ for (i = 0; i < TOTAL_COLORS(0); i++)
+ {
+ pen_t color;
+
+ if ((i & 0x07) == 0)
+ color = 0;
+ else
+ color = i;
+
+ COLOR(0,i) = COLOR(1,i) = color;
+ }
+}
+
+/***************************************************************************
+
+ Callbacks for the TileMap code
+
+***************************************************************************/
+
+static TILE_GET_INFO( get_tile_info )
+{
+ UINT8 x = tile_index & 0x1f;
+
+ UINT16 code = charbank | fastfred_videoram[tile_index];
+ UINT8 color = colorbank | (fastfred_attributesram[2 * x + 1] & 0x07);
+
+ SET_TILE_INFO(0, code, color, 0);
+}
+
+
+
+/*************************************
+ *
+ * Video system start
+ *
+ *************************************/
+
+VIDEO_START( fastfred )
+{
+ bg_tilemap = tilemap_create(get_tile_info,tilemap_scan_rows,TILEMAP_TYPE_PEN,8,8,32,32);
+
+ tilemap_set_scroll_cols(bg_tilemap, 32);
+}
+
+
+/*************************************
+ *
+ * Memory handlers
+ *
+ *************************************/
+
+WRITE8_HANDLER( fastfred_videoram_w )
+{
+ fastfred_videoram[offset] = data;
+ tilemap_mark_tile_dirty(bg_tilemap, offset);
+}
+
+
+WRITE8_HANDLER( fastfred_attributes_w )
+{
+ if (fastfred_attributesram[offset] != data)
+ {
+ if (offset & 0x01)
+ {
+ /* color change */
+ int i;
+
+ for (i = offset / 2; i < 0x0400; i += 32)
+ tilemap_mark_tile_dirty(bg_tilemap, i);
+ }
+ else
+ {
+ /* coloumn scroll */
+ tilemap_set_scrolly(bg_tilemap, offset / 2, data);
+ }
+
+ fastfred_attributesram[offset] = data;
+ }
+}
+
+
+WRITE8_HANDLER( fastfred_charbank1_w )
+{
+ UINT16 new_data = (charbank & 0x0200) | ((data & 0x01) << 8);
+
+ if (new_data != charbank)
+ {
+ tilemap_mark_all_tiles_dirty(bg_tilemap);
+
+ charbank = new_data;
+ }
+}
+
+WRITE8_HANDLER( fastfred_charbank2_w )
+{
+ UINT16 new_data = (charbank & 0x0100) | ((data & 0x01) << 9);
+
+ if (new_data != charbank)
+ {
+ tilemap_mark_all_tiles_dirty(bg_tilemap);
+
+ charbank = new_data;
+ }
+}
+
+
+WRITE8_HANDLER( fastfred_colorbank1_w )
+{
+ UINT8 new_data = (colorbank & 0x10) | ((data & 0x01) << 3);
+
+ if (new_data != colorbank)
+ {
+ tilemap_mark_all_tiles_dirty(bg_tilemap);
+
+ colorbank = new_data;
+ }
+}
+
+WRITE8_HANDLER( fastfred_colorbank2_w )
+{
+ UINT8 new_data = (colorbank & 0x08) | ((data & 0x01) << 4);
+
+ if (new_data != colorbank)
+ {
+ tilemap_mark_all_tiles_dirty(bg_tilemap);
+
+ colorbank = new_data;
+ }
+}
+
+
+WRITE8_HANDLER( fastfred_background_color_w )
+{
+ set_color(0, data);
+}
+
+
+WRITE8_HANDLER( fastfred_flip_screen_x_w )
+{
+ if (flip_screen_x != (data & 0x01))
+ {
+ flip_screen_x = data & 0x01;
+
+ tilemap_set_flip(bg_tilemap, (flip_screen_x ? TILEMAP_FLIPX : 0) | (flip_screen_y ? TILEMAP_FLIPY : 0));
+ }
+}
+
+WRITE8_HANDLER( fastfred_flip_screen_y_w )
+{
+ if (flip_screen_y != (data & 0x01))
+ {
+ flip_screen_y = data & 0x01;
+
+ tilemap_set_flip(bg_tilemap, (flip_screen_x ? TILEMAP_FLIPX : 0) | (flip_screen_y ? TILEMAP_FLIPY : 0));
+ }
+}
+
+
+
+/*************************************
+ *
+ * Video update
+ *
+ *************************************/
+
+static void draw_sprites(running_machine *machine, mame_bitmap *bitmap, const rectangle *cliprect)
+{
+ int offs;
+
+ for (offs = fastfred_spriteram_size - 4; offs >= 0; offs -= 4)
+ {
+ UINT8 code,sx,sy;
+ int flipx,flipy;
+
+ sx = fastfred_spriteram[offs + 3];
+ sy = 240 - fastfred_spriteram[offs];
+
+ if (fastfred_hardware_type == 3)
+ {
+ // Imago
+
+ //fastfred_spriteram[offs + 2] & 0xf8 get only set at startup
+ //the code is greater than 0x3f only at startup
+
+ /* TODO: find correct sprites banking */
+
+ code = (fastfred_spriteram[offs + 1]) & 0x1f;
+
+ code |= fastfred_spriteram[offs + 2]<<5;
+
+ if(fastfred_spriteram[offs + 1] & 0x20)
+ code ^= 0xff;
+
+ flipx = 0;
+ flipy = 0;
+ }
+ else if (fastfred_hardware_type == 2)
+ {
+ // Boggy 84
+ code = fastfred_spriteram[offs + 1] & 0x7f;
+ flipx = 0;
+ flipy = fastfred_spriteram[offs + 1] & 0x80;
+ }
+ else if (fastfred_hardware_type == 1)
+ {
+ // Fly-Boy/Fast Freddie/Red Robin
+ code = fastfred_spriteram[offs + 1] & 0x7f;
+ flipx = 0;
+ flipy = ~fastfred_spriteram[offs + 1] & 0x80;
+ }
+ else
+ {
+ // Jump Coaster
+ code = (fastfred_spriteram[offs + 1] & 0x3f) | 0x40;
+ flipx = ~fastfred_spriteram[offs + 1] & 0x40;
+ flipy = fastfred_spriteram[offs + 1] & 0x80;
+ }
+
+
+ if (flip_screen_x)
+ {
+ sx = 240 - sx;
+ flipx = !flipx;
+ }
+ if (flip_screen_y)
+ {
+ sy = 240 - sy;
+ flipy = !flipy;
+ }
+
+ drawgfx(bitmap,machine->gfx[1],
+ code,
+ colorbank | (fastfred_spriteram[offs + 2] & 0x07),
+ flipx,flipy,
+ sx,sy,
+ flip_screen_x ? &spritevisibleareaflipx : &spritevisiblearea,TRANSPARENCY_PEN,0);
+ }
+}
+
+
+VIDEO_UPDATE( fastfred )
+{
+ tilemap_draw(bitmap,cliprect,bg_tilemap,0,0);
+
+ draw_sprites(machine, bitmap, cliprect);
+ return 0;
+}
+
+
+static TILE_GET_INFO( imago_get_tile_info_bg )
+{
+ UINT8 x = tile_index & 0x1f;
+
+ UINT16 code = charbank * 0x100 + fastfred_videoram[tile_index];
+ UINT8 color = colorbank | (fastfred_attributesram[2 * x + 1] & 0x07);
+
+ SET_TILE_INFO(0, code, color, 0);
+}
+
+static TILE_GET_INFO( imago_get_tile_info_fg )
+{
+ int code = 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 )
+{
+ imago_fg_videoram[offset] = data;
+ tilemap_mark_tile_dirty(fg_tilemap, offset);
+}
+
+WRITE8_HANDLER( imago_charbank_w )
+{
+ if( charbank != data )
+ {
+ charbank = data;
+ tilemap_mark_all_tiles_dirty(bg_tilemap);
+ }
+}
+
+VIDEO_START( imago )
+{
+ web_tilemap = tilemap_create(imago_get_tile_info_web,tilemap_scan_rows,TILEMAP_TYPE_PEN, 8,8,32,32);
+ bg_tilemap = tilemap_create(imago_get_tile_info_bg, tilemap_scan_rows,TILEMAP_TYPE_PEN,8,8,32,32);
+ fg_tilemap = tilemap_create(imago_get_tile_info_fg, tilemap_scan_rows,TILEMAP_TYPE_PEN,8,8,32,32);
+
+ tilemap_set_transparent_pen(bg_tilemap, 0);
+ tilemap_set_transparent_pen(fg_tilemap, 0);
+
+ /* the game has a galaxian starfield */
+ galaxian_init_stars(machine, 256);
+ galaxian_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));
+}
+
+VIDEO_UPDATE( imago )
+{
+ tilemap_draw(bitmap,cliprect,web_tilemap,0,0);
+
+ galaxian_draw_stars(machine, bitmap);
+
+ tilemap_draw(bitmap,cliprect,bg_tilemap,0,0);
+
+ draw_sprites(machine, bitmap, cliprect);
+
+ tilemap_draw(bitmap,cliprect,fg_tilemap,0,0);
+ return 0;
+}