/**
 * $Id$
 * ***** BEGIN GPL/BL DUAL LICENSE BLOCK *****
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License
 * as published by the Free Software Foundation; either version 2
 * of the License, or (at your option) any later version. The Blender
 * Foundation also sells licenses for use in proprietary software under
 * the Blender License.  See http://www.blender.org/BL/ for information
 * about this.
 *
 * This program 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 General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software Foundation,
 * Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
 *
 * The Original Code is Copyright (C) 2001-2002 by NaN Holding BV.
 * All rights reserved.
 *
 * The Original Code is: all of this file.
 *
 * Contributor(s): none yet.
 *
 * ***** END GPL/BL DUAL LICENSE BLOCK *****
 */

/**

 * $Id$
 * Copyright (C) 2001 NaN Technologies B.V.
 * Base class for pixmaps.
 * @author	Maarten Gribnau
 * @date	March 6, 2001
 */

#ifdef HAVE_CONFIG_H
#include <config.h>
#endif

#include "IMG_PixmapRGBA32.h"

IMG_PixmapRGBA32::IMG_PixmapRGBA32(GEN_TUns32 width, GEN_TUns32 height)
	: IMG_Pixmap(), m_pixels(width * height)
{
	m_pixelsBase = m_pixels;
	m_width = width;
	m_height = height;
	m_rowBytes = width * sizeof(TPixelRGBA32);
	m_pixelSize = 32;
	m_pixelType = kPixelTypeRGBA32;
}


IMG_PixmapRGBA32::IMG_PixmapRGBA32(void* image, GEN_TUns32 width, GEN_TUns32 height, GEN_TUns32 rowBytes)
	: IMG_Pixmap(), m_pixels(image, width * rowBytes)
{
	m_pixelsBase = m_pixels;
	m_width = width;
	m_height = height;
	m_rowBytes = rowBytes;
	m_pixelSize = 32;
	m_pixelType = kPixelTypeRGBA32;
}


void IMG_PixmapRGBA32::fillRect(const GEN_Rect& r, const IMG_ColorRGB& c)
{
	GEN_Rect t_bnds (0, 0, m_width, m_height); /* Bounds of this pixmap */
	GEN_Rect r_bnds (r);			/* Area to set */

	/* Determine visibility */
	GEN_TVisibility v = t_bnds.getVisibility(r_bnds);
	if (v == GEN_kNotVisible) return;
	if (v == GEN_kPartiallyVisible) {
		/* Clip the destination rectangle to the bounds of this pixmap
		*/
		t_bnds.clip(r_bnds);
		if (r_bnds.isEmpty()) {
			return;
		}
	}

#if 0
	/* Set new pixels using shifting */
	/* Prepare the pixel value to set */
	IMG_ColorRGBA ca (c);
	TPixelRGBA32 pv = getPixelValue(c);
	/* Mask off the alpha bits */
	pv &= 0x00FFFFFF; /* 0xFFFFFF00; */

	/* Set the pixels in the destination rectangle */
	for (GEN_TInt32 y = r.m_t; y < r.m_b; y++) {
		/* Park pixel pointer at the start pixels */
		TPixelPtr desPtr = getPixelPtr(r_bnds.m_l, y);
		for (GEN_TInt32 x = r.m_l; x < r.m_r; x++) {
			/* Set the new pixel value (retain current alpha) */
			*(desPtr++) = pv | ((*desPtr) & 0xFF000000); /*0x000000FF); */
		}
	}
#else
	/* Set new values using byte indexing */
	/*IMG_ColorRGBA ca (c); */
	TPixelRGBA32 src = getPixelValue(c);
	TPixelPtr desPtr;
	GEN_TUns8* srcBytes = (GEN_TUns8*) &src;
	
	/* Set the pixels in the destination rectangle */
	for (GEN_TInt32 y = r.m_t; y < r.m_b; y++) {
		/* Park pixel pointer at the start pixels */
		desPtr = getPixelPtr(r_bnds.m_l, y);
		for (GEN_TInt32 x = r.m_l; x < r.m_r; x++) {
			/* Set the new pixel value (retain current alpha) */
			((GEN_TUns8*)desPtr)[bi_r] = srcBytes[bi_r];
			((GEN_TUns8*)desPtr)[bi_g] = srcBytes[bi_g];
			((GEN_TUns8*)desPtr)[bi_b] = srcBytes[bi_b];
			desPtr++;
		}
	}
#endif
}


void IMG_PixmapRGBA32::fillRect(const GEN_Rect& r, const IMG_ColorRGBA& c)
{
	GEN_Rect t_bnds (0, 0, m_width, m_height); /* Bounds of this pixmap */
	GEN_Rect r_bnds (r);			/* Area to set */

	/* Determine visibility */
	GEN_TVisibility v = t_bnds.getVisibility(r_bnds);
	if (v == GEN_kNotVisible) return;
	if (v == GEN_kPartiallyVisible) {
		/* Clip the destination rectangle to the bounds of this pixmap
		*/
		t_bnds.clip(r_bnds);
		if (r_bnds.isEmpty()) {
			return;
		}
	}

	/* Set the pixels in the destination rectangle */
	TPixelRGBA32 pixel = getPixelValue(c);
	for (GEN_TInt32 y = r.m_t; y < r.m_b; y++) {
		/* Park pixel pointer at the start pixels */
		TPixelPtr desPtr = getPixelPtr(r_bnds.m_l, y);
		for (GEN_TInt32 x = r.m_l; x < r.m_r; x++) {
			*(desPtr++) = pixel;
		}
	}
}


void IMG_PixmapRGBA32::setPixmap(const IMG_PixmapRGBA32& src, const GEN_Rect& srcBnds, const GEN_Rect& destBnds)
{
	GEN_Rect i_bnds (srcBnds);	/* Bounds of input pixmap */
	GEN_Rect t_bnds (0, 0, m_width, m_height); /* Bounds of this pixmap */
	GEN_Rect p_bnds (destBnds);	/* Bounds of the paste area */
	
	/* The next check could be removed if the caller is made 
		responsible for handing us non-empty rectangles */
	if (i_bnds.isEmpty()) {
		/* Nothing to do */
		return;
	}

	/* Determine visibility of the paste area */
	GEN_TVisibility v = t_bnds.getVisibility(p_bnds);
	if (v == GEN_kNotVisible) return;
	if (v == GEN_kPartiallyVisible) {
		/* Clipping is needed */
		if (p_bnds.m_l < 0) {
			i_bnds.m_l += -p_bnds.m_l;
			p_bnds.m_l = 0;
		}
		if (p_bnds.m_t < 0) {
			i_bnds.m_t += -p_bnds.m_t;
			p_bnds.m_t = 0;
		}
		GEN_TInt32 d = t_bnds.getWidth();
		if (p_bnds.m_r > d) {
			i_bnds.m_r -= d - p_bnds.m_r;
			p_bnds.m_r = d;
		}
		d = t_bnds.getHeight();
		if (p_bnds.m_b > d) {
			i_bnds.m_b -= d - p_bnds.m_b;
			p_bnds.m_b = d;
		}
	}

	/* Iterate through the rows */
	for (GEN_TInt32 r = 0; r < p_bnds.getHeight(); r++) {
		/* Park pixel pointers at the start pixels */
		TPixelPtr srcPtr = src.getPixelPtr(i_bnds.m_l, i_bnds.m_t + r);
		TPixelPtr desPtr = getPixelPtr(p_bnds.m_l, p_bnds.m_t + r);
		/* Iterate through the columns */
		for (int c = 0; c < p_bnds.getWidth(); c++) {
			*(desPtr++) = *(srcPtr++);
		}
	}
}


void IMG_PixmapRGBA32::blendPixmap(const IMG_PixmapRGBA32& src, const GEN_Rect& srcBnds, const GEN_Rect& destBnds)
{
	GEN_Rect i_bnds (srcBnds);	/* Bounds of input pixmap */
	GEN_Rect t_bnds (0, 0, m_width, m_height); /* Bounds of this pixmap */
	GEN_Rect p_bnds (destBnds);	/* Bounds of the paste area */
	
	/* The next check could be removed if the caller is made responsible 
		for handing us non-empty rectangles */
	if (i_bnds.isEmpty()) {
		/* Nothing to do */
		return;
	}

	/* Determine visibility of the paste area */
	GEN_TVisibility v = t_bnds.getVisibility(p_bnds);
	if (v == GEN_kNotVisible) return;
	if (v == GEN_kPartiallyVisible) {
		/* Clipping is needed */
		if (p_bnds.m_l < 0) {
			i_bnds.m_l += -p_bnds.m_l;
			p_bnds.m_l = 0;
		}
		if (p_bnds.m_t < 0) {
			i_bnds.m_t += -p_bnds.m_t;
			p_bnds.m_t = 0;
		}
		GEN_TInt32 d = t_bnds.getWidth();
		if (p_bnds.m_r > d) {
			i_bnds.m_r -= p_bnds.m_r - d;
			p_bnds.m_r = d;
		}
		d = t_bnds.getHeight();
		if (p_bnds.m_b > d) {
			i_bnds.m_b -= p_bnds.m_b - d;
			p_bnds.m_b = d;
		}
	}

	IMG_ColorRGBA srcColor;
	IMG_ColorRGBA desColor;

	/* Iterate through the rows */
	for (int r = 0; r < p_bnds.getHeight(); r++) {
		/* Park pixel pointers at the start pixels */
		TPixelPtr srcPtr = src.getPixelPtr(i_bnds.m_l, i_bnds.m_t + r);
		TPixelPtr desPtr = getPixelPtr(p_bnds.m_l, p_bnds.m_t + r);
		/* Iterate through the columns */
		for (int c = 0; c < p_bnds.getWidth(); c++) {
			/* Retrieve colors from source and destination pixmaps*/
			getColor(*srcPtr, srcColor);
			getColor(*desPtr, desColor);
			/* Blend the colors */
			desColor.blendColor(srcColor);
			/* Write color back to destination pixmap */
			*desPtr = getPixelValue(desColor);
			srcPtr++;
			desPtr++;
		}
	}
}