/*
	Copyright 2010 Haiku, Inc.  All rights reserved.
	Distributed under the terms of the MIT license.

	Authors:
	Gerald Zajac
*/


#include "accelerant.h"
#include "3dfx.h"


// Constants for the DST_FORMAT register based upon the color depth.

static const uint32 fmtColorDepth[] = {
	0x10000,		// 1 byte/pixel
	0x30000,		// 2 bytes/pixel
	0x50000,		// 3 bytes/pixel (not used)
	0x50000			// 4 bytes/pixel
};


void
TDFX_FillRectangle(engine_token* et, uint32 color, fill_rect_params* list, 
	uint32 count)
{
	(void)et;		// avoid compiler warning for unused arg

	DisplayModeEx& mode = gInfo.sharedInfo->displayMode;
	uint32 fmt = mode.bytesPerRow | fmtColorDepth[mode.bytesPerPixel - 1];

	TDFX_WaitForFifo(3);
	OUTREG32(DST_FORMAT, fmt);
	OUTREG32(COLOR_BACK, color);
	OUTREG32(COLOR_FORE, color);

	while (count--) {
		int x = list->left;
		int y = list->top;
		int w = list->right - x + 1;
		int h = list->bottom - y + 1;

		TDFX_WaitForFifo(3);
		OUTREG32(DST_SIZE, w | (h << 16));
		OUTREG32(DST_XY,   x | (y << 16));
		OUTREG32(CMD_2D, RECTANGLE_FILL | CMD_2D_GO | (ROP_COPY << 24));

		list++;
	}
}


void
TDFX_FillSpan(engine_token* et, uint32 color, uint16* list, uint32 count)
{
	(void)et;		// avoid compiler warning for unused arg

	DisplayModeEx& mode = gInfo.sharedInfo->displayMode;
	uint32 fmt = mode.bytesPerRow | fmtColorDepth[mode.bytesPerPixel - 1];

	TDFX_WaitForFifo(3);
	OUTREG32(DST_FORMAT, fmt);
	OUTREG32(COLOR_BACK, color);
	OUTREG32(COLOR_FORE, color);

	while (count--) {
		int y = *list++;
		int x = *list++;
		int w = *list++ - x + 1;

		if (w <= 0)
			continue;	// discard span with zero or negative width

		TDFX_WaitForFifo(3);
		OUTREG32(DST_SIZE, w | (1 << 16));
		OUTREG32(DST_XY,   x | (y << 16));
		OUTREG32(CMD_2D, RECTANGLE_FILL | CMD_2D_GO | (ROP_COPY << 24));
	}
}


void
TDFX_InvertRectangle(engine_token* et, fill_rect_params* list, uint32 count)
{
	(void)et;		// avoid compiler warning for unused arg

	DisplayModeEx& mode = gInfo.sharedInfo->displayMode;
	uint32 fmt = mode.bytesPerRow | fmtColorDepth[mode.bytesPerPixel - 1];

	TDFX_WaitForFifo(1);
	OUTREG32(DST_FORMAT, fmt);

	while (count--) {
		int x = list->left;
		int y = list->top;
		int w = list->right - x + 1;
		int h = list->bottom - y + 1;

		TDFX_WaitForFifo(3);
		OUTREG32(DST_SIZE, w | (h << 16));
		OUTREG32(DST_XY,   x | (y << 16));
		OUTREG32(CMD_2D, RECTANGLE_FILL | CMD_2D_GO | (ROP_INVERT << 24));

		list++;
	}
}


void
TDFX_ScreenToScreenBlit(engine_token* et, blit_params* list, uint32 count)
{
	(void)et;		// avoid compiler warning for unused arg

	DisplayModeEx& mode = gInfo.sharedInfo->displayMode;
	uint32 fmt = mode.bytesPerRow | fmtColorDepth[mode.bytesPerPixel - 1];

	TDFX_WaitForFifo(2);
	OUTREG32(DST_FORMAT, fmt);
	OUTREG32(SRC_FORMAT, fmt);

	while (count--) {
		int src_x = list->src_left;
		int src_y = list->src_top;
		int dest_x = list->dest_left;
		int dest_y = list->dest_top;
		int width = list->width;
		int height = list->height;

		uint32 cmd = SCRN_TO_SCRN_BLIT | CMD_2D_GO | (ROP_COPY << 24);

		if (src_x <= dest_x) {
			cmd |= X_RIGHT_TO_LEFT;
			src_x += width;
			dest_x += width;
		}

		if (src_y <= dest_y) {
			cmd |= Y_BOTTOM_TO_TOP;
			src_y += height;
			dest_y += height;
		}

		TDFX_WaitForFifo(4);
		OUTREG32(SRC_XY, src_x | (src_y << 16));
		OUTREG32(DST_SIZE, (width + 1) | ((height + 1) << 16));
		OUTREG32(DST_XY, dest_x | (dest_y << 16));
		OUTREG32(CMD_2D, cmd);

		list++;
	}
}