// Листинг 1.14. Вывод текста по радиальным линиям

TCHAR str[] = _T("Наклонный текст");
LRESULT CALLBACK WndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM
	lParam)
{ 
      PAINTSTRUCT ps;
	  HDC hdc;
	  HFONT oldFont, newFont;
	  int Escapement;
	  static int sx, sy;
      switch(message)
	  {
		case WM_SIZE:
             sx = LOWORD(lParam)/2;
             sy = HIWORD(lParam)/2;
	   break;
      case WM_PAINT:
	     hdc = BeginPaint(hWnd, &ps);
	     for (Escapement = 0; Escapement < 3600; Escapement += 200)
	        {
           newFont = CreateFont(20, 0, Escapement, 0, 700, 1, 0, 0,
		   DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS,
	   DEFAULT_QUALITY,      DEFAULT_PITCH | FF_DONTCARE,_T("Arial"));
			   oldFont = (HFONT)SelectObject(hdc, newFont);
		           TextOut(hdc, sx, sy, str,_tcsclen(str));
			   SelectObject(hdc, oldFont);
			   DeleteObject(newFont);
		    }
	       EndPaint(hWnd, &ps);
               break;
	 case WM_DESTROY: PostQuitMessage(0); break;
         default : return DefWindowProc(hWnd, message, wParam, lParam);
	 }
	 return 0;
 }