Graphics

<br />
Imports Tao.OpenGl<br />
Imports Tao.Platform<br />
Imports Tao.FreeGlut<br />
<br />
Public Class frmMainWin<br />
<br />
    Dim xTrans, yTrans, zTrans As Single<br />
<br />
    Private Sub frmMainWin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        myGlWindow.InitializeContexts()<br />
        myGlWindow.AutoSwapBuffers = True<br />
<br />
        'init glwindow<br />
        Gl.glClearColor(0.0F, 0.0F, 0.0F, 0.0F)<br />
<br />
        'Glu.gluLookAt(<br />
        Gl.glViewport(0, 0, 400, 300)<br />
        Gl.glMatrixMode(Gl.GL_PROJECTION)<br />
        Gl.glLoadIdentity()<br />
<br />
        Gl.glOrtho(0.0, 10.0, 0.0, 10.0, -10.0, 10.0)<br />
        Gl.glMatrixMode(Gl.GL_MODELVIEW)<br />
        Gl.glLoadIdentity()<br />
<br />
        xTrans = 0<br />
        yTrans = 0<br />
        zTrans = 0<br />
<br />
    End Sub<br />
<br />
    Private Sub myGlWindow_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles myGlWindow.Paint<br />
        Gl.glClear(Gl.GL_COLOR_BUFFER_BIT)<br />
<br />
        Gl.glColor3f(0.2F, 0.2F, 0.8F)<br />
<br />
        'Gl.glTranslatef(0.0F, 0.0F, 0.0F)<br />
        Gl.glTranslatef(xTrans, yTrans, zTrans)<br />
        Gl.glBegin(Gl.GL_TRIANGLES)     'Draw a triangle<br />
        Gl.glVertex3f(0.5F, 1.0F, 0.0F)<br />
        Gl.glVertex3f(0.0F, 0.0F, 0.0F)<br />
        Gl.glVertex3f(1.0F, 0.0F, 0.0F)<br />
        Gl.glEnd()<br />
<br />
    End Sub<br />
<br />
    Private Sub cmdUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdUp.Click<br />
        'MsgBox("up")<br />
        yTrans = yTrans + 1<br />
<br />
        myGlWindow.SwapBuffers()<br />
<br />
    End Sub<br />
End Class<br />