Portal •  Foro •  FAQ •  Buscar •  Temas recientes •  Lista de usuarios •  Registrarse •  Conectarse 
Foro » Gambas » General

OpenGL. Tutoriales

Responder al tema

Ir a la página 1, 2, 3, 4, 5, 6  Siguiente

Shell
Citar
Mensajes: 5278 Ubicación: Al otro lado de la pantalla
Martes, 15 Diciembre 2015, 13:42
Objetivo: OpenGL. Tutoriales
Hola!.

Para no mezclar el tema de OpenGL con el de colisiones. He creado este post.
Para comenzar. Aquí tenéis un tutorial sobre OpenGL. Y ahora...habrá que aprender como se puede implementar eso a gambas.

Tutorial sobre OpenGL

Sus autores son:

Alberto Jaspe Villanueva y Julián Dorado de la Calle

Saludos

Perfil MP   Sitio web
tercoIDE
Citar
Mensajes: 713
Martes, 15 Diciembre 2015, 15:49
Objetivo: Re: OpenGL. Tutoriales
Bueno, ya que me has puesto presión, y visto y considerando que el tutorial del link no me gusta y esta en C

Tutorial 1: Un dibujo en 2D (y para que queremos OpenGL para 2D!!!!, bueno, por algo se empieza)
-----------

1-creamos proyecto grafico
2-agregamos el componente gb.qt4.openGL (gambas se va a quejar que hay que remover algunos componentes incompatiibles, asi que a removerlos!)
3-metemos una GLArea en el formulario, desde la pestaña Special de controles
4-Codigo
' gambas class file

Public Sub Form_Resize()


gl.Viewport(0, 0, GLArea1.w, GLArea1.h) 'esto le dice a GL adonde debe dibujar


End


Public Sub GLArea1_Draw()


'establecemos el color hasta nuevo aviso
gl.Color3f(255, 0, 0)



gl.Begin(gl.TRIANGLES) 'dibujamos triangulos hasta nuevo aviso

gl.Vertex2i(0, 0) 'el punto 0,0 no esta en arriba a la izquierda, para openGL esta en el medio!!!
gl.Vertex2i(1, 0) ' 1 no es pixels, las coordenadas van de -1 a 1 , o sea, para eje X, 1 de openGL es GLArea1.width/2
gl.Vertex2i(0, 1) ' idem para la coordenada Y

gl.Color3f(0, 255, 0) 'verde hasta nuevo aviso, como veran puede estar dentro o fuera de los gl.Begin() - gl.End

gl.Vertex2i(0, 0)
gl.Vertex2i(-1, 0)
gl.Vertex2i(0, -1)


gl.End 'esto es similar al Paint, todo se encierra entre Begin-End


End

última edición por tercoIDE el Martes, 15 Diciembre 2015, 15:49; editado 1 vez
Perfil MP  
jguardon
Citar
Mensajes: 2708 Ubicación: Granada
Martes, 15 Diciembre 2015, 17:06
Objetivo: Re: OpenGL. Tutoriales
Con la clase Paint no es necesario usar .Begin() ni .End() cuando dibujamos dentro del evento Draw con la propiedad Cached a False.

¿Es necesario hacerlo en OpenGL? Porque también estás dibujando dentro del evento Draw del glArea.


¿Se podría usar el mismo mecanismo que describo en el artículo del blog mediante un timer y el método Refresh?

Saludos

Perfil MP  
tercoIDE
Citar
Mensajes: 713
Martes, 15 Diciembre 2015, 17:53
Objetivo: Re: OpenGL. Tutoriales
jguardon escribió: [Ver mensaje]
Con la clase Paint no es necesario usar .Begin() ni .End() cuando dibujamos dentro del evento Draw con la propiedad Cached a False.

¿Es necesario hacerlo en OpenGL? Porque también estás dibujando dentro del evento Draw del glArea.


¿Se podría usar el mismo mecanismo que describo en el artículo del blog mediante un timer y el método Refresh?

Saludos


no, se usa Begin-End para indicar que estamos dibujando: triangulos, romboides, poligonos, etc
Public Sub GLArea1_Draw()


gl.ClearColor(0, 0.5, 0, 1) 'elijo el color con el que voy a borrar la pantalla, en vez de 0-255, aqui los colores van de 0.0-1.0
' el formato es R-G-B-Alpha
gl.Clear(gl.COLOR_BUFFER_BIT) 'ahora borro la pantalla

'establecemos el color hasta nuevo aviso
gl.Color3f(255, 0, 0)



gl.Begin(gl.TRIANGLES) 'dibujamos triangulos hasta nuevo aviso

gl.Vertex2i(0, 0) 'el punto 0,0 no esta en arriba a la izquierda, para openGL esta en el medio!!!
gl.Vertex2i(1, 0) ' 1 no es pixels, las coordenadas van de -1 a 1 , o sea, para eje X, 1 de openGL es GLArea1.width/2
gl.Vertex2i(0, 1) ' idem para la coordenada Y

gl.Color3f(0, 255, 0) 'verde hasta nuevo aviso, como veran puede estar dentro o fuera de los gl.Begin() - gl.End

gl.Vertex2i(0, 0)
gl.Vertex2i(-1, 0)
gl.Vertex2i(0, -1)


gl.End 'esto es similar al Paint, todo se encierra entre Begin-End


gl.Begin(gl.QUADS)

gl.Color3f(0, 0, 255)

gl.Vertex2f(-0.5, -0.5)
gl.Vertex2f(-0.5, 0.5)
gl.Vertex2f(0.5, 0.5)
gl.Vertex2f(0.5, -0.5)



gl.End


End


Prueben con esto.

esto es en el modo directo, tambien hay otras maneras de enviarle los puntos a OpenGL

última edición por tercoIDE el Martes, 15 Diciembre 2015, 18:05; editado 1 vez
Perfil MP  
vuott
Citar
Mensajes: 2086
Martes, 15 Diciembre 2015, 18:44
Objetivo: Re: OpenGL. Tutoriales
tercoIDE escribió: [Ver mensaje]
.... el tutorial del link no me gusta y esta en C

Porque tener miedo ? El C es amigo de gambas, no es como el malvado... Python !

Vamos a ver el secundo ejemplo de aquel enlace:
(se necesita tener instaladas las librerias: libglut.so.3.9.0 - libGL.so - libGLU.so.1.3.1)

Private anguloCuboX As Single ' angulo del cubo
Private anguloCuboY As Single ' "
Private anguloEsfera As Single ' "
Private hazPerspectiva As Integer


Library "libglut:3.9.0"

Private Const GLUT_RGB As Integer = 0
Private Const GLUT_DOUBLE As Integer = 2

' void glutInit(int *argcp, char **argv)
' Initialize the GLUT library.
Private Extern glutInit(pargc As Pointer, argv As Pointer)

' void glutInitDisplayMode(unsigned int mode)
' Sets the initial display mode.
Private Extern glutInitDisplayMode(mode As Integer)

' void glutInitWindowPosition(int x, int y)
' Sets the initial window position.
Private Extern glutInitWindowPosition(x As Integer, y As Integer)

' void glutInitWindowSize(int width, int height)
' Sets the initial window size.
Private Extern glutInitWindowSize(width As Integer, height As Integer)

' int glutCreateWindow(char *name)
' Creates a top-level window.
Private Extern glutCreateWindow(name As String) As Integer

' void glutWireSphere( GLdouble radius, GLint slices, GLint stacks )
' Renders a solid or wireframe sphere respectively.
Private Extern glutWireSphere(radius As Float, slices As Integer, stacks As Integer)

' void glutSwapBuffers(void)
' Swaps the buffers of the current window if double buffered.
Private Extern glutSwapBuffers()


Library "libGL"

Private Const GL_DEPTH_TEST As Integer = &0B71
Private Const GL_COLOR_BUFFER_BIT As Integer = &4000
Private Const GL_DEPTH_BUFFER_BIT As Integer = &100
Private Const GL_QUADS As Integer = 7
Private Const GL_PROJECTION As Integer = &1701
Private Const GL_MODELVIEW As Integer = &1700

' void glClearColor( GLclampf red, GLclampf green, GLclampf blue, GLclampf alpha )
' Specify clear values for the color buffers.
Private Extern glClearColor(red As Single, green As Single, blue As Single, alpha As Single)

' void glEnable( GLenum cap )
' Enable or disable server-side GL capabilities.
Private Extern glEnable(cap As Integer)

' void glClear( GLbitfield mask)
' Clear buffers to preset values.
Private Extern glClear(mask As Integer)

' void glLoadIdentity( void )
' Replace the current matrix with the identity matrix.
Private Extern glLoadIdentity()

' void glTranslatef( GLfloat x, GLfloat y, GLfloat z )
' Multiply the current matrix by a translation matrix.
Private Extern glTranslatef(x As Single, y As Single, z As Single)

' void glRotatef( GLfloat angle, GLfloat x, GLfloat y, GLfloat z )
' Multiply the current matrix by a rotation matrix.
Private Extern glRotatef(GLangle As Single, x As Single, y As Single, z As Single)

' void glColor3f( GLfloat red, GLfloat green, GLfloat blue )
' Sets the current color.
Private Extern glColor3f(red As Single, green As Single, blue As Single)

' void glBegin( GLenum mode)
' Delimits the vertices of a primitive or a group of like primitives.
Private Extern glBegin(mode As Integer)

' void glVertex3f( GLfloat x, GLfloat y, GLfloat z )
' Specify a vertex.
Private Extern glVertex3f(x As Single, y As Single, z As Single)

' void glEnd( void )
' Delimit the vertices of a primitive or a group of like primitives.
Private Extern glEnd()

' void glFlush( void )
' Force execution of GL commands in finite time.
Private Extern glFlush()

' void glViewport( GLint x, GLint y, GLsizei width, GLsizei height )
' Set the viewport.
Private Extern glViewport(x As Integer, y As Integer, width As Integer, height As Integer)

' void glMatrixMode( GLenum mode )
' Specify which matrix is the current matrix.
Private Extern glMatrixMode(mode As Integer)

' void glOrtho( GLdouble left, GLdouble right, GLdouble bottom, GLdouble top, GLdouble near_val, GLdouble far_val )
' Multiply the current matrix with an orthographic matrix.
Private Extern glOrtho(GLleft As Float, GLright As Float, bottom As Float, top As Float, near_val As Float, far_val As Float)


Library "libGLU:1.3.1"

' void gluPerspective (GLdouble fovy, GLdouble aspect, GLdouble zNear, GLdouble zFar)
' Set up a perspective projection matrix.
Private Extern gluPerspective(fovy As Float, aspect As Float, zNear As Float, zFar As Float)



Public Sub Main()

Dim argcp As Pointer

glutInit(VarPtr(argcp), 0)
glutInitDisplayMode(GLUT_DOUBLE Or GLUT_RGB)
glutInitWindowPosition(100, 100)
glutInitWindowSize(400, 400)
glutCreateWindow("Cubo")

glClearColor(0, 0, 0, 0)
glEnable(GL_DEPTH_TEST)

While True
Display()
Reshape(400, 400)
Wend

End


Private Procedure Display()

glClear(GL_COLOR_BUFFER_BIT Or GL_DEPTH_BUFFER_BIT)

glLoadIdentity()

glTranslatef(0.0, 0.0, -5.0)

glRotatef(anguloCuboX, 1.0, 0.0, 0.0)
glRotatef(anguloCuboY, 0.0, 1.0, 0.0)

drawCube()

glLoadIdentity()

glTranslatef(0.0, 0.0, -5.0)
glRotatef(anguloEsfera, 0.0, 1.0, 0.0)
glTranslatef(3.0, 0.0, 0.0)

glColor3f(1.0, 1.0, 1.0)
glutWireSphere(0.5, 8, 8)

glFlush()
glutSwapBuffers()

anguloCuboX += 0.1
anguloCuboY += 0.1
anguloEsfera += 0.2

End


Private Procedure drawCube()

glColor3f(1.0, 0.0, 0.0)
glBegin(GL_QUADS) ' cara frontal
glVertex3f(-1.0, -1.0, 1.0)
glVertex3f(1.0, -1.0, 1.0)
glVertex3f(1.0, 1.0, 1.0)
glVertex3f(-1.0, 1.0, 1.0)
glEnd()

glColor3f(0.0, 1.0, 0.0)
glBegin(GL_QUADS) ' cara trasera
glVertex3f(1.0, -1.0, -1.0)
glVertex3f(-1.0, -1.0, -1.0)
glVertex3f(-1.0, 1.0, -1.0)
glVertex3f(1.0, 1.0, -1.0)
glEnd()

glColor3f(0.0, 0.0, 1.0)
glBegin(GL_QUADS) ' cara lateral izq
glVertex3f(-1.0, -1.0, -1.0)
glVertex3f(-1.0, -1.0, 1.0)
glVertex3f(-1.0, 1.0, 1.0)
glVertex3f(-1.0, 1.0, -1.0)
glEnd()

glColor3f(1.0, 1.0, 0.0)
glBegin(GL_QUADS) ' cara lateral dcha
glVertex3f(1.0, -1.0, 1.0)
glVertex3f(1.0, -1.0, -1.0)
glVertex3f(1.0, 1.0, -1.0)
glVertex3f(1.0, 1.0, 1.0)
glEnd()

glColor3f(0.0, 1.0, 1.0)
glBegin(GL_QUADS) ' cara arriba
glVertex3f(-1.0, 1.0, 1.0)
glVertex3f(1.0, 1.0, 1.0)
glVertex3f(1.0, 1.0, -1.0)
glVertex3f(-1.0, 1.0, -1.0)
glEnd()

glColor3f(1.0, 0.0, 1.0)
glBegin(GL_QUADS) ' cara abajo
glVertex3f(1.0, -1.0, -1.0)
glVertex3f(1.0, -1.0, 1.0)
glVertex3f(-1.0, -1.0, 1.0)
glVertex3f(-1.0, -1.0, -1.0)
glEnd()

End


Private Procedure Reshape(width As Integer, height As Integer)

glViewport(0, 0, width, height)
glMatrixMode(GL_PROJECTION)
glLoadIdentity()

If hazPerspectiva Then
gluPerspective(60.0, CSingle(width) / CSingle(height), 1.0, 20.0)
Else
glOrtho(-4, 4, -4, 4, 1, 10)
Endif

glMatrixMode(GL_MODELVIEW)
glLoadIdentity()

End


'' Referencias:
' https://www.opengl.org/documentation/specs/glut/spec3/spec3.html
' https://www.opengl.org/sdk/docs/man/html/indexflat.php
' http://sabia.tic.udc.es/gc/Tutorial%20OpenGL/index.htm

última edición por vuott el Martes, 15 Diciembre 2015, 18:48; editado 1 vez
Perfil MP  
tercoIDE
Citar
Mensajes: 713
Martes, 15 Diciembre 2015, 19:47
Objetivo: Re: OpenGL. Tutoriales
sin animos de ofender...tu codigo ni funciona, ni esta explicado

como pueden aprender de esa manera?

Perfil MP  
Shell
Citar
Mensajes: 5278 Ubicación: Al otro lado de la pantalla
Martes, 15 Diciembre 2015, 19:50
Objetivo: Re: OpenGL. Tutoriales
tercoIDE:

Citar:

Bueno, ya que me has puesto presión, y visto y considerando que el tutorial del link no me gusta y esta en C




No era esa mi intención. Pero tu ejemplo ha estado bien. No te gusta C?!?....blasfemia!, herejía!.
Acabas de alegrarle el día a Vuott!.

Entonces OpenGL respeta las coordenadas cartesianas!!!.
Ok, prepararé cuestiones. Fáciles, ya que no tengo mucha idea.

Vuott:

Citar:

Porque tener miedo ? El C es amigo de gambas, no es como el malvado... Python !


Ejem, ejem..cof, cof.

Cuando comencé a crear el proyecto pensaba que iba a ser como en el de tercoIDE.
Y es un proyecto de consola.

Vaya cantidad de funciones externas que tienes que declarar!..

¿ Cómo haces para recordar todo esos nombres ?. Creo que en parte es lo más complejo que puede tener C.
Acordarte de todo eso, buscar los nombres de esas funciones.

Ah, el ejemplo también muy bien.

Gracias a los dos.

Ejem, ejem...

Citar:

sin animos de ofender...tu código ni funciona, ni esta explicado


Si funciona....cachis!. jajaja. No olvides instalar las librerías.

ejemploimplevuott

Lo que si veo es que para salir del ejemplo hay que pararlo desde el menú de proyecto!.
Por mucho que le doy a cerrar en la ventana no lo hace. Eso si es raro.
Vuott, ¿ Sabes por que ocurre eso ?.

Citar:

como pueden aprender de esa manera?


Eso dependerá de cada programador. El ha hecho que funcione el código y lo ha traducido muy rápidamente.
No sabemos si Vuott conoce el tema. Pero lo que si ha demostrado es que sabe hacerlo funcionar...y darle
importancia a C.

Saludos

última edición por Shell el Martes, 15 Diciembre 2015, 20:06; editado 2 veces
Perfil MP   Sitio web
jsbsan
Citar
Mensajes: 4175 Ubicación: dos hermanas, sevilla
Martes, 15 Diciembre 2015, 20:52
Objetivo: Re: OpenGL. Tutoriales
Yo prefiero verlo explilcado en gambas....

Veo (para empezar) que con C es mucho más largo y menos intuitivo el código que hay que escribir

Perfil MP   Sitio web MSN
tercoIDE
Citar
Mensajes: 713
Martes, 15 Diciembre 2015, 22:25
Objetivo: Re: OpenGL. Tutoriales
por eso, para voy a

Library "libGL"

Private Const GL_DEPTH_TEST As Integer = &0B71
Private Const GL_COLOR_BUFFER_BIT As Integer = &4000
Private Const GL_DEPTH_BUFFER_BIT As Integer = &100
Private Const GL_QUADS As Integer = 7
Private Const GL_PROJECTION As Integer = &1701
Private Const GL_MODELVIEW As Integer = &1700

' void glClearColor( GLclampf red, GLclampf green, GLclampf blue, GLclampf alpha )
' Specify clear values for the color buffers.
Private Extern glClearColor(red As Single, green As Single, blue As Single, alpha As Single)


si puedo


gl.ClearColor( red, green, blue, alpha)

Perfil MP  
vuott
Citar
Mensajes: 2086
Martes, 15 Diciembre 2015, 23:39
Objetivo: Re: OpenGL. Tutoriales

última edición por vuott el Jueves, 17 Diciembre 2015, 02:49; editado 2 veces
Perfil MP  
Responder al tema
Ir a la página 1, 2, 3, 4, 5, 6  Siguiente

Página 1 de 6


  
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario

   

Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Página generada en:: 0.6585s (PHP: -27% SQL: 127%)
Consultas SQL: 50 - Debug off - GZIP Activado