первый разумный опенжл-проект

[semifinalist]

вот, собсна, процесс:

wglMakeCurrent(Canvas.Handle, hrc);
glViewPort (0, 0, ClientWidth, ClientHeight);
glClearColor (0.0, 0.0, 0.75, 1.0);
glClear (GL_COLOR_BUFFER_BIT);

glColor3f (1.0, 1.0, 1.0);
glLineWidth (10);
glEnable (GL_LINE_SMOOTH);
glBegin (GL_LINES);
glVertex2f (-1.0, 1.0);
glVertex2f (1.0, -1.0);
glVertex2f (-1.0, -1.0);
glVertex2f (1.0, 1.0);
glVertex2f (0.0, -1.0);
glVertex2f (0.0, 1.0);
glVertex2f (-1.0, 0.0);
glVertex2f (1.0, 0.0);
glEnd;

glColor3f (0.8, 0.0, 0.0);
glLineWidth (4);
glEnable (GL_LINE_SMOOTH);
glBegin (GL_LINES);
glVertex2f (-1.0, 1.0);
glVertex2f (1.0, -1.0);
glVertex2f (-1.0, -1.0);
glVertex2f (1.0, 1.0);
glVertex2f (0.0, -1.0);
glVertex2f (0.0, 1.0);
glVertex2f (-1.0, 0.0);
glVertex2f (1.0, 0.0);
glEnd;

glDisable (GL_LINE_SMOOTH);
SwapBuffers(Canvas.Handle);
wglMakeCurrent(0, 0);