#include <GL\GL.h>
#include <GL\freeglut.h>
#include <GL\freeglut_ext.h>
#include <GL\GLU.h>
#include <gl\GL.h>
#include <gl\GLU.h>
#include <gl\glut.h>

#include <windows.h>
#include <gl\gl.h>
#pragma comment(lib,"opengl32.lib")

HGLRC gl;
GLuint text;

LRESULT CALLBACK phWndProc(HWND hwnd,UINT uMsg,WPARAM wParam,LPARAM lParam)
{
  switch(uMsg)
  {
  case(WM_CREATE):
   {
    PIXELFORMATDESCRIPTOR pfd;
    HDC dc=GetDC(hwnd);
    ZeroMemory(&pfd,sizeof(pfd));
    pfd.nSize=sizeof(pfd);
    pfd.nVersion=1;
    pfd.dwFlags=PFD_DRAW_TO_WINDOW|PFD_SUPPORT_OPENGL|PFD_DOUBLEBUFFER;
    pfd.iPixelType=PFD_TYPE_RGBA;
    pfd.cColorBits=32;
    pfd.iLayerType=PFD_MAIN_PLANE;
    int pf=ChoosePixelFormat(dc,&pfd);
    SetPixelFormat(dc,pf,&pfd);
    gl=wglCreateContext(dc);
    ReleaseDC(hwnd,dc);
    break;
   }
  case(WM_DESTROY):
   {
    wglDeleteContext(gl);
    PostQuitMessage(0);
    return 0;
    break;
   }
  case(WM_CHAR):
   {
    PostMessage(hwnd,WM_DESTROY,0,0);
    break;
   }
  case(WM_PAINT):
   {

    HDC dc=GetDC(hwnd);
    wglMakeCurrent(dc,gl);
    glClearColor(0.0,0.0,0.0,1.0);
    glClear(GL_COLOR_BUFFER_BIT);
    glColor3f(0.0,0.0,1.0);
    glBegin(GL_QUADS);
     glVertex2f(0.5,-0.5);
     glVertex2f(0.5,0.5);
     glVertex2f(-0.5,0.5);
     glVertex2f(-0.5,-0.5);
    glEnd();
    wglMakeCurrent(0,0);
    SwapBuffers(dc);
    ReleaseDC(hwnd,dc);
    break;
   }
  }
  return DefWindowProc(hwnd,uMsg,wParam,lParam);
}

int WINAPI WinMain(HINSTANCE hInstance,HINSTANCE hPrevInstance,LPSTR lpCmdLine,int nCmdShow)
{
  WNDCLASSEXA cd;
  cd.cbSize=sizeof(WNDCLASSEXA);
  cd.style=CS_HREDRAW|CS_OWNDC|CS_VREDRAW;
  cd.lpfnWndProc=phWndProc;
  cd.cbWndExtra=0;
  cd.cbClsExtra=0;
  cd.hInstance=hInstance;
  cd.hCursor=LoadCursor(hInstance,IDC_ARROW);
  cd.hIcon=LoadIcon(hInstance,IDI_APPLICATION);
  cd.hbrBackground=(HBRUSH)COLOR_BACKGROUND+1;
  cd.lpszMenuName=0;
  cd.lpszClassName="phWndForGL";
  cd.hIconSm=0;
  if(!RegisterClassExA(&cd))return 1;
  HWND w=CreateWindowExA(0,"phWndForGL","GLT1",WS_OVERLAPPEDWINDOW|WS_CLIPCHILDREN|WS_CLIPSIBLINGS,0,0,800,600,0,0,hInstance,0);
  if(!w)return 2;
  ShowWindow(w,SW_SHOW);
  MSG m;
  while(GetMessageA(&m,0,0,0))
  {
   TranslateMessage(&m);
   DispatchMessageA(&m);
  }
  return 0;
}