C / C++ / MFC

#include <windows.h>
#include <stdio.h>
#include <math.h>
#include <vfw.h>

#define WIDTH 5000
#define HEIGHT 3000
short bits[HEIGHT][WIDTH];
BITMAPINFOHEADER * bmih;
int iCnt;
HDRAWDIB hdd;
int w,h;
RECT r;

int CDECL Xpress(TCHAR * msg,...)
{
	TCHAR buf[1024];
	va_list args;
	va_start (args,msg);
	_vsnwprintf_s(buf,sizeof(buf)/sizeof(TCHAR),msg,args);
	va_end(args);
	return MessageBox(NULL,buf,NULL,NULL);
}

LRESULT CALLBACK WinProc(HWND hwnd,UINT msg,WPARAM wParam,LPARAM lParam)
{
	switch (msg)
	{
	case WM_PAINT:
		PAINTSTRUCT ps;
		HDC hdc;
		hdc = BeginPaint(hwnd,&ps);
		DrawDibDraw(hdd,hdc,0,0,w,h,bmih,bits,0,abs(500-iCnt%1000),w,h,DDF_JUSTDRAWIT);
		EndPaint(hwnd,&ps);
		return 0;
	case WM_SIZE:
		GetClientRect(hwnd,&r);
		w=r.right-r.left;
		h=r.bottom-r.top;
		break;
	case WM_DESTROY:
		PostQuitMessage(0);
		return 0;
	}
	return DefWindowProc(hwnd,msg,wParam,lParam);
}

int WINAPI WinMain(HINSTANCE hInst,HINSTANCE hPrev,LPSTR lpCmd,int nShow)
{
	int iRet=-1;
	for (int i=0;i<HEIGHT;i++)
	{
		for (int j=0;j<WIDTH;j++)
		{
			bits[i][j]=((i&0x1f)<<10)|((j&0x1f)<<5);
		}
	}
	WNDCLASS cls;
	cls.lpszClassName=L"WINDCLS";
	cls.lpfnWndProc=WinProc;
	cls.cbClsExtra=0;
	cls.cbWndExtra=0;
	cls.hbrBackground=NULL;
	cls.hCursor=LoadCursor(NULL,IDC_ARROW);
	cls.hIcon=NULL;
	cls.lpszMenuName=NULL;
	cls.hInstance=hInst;
	cls.style=0;
	r.top=0;
	r.left=0;
	r.right=GetSystemMetrics(SM_CXSCREEN);
	r.bottom=GetSystemMetrics(SM_CYSCREEN);
	if (RegisterClass(&cls))
	{
		HWND desk = CreateWindowW(L"WINDCLS",L"Main",WS_SYSMENU,0,0,GetSystemMetrics(SM_CXSCREEN),GetSystemMetrics(SM_CYSCREEN),NULL,NULL,hInst,NULL);
		ShowWindow(desk,nShow);
		UpdateWindow(desk);
		bmih=(BITMAPINFOHEADER*)malloc(sizeof(BITMAPINFOHEADER)+3*sizeof(DWORD));
		bmih->biSize=sizeof(BITMAPINFOHEADER)+3*sizeof(int);
		bmih->biWidth=WIDTH;
		bmih->biHeight=HEIGHT;
		bmih->biPlanes=1;
		bmih->biBitCount=16;
		bmih->biCompression=BI_RGB;
		bmih->biSizeImage=WIDTH*HEIGHT*2;
		bmih->biXPelsPerMeter=0;
		bmih->biYPelsPerMeter=0;
		bmih->biClrUsed=0;
		bmih->biClrImportant=0;
		DWORD * col = (DWORD *)&bmih[1];
		col[0]=0xFC00;
		col[1]=0x03E0;
		col[2]=0x001F;
		MSG msg;
		hdd = DrawDibOpen();
		if (hdd==NULL)
		{
			Xpress(L"Cant get DIB");
		}
		else
		{
			long start = GetCurrentTime();
			for (iCnt=0;iCnt<10000&&GetMessage(&msg,NULL,0,0);iCnt++)
			{
				TranslateMessage(&msg);
				DispatchMessage(&msg);
				bits[1500+iCnt/500][iCnt%500]=0x1f;
				InvalidateRect(desk,&r,FALSE);
			}
			DrawDibClose(hdd);
			Xpress(TEXT("%i fps"),1000*iCnt/(GetCurrentTime()-start));
			iRet=(int)msg.wParam;
		}
	}
	return iRet;
}