// At this point the following methods should be defined:

// METHODNAME: The name of the drawing method
// METHODNAME_FLIPT: The name of the flipped drawing method
// PIXEL_PTR: type of pointer to the target surface pixels
// PUT_PIXEL(p,c): Draw pixel of color c to pixel ptr type p
// PITCH: This added to PIXEL_PTR type will result in the next scanline


void METHODNAME_FLIP( RLE_SPRITE* src, int dx, int dy )
{
#define RLE_PTR					signed char*
#define RLE_IS_EOL(c)			((c) == 0)
//#define PIXEL_PTR				unsigned char*
#define OFFSET_PIXEL_PTR(p,x)	((PIXEL_PTR) (p) + (x))
#define INC_PIXEL_PTR(p)		((p)++)
#define DEC_PIXEL_PTR(p)		((p)--)
//#define PUT_PIXEL(p,c)			(*((unsigned char *)(p)) = (c))

	int x, y, w, h;		// width and height of visible area
	int dxbeg, dybeg;	// beginning in destination
	int sxbeg, sybeg;	// beginning in source
	RLE_PTR s;

	SDL_Surface* dst = gamescreen;
	// Clip to dst->clip_rect
	int dst_cl = dst->clip_rect.x;
	int dst_cr = dst->clip_rect.w + dst_cl - 1;
	int dst_ct = dst->clip_rect.y;
	int dst_cb = dst->clip_rect.h + dst_ct;

//	if (dst->clip)
	if (1)
	{
		int tmp;

		dxbeg = dx;
		if ( dst_cl > dx ) dxbeg = dst_cl;

		tmp = dx + src->w - dst_cr;
		sxbeg = ((tmp < 0) ? 0 : tmp);

		tmp = dx + src->w;
		if (tmp > dst_cr ) tmp = dst_cr;
		w = tmp - dxbeg;
		if (w <= 0)
			return;
	
		tmp = dst_ct - dy;
		sybeg = ((tmp < 0) ? 0 : tmp);
		dybeg = sybeg + dy;

		tmp = dst_cb - dy;
		h = ((tmp > src->h) ? src->h : tmp) - sybeg;
		if (h <= 0)
			return;
	}
	else {
		w = src->w;
		h = src->h;
		sxbeg = 0;
		sybeg = 0;
		dxbeg = dx;
		dybeg = dy;
	}

	s = (RLE_PTR) (src->dat);
	dxbeg += w;

	// Clip top.
	for (y = sybeg - 1; y >= 0; y--) 
	{
		long c = *s++;

		while (!RLE_IS_EOL(c)) 
		{
			if (c > 0)
				s += c;
			c = *s++;
		}
	}

	//@@@ bmp_select(dst);

	/* Visible part.  */
	for (y = 0; y < h; y++) 
	{
		//@@@ PIXEL_PTR d = OFFSET_PIXEL_PTR(bmp_write_line(dst, dybeg + y), dxbeg);
		PIXEL_PTR d = (PIXEL_PTR) dst->pixels;
		d += (dybeg+y)*PITCH;
		d = OFFSET_PIXEL_PTR( d, dxbeg );
		long c = *s++;

		// Clip left.
		for (x = sxbeg; x > 0; ) 
		{
			if (RLE_IS_EOL(c))
				goto next_line;
			else if (c > 0) 
			{
				// Run of solid pixels.
				if ((x - c) >= 0) 
				{
					// Fully clipped.
					x -= c;
					s += c;
				}
				else 
				{
					// Visible on the right.
					c -= x;
					s += x;
					break;
				}
			}
			else 
			{
				// Run of transparent pixels.
				if ((x + c) >= 0) {
					// Fully clipped.
					x += c;
				}
				else {
					// Visible on the right.
					c += x;
					break;
				}
			}

			c = *s++;
		}

		/* Visible part.  */
		for (x = w; x > 0; ) 
		{
			if (RLE_IS_EOL(c))
				goto next_line;
			else if (c > 0) 
			{
				/* Run of solid pixels.  */
				if ((x - c) >= 0) 
				{
					/* Fully visible.  */
					x -= c;
					for (c--; c >= 0; s++, DEC_PIXEL_PTR(d), c--) 
					{
						unsigned long col = *s;
						PUT_PIXEL(d, col);
					}
				}
				else 
				{
					/* Clipped on the right.  */
					c -= x;
					for (x--; x >= 0; s++, DEC_PIXEL_PTR(d), x--) 
					{
						unsigned long col = *s;
						PUT_PIXEL(d, col);
					}
					break;
				}
			}
			else 
			{
				/* Run of transparent pixels.  */
				x += c;
				d = OFFSET_PIXEL_PTR(d, c);
			}

			c = *s++;
		}

		/* Clip right.  */
		while (!RLE_IS_EOL(c)) 
		{
			if (c > 0)
				s += c;
			c = *s++;
		}

		next_line: ;
	}

   //@@@bmp_unwrite_line(dst);
}

void METHODNAME( RLE_SPRITE* src, int dx, int dy )
{
#define RLE_PTR					signed char*
#define RLE_IS_EOL(c)			((c) == 0)
//#define PIXEL_PTR				unsigned char*
#define OFFSET_PIXEL_PTR(p,x)	((PIXEL_PTR) (p) + (x))
#define INC_PIXEL_PTR(p)		((p)++)
#define DEC_PIXEL_PTR(p)		((p)--)
//#define PUT_PIXEL(p,c)			(*((unsigned char *)(p)) = (c))
//#define PUT_PIXEL(p,c)         bmp_write8((unsigned long) (p), (c))

	int x, y, w, h;		// width and height of visible area
	int dxbeg, dybeg;	// beginning in destination
	int sxbeg, sybeg;	// beginning in source
	RLE_PTR s;

	SDL_Surface* dst = gamescreen;
	// Clip to dst->clip_rect
	int dst_cl = dst->clip_rect.x;
	int dst_cr = dst->clip_rect.w + dst_cl;
	int dst_ct = dst->clip_rect.y;
	int dst_cb = dst->clip_rect.h + dst_ct;

// if (dst->clip)
	if (1)
	{
		int tmp;

		tmp = dst_cl - dx;
		sxbeg = ((tmp < 0) ? 0 : tmp);
		dxbeg = sxbeg + dx;

		tmp = dst_cr - dx;
		w = ((tmp > src->w) ? src->w : tmp) - sxbeg;
		if ( w<=0 ) return;

		tmp = dst_ct - dy;
		sybeg = ((tmp < 0) ? 0 : tmp);
		dybeg = sybeg + dy;

		tmp = dst_cb - dy;
		h = ((tmp > src->h) ? src->h : tmp) - sybeg;
		if ( h<=0 ) return;
	}
	else 
	{
		w = src->w;
		h = src->h;
		sxbeg = 0;
		sybeg = 0;
		dxbeg = dx;
		dybeg = dy;
	}

	s = (RLE_PTR) (src->dat);

	/* Clip top.  */
	for (y = sybeg - 1; y >= 0; y--) 
	{
		long c = *s++;

		while (!RLE_IS_EOL(c)) 
		{
			if (c > 0)
				s += c;
			c = *s++;
		}
	}

	//@@@ bmp_select(dst);

	/* Visible part.  */
	for (y = 0; y < h; y++) 
	{
		//@@@ PIXEL_PTR d = OFFSET_PIXEL_PTR(bmp_write_line(dst, dybeg + y), dxbeg);
		PIXEL_PTR d = (PIXEL_PTR) dst->pixels;
		d += (dybeg+y)*PITCH;
		d = OFFSET_PIXEL_PTR( d, dxbeg );
		long c = *s++;

		/* Clip left.  */
		for (x = sxbeg; x > 0; ) {
			if (RLE_IS_EOL(c))
				goto next_line;
			else if (c > 0) {
				/* Run of solid pixels.  */
				if ((x - c) >= 0) {
					/* Fully clipped.  */
					x -= c;
					s += c;
				}
				else {
					/* Visible on the right.  */
					c -= x;
					s += x;
					break;
				}
			}
			else {
				/* Run of transparent pixels.  */
				if ((x + c) >= 0) {
					/* Fully clipped.  */
					x += c;
				}
				else {
					/* Visible on the right.  */
					c += x;
					break;
				}
			}

			c = *s++;
		}

		/* Visible part.  */
		for (x = w; x > 0; ) {
			if (RLE_IS_EOL(c))
				goto next_line;
			else if (c > 0) {
				/* Run of solid pixels.  */
				if ((x - c) >= 0) {
					/* Fully visible.  */
					x -= c;
					for (c--; c >= 0; s++, INC_PIXEL_PTR(d), c--) {
						unsigned long col = (unsigned char) (*s);
						PUT_PIXEL(d, col);
					}
				}
				else {
					/* Clipped on the right.  */
					c -= x;
					for (x--; x >= 0; s++, INC_PIXEL_PTR(d), x--) {
						unsigned long col = *s;
						PUT_PIXEL(d, col);
					}
					break;
				}
			}
			else {
				/* Run of transparent pixels.  */
				x += c;
				d = OFFSET_PIXEL_PTR(d, -c);
			}

			c = *s++;
		}

		/* Clip right.  */
		while (!RLE_IS_EOL(c)) {
			if (c > 0)
				s += c;
			c = *s++;
		}

next_line: ;
	}

   //@@@bmp_unwrite_line(dst);
}