Help with an OpenGL sample

[coconParticipant]

Hello, I am trying to port some OpenGL stuff, I have some problems figuring out the API. What I am trying to do is something like this. http://www.monkey-x.com/Community/posts.php?topic=8510

 

Monkey

Namespace opengltest #Import "<mojo>" Using std.. Using mojo.. Using gles20.. Function Main:Void() New AppInstance New OpenGLTest App.Run() End Class OpenGLTest Extends Window Field dataBuffer:DataBuffer Method New() ' Set vertices Local vertices:Float[] = New Float[](-1, -1, 1, -1, 0, 1) ' Load databuffer Local dataBuffer:DataBuffer = New DataBuffer(vertices.Length * 4) For Local i := 0 Until vertices.Length dataBuffer.PokeFloat(i * 4, vertices[i]) Next Print("Length of dataBuffer " + dataBuffer.Length) Self.dataBuffer = dataBuffer ' Create vertex buffer Local vertexBuffer:UInt glGenBuffers(0, Varptr(vertexBuffer)) glBindBuffer(GL_ARRAY_BUFFER, vertexBuffer) glBufferData(GL_ARRAY_BUFFER, dataBuffer.Length, Varptr(dataBuffer), GL_STATIC_DRAW) Print("Address of vertexBuffer " + UInt(vertexBuffer)) Local queryBufferSize:Int = 0 glGetBufferParameteriv(GL_ARRAY_BUFFER, GL_BUFFER_SIZE, Varptr(queryBufferSize)) Print("Size of vertexBuffer " + queryBufferSize) End Method OnRender(canvas:Canvas) Override glClearColor(0.2, 0.2, 0.2, 1.0) glClear(GL_COLOR_BUFFER_BIT) glEnableVertexAttribArray(0) glVertexAttribPointer(0, 3, GL_FLOAT, False, 0, Varptr(dataBuffer)) glDrawArrays(GL_TRIANGLES, 0, 3) canvas.DrawText("Monkey2 OpenGL Test", 10, 10) End End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59

Namespace opengltest   #Import "<mojo>"   Using std.. Using mojo.. Using gles20..     Function Main:Void() New AppInstance New OpenGLTest App.Run() End   Class OpenGLTest Extends Window Field dataBuffer:DataBuffer   Method New()   ' Set vertices Local vertices:Float[] = New Float[](-1, -1, 1, -1, 0, 1)   ' Load databuffer Local dataBuffer:DataBuffer = New DataBuffer(vertices.Length * 4) For Local i := 0 Until vertices.Length dataBuffer.PokeFloat(i * 4, vertices[i]) Next Print("Length of dataBuffer " + dataBuffer.Length) Self.dataBuffer = dataBuffer ' Create vertex buffer Local vertexBuffer:UInt glGenBuffers(0, Varptr(vertexBuffer)) glBindBuffer(GL_ARRAY_BUFFER, vertexBuffer) glBufferData(GL_ARRAY_BUFFER, dataBuffer.Length, Varptr(dataBuffer), GL_STATIC_DRAW) Print("Address of vertexBuffer " + UInt(vertexBuffer)) Local queryBufferSize:Int = 0 glGetBufferParameteriv(GL_ARRAY_BUFFER, GL_BUFFER_SIZE, Varptr(queryBufferSize)) Print("Size of vertexBuffer " + queryBufferSize)   End Method OnRender(canvas:Canvas) Override glClearColor(0.2, 0.2, 0.2, 1.0) glClear(GL_COLOR_BUFFER_BIT) glEnableVertexAttribArray(0) glVertexAttribPointer(0, 3, GL_FLOAT, False, 0, Varptr(dataBuffer)) glDrawArrays(GL_TRIANGLES, 0, 3) canvas.DrawText("Monkey2 OpenGL Test", 10, 10) End End

[Mark SiblyKeymaster]

Monkey2 currently only implements GLES2.0, which means you need to create shaders and so on before you can draw anything.

Also, you can’t yet render directly to OpenGL in mojo – coming soon though.

[coconParticipant]

OK Thanks.

[sicilicaParticipant]

To clarify, you at least need a vertex shader and fragment shader. Assuming you just need a simple pass-through shader that does a texture lookup or solid color, I’m sure there are a lot of us here who could help.

Like Mark says, you also might need to make your own render buffer instead of using mojo’s canvas to get things to play nicely. If you read the last blog post, there should be a GLWindow class soon that can do that for you.

[Author]

Posts