// Copyright (c) 1996-2009 Nokia Corporation and/or its subsidiary(-ies).

// All rights reserved.

// This component and the accompanying materials are made available

// under the terms of "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:

//

// Description:

// Screen device test code

// 

//

/**

 @file

 @test

 @internalComponent - Internal Symbian test code

*/

#include "TSCRDEVRESSWITCH.H"

//Define this to get visible pauses (in test 6: DeviceResSwitchL)

//#define VISIBLE_PAUSES

//Define this to get extra logging which may be useful in tracking down a fail

//#define EXTRA_LOGGING

CTScreenDeviceResSwitch::CTScreenDeviceResSwitch(CTestStep* aStep) : CTWsGraphicsBase(aStep)

	{}

CTScreenDeviceResSwitch::~CTScreenDeviceResSwitch()

	{}

void CTScreenDeviceResSwitch::ConstructL()

	{

	//The following is just another test... it doesn't leave any resources for use by the test class AFAICT...

	RWsSession aSession;

	CWsScreenDevice *device1;

	CWsScreenDevice *device2;

	CWsScreenDevice *device3;

	aSession.Connect();

	device1=new(ELeave) CWsScreenDevice(aSession);

	device1->Construct(iTest->iScreenNumber);

	delete device1;

	device1=new(ELeave) CWsScreenDevice(aSession);

	device1->Construct(iTest->iScreenNumber);

	device2=new(ELeave) CWsScreenDevice(aSession);

	device2->Construct(iTest->iScreenNumber);

	device3=new(ELeave) CWsScreenDevice(aSession);

	device3->Construct(iTest->iScreenNumber);

	delete device3;

	CFbsFont *font;

	User::LeaveIfError(device1->GetNearestFontToDesignHeightInTwips((CFont *&)font,TFontSpec()));

	RWindowGroup group(aSession);

	group.Construct(777);

	group.SetOwningWindowGroup(TheClient->iGroup->GroupWin()->Identifier());

	RWindow win(aSession);

	win.Construct(group,77);

	CWindowGc *gc=new(ELeave) CWindowGc(device1);

	gc->Construct();

	gc->Activate(win);

	gc->UseFont(font);

	device1->ReleaseFont(font);

	aSession.Flush();

	delete gc;

	win.Close();

	group.Close();

	delete device1;

	delete device2;

	aSession.Close();

	}

class CPrimaryColoursWin : public CTWin

	{

public:

	enum	//various size factors	

		{  	

			kShrinkFactor=5,

			kPlotSize=16,

			kPlotMargin=4,

			kPlotWithMargin=kPlotSize+kPlotMargin,

			kPlotsAccross=3,

			kPlotsDown=1,

			kMinWidth=kPlotWithMargin*kPlotsAccross+kPlotMargin,

			kMinHeight=kPlotWithMargin*kPlotsDown+kPlotMargin,

		    KNumChannels=3,

		    KNumColours=256

		};

	CPrimaryColoursWin();

	~CPrimaryColoursWin();

	//Virtual Function from CTBaseWin

	void Draw();

	TInt CountUniquePlottedColours();

	TInt iDrawn;

	TInt iNumColours;

	TBool iBadPixels[KNumChannels][KNumColours];

	TBuf<0x40> iDisplayText;

	};

CPrimaryColoursWin::CPrimaryColoursWin()

	{

	for (TInt channelnum=0;channelnum<KNumChannels;channelnum++)

		{

		for (TInt colour=0;colour<KNumColours;colour++)

			{

			iBadPixels[channelnum][colour]=EFalse;

			}

		}

	iDisplayText.Zero();

	iDisplayText.Format(_L("Test text"));

	}

CPrimaryColoursWin::~CPrimaryColoursWin()

	{

	}

void CPrimaryColoursWin::Draw()

	{

	iGc->SetBrushStyle(CGraphicsContext::ESolidBrush);

	iGc->SetPenStyle(CGraphicsContext::ESolidPen);

	iGc->SetPenColor(TRgb(255, 255, 255));

	iGc->SetBrushColor(TRgb(0, 0, 0));

	TSize winSize = Size();

	iGc->DrawRect(TRect(winSize));

	CFont* font;

	TFontSpec fontSpec(_L(""), 300);

	TheClient->iScreen->GetNearestFontInTwips(font, fontSpec);

	if (font)

		{

		iGc->UseFont(font);

		TRect r(TPoint(0, 0), Size());

		r.Shrink(kMinHeight, kMinHeight);

		iGc->DrawText(iDisplayText, r, font->AscentInPixels(), iGc->ECenter, 0);

		iGc->DiscardFont();

		TheClient->iScreen->ReleaseFont(font);

		}

	iNumColours = 0;

	TPoint lhsAbs = Win()->AbsPosition();

	for(TInt channelnum = 0, channelmul = 1, xoordinate = kPlotMargin; channelnum < KNumChannels; channelnum++, channelmul <<= 8, xoordinate += kPlotWithMargin)

		{

		TRgb lastPixel(255, 255, 255, 255);

		for(TInt colour = 0; colour < KNumColours; colour++)

			{

			if(!iBadPixels[channelnum][colour])

				{

				iGc->SetPenColor(TRgb(colour * channelmul));				

				}

			else

				{

				iGc->SetPenColor(TRgb(255, 255, 255));			

				}

			TPoint point = TPoint(xoordinate + (colour & 0x0f), kPlotMargin + (colour >> 4));

			iGc->Plot(point);

			}

		}

	iDrawn=ETrue;

	}

TInt CPrimaryColoursWin::CountUniquePlottedColours()

	{

	iNumColours = 0;

	TPoint lhsAbs = Win()->AbsPosition();

	for(TInt channelnum = 0, channelmul = 1, xoordinate = kPlotMargin; channelnum < 3; channelnum++, channelmul <<=8 , xoordinate += kPlotWithMargin)

		{

		TRgb lastPixel(255, 255, 255, 255);

		for(TInt colour = 0; colour < 256; colour++)

			{

			TRgb readPixel;

 			TPoint point = TPoint(xoordinate + (colour & 0x0f), kPlotMargin + (colour >> 4));

			TheClient->iScreen->GetPixel(readPixel, lhsAbs + point);

			if(readPixel != lastPixel)

				{

				lastPixel = readPixel;

				iNumColours++;

				iBadPixels[channelnum][colour] = EFalse;

				}

			else

				{

				iBadPixels[channelnum][colour] = ETrue;

				}

			} // for loop 

		} // for loop

	return iNumColours;

	}

/**

	Intended primarily as a visual check that the mode is displayed correctly,

	for each rotated mode.

**/

void    CTScreenDeviceResSwitch::DeviceResSwitchWithRotationsL()

	{

	CWsScreenDevice *screen=TheClient->iScreen;

	TInt originalScreenMode = screen->CurrentScreenMode();

	TPixelsTwipsAndRotation originalModeSettings;

	screen->GetScreenModeSizeAndRotation(originalScreenMode,originalModeSettings);

	CArrayFixFlat<TInt> *rotations=new(ELeave) CArrayFixFlat<TInt>(1);

	CleanupStack::PushL(rotations);

	INFO_PRINTF2(_L("ScreenMode and rotation with colour depth. ScreenModes=%i"),TheClient->iScreenModes.Count());

	for (TInt rr=0,maxrr=3;rr<maxrr;++rr)

	for (TInt ii=0,maxii=TheClient->iScreenModes.Count();ii<maxii;++ii)

		{

		TInt newMode=TheClient->iScreenModes[ii];

		if (	screen->GetScreenModeOrigin(ii)!=TPoint(0,0)	||	screen->GetScreenModeScale(ii)!=TSize(1,1)	)

			{

			INFO_PRINTF2(_L("ScreenMode %i skipped: has scalind and/ or rotation"),ii);

			INFO_PRINTF1(_L("This scaling code is known to be broken if all modes do not support scaling"));

			INFO_PRINTF1(_L("See defect DEF111847 and break request 2226"));

			INFO_PRINTF5(_L("Origin: %i %i Scale %i %i"),

					screen->GetScreenModeOrigin(ii).iX,screen->GetScreenModeOrigin(ii).iY,

					screen->GetScreenModeScale(ii).iWidth,screen->GetScreenModeScale(ii).iHeight

				);

			continue;

			}

		screen->SetAppScreenMode(newMode);

		screen->SetScreenMode(newMode);

		TInt currentScreenMode = screen->CurrentScreenMode();

		TEST(currentScreenMode == newMode);

		User::LeaveIfError(screen->GetRotationsList(newMode,rotations));

		INFO_PRINTF4(_L("ScreenMode and rotation with colour depth. Mode#%i=%i. Rotations=%i"),ii,newMode,rotations->Count());

		TPixelsTwipsAndRotation currentModeSettings;

		screen->GetDefaultScreenSizeAndRotation(currentModeSettings);

		screen->SetScreenSizeAndRotation(currentModeSettings);

		for (TInt jj=0,maxjj=rotations->Count();jj<maxjj;jj++)

			{

			CFbsBitGc::TGraphicsOrientation newOrientation=STATIC_CAST(CFbsBitGc::TGraphicsOrientation,rotations[0][jj]);

			INFO_PRINTF3(_L("ScreenMode and rotation with colour depth. Rotation#%i=%i(0..3)"),jj,newOrientation);

			screen->SetCurrentRotations(newMode,newOrientation);

			TheClient->iWs.Flush();

			TPixelsAndRotation modeSettings;

			TheClient->iScreen->GetDefaultScreenSizeAndRotation(modeSettings);

			TRect screenRect(TPoint(0,0),modeSettings.iPixelSize);

			//move the debug windows to inside the area 

			//actually don't bother yet!

			if (screenRect.Width()>screenRect.Height())

				{

				}

			else

				{

				}

			DeviceResSwitchL();

			}

		screen->SetCurrentRotations(newMode,currentModeSettings.iRotation);

		screen->SetScreenSizeAndRotation(currentModeSettings);

		}

	CleanupStack::PopAndDestroy();

	screen->SetScreenMode(originalScreenMode);

	screen->SetCurrentRotations(originalScreenMode,originalModeSettings.iRotation);

	screen->SetScreenSizeAndRotation(originalModeSettings);

	}

/**

	Intended primarily as a visual check that the mode is displayed correctly, 

	this code also verifies that the number of physical colours matches the reported mode.

	Note that although written to test GCE, this test is general and applies to all display versions.

**/	

void CTScreenDeviceResSwitch::DeviceResSwitchL()

	{		

	INFO_PRINTF1(_L("DeviceResSwitchL: Entering function"));

	TInt error = KErrNone;

	TInt isTransparencySupportedResult = KErrNone;

	TRAP(error, isTransparencySupportedResult = IsTransparencySupportedL());

	if(error != KErrNone)

		{

		INFO_PRINTF1(_L("DeviceResSwitchL: Transparency is not supported. Exits."));

		return;

		}	

	TRAP(error, CalculateDisplayPropertiesL());

	if(error != KErrNone)

		{

		INFO_PRINTF1(_L("DeviceResSwitchL: Could not calculate display properties. Test not supported. Exits."));

		return;		

		}	

	TDisplayMode startDisplayMode = TheClient->iScreen->DisplayMode();

	TInt startColoursPixel = TDisplayModeUtils::NumDisplayModeColors(startDisplayMode);

	TPixelsAndRotation modeSettings;

	TheClient->iScreen->GetDefaultScreenSizeAndRotation(modeSettings);

	TRect r(TPoint(0, 0), modeSettings.iPixelSize);

	// Starts off full-screen. Only shrink it if it will still be large enough to run the test

	// It should be... the test only needs 60x20 pixels

	if(r.Width() > r.Height())

		{

		if(r.Width() > (CPrimaryColoursWin::kMinWidth) * (CPrimaryColoursWin::kShrinkFactor-2) * 3 / (CPrimaryColoursWin::kShrinkFactor * 2))

			{

			r.iTl.iX = r.iBr.iX / 3;				

			}

		}

	else

		{

		if (r.Height() > (CPrimaryColoursWin::kMinHeight) * (CPrimaryColoursWin::kShrinkFactor - 2) * 3/ (CPrimaryColoursWin::kShrinkFactor * 2))

			{

			r.iTl.iY = r.iBr.iY / 3;				

			}

		}

	if(r.Width() > (CPrimaryColoursWin::kMinWidth) * (CPrimaryColoursWin::kShrinkFactor - 2) / CPrimaryColoursWin::kShrinkFactor)

		{

		if(r.Height() > (CPrimaryColoursWin::kMinHeight) * (CPrimaryColoursWin::kShrinkFactor - 2) / CPrimaryColoursWin::kShrinkFactor)

			{

			r.Shrink(r.Width() / CPrimaryColoursWin::kShrinkFactor, r.Height() / CPrimaryColoursWin::kShrinkFactor);

			}

		}

	for(TInt i = 0; i < EColorLast; i++)

		{

		TDisplayMode tryMode = TDisplayMode(i);

		TInt tryColoursPixel = NumDisplayModeColors(tryMode);		

		INFO_PRINTF3(_L("DeviceResSwitchL: tryColoursPixel = %d, tryMode = %d"), tryColoursPixel, tryMode);

		if(TDisplayModeUtils::IsDisplayModeColor(tryMode) && startColoursPixel <= tryColoursPixel)

			{

				  //Create a test window at this mode, and see if it changes the screen mode

				{ // The braces define the lifetime of testWin. It must be destroyed before we check if mode changed back successfully.

				CPrimaryColoursWin* testWin1 = new (ELeave) CPrimaryColoursWin;

				CleanupStack::PushL(testWin1);

				TInt expectedColoursPerChannel = 1;

				TInt tt;

				testWin1->SetUpL(r.iTl, r.Size(), TheClient->iGroup, *TheClient->iGc, &tryMode);

				TheClient->iWs.Flush();

				TDisplayMode newDisplayMode = TheClient->iScreen->DisplayMode();

				TEST(TDisplayModeUtils::NumDisplayModeColors(newDisplayMode) >= tryColoursPixel);	

				if(!(TDisplayModeUtils::NumDisplayModeColors(newDisplayMode) >= tryColoursPixel))

					{

					ERR_PRINTF3(_L("testWin1: newDisplayMode = %d, tryColoursPixel = %d"), newDisplayMode, tryColoursPixel);

					}

				// Estimate the minimum number of shades of primary colours given the bits per pixel.

				// The maximum is twice this. Very appoximate but seems to work OK for 256 colours. Probably not good for grey modes. 

				for(tt = tryColoursPixel; tt >= 8; tt >>= 3)

					{

					expectedColoursPerChannel <<= 1;

					}

				// Draw some test data on the test window.

			    testWin1->DrawNow();

				TheClient->iWs.Flush();

#ifdef VISIBLE_PAUSES

			    TheClient->StdLogWindow().LogMessage(EFalse, _L("Mode: "), tryMode);

				User::After(1000000);

#endif 

				TInt numUniqueColours = testWin1->CountUniquePlottedColours();

				INFO_PRINTF2(_L("testWin1: numUniqueColours = %d"), numUniqueColours);

			    testWin1->DrawNow();

			    TheClient->StdLogWindow().LogMessage(EFalse, _L("Channel Colours: "), numUniqueColours);

				TheClient->iWs.Flush();

#ifdef VISIBLE_PAUSES

				User::After(1000000); 

#endif

				// Read it back and see if it has the expected quality

				TEST(numUniqueColours >= (expectedColoursPerChannel * 3));

				if(!(numUniqueColours >= (expectedColoursPerChannel * 3)))

					{

					ERR_PRINTF3(_L("testWin1: numUniqueColours = %d, (expectedColoursPerChannel * 3) = %d"), numUniqueColours, (expectedColoursPerChannel * 3));

					}				

				/*

				 * Defect 107176 was rejected. This test for transparency is therefore removed.

				 * 

				 */

				if (false) //newDisplayMode != startDisplayMode)	 // Hide the window under a startmode window and see if we switch back?

				if (isTransparencySupportedResult==KErrNone && newDisplayMode != startDisplayMode)	 // Hide the window under a startmode window and see if we switch back?

				/*

				 * Defect 107176 was rejected. This test for transparency is therefore removed.

				 * The crash demonstrated by this code is related to the inconsistant support for origin and scale

				 * See defect DEF111847 and break request 2226

				 */

				if (false) //newDisplayMode != startDisplayMode)	 // Hide the window under a startmode window and see if we switch back?

					{

					// Demonstration of defect 107176

					// Create a translucent window which obscures the high-colour window

					// The existing code reduces the display colour depth because it thinks the obscured window is not visible any more

					// However, the obscured window is actually visible trough the transparency

					CPrimaryColoursWin* testWin2 = new (ELeave) CPrimaryColoursWin;

					CleanupStack::PushL(testWin2);

					testWin2->SetUpL(r.iTl - TPoint(20,20), r.Size() + TSize(40,40), TheClient->iGroup, *TheClient->iGc, &startDisplayMode, ETrue, 0x80);

					TheClient->iWs.Flush();

				    testWin2->DrawNow();

					TheClient->iWs.Flush();

					TDisplayMode newnewDisplayMode = TheClient->iScreen->DisplayMode();

					TInt newNumUniqueColours = testWin2->CountUniquePlottedColours();	

					INFO_PRINTF2(_L("testWin2: newNumUniqueColours = %d"), newNumUniqueColours);		

					TEST(newnewDisplayMode == newDisplayMode);				

					if(!(newnewDisplayMode == newDisplayMode))

						{

						ERR_PRINTF3(_L("testWin2: newnewDisplayMode = %d, newDisplayMode = %d"), newnewDisplayMode, newDisplayMode);

						}

				    testWin2->DrawNow();

					TheClient->iWs.Flush();

#ifdef VISIBLE_PAUSES

					User::After(1000000); 

#endif

					TheClient->iWs.Flush();

					CleanupStack::PopAndDestroy(testWin2);

					testWin2 = NULL;						

					}

					CleanupStack::PopAndDestroy(testWin1);

					testWin1 = NULL;

				}

				TDisplayMode afterDisplayMode = TheClient->iScreen->DisplayMode();

				TEST(afterDisplayMode == startDisplayMode);

				if(afterDisplayMode != startDisplayMode)

					{

					ERR_PRINTF3(_L("DeviceResSwitchL: Original colour depth not restored. Was %i, now %i (TDisplayMode)"), startDisplayMode, afterDisplayMode);						

					}

#ifdef VISIBLE_PAUSES

				User::After(1000000); 

#endif			

			} // context 

		} // for loop ends

	INFO_PRINTF1(_L("DeviceResSwitchL: Returning from function"));		

	}

void CTScreenDeviceResSwitch::CalculateDisplayPropertiesL()

	{

	INFO_PRINTF1(_L("CalculateDisplayPropertiesL: Entering function"));

	TDisplayMode tryMode = (TDisplayMode) (EColorLast - 1);

	TPixelsAndRotation modeSettings;

	TheClient->iScreen->GetDefaultScreenSizeAndRotation(modeSettings);

	TRect r(TPoint(0, 0), modeSettings.iPixelSize);

	CPrimaryColoursWin* tempWin = new (ELeave) CPrimaryColoursWin;

	CleanupStack::PushL(tempWin);

	tempWin->SetUpL(r.iTl, r.Size(), TheClient->iGroup, *TheClient->iGc, &tryMode);

	TheClient->iWs.Flush();

	iMaxDisplayMode = TheClient->iScreen->DisplayMode();

	INFO_PRINTF2(_L("CalculateDisplayPropertiesL: iMaxDisplayMode %d"), iMaxDisplayMode);

	iMaxDisplayModeColors = TDisplayModeUtils::NumDisplayModeColors(iMaxDisplayMode);

	INFO_PRINTF2(_L("CalculateDisplayPropertiesL: iMaxDisplayModeColors %d"), iMaxDisplayModeColors);	

	CleanupStack::PopAndDestroy(tempWin);

	INFO_PRINTF1(_L("CalculateDisplayPropertiesL: Returning from function"));

	}

TInt CTScreenDeviceResSwitch::NumDisplayModeColors(TDisplayMode aDispMode)

	{

	TInt dispModeColors = TDisplayModeUtils::NumDisplayModeColors(aDispMode);

	if(dispModeColors > iMaxDisplayModeColors)

		{

		return iMaxDisplayModeColors;

		}

	return dispModeColors;

	}

TInt CTScreenDeviceResSwitch::IsTransparencySupportedL()

	{

	INFO_PRINTF1(_L("IsTransparencySupportedL: Entering function"));

	// Creates a window and sets the transparency, if this feature

	// is not enabled, KErrNotSupported will be returned

	const TRgb KTransparencyColor(85,85,85);		

	RWindow win(TheClient->iWs);

	win.Construct(*TheClient->iGroup->GroupWin(), ENullWsHandle);	

	win.SetExtent(TPoint(0,0), TSize(50,50));	

	win.SetRequiredDisplayMode(EColor256);

	TInt ret = win.SetTransparencyFactor(KTransparencyColor);

	win.Close();

	if(!ret)

		{

		INFO_PRINTF1(_L("IsTransparencySupportedL: Transparency is supported"));

		}

	else

		{

		INFO_PRINTF1(_L("IsTransparencySupportedL: Transparency is not supported"));

		}

	INFO_PRINTF1(_L("IsTransparencySupportedL: Returning from function"));

	return ret;

	}

void CTScreenDeviceResSwitch::RunTestCaseL(TInt /*aCurTestCase*/)