/*

* Copyright (c) 2010 Ixonos Plc.

* All rights reserved.

* This component and the accompanying materials are made available

* under the terms of the "Eclipse Public License v1.0"

* which accompanies this distribution, and is available

* at the URL "http://www.eclipse.org/legal/epl-v10.html".

*

* Initial Contributors:

* Nokia Corporation - Initial contribution

*

* Contributors:

* Ixonos Plc

*

* Description:  

*

*/

#include "CFilterBubble.h"

#include <e32math.h>

const TInt KScaleBits = 12;

const TInt KCoordBits = 8;

EXPORT_C TInt CFilterBubble::Create()

	{

	CFilterBubble* ptr = NULL;

	TRAPD( error, ptr = NewL() );

	if( error != KErrNone )

		{

		ptr = NULL;

		}

	return (TInt)((MImageFilter*)ptr);

	}

CFilterBubble* CFilterBubble::NewL()

	{

	CFilterBubble* self = new( ELeave )CFilterBubble();

	CleanupStack::PushL( self );

	self->ConstructL();

	CleanupStack::Pop( self );

	return self;

	}

CFilterBubble::~CFilterBubble()

	{

	delete[] iData;

	}

CFilterBubble::CFilterBubble()

	{

	}

void CFilterBubble::ConstructL()

	{

	iScale.iX = 1 << 8;

	iScale.iY = 0;

	iZoom = 1000;

	iAngle = 0;

	}

TRect CFilterBubble::Rect()

	{

	return iChild->Rect();

	}

TReal CFilterBubble::Scale()

	{

	return iChild->Scale();

	}

TSize CFilterBubble::ViewPortSize()

{

    return iChild->ViewPortSize();

}

TBlock * CFilterBubble::GetBlockL ( const TRect & aRect )

{

    TBlock * pB = iChild->GetBlockL (aRect);

    if (!pB) return NULL;

    TUint32 * pD = pB->iData;

    for (TInt i = pB->iRect.iTl.iY; i < pB->iRect.iBr.iY; ++i)

    {

        for (TInt j = pB->iRect.iTl.iX; j < pB->iRect.iBr.iX; ++j, ++pD)

        {

	        TUint32 c = *pD;

	        TPoint pos = iCorrectPosition + TPoint (j << KCoordBits, i << KCoordBits);

	        TInt x = ( pos.iX * iScale.iX + pos.iY * iScale.iY ) >> ( KScaleBits + KCoordBits );

	        TInt y = ( pos.iY * iScale.iX - pos.iX * iScale.iY ) >> ( KScaleBits + KCoordBits );

	        if ( (x >= 0) && (y >= 0) && (x < iSize.iWidth) && (y < iSize.iHeight) )

            {

		        TUint32 c2 = iData[ x + y * iSize.iWidth ];

		        TInt ca = c2 >> 24;

                if ( ca == 255 )

                {

			        *pD = c2 & 0xffffff;

			    }

                else

                {

		            TInt cc1 = (c2 & 0xff00ff) * ca + (c & 0xff00ff) * (255 - ca);

		            TInt cc2 = (c2 & 0xff00) * ca + (c & 0xff00) * (255 - ca);

		            *pD = (( cc1 >> 8) & 0xff00ff) + ((cc2 >> 8) & 0xff00);

                }

		    }

        }

    }

    return pB;

}

void CFilterBubble::SetParent( MImageFilter* aParent )

	{

	iParent = aParent;

	}

void CFilterBubble::SetChild( MImageFilter* aChild )

	{

	iChild = aChild;

	}

TInt CFilterBubble::CmdL( const TDesC16& aCmd )

	{

	TLex lex( aCmd );

	while( ! lex.Eos() )

		{

		TPtrC token = lex.NextToken();

		if( token.Compare( _L("file") ) == 0 )

			{

			TPtrC namec = lex.NextToken();

			TPtrC name( namec.Ptr()+1, namec.Length()-2 );

			iFileName.Copy (name);

			}

		else if( token.Compare( _L("load") ) == 0 )

			{

			LoadImageL();

			}

		else if( token.Compare( _L("bubble") ) == 0 )

			{

			lex.Inc();

			lex.Val( iBubble );

			}

		else if( token.Compare( _L("mask") ) == 0 )

			{

			lex.Inc();

			lex.Val( iMask );

			}

		else if( token.Compare( _L("x") ) == 0 )

			{

            TReal relscale = iChild->Scale();

            TInt param = 0;

			lex.Inc ();

			lex.Val (param);

            iPosition.iX = (TInt)((param / relscale) + 0.5);

			}

		else if( token.Compare( _L("y") ) == 0 )

			{

            TReal relscale = iChild->Scale();

            TInt param = 0;

			lex.Inc ();

			lex.Val (param);

            iPosition.iY = (TInt)((param / relscale) + 0.5);

			}

		else if( token.Compare( _L("width") ) == 0 )

			{

            TReal relscale = iChild->Scale();

            TInt param = 0;

			lex.Inc ();

			lex.Val (param);

            TInt width = (TInt)((param / relscale) + 0.5);

            iZoom = (width * 1000) / iSize.iWidth;

			}

		else if( token.Compare( _L("height") ) == 0 )

			{

            TReal relscale = iChild->Scale();

            TInt param = 0;

			lex.Inc ();

			lex.Val (param);

            TInt height = (TInt)((param / relscale) + 0.5);

            iZoom = (height * 1000) / iSize.iHeight;

			}

		else if( token.Compare( _L("zoom") ) == 0 )

			{

			lex.Inc();

			lex.Val( iZoom );

			}

		else if( token.Compare( _L("angle") ) == 0 )

			{

			lex.Inc();

			lex.Val( iAngle );

			}

		}

    TReal relscale = iChild->Scale();

    TInt scaledx = (TInt)(iPosition.iX * relscale + 0.5);

    TInt scaledy = (TInt)(iPosition.iY * relscale + 0.5);

    TInt scaledz = (TInt)(iZoom * relscale + 0.5);

    TReal zoom = 0.001 * scaledz;

	TReal angle = 0.001 * iAngle;

	TReal rad = KPi * angle / 180.0;

	TReal r;

	TReal res;

	Math::Cos( r, rad );

	r *= 1 << KScaleBits;

	//r /= zoom;

	Math::Round( res, r, 0 );

	iScale.iX = (TInt)res;

	Math::Sin( r, rad );

	r *= 1 << KScaleBits;

	//r /= zoom;

	Math::Round( res, r, 0 );

	iScale.iY = (TInt)res;

	// helpers

	TPoint mid( iSize.iWidth/2, iSize.iHeight/2 );

	TPoint sca( (TInt)(zoom * iScale.iX), (TInt)(zoom * iScale.iY) );

	TInt xo = ( mid.iX * sca.iX - mid.iY * sca.iY ) >> ( KScaleBits - KCoordBits );

	TInt yo = ( mid.iY * sca.iX + mid.iX * sca.iY ) >> ( KScaleBits - KCoordBits );

	//

	// iCorrectPosition is bubble mid position corrected with

	// rotation ( otherwise rotation would be around topleft corner )

	//

	iCorrectPosition = TPoint( xo,yo ) - TPoint( scaledx << KCoordBits, scaledy << KCoordBits );

	//

	// with iScale screen coordinates are translated to texture coordinates

	// 

	iScale.iX = (TInt)(1.0 / zoom * iScale.iX);

	iScale.iY = (TInt)(1.0 / zoom * iScale.iY);

	return 0;

	}

void CFilterBubble::LoadImageL ()

	{

	//	create and load bubble

	CFbsBitmap * bubble = new (ELeave) CFbsBitmap;

	CleanupStack::PushL(bubble);

	User::LeaveIfError ( bubble->Load (iFileName, iBubble) );

	//	create and load mask

	CFbsBitmap * mask = new (ELeave) CFbsBitmap;

	CleanupStack::PushL(mask);

	User::LeaveIfError ( mask->Load (iFileName, iMask) );

	//	bubble size

    iSize = bubble->SizeInPixels();

	//	create new buffer

	delete[] iData;

	iData = new (ELeave) TUint32 [iSize.iWidth * iSize.iHeight];

	//	copy bubble data

	bubble->LockHeapLC();

	TInt wsc = bubble->ScanLineLength (iSize.iWidth, bubble->DisplayMode());

	TInt wsm = mask->ScanLineLength (iSize.iWidth, mask->DisplayMode());

	TUint8 * pcos = (TUint8 *)bubble->DataAddress();

	TUint8 * pmos = (TUint8 *)mask->DataAddress();

	for ( TInt i = 0, k = 0; i < iSize.iHeight; ++i )

	{

		TUint8 * pc = pcos;

		pcos += wsc;

		TUint8 * pm = pmos;

		pmos += wsm;

		for ( TInt j = 0; j < iSize.iWidth; ++j )

		{

			iData[k++] = (TUint32)(*pc  | (*(pc + 1) << 8) | (*(pc + 2) << 16) | (*pm++ << 24));

			pc += 3;

		}

	}

	CleanupStack::PopAndDestroy(3); // LockHeapLC(), mask, bubble

}

const char* CFilterBubble::Type()

	{

	return "bubble";

	}

#if !defined(EKA2)

GLDEF_C TInt E32Dll( TDllReason )

    {

    return KErrNone;

    }	

#endif