Sistema solar con OpenGL [Delphi 7]

Buenas noches!!, aqui estoy una vez mas tratando de no dejar en el olvido este blog! y claro sigo de obsesionado con OpenGL y delphi y ahora les traigo una aplicacion de post anteriores!, sera un sistema solar( o almenos algunos planetas) utilizando luz y texturas que ya lo hemos visto en post anteriores. De nuevo para no entrar con detalles de post anteriores el contexto lo haremos siguiendo este proyecto. En este proyecto tenemos todo el contexto creado con las librerias necesarias y ademas tiene dibujado un cubo en el comentario “//Aqui podremos dibujar lo que queramos” en delante podremos dibujar asi que borramos las 3 lineas de codigo (glutSolidCube u otras que esten) y empezemos a graficar 😀

Creando el Sol y Mercurio.

Primero que nada crearemos en nuestro evento “OnPaint” los primeros trazos para simular nuestro sistema solar, para eso dibujaremos una esfera central que sera nuestro sol, por el momento sera de color amarilla y una esfera mas diminuta que este girando alrededor del sol que sera mercurio. Para eso nos dirigimos a nuestro procedimiento onPaint y debajo del comentario //Aqui podremos dibujar lo que queramos, ponemos lo siguiente:

 //Aqui podremos dibujar lo que queramos
     glTranslatef(0,0,-10);
     glRotatef(115,1,0,0);
 glPushMatrix;
    glColor3f(1,1,0);
    glutSolidSphere(1,20,20);
 glPopMatrix;

 glPushMatrix;
    glColor3f(0.5,0.5,0.5);
    glRotatef(angle,0,0,1);
    glTranslatef(3,0,0);
    glutSolidSphere(0.1,20,20);
 glPopMatrix;

Continuar leyendo “Sistema solar con OpenGL [Delphi 7]”

Anuncios

Objetos con texturas OpenGL [Delphi 7]

Buenas noches!, en esta entrada veremos ahora como aplicar texturas a nuestros objetos en OpenGL asi usando una librería casera para poder facilitar el uso de la aplicación de texturas. Tal vez esta librería no es un poco efectiva pero sirve para acentar bases.

Primero que nada y como post anteriores, yo uso delphi 7 y estas librerias son las que uso OpenGL, Glut(API,DLL), Geometry y esta es la libreria para aplicar las  texturas.

Para comenzar vamos a crear nuestro contexto como lo hemos hecho en los 2 posts anteriores, creando varios eventos(OnCreate,OnDestroy,OnPaint,OnResize) asi que les pido porfavor que vean este post para crear el contexto hasta antes de comenzar a dibujar, o si bien quieren descargar este proyecto que contiene todas las librerias y el codigo necesario que se ha visto en post anteriores ( el proyecto esta listo para comenzar este post, recomiendo mejor que lo bajen)

Para comenzar pues haremos algo sencillo como una esfera texturizada:

La textura que se va a utilizar es importante que sea de tamaño de múltiplos de 2 debido a que así fue programada la librería casera, osea la imagen debe de ser BMP 64×64  o 128×128  descargar textura
Continuar leyendo “Objetos con texturas OpenGL [Delphi 7]”

Iluminación de objetos con OpenGL y Glut [Delphi]

Buenas noches!, después de un tiempo de ausencia y de duro trabajo en el tecnológico he decidido hacer esta entrada simple de iluminar figuras geométricas creadas con glut!. Para comenzar antes que nada debemos de tener 3 librerías que son: OpenGL, Geomerty y Glut. Las descargamos y las agregamos a nuestro proyecto (Ojo este post esta hecho usando Delphi 7). Primero creamos nuestro proyecto en Delphi 7 y lo guardamos, y ahi mismo copiaremos estas 3 librerias y las agregamos con el boton Add file to Project o shift + F11

Ademas glut necesita de 2 archivos mas! que estos solo deben de copiarse a la carpeta donde esta guardado el proyecto, descargalos de aqui y aqui

Una vez que hayamos agregado los Units, en nuestro unit1 o nuestro form en el “Uses” agregamos la libreria OpenGL y Glut para poder usarlas en ese mismo Unit.
Continuar leyendo “Iluminación de objetos con OpenGL y Glut [Delphi]”