'SET THE VIEWPORT AND PERSPECTIVE
'
GetClientRect hwnd,&cRect
glViewport 0, 0, crect.right, crect.bottom
double aspect=crect.right/crect.bottom
'
glMatrixMode GL_PROJECTION
glLoadIdentity
gluPerspective 45, aspect, 1.0, 100
glMatrixMode GL_MODELVIEW
glLoadIdentity
'
glClear GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT
glClearColor 0.5, 0, 0, 0
...