Imports OpenTK
Imports OpenTK.Graphics
Imports OpenTK.Graphics.OpenGL
Public Class Form1
Private Sub GL_Load(sender As Object, e As System.EventArgs) Handles GlControl1.Load
GL.ClearColor(Color.Black)
GL.MatrixMode(MatrixMode.Projection)
GL.LoadIdentity()
GL.Ortho(0, GlControl1.Width, GlControl1.Height, 0, 1, -1)
GL.MatrixMode(MatrixMode.Modelview)
End Sub
Private Sub GlControl1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles GlControl1.Paint
GL.Clear(ClearBufferMask.ColorBufferBit)
GL.LoadIdentity()
GL.Begin(BeginMode.Polygon)
GL.Color3(255, 0, 0)
GL.Vertex2(0, 5)
GL.Vertex2(5, -5)
GL.Vertex2(-5, -5)
GL.End()
GL.Begin(BeginMode.Lines)
GL.Color3(0, 255, 0)
GL.Vertex2(50, 50)
GL.Vertex2(100, 100)
GL.End()
GL.Flush()
GraphicsContext.CurrentContext.VSync = True 'Caps frame rate as to not over run GPU
GlControl1.SwapBuffers() 'Takes from the 'GL' and puts into control
End Sub
End Class