Strict

Local iBuffer:Int     ' VertexObjectBuffer Handle
Local iIndices:Int[3] ' Vertex-Indeces für ein Triangles
Local fVBO:Float Ptr  ' Vertex-Positionen

bglCreateContext 640, 480, 0, 0, BGL_BACKBUFFER

' Projektionsmode = Perspektifisch
glMatrixMode GL_PROJECTION
glLoadIdentity()
gluPerspective 45.0, 640.0/480.0, 1.0, 1000.0


glewInit()
glGenBuffersARB 1, Varptr(iBuffer)
glBindBufferARB GL_ARRAY_BUFFER_ARB, iBuffer
glBufferDataARB GL_ARRAY_BUFFER_ARB, SizeOf(fVBO), Null, GL_STATIC_DRAW_ARB

' Vertex0, Vertex1, Vertex2
iIndices[0] = 0 ; iIndices[0] = 1 ; iIndices[1] = 2

fVBO = Float Ptr(glMapBufferARB(GL_ARRAY_BUFFER_ARB, GL_WRITE_ONLY_ARB))
fVBO[0] =  0.0 ; fVBO[1] =  1.0 ; fVBO[2] = 0.0 ' Vertex0
fVBO[3] = -1.0 ; fVBO[4] = -1.0 ; fVBO[5] = 0.0 ' Vertex1
fVBO[6] =  1.0 ; fVBO[7] = -1.0 ; fVBO[8] = 0.0 ' Vertex2
glUnMapBuffer GL_ARRAY_BUFFER_ARB
glBufferDataARB GL_ARRAY_BUFFER_ARB, 9*4, fVBO, GL_STATIC_DRAW_ARB

While Not KeyDown(KEY_ESCAPE)
   ' Cls
    glClear GL_COLOR_BUFFER_BIT

   ' Um 3 Einheiten nach vorne verschieben
    glMatrixMode GL_MODELVIEW
    glLoadIdentity()
    glTranslatef 0.0, 0.0, -3.0

    glEnableClientState GL_VERTEX_ARRAY
    glBindBuffer GL_ARRAY_BUFFER_ARB, iBuffer
    glVertexPointer 3, GL_FLOAT, 0, Null ' 3 Vertices
    glDrawElements GL_TRIANGLES, 3, GL_UNSIGNED_INT, iIndices ' 3 Indices
    glDisableClientState GL_VERTEX_ARRAY

   ' Flip
    bglSwapBuffers()
    FlushMem
Wend

' VBO löschen
glDeleteBuffersARB 1, Varptr(iBuffer)

bglDeleteContext
End

Strict

Local iVertexProgram:Int ' VertexProgram Handle
Local oProgram:TBank     ' SourceCode des VertexProgram in Assembler
Local fAngle:Float       ' Rotationswinkel

bglCreateContext 640, 480, 0, 0, BGL_BACKBUFFER

glewInit()
' Sourcecode in eine Bank laden
oProgram = LoadBank("VertexProgram.asm")
' VertexPrograms aktivieren
glEnable(GL_VERTEX_PROGRAM_ARB)
' VertexProgram erstellen
glGenProgramsARB(1, VarPtr(iVertexProgram))
' und ihn einbinden
glBindProgramARB(GL_VERTEX_PROGRAM_ARB, iVertexProgram)
' Assembler Code kompilieren
glProgramStringARB(GL_VERTEX_PROGRAM_ARB, GL_PROGRAM_FORMAT_ASCII_ARB, ..
                   BankSize(oProgram), BankBuf(oProgram))
' Auf Fehler prüfen
If glGetError() = GL_INVALID_OPERATION Then
   Notify("".FromCString(Byte Ptr(glGetString(GL_PROGRAM_ERROR_STRING_ARB))))
   End
EndIf

' ClsColor
glClearColor 0.3, 0.3, 0.6, 1.0

' Projektionsmode = Perspektifisch
glMatrixMode GL_PROJECTION
glLoadIdentity()
gluPerspective 45.0, 640.0/480.0, 1.0, 1000.0

glMatrixMode GL_MODELVIEW

While Not KeyDown(KEY_ESCAPE)
   fAngle# = fAngle#+0.1

   ' Cls
   glClear GL_COLOR_BUFFER_BIT

   glLoadIdentity()
   glTranslatef 0.0, 0.0, -3.0
   glRotatef fAngle#, 0.0, 1.0, 0.0
   glBegin GL_QUADS
      glVertex3f -0.5,  0.5, 0.0
      glVertex3f  0.5,  0.5, 0.0
      glVertex3f  0.5, -0.5, 0.0
      glVertex3f -0.5, -0.5, 0.0
   glEnd

   ' Flip
   bglSwapBuffers()
   FlushMem()
Wend

' VertexProgram löschen
glDeleteProgramsARB(1, VarPtr(iVertexProgram))

bglDeleteContext()
End

!!ARBvp1.0

# Erhalte Model-Projektions-Matrix
PARAM ModelViewProj[4] = { state.matrix.mvp };

# Temporärer vektor
TEMP temp;

# Matrix mit Vertex multiplizieren und in Vektor Temp speichern
DP4 temp.x, ModelViewProj[0], vertex.position;
DP4 temp.y, ModelViewProj[1], vertex.position;
DP4 temp.z, ModelViewProj[2], vertex.position;
DP4 temp.w, ModelViewProj[3], vertex.position;

# Ausgeben
MOV result.position, temp;
MOV result.color, temp;
MOV result.texcoord, vertex.texcoord;

END