/***************************************************************************

	VPinMAME - Visual Pinball Multiple Arcade Machine Emulator

	This file is based on the code of Michael Soderstrom and Chris Kirmse
    
    This file is part of MAME32, and may only be used, modified and
    distributed under the terms of the MAME license, in "readme.txt".
    By continuing to use, modify or distribute this file you indicate
    that you have read the license and understand and accept it fully.

 ***************************************************************************/
 
/***************************************************************************

  Dirty.c

  Win32 dirty buffer code

 ***************************************************************************/

#include <stdio.h>
#include <malloc.h>
#include <string.h>
#include "dirty.h"

#ifndef min
#define min(a,b) ((a) < (b) ? (a) : (b))
#endif

/***************************************************************************
    function prototypes
 ***************************************************************************/

/***************************************************************************
    External variables
 ***************************************************************************/

/*
    need two dirty buffers, one for current frame and one for previous frame,
    and redraw if either one is set

    format of the dirty buffer is
        <row><row>...<row> (dirty_height times)
        each <row> is dirty_width dwords long, with each bit meaning 1 pixel
        is dirty
*/
   
int *dirty_buffer; 
int *dirty_line;

/* screen size, rounded up because we're storing 1 bit per pixel */
int dirty_width; /* in DWORDs */
int dirty_height; /* in pixel height */

/***************************************************************************
    Internal structures
 ***************************************************************************/

/***************************************************************************
    Internal variables
 ***************************************************************************/

static int clip_width;
static enum DirtyMode dirty_mode;

/***************************************************************************
    External functions  
 ***************************************************************************/

void InitDirty(int width, int height, enum DirtyMode eDirtyMode)
{
    dirty_mode = eDirtyMode;

    if (dirty_mode == NO_DIRTY)
        return;

    if (dirty_mode == USE_DIRTYRECT)
    {
        clip_width = width;
        dirty_width  = (width + 31) / 32; /* round up, since one bit per pixel in dirty_buffer */
        dirty_height = height;
    
        dirty_buffer = (int *)malloc(dirty_width * 4 * dirty_height);
        dirty_line   = (int *)malloc(dirty_height * sizeof(int));

        /* clear the buffers */
        ClearDirty();
    }
    else
    {
        dirty_mode = NO_DIRTY;
    }
}

void ExitDirty(void)
{
    if (dirty_mode == USE_DIRTYRECT)
    {
        free(dirty_buffer);
    
        dirty_buffer = NULL;
    
        free(dirty_line);
        dirty_line = NULL;
    }

    dirty_mode = NO_DIRTY;
}

void MarkDirty(int x1, int y1, int x2, int y2)
{
    if (dirty_mode == NO_DIRTY)
        return;

    if (dirty_mode == USE_DIRTYRECT)
    {
        int i,j;
        int ones, mask, offset;

        /* clip to display */
    
        if (clip_width <= x1)
            x1 = clip_width - 1;
        if (x1 < 0)
            x1 = 0;

        if (clip_width <= x2)
            x2 = clip_width - 1;
        if (x2 < 0)
            x2 = 0;
    
        if (dirty_height <= y1)
            y1 = dirty_height - 1;
        if (y1 < 0)
            y1 = 0;

        if (dirty_height <= y2)
            y2 = dirty_height - 1;
        if (y2 < 0)
            y2 = 0;
    
        for (i = y1; i <= y2; i++)
        {
            dirty_line[i] += x2 - x1 + 1;
            j = x1;
            while (j <= x2)
            {
                offset = j % 32;
            
                ones = min((32 - offset), x2 - j + 1);
                mask = dirty_buffer[DIRTYDWORD(j, i)];
                if (ones == 32)
                    mask = 0xffffffff;
                else
                    mask |= ((1 << ones) - 1) << offset;
            
#ifdef DEBUG
                if (DIRTYDWORD(j, i) >= dirty_width * dirty_height)
                    printf("death\n");
#endif
                dirty_buffer[DIRTYDWORD(j, i)] = mask;
                j += 32 - offset;
            }
        }
    }
}

void MarkDirtyPixel(int x, int y)
{
    if (dirty_mode == NO_DIRTY)
        return;

    if (dirty_mode == USE_DIRTYRECT)
    {
        int ones, mask, offset;
   
        /* clip to display */
    
        if (clip_width <= x)
            x = clip_width - 1;
        if (x < 0)
            x = 0;

        if (clip_width <= x)
            x = clip_width - 1;
        if (x < 0)
            x = 0;
    
        if (dirty_height <= y)
            y = dirty_height - 1;
        if (y < 0)
            y = 0;

        if (dirty_height <= y)
            y = dirty_height - 1;
        if (y < 0)
            y = 0;
    
        dirty_line[y]++;
        offset = x % 32;
            
        ones = (32 - offset);
        mask = dirty_buffer[DIRTYDWORD(x, y)];
        if (ones == 32)
            mask = 0xffffffff;
        else
            mask |= ((1 << ones) - 1) << offset;
            
#ifdef DEBUG
                if (DIRTYDWORD(x, y) >= dirty_width * dirty_height)
                    printf("death\n");
#endif
        dirty_buffer[DIRTYDWORD(x, y)] = mask;
    }
}


void ClearDirty(void)
{
    if (dirty_mode == NO_DIRTY)
        return;
    
    if (dirty_mode == USE_DIRTYRECT)
    {  
        memset(dirty_buffer, 0, dirty_width * 4 * dirty_height);
        memset(dirty_line, 0, 4 * dirty_height);
    }
}

void MarkAllDirty(void)
{
    if (dirty_mode == NO_DIRTY)
        return;
    
    if (dirty_mode == USE_DIRTYRECT)
    {  
        memset(dirty_buffer, 0xFFFFFFFF, dirty_width * 4 * dirty_height);
        memset(dirty_line, 0xFFFFFFFF, 4 * dirty_height);
    }
}