1 /***************************************************************************
2
3 Vapour Trail Video emulation - Bryan McPhail, mish@tendril.co.uk
4
5 ****************************************************************************
6
7 2 Data East 55 chips for playfields (same as Dark Seal, etc)
8 1 Data East MXC-06 chip for sprites (same as Bad Dudes, etc)
9
10 ***************************************************************************/
11
12 #include "driver.h"
13 #include "vidhrdw/generic.h"
14
15 data16_t *vaportra_pf1_data,*vaportra_pf2_data,*vaportra_pf3_data,*vaportra_pf4_data;
16
17 static data16_t vaportra_control_0[8];
18 static data16_t vaportra_control_1[8];
19 static data16_t vaportra_control_2[2];
20
21 static struct tilemap *pf1_tilemap,*pf2_tilemap,*pf3_tilemap,*pf4_tilemap;
22 static int flipscreen;
23
24 /* Function for all 16x16 1024x1024 layers */
vaportra_scan(UINT32 col,UINT32 row,UINT32 num_cols,UINT32 num_rows)25 static UINT32 vaportra_scan(UINT32 col,UINT32 row,UINT32 num_cols,UINT32 num_rows)
26 {
27 /* logical (col,row) -> memory offset */
28 return (col & 0x1f) + ((row & 0x1f) << 5) + ((col & 0x20) << 5) + ((row & 0x20) << 6);
29 }
30
get_bg_tile_info(int tile_index,int gfx_bank,data16_t * gfx_base)31 static INLINE void get_bg_tile_info(int tile_index,int gfx_bank,data16_t *gfx_base)
32 {
33 int data = gfx_base[tile_index];
34
35 SET_TILE_INFO(
36 gfx_bank,
37 data & 0xfff,
38 data >> 12,
39 0)
40 }
41
get_bg2_tile_info(int tile_index)42 static INLINE void get_bg2_tile_info(int tile_index) { get_bg_tile_info(tile_index,1,vaportra_pf2_data); }
get_bg3_tile_info(int tile_index)43 static INLINE void get_bg3_tile_info(int tile_index) { get_bg_tile_info(tile_index,2,vaportra_pf3_data); }
get_bg4_tile_info(int tile_index)44 static INLINE void get_bg4_tile_info(int tile_index) { get_bg_tile_info(tile_index,3,vaportra_pf4_data); }
45
46
47 /* 8x8 top layer */
get_fg_tile_info(int tile_index)48 static void get_fg_tile_info(int tile_index)
49 {
50 int tile=vaportra_pf1_data[tile_index];
51 int color=tile >> 12;
52
53 tile=tile&0xfff;
54
55 SET_TILE_INFO(
56 0,
57 tile,
58 color,
59 0)
60 }
61
62 /******************************************************************************/
63
VIDEO_START(vaportra)64 VIDEO_START( vaportra )
65 {
66 pf1_tilemap = tilemap_create(get_fg_tile_info, tilemap_scan_rows,TILEMAP_TRANSPARENT, 8, 8,64,64);
67 pf2_tilemap = tilemap_create(get_bg2_tile_info,vaportra_scan, TILEMAP_TRANSPARENT,16,16,64,32);
68 pf3_tilemap = tilemap_create(get_bg3_tile_info,vaportra_scan, TILEMAP_TRANSPARENT,16,16,64,32);
69 pf4_tilemap = tilemap_create(get_bg4_tile_info,vaportra_scan, TILEMAP_TRANSPARENT,16,16,64,32);
70
71 if (!pf1_tilemap || !pf2_tilemap || !pf3_tilemap || !pf4_tilemap)
72 return 1;
73
74 tilemap_set_transparent_pen(pf1_tilemap,0);
75 tilemap_set_transparent_pen(pf2_tilemap,0);
76 tilemap_set_transparent_pen(pf3_tilemap,0);
77 tilemap_set_transparent_pen(pf4_tilemap,0);
78
79 return 0;
80 }
81
82 /******************************************************************************/
83
WRITE16_HANDLER(vaportra_pf1_data_w)84 WRITE16_HANDLER( vaportra_pf1_data_w )
85 {
86 data16_t oldword=vaportra_pf1_data[offset];
87 COMBINE_DATA(&vaportra_pf1_data[offset]);
88 if (oldword!=vaportra_pf1_data[offset])
89 tilemap_mark_tile_dirty(pf1_tilemap,offset);
90 }
91
WRITE16_HANDLER(vaportra_pf2_data_w)92 WRITE16_HANDLER( vaportra_pf2_data_w )
93 {
94 data16_t oldword=vaportra_pf2_data[offset];
95 COMBINE_DATA(&vaportra_pf2_data[offset]);
96 if (oldword!=vaportra_pf2_data[offset])
97 tilemap_mark_tile_dirty(pf2_tilemap,offset);
98 }
99
WRITE16_HANDLER(vaportra_pf3_data_w)100 WRITE16_HANDLER( vaportra_pf3_data_w )
101 {
102 data16_t oldword=vaportra_pf3_data[offset];
103 COMBINE_DATA(&vaportra_pf3_data[offset]);
104 if (oldword!=vaportra_pf3_data[offset])
105 tilemap_mark_tile_dirty(pf3_tilemap,offset);
106 }
107
WRITE16_HANDLER(vaportra_pf4_data_w)108 WRITE16_HANDLER( vaportra_pf4_data_w )
109 {
110 data16_t oldword=vaportra_pf4_data[offset];
111 COMBINE_DATA(&vaportra_pf4_data[offset]);
112 if (oldword!=vaportra_pf4_data[offset])
113 tilemap_mark_tile_dirty(pf4_tilemap,offset);
114 }
115
WRITE16_HANDLER(vaportra_control_0_w)116 WRITE16_HANDLER( vaportra_control_0_w )
117 {
118 COMBINE_DATA(&vaportra_control_0[offset]);
119 }
120
WRITE16_HANDLER(vaportra_control_1_w)121 WRITE16_HANDLER( vaportra_control_1_w )
122 {
123 COMBINE_DATA(&vaportra_control_1[offset]);
124 }
125
WRITE16_HANDLER(vaportra_control_2_w)126 WRITE16_HANDLER( vaportra_control_2_w )
127 {
128 COMBINE_DATA(&vaportra_control_2[offset]);
129 }
130
131 /******************************************************************************/
132
update_24bitcol(int offset)133 static void update_24bitcol(int offset)
134 {
135 UINT8 r,g,b;
136
137 r = (paletteram16[offset] >> 0) & 0xff;
138 g = (paletteram16[offset] >> 8) & 0xff;
139 b = (paletteram16_2[offset] >> 0) & 0xff;
140
141 palette_set_color(offset,r,g,b);
142 }
143
WRITE16_HANDLER(vaportra_palette_24bit_rg_w)144 WRITE16_HANDLER( vaportra_palette_24bit_rg_w )
145 {
146 COMBINE_DATA(&paletteram16[offset]);
147 update_24bitcol(offset);
148 }
149
WRITE16_HANDLER(vaportra_palette_24bit_b_w)150 WRITE16_HANDLER( vaportra_palette_24bit_b_w )
151 {
152 COMBINE_DATA(&paletteram16_2[offset]);
153 update_24bitcol(offset);
154 }
155
156 /******************************************************************************/
157
vaportra_drawsprites(struct mame_bitmap * bitmap,const struct rectangle * cliprect,int pri)158 static void vaportra_drawsprites(struct mame_bitmap *bitmap, const struct rectangle *cliprect, int pri)
159 {
160 int offs,priority_value;
161
162 priority_value=vaportra_control_2[1];
163
164 for (offs = 0;offs < 0x400;offs += 4)
165 {
166 int x,y,sprite,colour,multi,fx,fy,inc,flash,mult;
167
168 y = buffered_spriteram16[offs];
169 if ((y&0x8000) == 0) continue;
170
171 sprite = buffered_spriteram16[offs+1] & 0x1fff;
172 x = buffered_spriteram16[offs+2];
173 colour = (x >> 12) &0xf;
174 if (pri && (colour>=priority_value)) continue;
175 if (!pri && !(colour>=priority_value)) continue;
176
177 flash=x&0x800;
178 if (flash && (cpu_getcurrentframe() & 1)) continue;
179
180 fx = y & 0x2000;
181 fy = y & 0x4000;
182 multi = (1 << ((y & 0x1800) >> 11)) - 1; /* 1x, 2x, 4x, 8x height */
183
184 x = x & 0x01ff;
185 y = y & 0x01ff;
186 if (x >= 256) x -= 512;
187 if (y >= 256) y -= 512;
188 x = 240 - x;
189 y = 240 - y;
190
191 if (x>256) continue; /* Speedup */
192
193 sprite &= ~multi;
194 if (fy)
195 inc = -1;
196 else
197 {
198 sprite += multi;
199 inc = 1;
200 }
201
202 if (flipscreen)
203 {
204 y=240-y;
205 x=240-x;
206 if (fx) fx=0; else fx=1;
207 if (fy) fy=0; else fy=1;
208 mult=16;
209 }
210 else mult=-16;
211
212 while (multi >= 0)
213 {
214 drawgfx(bitmap,Machine->gfx[4],
215 sprite - multi * inc,
216 colour,
217 fx,fy,
218 x,y + mult * multi,
219 cliprect,TRANSPARENCY_PEN,0);
220
221 multi--;
222 }
223 }
224 }
225
226
VIDEO_UPDATE(vaportra)227 VIDEO_UPDATE( vaportra )
228 {
229 int pri=vaportra_control_2[0];
230
231 /* Update flipscreen */
232 if (vaportra_control_1[0]&0x80)
233 flipscreen=0;
234 else
235 flipscreen=1;
236
237 tilemap_set_flip(ALL_TILEMAPS,flipscreen ? (TILEMAP_FLIPY | TILEMAP_FLIPX) : 0);
238
239 /* Update scroll registers */
240 tilemap_set_scrollx( pf1_tilemap,0, vaportra_control_1[1] );
241 tilemap_set_scrolly( pf1_tilemap,0, vaportra_control_1[2] );
242 tilemap_set_scrollx( pf2_tilemap,0, vaportra_control_0[1] );
243 tilemap_set_scrolly( pf2_tilemap,0, vaportra_control_0[2] );
244 tilemap_set_scrollx( pf3_tilemap,0, vaportra_control_1[3] );
245 tilemap_set_scrolly( pf3_tilemap,0, vaportra_control_1[4] );
246 tilemap_set_scrollx( pf4_tilemap,0, vaportra_control_0[3] );
247 tilemap_set_scrolly( pf4_tilemap,0, vaportra_control_0[4] );
248
249 pri&=0x3;
250
251 /* Draw playfields */
252 if (pri==0) {
253 tilemap_draw(bitmap,cliprect,pf4_tilemap,TILEMAP_IGNORE_TRANSPARENCY,0);
254 tilemap_draw(bitmap,cliprect,pf2_tilemap,0,0);
255 vaportra_drawsprites(bitmap,cliprect,0);
256 tilemap_draw(bitmap,cliprect,pf3_tilemap,0,0);
257 }
258 else if (pri==1) {
259 tilemap_draw(bitmap,cliprect,pf2_tilemap,TILEMAP_IGNORE_TRANSPARENCY,0);
260 tilemap_draw(bitmap,cliprect,pf4_tilemap,0,0);
261 vaportra_drawsprites(bitmap,cliprect,0);
262 tilemap_draw(bitmap,cliprect,pf3_tilemap,0,0);
263 }
264 else if (pri==2) {
265 tilemap_draw(bitmap,cliprect,pf4_tilemap,TILEMAP_IGNORE_TRANSPARENCY,0);
266 tilemap_draw(bitmap,cliprect,pf3_tilemap,0,0);
267 vaportra_drawsprites(bitmap,cliprect,0);
268 tilemap_draw(bitmap,cliprect,pf2_tilemap,0,0);
269 }
270 else {
271 tilemap_draw(bitmap,cliprect,pf2_tilemap,TILEMAP_IGNORE_TRANSPARENCY,0);
272 tilemap_draw(bitmap,cliprect,pf3_tilemap,0,0);
273 vaportra_drawsprites(bitmap,cliprect,0);
274 tilemap_draw(bitmap,cliprect,pf4_tilemap,0,0);
275 }
276
277 vaportra_drawsprites(bitmap,cliprect,1);
278 tilemap_draw(bitmap,cliprect,pf1_tilemap,0,0);
279 }
280