Visual programming - Experiment 1

The difficulty of this experiment is to arrange the following poem vertically
“ Mine old friend left the west from the Yellow Crane Tower ”,
“ In this flowery March journeyed south to Yangzhou ”,
“ Alone sail, far shadow, blue sky ”,
“ Only to see the Yangtze River flow in the sky ”,

#include<windows.h>
long WINAPI WndProc
(
	HWND hWnd,
	UINT iMessage,
	UINT wParam,
	LONG lParam
);
BOOL InitWindowsClass(HINSTANCE hInstance);
BOOL InitWindows(HINSTANCE hInstance, int nCmdShow);

//------------------------------- The main function --------------------------------------------------
int WINAPI WinMain(
	HINSTANCE hInstance,
	HINSTANCE hPrevInstance,
	LPSTR lpCmdLine,
	int nCmdShow)
{
    
	MSG Message;
	if (!InitWindowsClass(hInstance))	return FALSE;
	if (!InitWindows(hInstance, nCmdShow))return FALSE;
	while (GetMessage(&Message, 0, 0, 0))// Message loop 
	{
    
		TranslateMessage(&Message);
		DispatchMessage(&Message);
	}
	return Message.wParam;
}
//----------------------------------- Message handler -----------------------------------
long WINAPI WndProc(HWND hWnd, UINT iMessage, UINT wParam, LONG lParam)
{
    

	HPEN hP;
	HBRUSH hB;

	static long nXChar, nYChar;
	HDC hDC;   // Define a handle to the device context  
	short x;
	TEXTMETRIC tm;
	short LnCount = 4;
	PAINTSTRUCT PtStr; // Defines a structure variable that points to the drawing information 
	const static  TCHAR* textbuf[] =
	{
    
	L" Mine old friend left the west from the Yellow Crane Tower ",
	L" In this flowery  March  journeyed south to Yangzhou ",
	L" Alone sail, far shadow, blue sky ",
	L" Only to see the Yangtze River flow in the sky ",
	
	};
	switch (iMessage)  // Process the message 
	{
    
	
	case WM_PAINT: 				// Handle redraw messages 
		hDC = BeginPaint(hWnd, &PtStr); 	// Start painting 

		for (int i = 4; i > 0; i--)
		{
    
			nXChar = 350 +( i+1) * 25;
			nYChar = 10;
			for (int j = 0; j < 7; j++)
			{
    
				nYChar = 10 + j * 25;
				TextOut(hDC, nXChar, nYChar, (LPCWSTR)textbuf[4-i] + j, 1);
			}
		}
		
		SetMapMode(hDC, MM_TEXT);
		hP = CreatePen(PS_SOLID, 2, RGB(255, 0, 0));
		SelectObject(hDC, hP);

		MoveToEx(hDC, 80, 70, NULL);
		LineTo(hDC, 40, 10);
		MoveToEx(hDC, 40,10 , NULL);
		LineTo(hDC, 120, 10);
		MoveToEx(hDC, 80, 70, NULL);
		LineTo(hDC, 120, 10);

		Ellipse(hDC, 40, 70, 120, 160);

		MoveToEx(hDC, 80, 160, NULL);
		LineTo(hDC, 50, 190);
		LineTo(hDC, 50, 220);
		LineTo(hDC, 110, 220);
		LineTo(hDC, 110, 190);
		LineTo(hDC, 80, 160);

		hB = (HBRUSH)GetStockObject(BLACK_BRUSH);
		SelectObject(hDC, hB);
		RoundRect(hDC, 180, 10, 260, 70, 10, 10);
		Pie(hDC, 180, 70, 260, 160, 210, 70, 230, 70);
		Rectangle(hDC, 180, 160, 260, 220);
		EndPaint(hWnd, &PtStr);
		return 0;
	case WM_DESTROY: 			// End the application 
		PostQuitMessage(0);
		return 0;
	default:		// Other message handlers 
		return(DefWindowProc(hWnd, iMessage, wParam, lParam));
	}
}
BOOL InitWindows(HINSTANCE hInstance, int nCmdShow)
{
    
	HWND hWnd;
	hWnd = CreateWindow(L"Bitmap", L"202 visualization _ Experiment 1 ",
		WS_OVERLAPPEDWINDOW,
		CW_USEDEFAULT,
		CW_USEDEFAULT,
		CW_USEDEFAULT,
		CW_USEDEFAULT,
		NULL,
		NULL,
		hInstance,
		NULL);
	if (!hWnd)
	{
    
		return FALSE;
	}
	ShowWindow(hWnd, nCmdShow);
	UpdateWindow(hWnd);
	return TRUE;
}

BOOL InitWindowsClass(HINSTANCE hInstance)
{
    
	WNDCLASS WndClass;
	WndClass.cbWndExtra = 0;
	WndClass.cbClsExtra = 0;
	WndClass.hbrBackground = (HBRUSH)(GetStockObject(WHITE_BRUSH));
	WndClass.hCursor = LoadCursor(NULL, MAKEINTRESOURCE(WHITE_BRUSH));
	WndClass.hIcon = LoadIcon(NULL, MAKEINTRESOURCE(IDI_APPLICATION));
	WndClass.hInstance = hInstance;
	WndClass.lpfnWndProc = WndProc;
	WndClass.lpszClassName = L"Bitmap";
	WndClass.lpszMenuName = L"Menu";
	WndClass.style = 0;
	return RegisterClass(&WndClass);
}

The result is shown in the figure ：