/*
	Haiku S3 Virge driver adapted from the X.org Virge driver.

	Copyright (C) 1994-1999 The XFree86 Project, Inc.	All Rights Reserved.

	Copyright 2007 Haiku, Inc.  All rights reserved.
	Distributed under the terms of the MIT license.

	Authors:
	Gerald Zajac 2007
*/


#include "accel.h"
#include "virge.h"



static inline void WaitForSync()
{
	while ((IN_SUBSYS_STAT() & 0x2000) == 0) ;
}



void 
Virge_FillRectangle(engine_token* et, uint32 color, fill_rect_params* pList, uint32 count)
{
	int rop = 0xF0;
	int cmd = DRAW | rop << 17 | CMD_RECT | CMD_XP | CMD_YP ;

	(void)et;		// avoid compiler warning for unused arg

	cmd |= gInfo.sharedInfo->commonCmd;

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

		gInfo.WaitQueue(4);
		WriteReg32(PAT_FG_CLR, color);
		WriteReg32(RWIDTH_HEIGHT, ((w - 1) << 16) | h);
		WriteReg32(RDEST_XY, (x << 16) | y);
		WriteReg32(CMD_SET, cmd);
		WaitForSync();

		pList++;
	}
}


void 
Virge_FillSpan(engine_token* et, uint32 color, uint16* pList, uint32 count)
{
	int rop = 0xF0;
	int cmd = DRAW | rop << 17 | CMD_RECT | CMD_XP | CMD_YP ;

	(void)et;		// avoid compiler warning for unused arg

	cmd |= gInfo.sharedInfo->commonCmd;

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

		// The MediaPlayer in Zeta 1.21 displays a window which has 2 zero width
		// spans which the Virge chips display as a line completely across the
		// screen;  thus, the following if statement discards any span with zero
		// or negative width.

		if (w <= 0)
			continue;

		// Draw the span as a rectangle with a height of 1 to avoid the
		// extra complexity of drawing a line.

		gInfo.WaitQueue(4);
		WriteReg32(PAT_FG_CLR, color);
		WriteReg32(RWIDTH_HEIGHT, ((w - 1) << 16) | 1);
		WriteReg32(RDEST_XY, (x << 16) | y);
		WriteReg32(CMD_SET, cmd);
		WaitForSync();
	}
}


void 
Virge_InvertRectangle(engine_token* et, fill_rect_params* pList, uint32 count)
{
	int rop = 0x55;			// use GXinvert for rop
	int cmd = DRAW | rop << 17 | CMD_RECT | CMD_XP | CMD_YP;

	(void)et;		// avoid compiler warning for unused arg

	cmd |= gInfo.sharedInfo->commonCmd;

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

		gInfo.WaitQueue(3);
		WriteReg32(RWIDTH_HEIGHT, ((w - 1) << 16) + h);
		WriteReg32(RDEST_XY, (x << 16) | y);
		WriteReg32(CMD_SET, cmd);
		WaitForSync();

		pList++;
	}
}


void 
Virge_ScreenToScreenBlit(engine_token* et, blit_params* pList, uint32 count)
{
	int rop = 0xCC;		// use GXcopy for rop
	int cmd = DRAW | rop << 17 | CMD_BITBLT | CMD_XP | CMD_YP;

	(void)et;		// avoid compiler warning for unused arg

	cmd |= gInfo.sharedInfo->commonCmd;

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

		if (src_x == dest_x &&  src_y == dest_y)
			continue;

		cmd |= CMD_XP | CMD_YP;		// restore these flags in case removed on last iteration

		if (src_x < dest_x) {
			src_x += width;
			dest_x += width;
			cmd &= ~CMD_XP;
		}

		if (src_y < dest_y) {
			src_y += height;
			dest_y += height;
			cmd &= ~CMD_YP;
		}

		gInfo.WaitQueue(4);
		WriteReg32(RWIDTH_HEIGHT, ((width) << 16) | (height + 1));
		WriteReg32(RSRC_XY, (src_x << 16) | src_y);
		WriteReg32(RDEST_XY, (dest_x << 16) | dest_y);
		WriteReg32(CMD_SET, cmd);
		WaitForSync();

		pList ++;
	}
}