#Include <GLFuncs.au3>

Global $dc
$gui = GUICreate("Farbpyramide", 450, 450)
GUISetBkColor(0x000000)
_EnableOpenGL($gui, $dc)
_glMatrixMode($GL_PROJECTION)
_glViewport(0, 0, 450, 450)
GUISetState(@SW_SHOW)

While GUIGetMsg() <> -3
    _glClear($GL_COLOR_BUFFER_BIT)
    _glBegin($GL_TRIANGLES)
    _glColor3f(0, 1, 0)
    _glVertex3f(-.75, -.5, 0)
    _glColor3f(1, 0, 0)
    _glVertex3f(0, .75, 0)
    _glColor3f(0, 0, 1)
    _glVertex3f( .75, -.5, 0)
    _glEnd()
    _SwapBuffers($dc)
WEnd