/*

* 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 "CFilterText.h"

#include <txtetext.h>

#include <fbs.h>

#include <bitdev.h>

#include <e32math.h>

#include <AknBidiTextUtils.h>

#include "CFbsBitmapHack.h"

const TInt KScaleBits = 12;

const TInt KCoordBits = 8;

EXPORT_C TInt CFilterText::Create()

	{

	CFilterText* ptr = NULL;

	TRAPD( error, ptr = NewL(); );

	if( error != KErrNone )

		{

		ptr = NULL;

		}

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

	}

CFilterText* CFilterText::NewL()

	{

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

	CleanupStack::PushL( self );

	self->ConstructL();

	CleanupStack::Pop( self );

	return self;

	}

CFilterText::~CFilterText()

	{

	delete[] iData;

	iFont = NULL;

	}

CFilterText::CFilterText()

	{

	}

void CFilterText::ConstructL()

	{

	iScale.iX = 1 << 8;

	iScale.iY = 0;

	iZoom = 1000;

	iAngle = 0;

	iColor = 0xFFFFFF;

	}

TRect CFilterText::Rect()

	{

	return iChild->Rect();

	}

TReal CFilterText::Scale()

	{

	return iChild->Scale();

	}

TSize CFilterText::ViewPortSize()

{

    return iChild->ViewPortSize();

}

TBlock * CFilterText::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;

		        c2 &= iColor;

		        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 CFilterText::SetParent( MImageFilter* aParent )

	{

	iParent = aParent;

	}

void CFilterText::SetChild( MImageFilter* aChild )

	{

	iChild = aChild;

	}

TInt CFilterText::CmdL( const TDesC16& aCmd )

	{

	TLex lex( aCmd );

	TInt red = iColor >> 16;

	TInt green = ( iColor >> 8 ) & 255;

	TInt blue = iColor & 255;

    while( ! lex.Eos() )

		{

		TPtrC token = lex.NextToken();

		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("zoom") ) == 0 )

			{

			lex.Inc();

			lex.Val( iZoom );

			}

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

			{

			lex.Inc();

			lex.Val( iAngle );

			}

		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("red") ) == 0 )

			{

			lex.Inc();

			lex.Val( red );

			}

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

			{

			lex.Inc();

			lex.Val( green );

			}

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

			{

			lex.Inc();

			lex.Val( blue );

			}

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

			{

			lex.Inc();

			lex.Val( iTextSize.iWidth );

			}

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

			{

			lex.Inc();

			lex.Val( iTextSize.iHeight );

			}

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

			{

            TInt point = 0;

			lex.Inc();

			lex.Val( point );

            iFont = (const CFont *)point;

			}

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

		{

			//	Extract text data

			HBufC * text = HBufC::NewLC(255);

			TPtr txtptr = text->Des();

			//	Find the start of the string

			while (!lex.Eos()) 

			{

				if (lex.Get() == '"') break;

			}

			//	Get the text data

			while (!lex.Eos())

			{

				TChar c= lex.Get();

				if (c == '"')

				{

					break;

				}

				else

				{

					txtptr.Append(c);

				}

			}

            if (iFont)

            	{

				CreateTextL( txtptr );

            	}

			CleanupStack::PopAndDestroy(); // text

		}

		iColor = ( red << 16 ) + ( green << 8 ) + blue;

		}

    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;

	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 clipart 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;

	}

const char* CFilterText::Type()

	{

	return "text";

	}

void CFilterText::CreateBitmapL( const TSize& aSize )

	{

	delete iData;

	iData = NULL;

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

	Mem::FillZ( iData, aSize.iWidth * aSize.iHeight * sizeof( TUint32 ) );

	iRect = aSize;

	iSize = aSize;

	}

void CFilterText::CreateTextL ( const TDesC16 & aText )

	{

    CArrayFix<TPtrC>* lines = new(ELeave) CArrayFixFlat<TPtrC>(5);

    CleanupStack::PushL (lines);

    HBufC* visualText = AknBidiTextUtils::ConvertToVisualAndWrapToArrayL  

	                        ( aText,

	                          iTextSize.iWidth,

	                          *iFont,

	                          *lines ); 

    CleanupStack::PushL(visualText);

    TInt width = 0;	

    for (TInt i = 0; i < lines->Count(); ++i)

    {

        if (width < iFont->TextWidthInPixels ((*lines)[i]))

        {

            width = iFont->TextWidthInPixels ((*lines)[i]);    

        }

    }

	TInt fh = iFont->HeightInPixels() + 4;

	TInt height = fh * lines->Count(); 

    //  Create a bitmap big enough to hold the text

	CFbsBitmap bitmap;

    iSize.SetSize ( width + 4, height + 4);

    User::LeaveIfError ( bitmap.Create ( iSize, EColor4K ) );

    //  Create bitmap device and context

    CFbsBitmapDevice * bitmapDevice = CFbsBitmapDevice::NewL (&bitmap); 

    CleanupStack::PushL (bitmapDevice);

	//	Create bitmap graphics context

    CFbsBitGc * bitmapContext = 0;

    User::LeaveIfError (bitmapDevice->CreateContext (bitmapContext));

    CleanupStack::PushL (bitmapContext) ;

    //  Set parameters for the context

    bitmapContext->UseFont( iFont );

	bitmapContext->SetBrushColor( 0 );

    bitmapContext->SetPenColor (KRgbWhite);

	bitmapContext->Clear();

    //  Render lines

    for (TInt i = 0; i < lines->Count(); i++)

        {

        TInt xoffset = (bitmap.SizeInPixels().iWidth - iFont->TextWidthInPixels ((*lines)[i])) >> 1;

		TInt yoffset = iFont->HeightInPixels() * (i+1) + 2; 

		bitmapContext->DrawText ((*lines)[i], TPoint (xoffset, yoffset));	

        }

	//	Create memory buffer to hold rendered image data

    delete[] iData;

    iData = NULL;

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

    Mem::FillZ (iData, iSize.iWidth * iSize.iHeight * sizeof (TUint32));

    //  Copy data to buffer and create borders

	CFbsBitmapHack bm2;

	bm2.Duplicate( bitmap.Handle() );

	bm2.DoLock();

	TInt ws = bm2.ScanLineLength(iSize.iWidth, bm2.DisplayMode()) / 2;

	TUint16 * spos = (TUint16*)(bm2.DataAddress()) + ws + 1;

    TUint32 * tp = iData + iSize.iWidth + 1;

    for (TInt y = 1; y < iSize.iHeight - 1; y++ )

    {

        TUint16 * sp = spos;

        spos += ws;       

		for (TInt x = 1; x < iSize.iWidth - 1; x++ )

        {

            TUint16 c0 = sp[ 0 ];

			TUint16 c1 = sp[ -1 ];

			TUint16 c2 = sp[ 1 ];

			TUint16 c3 = sp[ -ws ];

			TUint16 c4 = sp[ ws ];

			TUint16 c5 = sp[ -1 - ws ];

			TUint16 c6 = sp[ 1 - ws ];

			TUint16 c7 = sp[ -1 + ws ];

			TUint16 c8 = sp[ 1 + ws ];

			sp++;

			TUint32 c = 0;

			if (c0)

            {

				c = iColor;

			}

			TInt a = 0;

			if (c0) a++;

			if (c1) a++;

			if (c2) a++;

			if (c3) a++;

			if (c4) a++;

			a *= 2;

			if (c5) a++;

			if (c6) a++;

			if (c7) a++;

			if (c8) a++;

			a *= 80;

			if (a > 255) a = 255;

			a <<= 24;

			*tp++ = a + c;

        }

        tp += 2;

    }

	bm2.DoUnlock();

    bitmapContext->DiscardFont();

    CleanupStack::PopAndDestroy(4); // bitmapContext, bitmapDevice, lines, visaul text

	bitmap.Reset();

    }

#if !defined(EKA2)

GLDEF_C TInt E32Dll( TDllReason )

    {

    return KErrNone;

    }	

#endif