1 /***************************************************************************
2
3 Crude Buster Video emulation - Bryan McPhail, mish@tendril.co.uk
4
5 ***************************************************************************/
6
7 #include "driver.h"
8 #include "vidhrdw/generic.h"
9
10 data16_t *twocrude_pf1_data,*twocrude_pf2_data,*twocrude_pf3_data,*twocrude_pf4_data;
11
12 static struct tilemap *pf1_tilemap,*pf2_tilemap,*pf3_tilemap,*pf4_tilemap;
13 static int twocrude_pri,flipscreen;
14
15 static data16_t twocrude_control_0[8];
16 static data16_t twocrude_control_1[8];
17
18 data16_t *twocrude_pf1_rowscroll,*twocrude_pf2_rowscroll;
19 data16_t *twocrude_pf3_rowscroll,*twocrude_pf4_rowscroll;
20
21 /* Function for all 16x16 1024 by 512 layers */
back_scan(UINT32 col,UINT32 row,UINT32 num_cols,UINT32 num_rows)22 static UINT32 back_scan(UINT32 col,UINT32 row,UINT32 num_cols,UINT32 num_rows)
23 {
24 /* logical (col,row) -> memory offset */
25 return (col & 0x1f) + ((row & 0x1f) << 5) + ((col & 0x20) << 5);
26 }
27
get_back_tile_info(int tile_index,int gfx_bank,data16_t * gfx_base)28 static INLINE void get_back_tile_info(int tile_index,int gfx_bank,data16_t *gfx_base)
29 {
30 int tile,color;
31
32 tile=gfx_base[tile_index];
33 color=tile >> 12;
34 tile=tile&0xfff;
35
36 SET_TILE_INFO(
37 gfx_bank,
38 tile,
39 color,
40 0)
41 }
42
get_back_tile_info2(int tile_index)43 static void get_back_tile_info2(int tile_index) { get_back_tile_info(tile_index,1,twocrude_pf2_data); }
get_back_tile_info3(int tile_index)44 static void get_back_tile_info3(int tile_index) { get_back_tile_info(tile_index,2,twocrude_pf3_data); }
get_back_tile_info4(int tile_index)45 static void get_back_tile_info4(int tile_index) { get_back_tile_info(tile_index,3,twocrude_pf4_data); }
46
47
48 /* 8x8 top layer */
get_fore_tile_info(int tile_index)49 static void get_fore_tile_info(int tile_index)
50 {
51 int tile=twocrude_pf1_data[tile_index];
52 int color=tile >> 12;
53
54 tile=tile&0xfff;
55
56 SET_TILE_INFO(
57 0,
58 tile,
59 color,
60 0)
61 }
62
63 /******************************************************************************/
64
VIDEO_START(twocrude)65 VIDEO_START( twocrude )
66 {
67 pf2_tilemap = tilemap_create(get_back_tile_info2,back_scan, TILEMAP_OPAQUE,16,16,64,32);
68 pf3_tilemap = tilemap_create(get_back_tile_info3,back_scan, TILEMAP_TRANSPARENT,16,16,64,32);
69 pf4_tilemap = tilemap_create(get_back_tile_info4,back_scan, TILEMAP_TRANSPARENT,16,16,64,32);
70 pf1_tilemap = tilemap_create(get_fore_tile_info, tilemap_scan_rows,TILEMAP_TRANSPARENT,8,8,64,32);
71
72 if (!pf1_tilemap || !pf2_tilemap || !pf3_tilemap || !pf4_tilemap)
73 return 1;
74
75 tilemap_set_transparent_pen(pf1_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
update_24bitcol(int offset)84 static void update_24bitcol(int offset)
85 {
86 UINT8 r,g,b; /* The highest palette value seems to be 0x8e */
87
88 r = (UINT8)((float)((paletteram16[offset] >> 0) & 0xff)*1.75);
89 g = (UINT8)((float)((paletteram16[offset] >> 8) & 0xff)*1.75);
90 b = (UINT8)((float)((paletteram16_2[offset] >> 0) & 0xff)*1.75);
91
92 palette_set_color(offset,r,g,b);
93 }
94
WRITE16_HANDLER(twocrude_palette_24bit_rg_w)95 WRITE16_HANDLER( twocrude_palette_24bit_rg_w )
96 {
97 COMBINE_DATA(&paletteram16[offset]);
98 update_24bitcol(offset);
99 }
100
WRITE16_HANDLER(twocrude_palette_24bit_b_w)101 WRITE16_HANDLER( twocrude_palette_24bit_b_w )
102 {
103 COMBINE_DATA(&paletteram16_2[offset]);
104 update_24bitcol(offset);
105 }
106
107 /******************************************************************************/
108
twocrude_pri_w(int pri)109 void twocrude_pri_w(int pri)
110 {
111 twocrude_pri=pri;
112 }
113
WRITE16_HANDLER(twocrude_pf1_data_w)114 WRITE16_HANDLER( twocrude_pf1_data_w )
115 {
116 data16_t oldword=twocrude_pf1_data[offset];
117 COMBINE_DATA(&twocrude_pf1_data[offset]);
118 if (oldword!=twocrude_pf1_data[offset])
119 tilemap_mark_tile_dirty(pf1_tilemap,offset);
120 }
121
WRITE16_HANDLER(twocrude_pf2_data_w)122 WRITE16_HANDLER( twocrude_pf2_data_w )
123 {
124 data16_t oldword=twocrude_pf2_data[offset];
125 COMBINE_DATA(&twocrude_pf2_data[offset]);
126 if (oldword!=twocrude_pf2_data[offset])
127 tilemap_mark_tile_dirty(pf2_tilemap,offset);
128 }
129
WRITE16_HANDLER(twocrude_pf3_data_w)130 WRITE16_HANDLER( twocrude_pf3_data_w )
131 {
132 data16_t oldword=twocrude_pf3_data[offset];
133 COMBINE_DATA(&twocrude_pf3_data[offset]);
134 if (oldword!=twocrude_pf3_data[offset])
135 tilemap_mark_tile_dirty(pf3_tilemap,offset);
136 }
137
WRITE16_HANDLER(twocrude_pf4_data_w)138 WRITE16_HANDLER( twocrude_pf4_data_w )
139 {
140 data16_t oldword=twocrude_pf4_data[offset];
141 COMBINE_DATA(&twocrude_pf4_data[offset]);
142 if (oldword!=twocrude_pf4_data[offset])
143 tilemap_mark_tile_dirty(pf4_tilemap,offset);
144 }
145
WRITE16_HANDLER(twocrude_control_0_w)146 WRITE16_HANDLER( twocrude_control_0_w )
147 {
148 COMBINE_DATA(&twocrude_control_0[offset]);
149 }
150
WRITE16_HANDLER(twocrude_control_1_w)151 WRITE16_HANDLER( twocrude_control_1_w )
152 {
153 COMBINE_DATA(&twocrude_control_1[offset]);
154 }
155
156 /******************************************************************************/
157
twocrude_drawsprites(struct mame_bitmap * bitmap,const struct rectangle * cliprect,int pri)158 static void twocrude_drawsprites(struct mame_bitmap *bitmap, const struct rectangle *cliprect, int pri)
159 {
160 int offs;
161
162 for (offs = 0;offs < 0x400;offs += 4)
163 {
164 int x,y,sprite,colour,multi,fx,fy,inc,flash,mult;
165
166 sprite = buffered_spriteram16[offs+1] & 0x7fff;
167 if (!sprite) continue;
168
169 y = buffered_spriteram16[offs];
170 x = buffered_spriteram16[offs+2];
171
172 if ((y&0x8000) && pri==1) continue;
173 if (!(y&0x8000) && pri==0) continue;
174
175 colour = (x >> 9) &0xf;
176 if (x&0x2000) colour+=64;
177
178 flash=y&0x1000;
179 if (flash && (cpu_getcurrentframe() & 1)) continue;
180
181 fx = y & 0x2000;
182 fy = y & 0x4000;
183 multi = (1 << ((y & 0x0600) >> 9)) - 1; /* 1x, 2x, 4x, 8x height */
184
185 x = x & 0x01ff;
186 y = y & 0x01ff;
187 if (x >= 256) x -= 512;
188 if (y >= 256) y -= 512;
189 x = 240 - x;
190 y = 240 - y;
191
192 if (x>256) continue; /* Speedup */
193
194 sprite &= ~multi;
195 if (fy)
196 inc = -1;
197 else
198 {
199 sprite += multi;
200 inc = 1;
201 }
202
203 if (flipscreen) {
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 /******************************************************************************/
227
VIDEO_UPDATE(twocrude)228 VIDEO_UPDATE( twocrude )
229 {
230 int offs;
231 int pf23_control,pf14_control;
232
233 /* Update flipscreen */
234 if (twocrude_control_1[0]&0x80)
235 flipscreen=0;
236 else
237 flipscreen=1;
238 tilemap_set_flip(ALL_TILEMAPS,flipscreen ? (TILEMAP_FLIPY | TILEMAP_FLIPX) : 0);
239
240 pf23_control=twocrude_control_0[6];
241 pf14_control=twocrude_control_1[6];
242
243 /* Background - Rowscroll enable */
244 if (pf23_control&0x4000) {
245 int scrollx=twocrude_control_0[3],rows;
246 tilemap_set_scroll_cols(pf2_tilemap,1);
247 tilemap_set_scrolly( pf2_tilemap,0, twocrude_control_0[4] );
248
249 /* Several different rowscroll styles! */
250 switch ((twocrude_control_0[5]>>11)&7) {
251 case 0: rows=512; break;/* Every line of 512 height bitmap */
252 case 1: rows=256; break;
253 case 2: rows=128; break;
254 case 3: rows=64; break;
255 case 4: rows=32; break;
256 case 5: rows=16; break;
257 case 6: rows=8; break;
258 case 7: rows=4; break;
259 default: rows=1; break;
260 }
261
262 tilemap_set_scroll_rows(pf2_tilemap,rows);
263 for (offs = 0;offs < rows;offs++)
264 tilemap_set_scrollx( pf2_tilemap,offs, scrollx + twocrude_pf2_rowscroll[offs] );
265 }
266 else {
267 tilemap_set_scroll_rows(pf2_tilemap,1);
268 tilemap_set_scroll_cols(pf2_tilemap,1);
269 tilemap_set_scrollx( pf2_tilemap,0, twocrude_control_0[3] );
270 tilemap_set_scrolly( pf2_tilemap,0, twocrude_control_0[4] );
271 }
272
273 /* Playfield 3 */
274 if (pf23_control&0x40) { /* Rowscroll */
275 int scrollx=twocrude_control_0[1],rows;
276 tilemap_set_scroll_cols(pf3_tilemap,1);
277 tilemap_set_scrolly( pf3_tilemap,0, twocrude_control_0[2] );
278
279 /* Several different rowscroll styles! */
280 switch ((twocrude_control_0[5]>>3)&7) {
281 case 0: rows=512; break;/* Every line of 512 height bitmap */
282 case 1: rows=256; break;
283 case 2: rows=128; break;
284 case 3: rows=64; break;
285 case 4: rows=32; break;
286 case 5: rows=16; break;
287 case 6: rows=8; break;
288 case 7: rows=4; break;
289 default: rows=1; break;
290 }
291
292 tilemap_set_scroll_rows(pf3_tilemap,rows);
293 for (offs = 0;offs < rows;offs++)
294 tilemap_set_scrollx( pf3_tilemap,offs, scrollx + twocrude_pf3_rowscroll[offs] );
295 }
296 else if (pf23_control&0x20) { /* Colscroll */
297 int scrolly=twocrude_control_0[2],cols;
298 tilemap_set_scroll_rows(pf3_tilemap,1);
299 tilemap_set_scrollx( pf3_tilemap,0, twocrude_control_0[1] );
300
301 /* Several different colscroll styles! */
302 switch ((twocrude_control_0[5]>>0)&7) {
303 case 0: cols=64; break;
304 case 1: cols=32; break;
305 case 2: cols=16; break;
306 case 3: cols=8; break;
307 case 4: cols=4; break;
308 case 5: cols=2; break;
309 case 6: cols=1; break;
310 case 7: cols=1; break;
311 default: cols=1; break;
312 }
313
314 tilemap_set_scroll_cols(pf3_tilemap,cols);
315 for (offs = 0;offs < cols;offs++)
316 tilemap_set_scrolly( pf3_tilemap,offs,scrolly + twocrude_pf3_rowscroll[offs+0x200] );
317 }
318 else {
319 tilemap_set_scroll_rows(pf3_tilemap,1);
320 tilemap_set_scroll_cols(pf3_tilemap,1);
321 tilemap_set_scrollx( pf3_tilemap,0, twocrude_control_0[1] );
322 tilemap_set_scrolly( pf3_tilemap,0, twocrude_control_0[2] );
323 }
324
325 /* Playfield 4 - Rowscroll enable */
326 if (pf14_control&0x4000) {
327 int scrollx=twocrude_control_1[3],rows;
328 tilemap_set_scroll_cols(pf4_tilemap,1);
329 tilemap_set_scrolly( pf4_tilemap,0, twocrude_control_1[4] );
330
331 /* Several different rowscroll styles! */
332 switch ((twocrude_control_1[5]>>11)&7) {
333 case 0: rows=512; break;/* Every line of 512 height bitmap */
334 case 1: rows=256; break;
335 case 2: rows=128; break;
336 case 3: rows=64; break;
337 case 4: rows=32; break;
338 case 5: rows=16; break;
339 case 6: rows=8; break;
340 case 7: rows=4; break;
341 default: rows=1; break;
342 }
343
344 tilemap_set_scroll_rows(pf4_tilemap,rows);
345 for (offs = 0;offs < rows;offs++)
346 tilemap_set_scrollx( pf4_tilemap,offs, scrollx + twocrude_pf4_rowscroll[offs] );
347 }
348 else {
349 tilemap_set_scroll_rows(pf4_tilemap,1);
350 tilemap_set_scroll_cols(pf4_tilemap,1);
351 tilemap_set_scrollx( pf4_tilemap,0, twocrude_control_1[3] );
352 tilemap_set_scrolly( pf4_tilemap,0, twocrude_control_1[4] );
353 }
354
355 /* Playfield 1 */
356 if (pf14_control&0x40) { /* Rowscroll */
357 int scrollx=twocrude_control_1[1],rows;
358 tilemap_set_scroll_cols(pf1_tilemap,1);
359 tilemap_set_scrolly( pf1_tilemap,0, twocrude_control_1[2] );
360
361 /* Several different rowscroll styles! */
362 switch ((twocrude_control_1[5]>>3)&7) {
363 case 0: rows=256; break;/* Every line of 256 height bitmap */
364 case 1: rows=128; break;
365 case 2: rows=64; break;
366 case 3: rows=32; break;
367 case 4: rows=16; break;
368 case 5: rows=8; break;
369 case 6: rows=4; break;
370 case 7: rows=2; break;
371 default: rows=1; break;
372 }
373
374 tilemap_set_scroll_rows(pf1_tilemap,rows);
375 for (offs = 0;offs < rows;offs++)
376 tilemap_set_scrollx( pf1_tilemap,offs, scrollx + twocrude_pf1_rowscroll[offs] );
377 }
378 else {
379 tilemap_set_scroll_rows(pf1_tilemap,1);
380 tilemap_set_scroll_cols(pf1_tilemap,1);
381 tilemap_set_scrollx( pf1_tilemap,0, twocrude_control_1[1] );
382 tilemap_set_scrolly( pf1_tilemap,0, twocrude_control_1[2] );
383 }
384
385 /* Draw playfields & sprites */
386 tilemap_draw(bitmap,cliprect,pf2_tilemap,0,0);
387 twocrude_drawsprites(bitmap,cliprect,0);
388
389 if (twocrude_pri) {
390 tilemap_draw(bitmap,cliprect,pf4_tilemap,0,0);
391 tilemap_draw(bitmap,cliprect,pf3_tilemap,0,0);
392 }
393 else {
394 tilemap_draw(bitmap,cliprect,pf3_tilemap,0,0);
395 tilemap_draw(bitmap,cliprect,pf4_tilemap,0,0);
396 }
397
398 twocrude_drawsprites(bitmap,cliprect,1);
399 tilemap_draw(bitmap,cliprect,pf1_tilemap,0,0);
400 }
401