I am trying to use opengl to create 2D color contour plot of some engineering data. I found the code below which colors a triangle with contours using opengl. I have been trying to convert it to work in Gambas. See below my current version converted to Gambas. I am asking for assistance for finishing the code conversion and to get these routines to run in Gambas. Help would be most appreciated.
CODE WHICH I AM TRYING TO CONVERT AND RUN IN GAMBAS: void CContoursDoc:: CreateTextureObject() { / / Define texture image unsigned char Texture8[8][3] = { { 0x00, 0x00, 0xa0 }, / / Dark Blue { 0x00, 0x00, 0xff }, / / Blue { 0x00, 0xa0, 0xff }, / / Indigo { 0x00, 0xa0, 0x40 }, / / Dark Green { 0x00, 0xff, 0x00 }, / / Green { 0xff, 0xff, 0x00 }, / / Yellow { 0xff, 0xcc, 0x00 }, / / Orange { 0xff, 0x00, 0x00 } / / Red }; / / Set pixel storage mode :: glPixelStorei(GL_UNPACK_ALIGNMENT, 1); / / Generate a texture name :: glGenTextures(1, m_nTexName); / / Create a texture object :: glBindTexture(GL_TEXTURE_1D, m_nTexName[0]); :: glTexParameteri(GL_TEXTURE_1D, GL_TEXTURE_MAG_FILTER, GL_NEAREST); :: glTexParameteri(GL_TEXTURE_1D, GL_TEXTURE_MIN_FILTER, GL_NEAREST); :: glTexImage1D(GL_TEXTURE_1D, 0, 3, 8, 0, GL_RGB, GL_UNSIGNED_BYTE, Texture8); } void CContoursDoc:: CreateTriangleList(UINT nList) { :: glNewList(nList, GL_COMPILE); :: glNormal3f(0.0 f, 0.0 f, 1.0 f); :: glBegin(GL_TRIANGLES); :: glTexCoord1f(0.1 f); :: glVertex3d(-1, -1, 0); :: glTexCoord1f(0.7 f); :: glVertex3d(-1, 1, 0); :: glTexCoord1f(1.0 f); :: glVertex3d(1, 0.8, 0); :: glEnd(); :: glEndList(); } MY CURRENT GAMBAS CODE: Sub CreateTextureObject() Dim m_nTexName As New Integer[1] 'Define texture image '???????????????? I could not figure how to convert the array data for the texture ????????????????????????? 'Set pixel storage mode gl.PixelStorei(gl.UNPACK_ALIGNMENT, 1) 'Generate a texture name m_nTexName = gl.GenTextures(1) 'Create a texture object gl.BindTexture(gl.TEXTURE_1D, m_nTexName[0]) gl.TexParameteri(gl.TEXTURE_1D, gl.TEXTURE_MAG_FILTER, gl.NEAREST) gl.TexParameteri(gl.TEXTURE_1D, gl.TEXTURE_MIN_FILTER, gl.NEAREST) ' ' Gambas3 help lists different parameters for teximage1d than open gl documents 'Static Sub *TexImage1D* ( _Image_ As Image <http://gambaswiki.org/wiki/comp/gb.qt4/image> *[* , _Level_ As Integer, _Border_ As Integer *]* ) 'how do you convert the next statement to work with Gambas gl component? ' gl.TexImage1D(gl.TEXTURE_1D, 0, 3, 8, 0, gl.RGB, gl.UNSIGNED_BYTE, Texture8) End Sub CreateTriangleList(nList As Integer) gl.NewList(nList, gl.COMPILE) gl.Normal3f(0.0, 0.0, 1.0) gl.Begin(gl.TRIANGLES) gl.TexCoord1f(0.1) gl.Vertex3f(-1.0, -1.0, 0.0) gl.TexCoord1f(0.7) gl.Vertex3f(-1.0, 1.0, 0.0) gl.TexCoord1f(1.0) gl.Vertex3f(1.0, 0.8, 0.0) gl.End() gl.EndList() End ------------------------------------------------------------------------------ Developer Access Program for Intel Xeon Phi Processors Access to Intel Xeon Phi processor-based developer platforms. With one year of Intel Parallel Studio XE. Training and support from Colfax. Order your platform today. http://sdm.link/xeonphi _______________________________________________ Gambas-user mailing list Gambas-user@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user