  $ filename "t.exe"
 'uses rtl64
  uses glTrans

  sub scene(sys hWnd)
  ===================
  '
  PrepareSceneFrame
  '
  '
  'GLO2 TRANSFORMS
  '
  float Projection[16]
  SetProjectionMatrix Projection, 45, aspect, 1, 1e6
  loadidentity
  translatef   0,0,-4
  rotateAxis   30,2,0,1
  rotatef      ang1,0,1,0
  '
  'SHADER
  glUseProgram ShaderP
  '
  '
  'UNIFORM DATA
  glUniformMatrix4fv(ulProjection, 1, GL_FALSE, Projection)
  glUniformMatrix4fv(ulModelView,  1, GL_FALSE, MatStack)
  '
  'VERTEX BUFFER OBJECT
  '
  'INDEXED
  glEnableClientState( GL_VERTEX_ARRAY )
  glBindBuffer GL_ELEMENT_ARRAY_BUFFER, ele
  'glDrawElementsInstanced( GL_TRIANGLES, 3, GL_UNSIGNED_INT, null, 3 )
  'glDrawElementsInstancedBaseVertex( GL_TRIANGLES, 3, GL_UNSIGNED_INT, null, 3, 0 )
  glDrawElementsInstancedBaseVertexBaseInstance( GL_TRIANGLES, 3, GL_UNSIGNED_INT, null, 3, 0, 0 )
  'glDisableClientState( GL_VERTEX_ARRAY )
  '
  'DIRECT
  'glEnableClientState( GL_VERTEX_ARRAY )
  'glBindBuffer GL_ARRAY_BUFFER, vbo
  'glDrawArraysInstanced( GL_TRIANGLES, 0, 3, 3 )
  'glDrawArrays( GL_TRIANGLES, 0, 3 )
  'glDrawElements( GL_TRIANGLES, 3, GL_UNSIGNED_INT, ib )
  'glDisableClientState( GL_VERTEX_ARRAY )
  '
  glUseProgram -1
  '
  end sub

  MainWindow width,height,WS_OVERLAPPEDWINDOW
