#include "pgm.h"
#include "pgm_sprite.h"

/*
	Video flag notes (b0e000 writes)

	0000 0000 0000 000x	- sprite dma enable
	0000 0000 0000 xxx0 - nothing?
	0000 0000 000x 0000 - all games set this?
	0000 0000 0xx0 0000 - all games except CAVE, but seems to serve no purpose when set?
	0000 0000 x000 0000	- loses refresh rate?
	0000 000x 0000 0000 - shows garbage on screen for all except background?
	0000 00x0 0000 0000 - disable everything except background layer?
	0000 0x00 0000 0000 - nothing?
	0000 x000 0000 0000 - disable text layer
	000x 0000 0000 0000 - disable background layer
	00x0 0000 0000 0000 - disable high priority sprites
	xx00 0000 0000 0000 - nothing?


	Sprite zooming notes:
	
	Dragon World II - set to English language has horrible zoom problems - this happens on real hardware
*/

//#define DUMP_SPRITE_BITMAPS
//#define DRAW_SPRITE_NUMBER

static INT32 enable_blending = 0;

static INT32   nTileMask = 0;
static UINT8   sprmsktab[0x100];
static UINT8  *SpritePrio;		// sprite priorities
static UINT16 *pTempScreen;		// sprites
static UINT16 *pTempDraw;		// pre-zoomed sprites
static UINT8  *tiletrans;		// tile transparency table
static UINT8  *texttrans;		// text transparency table
static UINT32 *pTempDraw32;		// 32 bit temporary bitmap (blending!)
static UINT8  *pSpriteBlendTable;	// if blending is available, allocate this.

static inline UINT32 alpha_blend(UINT32 d, UINT32 s, UINT32 p)
{
	INT32 a = 255 - p;

	return (((((s & 0xff00ff) * p) + ((d & 0xff00ff) * a)) & 0xff00ff00) +
		((((s & 0x00ff00) * p) + ((d & 0x00ff00) * a)) & 0x00ff0000)) >> 8;
}

#ifdef DRAW_SPRITE_NUMBER

static UINT8 font_pixels[16][7*5] = {
	{ 0,0,0,0,0,0,1,1,1,0,0,1,0,1,0,0,1,0,1,0,0,1,0,1,0,0,1,1,1,0,0,0,0,0,0,},// 0
	{ 0,0,0,0,0,0,0,1,0,0,0,0,1,0,0,0,0,1,0,0,0,0,1,0,0,0,0,1,0,0,0,0,0,0,0,},// 1
	{ 0,0,0,0,0,0,0,1,1,0,0,1,0,1,0,0,0,0,1,0,0,0,1,0,0,0,1,1,1,0,0,0,0,0,0,},// 2
	{ 0,0,0,0,0,0,1,1,1,0,0,0,0,1,0,0,1,1,1,0,0,0,0,1,0,0,1,1,1,0,0,0,0,0,0,},// 3
	{ 0,0,0,0,0,0,1,0,1,0,0,1,0,1,0,0,1,1,1,0,0,0,0,1,0,0,0,0,1,0,0,0,0,0,0,},// 4
	{ 0,0,0,0,0,0,1,1,1,0,0,1,0,0,0,0,1,1,0,0,0,0,0,1,0,0,1,1,1,0,0,0,0,0,0,},// 5
	{ 0,0,0,0,0,0,0,1,0,0,0,1,0,0,0,0,1,1,1,0,0,1,0,1,0,0,1,1,1,0,0,0,0,0,0,},// 6
	{ 0,0,0,0,0,0,1,1,1,0,0,0,0,1,0,0,0,0,1,0,0,0,1,0,0,0,0,1,0,0,0,0,0,0,0,},// 7
	{ 0,0,0,0,0,0,1,1,1,0,0,1,0,1,0,0,1,1,1,0,0,1,0,1,0,0,1,1,1,0,0,0,0,0,0,},// 8
	{ 0,0,0,0,0,0,1,1,1,0,0,1,0,1,0,0,1,1,1,0,0,0,1,0,0,0,1,0,0,0,0,0,0,0,0,},// 9
	{ 0,0,0,0,0,0,1,1,1,0,0,1,0,1,0,0,1,1,1,0,0,1,0,1,0,0,1,0,1,0,0,0,0,0,0,},// A
//	{ 0,0,0,0,0,0,1,1,1,0,0,1,0,1,0,0,1,1,0,0,0,1,0,1,0,0,1,1,1,0,0,0,0,0,0,},// B (looks like '8')
	{ 0,0,0,0,0,0,1,0,0,0,0,1,0,0,0,0,1,1,1,0,0,1,0,1,0,0,1,1,1,0,0,0,0,0,0,},// b
	{ 0,0,0,0,0,0,1,1,1,0,0,1,0,0,0,0,1,0,0,0,0,1,0,0,0,0,1,1,1,0,0,0,0,0,0,},// C
//	{ 0,0,0,0,0,0,1,1,0,0,0,1,0,1,0,0,1,0,1,0,0,1,0,1,0,0,1,1,0,0,0,0,0,0,0,},// D (looks like '0')
	{ 0,0,0,0,0,0,0,0,1,0,0,0,0,1,0,0,1,1,1,0,0,1,0,1,0,0,1,1,1,0,0,0,0,0,0,},// d
	{ 0,0,0,0,0,0,1,1,1,0,0,1,0,0,0,0,1,1,1,0,0,1,0,0,0,0,1,1,1,0,0,0,0,0,0,},// E
	{ 0,0,0,0,0,0,1,1,1,0,0,1,0,0,0,0,1,1,0,0,0,1,0,0,0,0,1,0,0,0,0,0,0,0,0,} // F
};

static void draw_font(INT32 sx, INT32 sy, UINT32 code)
{
	INT32 enable1 = 0;

	for (INT32 z = 7; z >= 0; z--)
	{
		INT32 chr = (code >> (z*4))&0xf;

		if (enable1 == 0 && chr == 0) continue; // skip leading 0's
		enable1 = 1;

		UINT8 *gfx = font_pixels[chr];

		if (enable_blending) {
			for (INT32 y = 0; y < 7; y++) {
				if ((sy+y)<0 || (sy+y)>=nScreenHeight) continue; // clip
	
				UINT32 *dst = pTempDraw32 + (sy + y) * nScreenWidth;
	
				for (INT32 x = 0; x < 5; x++) {
					if ((sx+x)<0 || (sx+x)>=nScreenWidth) continue; // clip
	
					INT32 pxl = gfx[(y*5)+x];
					if (pxl) {
						dst[(sx+x)] = 0xffffff;
					} else {
						dst[(sx+x)] = 0x000000;
					}
				}
			}
		} else {
			for (INT32 y = 0; y < 7; y++) {
				if ((sy+y)<0 || (sy+y)>=nScreenHeight) continue; // clip
	
				UINT16 *dst = pTransDraw + (sy + y) * nScreenWidth;
	
				for (INT32 x = 0; x < 5; x++) {
					if ((sx+x)<0 || (sx+x)>=nScreenWidth) continue; // clip
	
					INT32 pxl = gfx[(y*5)+x];
					if (pxl) {
						dst[(sx+x)] = 0x901;
					} else {
						dst[(sx+x)] = 0x900;
					}
				}
			}
		}

		sx += 5;
	}
}

static void pgm_drawsprites_fonts(INT32 priority)
{
	UINT16 *source = PGMSprBuf;
	UINT16 *finish = PGMSprBuf + 0xa00/2;

	while (finish > source)
	{
		if (source[4] == 0) break;

		INT32 xpos =  BURN_ENDIAN_SWAP_INT16(source[0]) & 0x07ff;
		INT32 ypos =  BURN_ENDIAN_SWAP_INT16(source[1]) & 0x03ff;
		INT32 prio = (BURN_ENDIAN_SWAP_INT16(source[2]) & 0x0080) >> 7;
		INT32 boff =((BURN_ENDIAN_SWAP_INT16(source[2]) & 0x007f) << 16) | (BURN_ENDIAN_SWAP_INT16(source[3]) & 0xffff);

		if (priority==prio)
			draw_font(xpos, ypos, boff);

		source += 5;
	}
}
#endif

inline static UINT32 CalcCol(UINT16 nColour)
{
	INT32 r, g, b;

	r = (nColour & 0x7C00) >> 7;	// Red 
	r |= r >> 5;
	g = (nColour & 0x03E0) >> 2;	// Green
	g |= g >> 5;
	b = (nColour & 0x001F) << 3;	// Blue
	b |= b >> 5;

	if (enable_blending) return (r<<16)|(g<<8)|(b<<0);

	return BurnHighCol(r, g, b, 0);
}

static void pgm_prepare_sprite(INT32 wide, INT32 high, INT32 palt, INT32 boffset)
{
	UINT16* dest = pTempDraw;
	UINT8 * bdata = PGMSPRMaskROM;
	INT32 bdatasize = nPGMSPRMaskMaskLen;

	wide *= 16;
	palt *= 32;

	UINT32 aoffset = (bdata[(boffset+3) & bdatasize] << 24) | (bdata[(boffset+2) & bdatasize] << 16) | (bdata[(boffset+1) & bdatasize] << 8) | (bdata[(boffset) & bdatasize]);
	aoffset = (aoffset >> 2) * 3;

	boffset += 4;

	for (INT32 ycnt = 0; ycnt < high; ycnt++)
	{
		for (INT32 xcnt = 0; xcnt < wide; xcnt+=8)
		{
			aoffset+=zoom_draw_table[bdata[boffset & bdatasize]](dest + xcnt, PGMSPRColROM + (aoffset & nPGMSPRColMaskLen), palt);

			boffset++;
		}

		dest += wide;
	}
}

static inline void draw_sprite_line(INT32 wide, UINT16* dest, UINT8 *pdest, INT32 xzoom, INT32 xgrow, INT32 yoffset, INT32 flip, INT32 xpos, INT32 prio)
{
	INT32 xzoombit;
	INT32 xoffset;
	INT32 xcnt = 0, xcntdraw = 0;
	INT32 xdrawpos = 0;

	wide *= 16;
	flip &= 1;

	while (xcnt < wide)
	{
		if (flip) xoffset = wide - xcnt - 1;
		else	  xoffset = xcnt;

		UINT32 srcdat = pTempDraw[yoffset + xoffset];
		xzoombit = (xzoom >> (xcnt & 0x1f)) & 1;

		if (xzoombit == 1 && xgrow == 1)
		{
			xdrawpos = xpos + xcntdraw;

			if (!(srcdat & 0x8000))
			{
				if ((xdrawpos >= 0) && (xdrawpos < nScreenWidth)) {
					dest[xdrawpos] = srcdat;
					pdest[xdrawpos] = prio;
				}

				xdrawpos = xpos + xcntdraw + 1;

				if ((xdrawpos >= 0) && (xdrawpos < nScreenWidth)) {
					dest[xdrawpos] = srcdat;
					pdest[xdrawpos] = prio;
				}
			}

			xcntdraw+=2;
		}
		else if (xzoombit == 1 && xgrow == 0)
		{
			// skip this column
		}
		else //normal column
		{
			xdrawpos = xpos + xcntdraw;

			if (!(srcdat & 0x8000))
			{
				if ((xdrawpos >= 0) && (xdrawpos < nScreenWidth)) {
					dest[xdrawpos] = srcdat;
					pdest[xdrawpos] = prio;
				}
			}

			xcntdraw++;
		}

		xcnt++;

		if (xdrawpos == nScreenWidth) break;
	}
}

static void pgm_draw_sprite_nozoom(INT32 wide, INT32 high, INT32 palt, INT32 boffset, INT32 xpos, INT32 ypos, INT32 flipx, INT32 flipy, INT32 prio)
{
	UINT16 *dest = pTempScreen;
	UINT8 *pdest = SpritePrio;
	UINT8 * bdata = PGMSPRMaskROM;
	UINT8 * adata = PGMSPRColROM;
	INT32 bdatasize = nPGMSPRMaskMaskLen;
	INT32 adatasize = nPGMSPRColMaskLen;
	INT32 yoff, xoff;

	UINT16 msk;

	UINT32 aoffset = (bdata[(boffset+3) & bdatasize] << 24) | (bdata[(boffset+2) & bdatasize] << 16) | (bdata[(boffset+1) & bdatasize] << 8) | (bdata[boffset & bdatasize]);
	aoffset = (aoffset >> 2) * 3;
	aoffset &= adatasize;

	boffset += 4;
	wide <<= 4;

	palt <<= 5;

	sprite_draw_nozoom_function *drawsprite = nozoom_draw_table[flipx ? 1 : 0];

	for (INT32 ycnt = 0; ycnt < high; ycnt++) {
		if (flipy) {
			yoff = ypos + ((high-1) - ycnt);
			if (yoff < 0) break;
			if (yoff < nScreenHeight) {
				dest = pTempScreen + (yoff * nScreenWidth);
				pdest = SpritePrio + (yoff * nScreenWidth);
			}
		} else {
			yoff = ypos + ycnt;
			if (yoff >= nScreenHeight) break;
			if (yoff >= 0)  {
				dest = pTempScreen + (yoff * nScreenWidth);
				pdest = SpritePrio + (yoff * nScreenWidth);
			}
		}

		if (yoff >= 0 && yoff < nScreenHeight && xpos >= 0 && (xpos + wide) < nScreenWidth)
		{
			for (INT32 xcnt = 0; xcnt < wide; xcnt+=8)
			{
				if (flipx) {
					xoff = xpos + ((wide - 8) - xcnt);
				} else {
					xoff = xpos + xcnt;
				}

				aoffset += drawsprite[bdata[boffset & bdatasize]](dest + xoff, pdest + xoff, PGMSPRColROM + (aoffset & nPGMSPRColMaskLen), palt, prio);
				boffset++;
			}
		} else {
			for (INT32 xcnt = 0; xcnt < wide; xcnt+=8)
			{
				msk = bdata[boffset & bdatasize] ^ 0xff;
				boffset++;
				aoffset &= adatasize;

				if (yoff < 0 || yoff >= nScreenHeight || msk == 0) {
					aoffset += sprmsktab[msk];

					continue;
				}

				if (flipx) {
					xoff = xpos + (wide - xcnt) - 1;

					if (xoff < -7 || xoff >= nScreenWidth+8) {
						aoffset += sprmsktab[msk];
						continue;
					}

					for (INT32 x = 0; x < 8; x++, xoff--)
					{
						if (msk & 0x0001)
						{
							if (xoff >= 0 && xoff < nScreenWidth) {
								dest[xoff] = adata[aoffset] | palt;
								pdest[xoff] = prio;
							}
		
							aoffset++;
						}
		
						msk >>= 1;
						if (!msk) break;
					}
				} else {
					xoff = xpos + xcnt;

					if (xoff < -7 || xoff >= nScreenWidth) {
						aoffset += sprmsktab[msk];
						continue;
					}

					for (INT32 x = 0; x < 8; x++, xoff++)
					{
						if (msk & 0x0001)
						{
							if (xoff >= 0 && xoff < nScreenWidth) {
								dest[xoff] = adata[aoffset] | palt;
								pdest[xoff] = prio;
							}
		
							aoffset++;
						}
		
						msk >>= 1;
						if (!msk) break;
					}
				}
			}
		}
	}
}

#ifdef DUMP_SPRITE_BITMAPS
static void pgm_dump_sprite(INT32 wide, INT32 high, INT32 palt, INT32 boffset, INT32 xpos, INT32 ypos, INT32 flipx, INT32 flipy, INT32 prio)
{
	if (nBurnBPP < 3) return;

	UINT32 *dest = pTempDraw32;
	UINT8 * bdata = PGMSPRMaskROM;
	UINT8 * adata = PGMSPRColROM;
	INT32 bdatasize = nPGMSPRMaskMaskLen;
	INT32 adatasize = nPGMSPRColMaskLen;
	INT32 yoff, xoff;

	UINT16 msk;

	UINT32 boffset_initial = boffset/2;

	UINT32 aoffset = (bdata[(boffset+3) & bdatasize] << 24) | (bdata[(boffset+2) & bdatasize] << 16) | (bdata[(boffset+1) & bdatasize] << 8) | (bdata[boffset & bdatasize]);
	aoffset = (aoffset >> 2) * 3;
	aoffset &= adatasize;

	xpos = 0;
	ypos = 0;

	boffset += 4;
	wide <<= 4;

	palt <<= 5;

	UINT32 tcolor = BurnHighCol(0xff,0,0xff,0);

	for (INT32 y = 0; y < high; y++) {
		for (INT32 x = 0; x < wide; x++) {
			dest[y*1024+x] = tcolor;
		}
	}

	for (INT32 ycnt = 0; ycnt < high; ycnt++) {
		if (flipy) {
			yoff = ypos + ((high-1) - ycnt);
			if (yoff < 0) break;
			if (yoff < 512) {
				dest = pTempDraw32 + (yoff * 1024);
			}
		} else {
			yoff = ypos + ycnt;
			if (yoff >= 512) break;
			if (yoff >= 0)  {
				dest = pTempDraw32 + (yoff * 1024);
			}
		}

		{
			for (INT32 xcnt = 0; xcnt < wide; xcnt+=8)
			{
				msk = bdata[boffset & bdatasize] ^ 0xff;
				boffset++;
				aoffset &= adatasize;

				if (yoff < 0 || yoff >= 512 || msk == 0) {
					aoffset += sprmsktab[msk];

					continue;
				}

				if (flipx) {
					xoff = xpos + (wide - xcnt) - 1;

					if (xoff < -7 || xoff >= 1024+8) {
						aoffset += sprmsktab[msk];
						continue;
					}

					for (INT32 x = 0; x < 8; x++, xoff--)
					{
						if (msk & 0x0001)
						{
							if (xoff >= 0 && xoff < 1024) {
								dest[xoff] = RamCurPal[adata[aoffset] | palt];
							}
		
							aoffset++;
						}
		
						msk >>= 1;
						if (!msk) break;
					}
				} else {
					xoff = xpos + xcnt;

					if (xoff < -7 || xoff >= 1024) {
						aoffset += sprmsktab[msk];
						continue;
					}

					for (INT32 x = 0; x < 8; x++, xoff++)
					{
						if (msk & 0x0001)
						{
							if (xoff >= 0 && xoff < 1024) {
								dest[xoff] = RamCurPal[adata[aoffset] | palt];
							}
		
							aoffset++;
						}
		
						msk >>= 1;
						if (!msk) break;
					}
				}
			}
		}
	}

#define SET_FILE_SIZE(x)	\
	bmp_data[2] = (x);	\
	bmp_data[3] = (x)>>8;	\
	bmp_data[4] = (x)>>16

#define SET_BITMAP_SIZE(x)	\
	bmp_data[0x22] = (x);	\
	bmp_data[0x23] = (x)>>8;	\
	bmp_data[0x24] = (x)>>16

#define SET_BITMAP_WIDTH(x)	\
	bmp_data[0x12] = (x);	\
	bmp_data[0x13] = (x)>>8;	\
	bmp_data[0x14] = (x)>>16

#define SET_BITMAP_HEIGHT(x)	\
	bmp_data[0x16] = (x);	\
	bmp_data[0x17] = (x)>>8;	\
	bmp_data[0x18] = (x)>>16

	UINT8 bmp_data[0x36] = {
		0x42, 0x4D, 		// 'BM' (leave alone)
		0x00, 0x00, 0x00, 0x00, // file size
		0x00, 0x00, 0x00, 0x00, // padding
		0x36, 0x00, 0x00, 0x00, // offset to data (leave alone)
		0x28, 0x00, 0x00, 0x00, // windows mode (leave alone)
		0x00, 0x00, 0x00, 0x00, // bitmap width
		0x00, 0x00, 0x00, 0x00, // bitmap height
		0x01, 0x00,		// planes (1) always!
		0x20, 0x00, 		// bits per pixel (let's do 32 so no conversion!)
		0x00, 0x00, 0x00, 0x00, // compression (none)
		0x00, 0x00, 0x00, 0x00, // size of bitmap data
		0x00, 0x00, 0x00, 0x00,
		0x00, 0x00, 0x00, 0x00,
		0x00, 0x00, 0x00, 0x00,
		0x00, 0x00, 0x00, 0x00
	};

	SET_FILE_SIZE((wide*high*4)+54);
	SET_BITMAP_SIZE(wide*high*4);
	SET_BITMAP_WIDTH(wide);
	SET_BITMAP_HEIGHT(high);

	char output[256];
	sprintf (output, "blendbmp/%8.8x_%dx%d.bmp", boffset_initial,wide,high);
	FILE *fa;
	fa = fopen(output, "rb");
	if (fa) {
		fclose (fa);
		return;
	}
	fa = fopen(output, "wb");
	fwrite (bmp_data,0x36,1,fa);
	for (INT32 y = high-1; y >= 0; y--) { // bitmap format is flipped
		fwrite (pTempDraw32 + 1024 * y,wide*4,1,fa);
	}
	fclose (fa);
}
#endif

static void draw_sprite_new_zoomed(INT32 wide, INT32 high, INT32 xpos, INT32 ypos, INT32 palt, INT32 boffset, INT32 flip, UINT32 xzoom, INT32 xgrow, UINT32 yzoom, INT32 ygrow, INT32 prio )
{
	if (!wide) return;

#ifdef DUMP_SPRITE_BITMAPS
	pgm_dump_sprite(wide, high, palt, boffset, xpos, ypos, flip & 1, flip & 2, prio);
#endif

	if (yzoom == 0 && xzoom == 0) {
		pgm_draw_sprite_nozoom(wide, high, palt, boffset, xpos, ypos, flip & 1, flip & 2, prio);
		return;
	}

	INT32 ycnt;
	INT32 ydrawpos;
	UINT16 *dest;
	UINT8 *pdest;
	INT32 yoffset;
	INT32 ycntdraw;
	INT32 yzoombit;

	pgm_prepare_sprite(wide, high, palt, boffset);

	ycnt = 0;
	ycntdraw = 0;
	while (ycnt < high)
	{
		yzoombit = (yzoom >> (ycnt&0x1f))&1;

		if (yzoombit == 1 && ygrow == 1) // double this line
		{
			ydrawpos = ypos + ycntdraw;

			if (!(flip&0x02)) yoffset = (ycnt*(wide*16));
			else yoffset = ( (high-ycnt-1)*(wide*16));
			if ((ydrawpos >= 0) && (ydrawpos < 224))
			{
				dest = pTempScreen + ydrawpos * nScreenWidth;
				pdest = SpritePrio + ydrawpos * nScreenWidth;
				draw_sprite_line(wide, dest, pdest, xzoom, xgrow, yoffset, flip, xpos, prio);
			}
			ycntdraw++;

			ydrawpos = ypos + ycntdraw;
			if (!(flip&0x02)) yoffset = (ycnt*(wide*16));
			else yoffset = ( (high-ycnt-1)*(wide*16));
			if ((ydrawpos >= 0) && (ydrawpos < 224))
			{
				dest = pTempScreen + ydrawpos * nScreenWidth;
				pdest = SpritePrio + ydrawpos * nScreenWidth;
				draw_sprite_line(wide, dest, pdest, xzoom, xgrow, yoffset, flip, xpos, prio);
			}
			ycntdraw++;

			if (ydrawpos == 224) ycnt = high;
		}
		else if (yzoombit ==1 && ygrow == 0)
		{
			// skip this line
			// we should process anyway if we don't do the pre-decode...
		}
		else // normal line
		{
			ydrawpos = ypos + ycntdraw;

			if (!(flip&0x02)) yoffset = (ycnt*(wide*16));
			else yoffset = ( (high-ycnt-1)*(wide*16));
			if ((ydrawpos >= 0) && (ydrawpos < 224))
			{
				dest = pTempScreen + ydrawpos * nScreenWidth;
				pdest = SpritePrio + ydrawpos * nScreenWidth;
				draw_sprite_line(wide, dest, pdest, xzoom, xgrow, yoffset, flip, xpos, prio);
			}
			ycntdraw++;

			if (ydrawpos == 224) ycnt = high;
		}

		ycnt++;
	}
}

static void pgm_drawsprites()
{
	UINT16 *source = PGMSprBuf;
	UINT16 *finish = PGMSprBuf + 0x1000/2;
	UINT16 *zoomtable = &PGMZoomRAM[0];
	
	while (source < finish)
	{
		if ((source[4] & 0x7fff) == 0) break; // verified on hardware

		INT32 xpos =  BURN_ENDIAN_SWAP_INT16(source[0]) & 0x07ff;
		INT32 ypos =  BURN_ENDIAN_SWAP_INT16(source[1]) & 0x03ff;
		INT32 xzom = (BURN_ENDIAN_SWAP_INT16(source[0]) & 0x7800) >> 11;
		INT32 xgrow= (BURN_ENDIAN_SWAP_INT16(source[0]) & 0x8000) >> 15;
		INT32 yzom = (BURN_ENDIAN_SWAP_INT16(source[1]) & 0x7800) >> 11;
		INT32 ygrow= (BURN_ENDIAN_SWAP_INT16(source[1]) & 0x8000) >> 15;
		INT32 palt = (BURN_ENDIAN_SWAP_INT16(source[2]) & 0x1f00) >> 8;
		INT32 flip = (BURN_ENDIAN_SWAP_INT16(source[2]) & 0x6000) >> 13;
		INT32 boff =((BURN_ENDIAN_SWAP_INT16(source[2]) & 0x007f) << 16) | (BURN_ENDIAN_SWAP_INT16(source[3]) & 0xffff);
		INT32 wide = (BURN_ENDIAN_SWAP_INT16(source[4]) & 0x7e00) >> 9;
		INT32 prio = (BURN_ENDIAN_SWAP_INT16(source[2]) & 0x0080) >> 7;
		INT32 high =  BURN_ENDIAN_SWAP_INT16(source[4]) & 0x01ff;

		if (xgrow) xzom = 0x10-xzom;
		if (ygrow) yzom = 0x10-yzom;

		UINT32 xzoom = (xzom & 0x10) ? 0 : ((zoomtable[xzom*2]<<16)|zoomtable[xzom*2+1]);
		UINT32 yzoom = (yzom & 0x10) ? 0 : ((zoomtable[yzom*2]<<16)|zoomtable[yzom*2+1]);

		if (xpos > 0x3ff) xpos -=0x800;
		if (ypos > 0x1ff) ypos -=0x400;

		if (enable_blending) {
			palt |= pSpriteBlendTable[boff] << 7;
		}

		draw_sprite_new_zoomed(wide, high, xpos, ypos, palt, boff * 2, flip, xzoom, xgrow, yzoom, ygrow, prio);

		source += 8;
	}
}

static void copy_sprite_priority(INT32 prio)
{
	UINT16 *src = pTempScreen;
	UINT8 *pri = SpritePrio;

	if (enable_blending) {
		UINT32 *dest = pTempDraw32;
		INT32 blend_levels[16] = { 0x00, 0x1f, 0x2f, 0x3f, 0x4f, 0x5f, 0x6f, 0x7f, 0x8f, 0x9f, 0xaf, 0xbf, 0xcf, 0xdf, 0xef, 0xff };

		for (INT32 i = 0; i < nScreenWidth * nScreenHeight; i++)
		{
			if (pri[i] == prio) {
				if (src[i]&0xf000) {
					dest[i] = alpha_blend(dest[i], RamCurPal[src[i]&0xfff], blend_levels[src[i]/0x1000]);
				} else {
					dest[i] = RamCurPal[src[i]];
				}
			}
		}
	} else {
		UINT16 *dest = pTransDraw;
		for (INT32 i = 0; i < nScreenWidth * nScreenHeight; i++)
		{
			if (pri[i] == prio) {
				dest[i] = src[i];
			}
		}
	}
}

static void draw_text()
{
	UINT16 *vram = (UINT16*)PGMTxtRAM;

	INT32 scrollx = pgm_fg_scrollx & 0x1ff;
	INT32 scrolly = pgm_fg_scrolly & 0x0ff;

	for (INT32 offs = 0; offs < 64 * 32; offs++)
	{
		INT32 code = BURN_ENDIAN_SWAP_INT16(vram[offs * 2]);
		if (texttrans[code] == 0) continue; // transparent

		INT32 sx = (offs & 0x3f) << 3;
		INT32 sy = (offs >> 6) << 3;

		sx -= scrollx;
		if (sx < -7) sx += 512;
		sy -= scrolly;
		if (sy < -7) sy += 256;

		if (sx >= nScreenWidth || sy >= nScreenHeight) continue;

		INT32 attr  = BURN_ENDIAN_SWAP_INT16(vram[offs * 2 + 1]);
		INT32 color = ((attr & 0x3e) >> 1) | 0x80;
		INT32 flipx =  (attr & 0x40);
		INT32 flipy =  (attr & 0x80);

		if (enable_blending) 
		{
			UINT8 *gfx = PGMTileROM + (code * 0x40);
			INT32 flip = (flipx ? 0x07 : 0) | (flipy ? 0x38 : 0);
			UINT32 *pal = RamCurPal + color * 0x10;
			UINT32 *dst = pTempDraw32 + (sy * nScreenWidth) + sx;

			for (INT32 y = 0; y < 8; y++, dst += nScreenWidth) {
				if ((sy+y) >= 0 && (sy+y)<nScreenHeight) {
					for (INT32 x = 0; x < 8; x++) {
						INT32 pxl = gfx[((y*8)+x)^flip];

						if (pxl != 0xf) {
							if ((sx+x)>=0 && (sx+x)<nScreenWidth) {
								dst[x] = pal[pxl];
							}
						}
					}
				}
			}
		}
		else
		{
			if (sx < 0 || sy < 0 || sx >= nScreenWidth - 8 || sy >= nScreenHeight - 8)
			{
				if (texttrans[code] & 2) { // opaque
					if (flipy) {
						if (flipx) {
							Render8x8Tile_FlipXY_Clip(pTransDraw, code, sx, sy, color, 4, 0, PGMTileROM);
						} else {
							Render8x8Tile_FlipY_Clip(pTransDraw, code, sx, sy, color, 4, 0, PGMTileROM);
						}
					} else {
						if (flipx) {
							Render8x8Tile_FlipX_Clip(pTransDraw, code, sx, sy, color, 4, 0, PGMTileROM);
						} else {
							Render8x8Tile_Clip(pTransDraw, code, sx, sy, color, 4, 0, PGMTileROM);
						}
					}
				} else {
					if (flipy) {
						if (flipx) {
							Render8x8Tile_Mask_FlipXY_Clip(pTransDraw, code, sx, sy, color, 4, 15, 0, PGMTileROM);
						} else {
							Render8x8Tile_Mask_FlipY_Clip(pTransDraw, code, sx, sy, color, 4, 15, 0, PGMTileROM);
						}
					} else {
						if (flipx) {
							Render8x8Tile_Mask_FlipX_Clip(pTransDraw, code, sx, sy, color, 4, 15, 0, PGMTileROM);
						} else {
							Render8x8Tile_Mask_Clip(pTransDraw, code, sx, sy, color, 4, 15, 0, PGMTileROM);
						}
					}
				}
			}
			else
			{
				if (texttrans[code] & 2) { // opaque
					if (flipy) {
						if (flipx) {
							Render8x8Tile_FlipXY(pTransDraw, code, sx, sy, color, 4, 0, PGMTileROM);
						} else {
							Render8x8Tile_FlipY(pTransDraw, code, sx, sy, color, 4, 0, PGMTileROM);
						}
					} else {
						if (flipx) {
							Render8x8Tile_FlipX(pTransDraw, code, sx, sy, color, 4, 0, PGMTileROM);
						} else {
							Render8x8Tile(pTransDraw, code, sx, sy, color, 4, 0, PGMTileROM);
						}
					}
				} else {
					if (flipy) {
						if (flipx) {
							Render8x8Tile_Mask_FlipXY(pTransDraw, code, sx, sy, color, 4, 15, 0, PGMTileROM);
						} else {
							Render8x8Tile_Mask_FlipY(pTransDraw, code, sx, sy, color, 4, 15, 0, PGMTileROM);
						}
					} else {
						if (flipx) {
							Render8x8Tile_Mask_FlipX(pTransDraw, code, sx, sy, color, 4, 15, 0, PGMTileROM);
						} else {
							Render8x8Tile_Mask(pTransDraw, code, sx, sy, color, 4, 15, 0, PGMTileROM);
						}
					}
				}
			}
		}
	}
}

static void draw_background()
{
	UINT16 *vram = (UINT16*)PGMBgRAM;

	UINT16 *rowscroll = PGMRowRAM;
	INT32 yscroll = (INT16)BURN_ENDIAN_SWAP_INT16(pgm_bg_scrolly);
    INT32 xscroll = (INT16)BURN_ENDIAN_SWAP_INT16(pgm_bg_scrollx);

	// check to see if we need to do line scroll
	INT32 t = 0;
	{
		UINT16 *rs = rowscroll;
		for (INT32 i = 0; i < 224; i++) {
			if (BURN_ENDIAN_SWAP_INT16(rs[0]) != BURN_ENDIAN_SWAP_INT16(rs[i])) {
				t = 1;
				break;
			}
		}
	}

	// no line scroll (fast)
	if (t == 0)
	{
		yscroll &= 0x1ff;
		xscroll &= 0x7ff;

		for (INT32 offs = 0; offs < 64 * 16; offs++)
		{
			INT32 sx = (offs & 0x3f) << 5;
			INT32 sy = (offs >> 6) << 5;

			sx -= xscroll;
			if (sx < -31) sx += 2048;
			sy -= yscroll;
			if (sy < -31) sy += 512;

			if (sx >= nScreenWidth || sy >= nScreenHeight) continue;

			INT32 code = BURN_ENDIAN_SWAP_INT16(vram[offs * 2]);
			if (code >= nTileMask) continue;
			if (tiletrans[code] == 0) continue; // transparent
			INT32 color = ((BURN_ENDIAN_SWAP_INT16(vram[offs*2+1]) & 0x3e) >> 1) | 0x20;
			INT32 flipy = BURN_ENDIAN_SWAP_INT16(vram[offs*2+1]) & 0x80;
			INT32 flipx = BURN_ENDIAN_SWAP_INT16(vram[offs*2+1]) & 0x40;

			if (enable_blending) 
			{
				UINT8 *gfx = PGMTileROMExp + (code * 0x400);
				INT32 flip = (flipx ? 0x1f : 0) | (flipy ? 0x3e0 : 0);
				UINT32 *pal = RamCurPal + color * 0x20;
				UINT32 *dst = pTempDraw32 + (sy * nScreenWidth) + sx;
	
				for (INT32 y = 0; y < 32; y++, dst += nScreenWidth) {
					if ((sy+y) >= 0 && (sy+y)<nScreenHeight) {
						for (INT32 x = 0; x < 32; x++) {
							INT32 pxl = gfx[((y*32)+x)^flip];
	
							if (pxl != 0x1f) {
								if ((sx+x)>=0 && (sx+x)<nScreenWidth) {
									dst[x] = pal[pxl];
								}
							}
						}
					}
				}
			}
			else
			{
				if (sx < 0 || sy < 0 || sx >= nScreenWidth - 32 || sy >= nScreenHeight - 32)
				{
					if (tiletrans[code] & 2) { // opaque
						if (flipy) {
							if (flipx) {
								Render32x32Tile_FlipXY_Clip(pTransDraw, code, sx, sy, color, 5, 0, PGMTileROMExp);
							} else {
								Render32x32Tile_FlipY_Clip(pTransDraw, code, sx, sy, color, 5, 0, PGMTileROMExp);
							}
						} else {
							if (flipx) {
								Render32x32Tile_FlipX_Clip(pTransDraw, code, sx, sy, color, 5, 0, PGMTileROMExp);
							} else {
								Render32x32Tile_Clip(pTransDraw, code, sx, sy, color, 5, 0, PGMTileROMExp);
							}
						}
					} else {
						if (flipy) {
							if (flipx) {
								Render32x32Tile_Mask_FlipXY_Clip(pTransDraw, code, sx, sy, color, 5, 0x1f, 0, PGMTileROMExp);
							} else {
								Render32x32Tile_Mask_FlipY_Clip(pTransDraw, code, sx, sy, color, 5, 0x1f, 0, PGMTileROMExp);
							}
						} else {
							if (flipx) {
								Render32x32Tile_Mask_FlipX_Clip(pTransDraw, code, sx, sy, color, 5, 0x1f, 0, PGMTileROMExp);
							} else {
								Render32x32Tile_Mask_Clip(pTransDraw, code, sx, sy, color, 5, 0x1f, 0, PGMTileROMExp);
							}
						}
					}
				}
				else
				{
					if (tiletrans[code] & 2) { // opaque
						if (flipy) {
							if (flipx) {
								Render32x32Tile_FlipXY(pTransDraw, code, sx, sy, color, 5, 0, PGMTileROMExp);
							} else {
								Render32x32Tile_FlipY(pTransDraw, code, sx, sy, color, 5, 0, PGMTileROMExp);
							}
						} else {
							if (flipx) {
								Render32x32Tile_FlipX(pTransDraw, code, sx, sy, color, 5, 0, PGMTileROMExp);
							} else {
								Render32x32Tile(pTransDraw, code, sx, sy, color, 5, 0, PGMTileROMExp);
							}
						}
					} else {
						if (flipy) {
							if (flipx) {
								Render32x32Tile_Mask_FlipXY(pTransDraw, code, sx, sy, color, 5, 0x1f, 0, PGMTileROMExp);
							} else {
								Render32x32Tile_Mask_FlipY(pTransDraw, code, sx, sy, color, 5, 0x1f, 0, PGMTileROMExp);
							}
						} else {
							if (flipx) {
								Render32x32Tile_Mask_FlipX(pTransDraw, code, sx, sy, color, 5, 0x1f, 0, PGMTileROMExp);
							} else {
								Render32x32Tile_Mask(pTransDraw, code, sx, sy, color, 5, 0x1f, 0, PGMTileROMExp);
							}
						}
					}
				}
			}
		}

		return;
	}

	// do line scroll (slow)
	for (INT32 y = 0; y < 224; y++)
	{
		INT32 scrollx = (xscroll + BURN_ENDIAN_SWAP_INT16(rowscroll[y])) & 0x7ff;
		INT32 scrolly = (yscroll + y) & 0x7ff;

		for (INT32 x = 0; x < 480; x+=32)
		{
			INT32 sx = x - (scrollx & 0x1f);
			if (sx >= nScreenWidth) break;

			INT32 offs = ((scrolly & 0x1e0) << 2) | (((scrollx + x) & 0x7e0) >> 4);

			INT32 code  = BURN_ENDIAN_SWAP_INT16(vram[offs]);
			if (code >= nTileMask) continue;
			if (tiletrans[code] == 0) continue;

			INT32 attr  = BURN_ENDIAN_SWAP_INT16(vram[offs + 1]);
			INT32 color = ((attr & 0x3e) << 4) | 0x400;
			INT32 flipx = ((attr & 0x40) >> 6) * 0x1f;
			INT32 flipy = ((attr & 0x80) >> 7) * 0x1f;

			UINT8 *src = PGMTileROMExp + (code * 1024) + (((scrolly ^ flipy) & 0x1f) << 5);

			if (enable_blending)
			{
				UINT32 *dst = pTempDraw32 + (y * nScreenWidth);
				UINT32 *pal = RamCurPal + color;
	
				if (sx >= 0 && sx <= 415) {
					for (INT32 xx = 0; xx < 32; xx++, sx++) {
						INT32 pxl = src[xx^flipx];
		
						if (pxl != 0x1f) {
							dst[sx] = pal[pxl];
						}
					}
				} else {
					for (INT32 xx = 0; xx < 32; xx++, sx++) {
						if (sx < 0) continue;
						if (sx >= nScreenWidth) break;
		
						INT32 pxl = src[xx^flipx];
		
						if (pxl != 0x1f) {
							dst[sx] = pal[pxl];
						}
					}
				}
			} else {
				UINT16 *dst = pTransDraw + (y * nScreenWidth);

				if (sx >= 0 && sx <= 415) {
					for (INT32 xx = 0; xx < 32; xx++, sx++) {
						INT32 pxl = src[xx^flipx];
		
						if (pxl != 0x1f) {
							dst[sx] = pxl | color;
						}
					}
				} else {
					for (INT32 xx = 0; xx < 32; xx++, sx++) {
						if (sx < 0) continue;
						if (sx >= nScreenWidth) break;
		
						INT32 pxl = src[xx^flipx];
		
						if (pxl != 0x1f) {
							dst[sx] = pxl | color;
						}
					}
				}
			}
		}
	}
}

static void pgmBlendCopy()
{
	pBurnDrvPalette = RamCurPal;

	UINT32 *bmp = pTempDraw32;

	for (INT32 i = 0; i < nScreenWidth * nScreenHeight; i++) {
		PutPix(pBurnDraw + (i * nBurnBpp), BurnHighCol(bmp[i]>>16, (bmp[i]>>8)&0xff, bmp[i]&0xff, 0));
	}
}

INT32 pgmDraw()
{
	if (enable_blending) nPgmPalRecalc = 1; // force recalc.

	if (nPgmPalRecalc) {
		for (INT32 i = 0; i < 0x1200 / 2; i++) {
			RamCurPal[i] = CalcCol(BURN_ENDIAN_SWAP_INT16(PGMPalRAM[i]));
		}
		nPgmPalRecalc = 0;
	}

	{
		// black / magenta
		RamCurPal[0x2000/2] = (nBurnLayer & 1) ? RamCurPal[0x3ff] : BurnHighCol(0xff, 0, 0xff, 0);
		RamCurPal[0x2002/2] = BurnHighCol(0xff,0x00,0xff,0);
	}

	// Fill in background color (0x2000/2)
	// also, clear buffers
	{

		for (INT32 i = 0; i < nScreenWidth * nScreenHeight; i++) {
			pTempDraw32[i] = RamCurPal[0x1000];
			pTransDraw[i] = 0x1000;
			pTempScreen[i] = 0;
			SpritePrio[i] = 0xff;
		}
	}

	pgm_drawsprites();

	if (nSpriteEnable & 1) copy_sprite_priority(1);

#ifdef DRAW_SPRITE_NUMBER
	pgm_drawsprites_fonts(1);
#endif

	if ((pgm_video_control & 0x1000) == 0 && (nBurnLayer & 1)) draw_background();

	if ((pgm_video_control & 0x2000) == 0 && (nSpriteEnable & 2)) copy_sprite_priority(0);

#ifdef DRAW_SPRITE_NUMBER
	pgm_drawsprites_fonts(0);
#endif

	if ((pgm_video_control & 0x0800) == 0 && (nBurnLayer & 2)) draw_text();

	if (enable_blending) {
		pgmBlendCopy();
	} else {
		BurnTransferCopy(RamCurPal);
	}

	return 0;
}

static void pgmBlendInit()
{
	enable_blending = 0;

	TCHAR filename[MAX_PATH];

	_stprintf(filename, _T("%s%s.bld"), szAppBlendPath, BurnDrvGetText(DRV_NAME));
	
	FILE *fa = _tfopen(filename, _T("rt"));

	if (fa == NULL) {
		bprintf (0, _T("can't find: %s\n"), filename);
		_stprintf(filename, _T("%s%s.bld"), szAppBlendPath, BurnDrvGetText(DRV_PARENT));

		fa = _tfopen(filename, _T("rt"));

		if (fa == NULL) {
			bprintf (0, _T("can't find: %s\n"), filename);
			return;
		}
	}

	if (pSpriteBlendTable == NULL) {
		pSpriteBlendTable = (UINT8*)BurnMalloc(0x800000);
		if (pSpriteBlendTable == NULL) {
		bprintf (0, _T("can't allocate blend table\n"));
			return;
		}
	}

	bprintf (PRINT_IMPORTANT, _T("Using sprite blending (.bld) table!\n"));

	char szLine[64];

	while (1)
	{
		if (fgets (szLine, 64, fa) == NULL) break;

		if (strncmp ("Game", szLine, 4) == 0) continue; 	// don't care
		if (strncmp ("Name", szLine, 4) == 0) continue; 	// don't care
		if (szLine[0] == ';') continue;				// comment (also don't care)

		INT32 single_entry = -1;
		UINT32 type,min,max,k;

		for (k = 0; k < strlen(szLine); k++) {
			if (szLine[k] == '-') { single_entry = k+1; break; }
		}

		if (single_entry < 0) {
			sscanf(szLine,"%x %x",&max,&type);
			min = max;
		} else {
			sscanf(szLine,"%x",&min);
			sscanf(szLine+single_entry,"%x %x",&max,&type);
		}

		for (k = min; k <= max && k < 0x800000; k++) {
			pSpriteBlendTable[k] = type&0xf;
		}
	}

	fclose (fa);

	enable_blending = 1;
}

void pgmInitDraw() // preprocess some things...
{
	GenericTilesInit();

	pTempDraw32 = (UINT32*)BurnMalloc(0x448 * 0x224 * 4);
	pTempDraw = (UINT16*)BurnMalloc(0x400 * 0x200 * sizeof(INT16));
	SpritePrio = (UINT8*)BurnMalloc(nScreenWidth * nScreenHeight);
	pTempScreen = (UINT16*)BurnMalloc(nScreenWidth * nScreenHeight * sizeof(INT16));

	if (bBurnUseBlend) pgmBlendInit();

	// Find transparent tiles so we can skip them
	{
		nTileMask = ((nPGMTileROMLen / 5) * 8) / 0x400; // also used to set max. tile

		// background tiles
		tiletrans = (UINT8*)BurnMalloc(nTileMask);
		memset (tiletrans, 0, nTileMask);
	
		for (INT32 i = 0; i < nTileMask << 10; i += 0x400)
		{
			INT32 k = 0x1f;
			for (INT32 j = 0; j < 0x400; j++)
			{
				if (PGMTileROMExp[i+j] != 0x1f) {
					tiletrans[i/0x400] = 1;
				}
				k &= (PGMTileROMExp[i+j] ^ 0x1f);
			}
			if (k) tiletrans[i/0x400] |= 2;
		}

		// character tiles
		texttrans = (UINT8*)BurnMalloc(0x10000);
		memset (texttrans, 0, 0x10000);

		for (INT32 i = 0; i < 0x400000; i += 0x40)
		{
			INT32 k = 0xf;
			for (INT32 j = 0; j < 0x40; j++)
			{
				if (PGMTileROM[i+j] != 0xf) {
					texttrans[i/0x40] = 1;
				}
				k &= (PGMTileROM[i+j] ^ 0xf);
			}
			if (k) texttrans[i/0x40] |= 2;
		}
	}

	// set up table to count bits in sprite mask data
	// gives a good speedup in sprite drawing. ^^
	{
		memset (sprmsktab, 0, 0x100);
		for (INT32 i = 0; i < 0x100; i++) {
			for (INT32 j = 0; j < 8; j++) {
				if (i & (1 << j)) {
					sprmsktab[i]++;
				}
			}
		}
	}
}

void pgmExitDraw()
{
	nTileMask = 0;

	BurnFree (pTempDraw32);
	BurnFree (pTempDraw);
	BurnFree (tiletrans);
	BurnFree (texttrans);
	BurnFree (pTempScreen);
	BurnFree (SpritePrio);

	if (pSpriteBlendTable) {
		BurnFree(pSpriteBlendTable);
	}

	enable_blending = 0;

	GenericTilesExit();
}
