gb.opengl および gb.opengl.glu というコンポーネントを使用して Gambas にプロジェクトを作成しました。
NeHe チュートリアルに従って、次のコードを作成しました: (glArea1 は opegl アプリケーションのフォーム コンポーネントです)。
Public Sub GLArea1_Open()
gl.ClearDepth(100.0)
Gl.ClearColor(20, 40, 20, 0.70)
Gl.DepthFunc(Gl.LESS) ' The type of depth test to do
Gl.Enable(Gl.DEPTH_TEST) ' Enables depth testing
End
Public Sub GLArea1_Draw()
gl.Clear(gl.COLOR_BUFFER_BIT Or gl.DEPTH_BUFFER_BIT)
' Clear The Screen And The Depth Buffer
gl.Viewport(0, 0, GLArea1.Width, GLArea1.Height)
gl.MatrixMode(Gl.PROJECTION)
gl.LoadIdentity() 'Reset The Projection Matrix
gL.Translatef(0, GLArea1.Width / 2, 0)
gl.LineWidth(1.0)
gl.begin(gl.LINES)
gl.Color3f(1.0, 1.0, 0.2)
gl.Vertex3f(0, GLArea1.Height / 2, 0)
gl.Vertex3f(GLArea1.Width / 2, GLArea1.Height / 2, 0)
gl.End()
End
このコードで線が描画されると思いますが、画面は空白のままです。ソースアーカイブが添付されています: http://www.filedropper.com/glline-001tar
gambas 3 で openGl 領域に線を引くにはどうすればよいですか? より具体的には、ビューポートで軸を描画することから始めたいと思います。助けてください。