//
//   タイマーを使ったスクロール
//
//     1998/ 4/11  宍戸　輝光
//

#include <windows.h>
#include <time.h>
#include <stdlib.h>

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM);

BITMAPINFO BmInfo;
BITMAPINFOHEADER BmInfoHed;
BYTE*        lpBit;

CONST xSize=96,ySize=96;

int WINAPI WinMain (HINSTANCE hInstance, HINSTANCE hPrevInstance,
                    PSTR szCmdLine, int iCmdShow){

	MSG  msg;
	WNDCLASSEX  wndclass ;
	HWND hwnd;

	int i,j,r,g,b,x,n;

	srand( (unsigned)time( NULL ));

	wndclass.cbSize        = sizeof(wndclass);
	wndclass.style         = CS_HREDRAW | CS_VREDRAW;
	wndclass.lpfnWndProc   = WndProc;
	wndclass.cbClsExtra    = 0;
	wndclass.cbWndExtra    = 0;
	wndclass.hInstance     = hInstance;
	wndclass.hIcon         = LoadIcon (NULL, IDI_APPLICATION);
	wndclass.hCursor       = LoadCursor (NULL, IDC_ARROW);
	wndclass.hbrBackground = (HBRUSH)GetStockObject(WHITE_BRUSH);
	wndclass.lpszMenuName  = NULL;
	wndclass.lpszClassName = "Test Window";
	wndclass.hIconSm       = LoadIcon (NULL, IDI_APPLICATION);

	RegisterClassEx (&wndclass);

	hwnd = CreateWindow ("Test Window",
		    "スクロールテスト",
                    WS_OVERLAPPEDWINDOW,
                    32,32,
                    256,256,
                    NULL,
                    NULL,
                    hInstance,
		            NULL);

	BmInfoHed.biSize=sizeof(BITMAPINFOHEADER); // 構造体の大きさ
	BmInfoHed.biWidth=xSize;                     // 横幅
	BmInfoHed.biHeight=ySize;                    // 高さ
	BmInfoHed.biPlanes=1;                     // プレーンの数
	BmInfoHed.biBitCount=24;                  // プレーンの色数
	BmInfoHed.biCompression=BI_RGB;
	BmInfoHed.biSizeImage=0;
	BmInfoHed.biXPelsPerMeter=0;
	BmInfoHed.biYPelsPerMeter=0;
	BmInfoHed.biClrUsed=0;
	BmInfoHed.biClrImportant=0;

	BmInfo.bmiHeader=BmInfoHed;

	lpBit=(BYTE*)GlobalAlloc(GPTR,xSize*ySize*3); // ピクセル用のバッファ
	ZeroMemory(lpBit,xSize*ySize*3);

	if (lpBit==NULL)
		return FALSE;

	for (i=0;i<ySize;i++) { // ランダムに点を打つ

		n=rand() % 3+4;

		for (j=0;j<n;j++){

			x=rand() % xSize;

			r=rand() % 64+192;
			g=rand() % 64+192;
			b=rand() % 64+192;

			lpBit[(i*xSize+x)*3]=r;
			lpBit[(i*xSize+x)*3+1]=g;
			lpBit[(i*xSize+x)*3+2]=b;

		}

	}

	ShowWindow (hwnd,iCmdShow);      // ウインドウを表示
	UpdateWindow (hwnd);             // 再描画

	while (GetMessage (&msg,NULL,0,0)) { // メッセージループ

		TranslateMessage(&msg);
		DispatchMessage(&msg);

	}

	return msg.wParam ;

}

LRESULT CALLBACK WndProc (HWND hwnd, UINT iMsg, WPARAM wParam, LPARAM lParam) {

	HDC hdc;
	PAINTSTRUCT ps;
	int i,r,g,b,x,n;

	switch (iMsg) {

		case WM_CREATE:

			SetTimer(hwnd,1,30,NULL); // タイマーセット

			return 0;

		case WM_TIMER: // タイマーメッセージの処理

			MoveMemory(lpBit,lpBit+xSize*3,xSize*(ySize-1)*3);
			ZeroMemory(lpBit+(ySize-1)*xSize*3,xSize*3);

			n=rand() % 3+4; // 点の数

			for (i=0;i<n;i++){ // 一番上の列に点を打つ

				x=rand() % xSize;

				r=rand() % 64+192;
				g=rand() % 64+192;
				b=rand() % 64+192;

				lpBit[((ySize-1)*xSize+x)*3]=b;
				lpBit[((ySize-1)*xSize+x)*3+1]=g;
				lpBit[((ySize-1)*xSize+x)*3+2]=r;

			}

			InvalidateRgn(hwnd,NULL,FALSE);
			UpdateWindow (hwnd);             // 再描画

			return 0;

		case WM_PAINT:

			hdc=BeginPaint(hwnd,&ps);

			StretchDIBits(hdc,8,8,xSize*2,ySize*2,0,0,xSize,ySize,
				lpBit,&BmInfo,DIB_RGB_COLORS,SRCCOPY); // 表示

			EndPaint(hwnd,&ps);

			return 0;

		case WM_DESTROY : // 終了時の処理

			KillTimer(hwnd,1); // タイマーストップ
			GlobalFree(lpBit); // ＤＩＢのバッファを解放

			PostQuitMessage(0);
			return 0;

	}

	return DefWindowProc (hwnd, iMsg, wParam, lParam) ;

}