/*
    SDL - Simple DirectMedia Layer
    Copyright (C) 1997-2006 Sam Lantinga

    This library is free software; you can redistribute it and/or
    modify it under the terms of the GNU Lesser General Public
    License as published by the Free Software Foundation; either
    version 2.1 of the License, or (at your option) any later version.

    This library is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
    Lesser General Public License for more details.

    You should have received a copy of the GNU Lesser General Public
    License along with this library; if not, write to the Free Software
    Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA

    Sam Lantinga
    slouken@libsdl.org
*/
#include "SDL_config.h"

#include "SDL_endian.h"
#include "SDL_video.h"
#include "../SDL_sysvideo.h"
#include "../SDL_blit.h"
#include "SDL_cgxvideo.h"

static int CGX_HWAccelBlit (SDL_Surface * src, SDL_Rect * srcrect,
                            SDL_Surface * dst, SDL_Rect * dstrect);

// These are needed to avoid register troubles with gcc -O2!

#if defined(__SASC) || defined(__PPC__) || defined(MORPHOS)
#define BMKBRP(a,b,c,d,e,f,g,h,i,j) BltMaskBitMapRastPort(a,b,c,d,e,f,g,h,i,j)
#define	BBRP(a,b,c,d,e,f,g,h,i) BltBitMapRastPort(a,b,c,d,e,f,g,h,i)
#define BBB(a,b,c,d,e,f,g,h,i,j,k) BltBitMap(a,b,c,d,e,f,g,h,i,j,k)
#else
void
BMKBRP (struct BitMap *a, WORD b, WORD c, struct RastPort *d, WORD e, WORD f,
        WORD g, WORD h, UBYTE i, APTR j)
{
    BltMaskBitMapRastPort (a, b, c, d, e, f, g, h, i, j);
}

void
BBRP (struct BitMap *a, WORD b, WORD c, struct RastPort *d, WORD e, WORD f,
      WORD g, WORD h, UBYTE i)
{
    BltBitMapRastPort (a, b, c, d, e, f, g, h, i);
}

void
BBB (struct BitMap *a, WORD b, WORD c, struct BitMap *d, WORD e, WORD f,
     WORD g, WORD h, UBYTE i, UBYTE j, UWORD * k)
{
    BltBitMap (a, b, c, d, e, f, g, h, i, j, k);
}
#endif

int
CGX_SetHWColorKey (_THIS, SDL_Surface * surface, Uint32 key)
{
    if (surface->hwdata) {
        if (surface->hwdata->mask)
            SDL_free (surface->hwdata->mask);

        if (surface->hwdata->mask =
            SDL_malloc (RASSIZE (surface->w, surface->h))) {
            Uint32 pitch, ok = 0;
            APTR lock;

            SDL_memset (surface->hwdata->mask, 255,
                        RASSIZE (surface->w, surface->h));

            D (bug
               ("Building colorkey mask: color: %ld, size: %ld x %ld, %ld bytes...Bpp:%ld\n",
                key, surface->w, surface->h, RASSIZE (surface->w,
                                                      surface->h),
                surface->format->BytesPerPixel));

            if (lock =
                LockBitMapTags (surface->hwdata->bmap, LBMI_BASEADDRESS,
                                (ULONG) & surface->pixels,
                                LBMI_BYTESPERROW, (ULONG) & pitch,
                                TAG_DONE)) {
                switch (surface->format->BytesPerPixel) {
                case 1:
                    {
                        unsigned char k = key;
                        register int i, j, t;
                        register unsigned char *dest =
                            surface->hwdata->mask, *map = surface->pixels;

                        pitch -= surface->w;

                        for (i = 0; i < surface->h; i++) {
                            for (t = 128, j = 0; j < surface->w; j++) {
                                if (*map == k)
                                    *dest &= ~t;

                                t >>= 1;

                                if (t == 0) {
                                    dest++;
                                    t = 128;
                                }
                                map++;
                            }
                            map += pitch;
                        }
                    }
                    break;
                case 2:
                    {
                        Uint16 k = key, *mapw;
                        register int i, j, t;
                        register unsigned char *dest =
                            surface->hwdata->mask, *map = surface->pixels;

                        for (i = surface->h; i; --i) {
                            mapw = (Uint16 *) map;

                            for (t = 128, j = surface->w; j; --j) {
                                if (*mapw == k)
                                    *dest &= ~t;

                                t >>= 1;

                                if (t == 0) {
                                    dest++;
                                    t = 128;
                                }
                                mapw++;
                            }
                            map += pitch;
                        }
                    }
                    break;
                case 4:
                    {
                        Uint32 *mapl;
                        register int i, j, t;
                        register unsigned char *dest =
                            surface->hwdata->mask, *map = surface->pixels;

                        for (i = surface->h; i; --i) {
                            mapl = (Uint32 *) map;

                            for (t = 128, j = surface->w; j; --j) {
                                if (*mapl == key)
                                    *dest &= ~t;

                                t >>= 1;

                                if (t == 0) {
                                    dest++;
                                    t = 128;
                                }
                                mapl++;
                            }
                            map += pitch;
                        }

                    }
                    break;
                default:
                    D (bug ("Pixel mode non supported for color key..."));
                    SDL_free (surface->hwdata->mask);
                    surface->hwdata->mask = NULL;
                    ok = -1;
                }
                UnLockBitMap (lock);
                D (bug ("...Colorkey built!\n"));
                return ok;
            }
        }
    }
    D (bug ("HW colorkey not supported for this depth\n"));

    return -1;
}

int
CGX_CheckHWBlit (_THIS, SDL_Surface * src, SDL_Surface * dst)
{
// Doesn't support yet alpha blitting

    if (src->hwdata && !(src->flags & (SDL_SRCALPHA))) {
        D (bug ("CheckHW blit... OK!\n"));

        if ((src->flags & SDL_SRCCOLORKEY) == SDL_SRCCOLORKEY) {
            if (CGX_SetHWColorKey (this, src, src->format->colorkey) < 0) {
                src->flags &= ~SDL_HWACCEL;
                return -1;
            }
        }

        src->flags |= SDL_HWACCEL;
        src->map->hw_blit = CGX_HWAccelBlit;
        return 1;
    } else
        src->flags &= ~SDL_HWACCEL;

    D (bug ("CheckHW blit... NO!\n"));

    return 0;
}

static int temprp_init = 0;
static struct RastPort temprp;

static int
CGX_HWAccelBlit (SDL_Surface * src, SDL_Rect * srcrect,
                 SDL_Surface * dst, SDL_Rect * dstrect)
{
    struct SDL_VideoDevice *this = src->hwdata->videodata;

//      D(bug("Accel blit!\n"));

    if (src->flags & SDL_SRCCOLORKEY && src->hwdata->mask) {
        if (dst == SDL_VideoSurface) {
            BMKBRP (src->hwdata->bmap, srcrect->x, srcrect->y,
                    SDL_RastPort, dstrect->x + SDL_Window->BorderLeft,
                    dstrect->y + SDL_Window->BorderTop, srcrect->w,
                    srcrect->h, 0xc0, src->hwdata->mask);
        } else if (dst->hwdata) {
            if (!temprp_init) {
                InitRastPort (&temprp);
                temprp_init = 1;
            }
            temprp.BitMap = (struct BitMap *) dst->hwdata->bmap;

            BMKBRP (src->hwdata->bmap, srcrect->x, srcrect->y,
                    &temprp, dstrect->x, dstrect->y,
                    srcrect->w, srcrect->h, 0xc0, src->hwdata->mask);

        }
    } else if (dst == SDL_VideoSurface) {
        BBRP (src->hwdata->bmap, srcrect->x, srcrect->y, SDL_RastPort,
              dstrect->x + SDL_Window->BorderLeft,
              dstrect->y + SDL_Window->BorderTop, srcrect->w, srcrect->h,
              0xc0);
    } else if (dst->hwdata)
        BBB (src->hwdata->bmap, srcrect->x, srcrect->y, dst->hwdata->bmap,
             dstrect->x, dstrect->y, srcrect->w, srcrect->h, 0xc0, 0xff,
             NULL);

    return 0;
}

int
CGX_FillHWRect (_THIS, SDL_Surface * dst, SDL_Rect * dstrect, Uint32 color)
{
    if (dst == SDL_VideoSurface) {
        FillPixelArray (SDL_RastPort, dstrect->x + SDL_Window->BorderLeft,
                        dstrect->y + SDL_Window->BorderTop, dstrect->w,
                        dstrect->h, color);
    } else if (dst->hwdata) {
        if (!temprp_init) {
            InitRastPort (&temprp);
            temprp_init = 1;
        }

        temprp.BitMap = (struct BitMap *) dst->hwdata->bmap;

        FillPixelArray (&temprp, dstrect->x, dstrect->y, dstrect->w,
                        dstrect->h, color);
    }
    return 0;
}

/* vi: set ts=4 sw=4 expandtab: */