#include <gl.au3>
#include <Math.au3>

Opt("GUIOnEventMode", 1)

Local $CircleStacks = 50

Global $gui = GUICreate("OpenGL", 250, 250), $dc, $rc
GUISetOnEvent(-3, "quit")

If Not glInit($gui, $dc, $rc) Then
    MsgBox(48, "Error", "Error bei der Initialisierung von OpenGL-Funktionen" & @CRLF & "Error code: " & @error)
    Exit
EndIf

glMatrixMode($GL_PROJECTION)

GUISetState()


While GUIGetMsg() <> -3

    glClear($GL_COLOR_BUFFER_BIT)

    glBegin($GL_TRIANGLE_FAN)
    glColor3f(1, 0, 0)

	For $i = 0 To 360 Step 360/$CircleStacks
		$x = .5 * Sin(_Radian($i))
		$y = .5 * Cos(_Radian($i))
		glVertex3f($x,$y,0)
	Next

    glEnd()
    glSwapBuffers($dc)
WEnd

Func quit()
	glTerminate($gui, $dc, $rc)
	Exit
EndFunc