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

        Copyright (C) 1994-2000 The XFree86 Project, Inc.  All Rights Reserved.
        Copyright (c) 2003-2006, X.Org Foundation

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

        Authors:
        Gerald Zajac 2006-2008
*/


#include "accel.h"
#include "savage.h"



void 
Savage_FillRectangle(engine_token *et, uint32 color, fill_rect_params *pList, uint32 count)
{
        int cmd = BCI_CMD_RECT | BCI_CMD_RECT_XP | BCI_CMD_RECT_YP
                        | BCI_CMD_DEST_PBD_NEW | BCI_CMD_SRC_SOLID | BCI_CMD_SEND_COLOR;

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

        BCI_CMD_SET_ROP(cmd, 0xF0);             // use GXcopy for rop

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

                BCI_GET_PTR;

                gInfo.WaitQueue(7);

                BCI_SEND(cmd);
                BCI_SEND(gInfo.sharedInfo->frameBufferOffset);
                BCI_SEND(gInfo.sharedInfo->globalBitmapDesc);

                BCI_SEND(color);
                BCI_SEND(BCI_X_Y(x, y));
                BCI_SEND(BCI_W_H(w, h));

                pList++;
        }
}


void 
Savage_FillSpan(engine_token *et, uint32 color, uint16 *pList, uint32 count)
{
        int cmd = BCI_CMD_RECT | BCI_CMD_RECT_XP | BCI_CMD_RECT_YP
                        | BCI_CMD_DEST_PBD_NEW | BCI_CMD_SRC_SOLID | BCI_CMD_SEND_COLOR;

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

        BCI_CMD_SET_ROP(cmd, 0xF0);             // use GXcopy for rop

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

                BCI_GET_PTR;

                // The MediaPlayer in Zeta 1.21 displays a window which has 2 zero width
                // spans which the Savage 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;

                gInfo.WaitQueue(7);

                BCI_SEND(cmd);
                BCI_SEND(gInfo.sharedInfo->frameBufferOffset);
                BCI_SEND(gInfo.sharedInfo->globalBitmapDesc);

                BCI_SEND(color);
                BCI_SEND(BCI_X_Y(x, y));
                BCI_SEND(BCI_W_H(w, 1));
        }
}


void 
Savage_InvertRectangle(engine_token *et, fill_rect_params *pList, uint32 count)
{
        int cmd = BCI_CMD_RECT | BCI_CMD_RECT_XP | BCI_CMD_RECT_YP
                        | BCI_CMD_DEST_PBD_NEW;

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

        BCI_CMD_SET_ROP(cmd, 0x55);             // use GXinvert for rop

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

                BCI_GET_PTR;

                gInfo.WaitQueue(7);

                BCI_SEND(cmd);
                BCI_SEND(gInfo.sharedInfo->frameBufferOffset);
                BCI_SEND(gInfo.sharedInfo->globalBitmapDesc);

                BCI_SEND(BCI_X_Y(x, y));
                BCI_SEND(BCI_W_H(w, h));

                pList++;
        }
}


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

        while (count--) {
                int cmd;
                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;

                BCI_GET_PTR;

                cmd = BCI_CMD_RECT | BCI_CMD_DEST_PBD_NEW | BCI_CMD_SRC_SBD_COLOR_NEW;
                BCI_CMD_SET_ROP(cmd, 0xCC);             // use GXcopy for rop

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

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

                gInfo.WaitQueue(9);

                BCI_SEND(cmd);

                BCI_SEND(gInfo.sharedInfo->frameBufferOffset);
                BCI_SEND(gInfo.sharedInfo->globalBitmapDesc);

                BCI_SEND(gInfo.sharedInfo->frameBufferOffset);
                BCI_SEND(gInfo.sharedInfo->globalBitmapDesc);

                BCI_SEND(BCI_X_Y(src_x, src_y));
                BCI_SEND(BCI_X_Y(dest_x, dest_y));
                BCI_SEND(BCI_W_H(width + 1, height + 1));

                pList++;
        }
}