afficher une sphere avec Glut sous delphi3

afficher une sphere avec Glut sous delphi3 - Delphi/Pascal - Programmation

Marsh Posté le 18-09-2003 à 23:38:00    

Je n'arrive pas a me servir de glut (pour opengl c'est ok) si une ame charitable pouvait me donner un bout de code pour afficher une sphere.

Reply

Marsh Posté le 18-09-2003 à 23:38:00   

Reply

Marsh Posté le 19-09-2003 à 03:01:52    

Code :
  1. #include <gl/glut.h>
  4. void Reshape(int width, int height);
  5. void Draw();
  7. int Win1;
  9. int main( int argc, char *argv[ ], char *envp[ ] )
  10. {
  11. glutInit(&argc,argv);
  12. glutInitWindowSize(640,480);
  13. glutInitDisplayMode(GLUT_RGBA | GLUT_DOUBLE | GLUT_DEPTH);
  15. Win1 = glutCreateWindow("test" );
  18. glutReshapeFunc(Reshape);
  19. glutDisplayFunc(Draw);
  21. glutMainLoop();
  23. return 0;
  24. }
  26. void Reshape(int width, int height)
  27. {
  28. glViewport(0,0,width,height);
  29. glMatrixMode(GL_PROJECTION);
  30. glLoadIdentity();
  31. gluPerspective(45,float(width)/float(height),1,100);
  32. glMatrixMode(GL_MODELVIEW);
  33. }
  36. void Draw()
  37. {
  38. glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT);
  39. glMatrixMode(GL_MODELVIEW);
  40. glLoadIdentity();
  42. gluLookAt(0,0,10,0,0,0,0,1,0);
  44.         glutSolidSphere(0.4,50,50) ;
  46. glutSwapBuffers();
  47. glutPostRedisplay();
  48. }


 
 
pas teste mais ca devrait fonctionner
 
 
 
void glutSolidSphere  ( GLdouble radius , GLint slices , GLint stacks );  
 
radius The radius of the sphere.  
slices  
The number of subdivisions around the Z axis (similar to lines of longitude).  
stacks  
The number of subdivisions along the Z axis (similar to lines of latitude).  
 
ma bonte me perdra  :o
 
 
EDIT : javais pas fait attention , cest du c mais a mon avis ca ne posera pas trop des problemes pour la conversion


Message édité par red faction le 19-09-2003 à 03:09:16
Reply

Marsh Posté le 19-09-2003 à 19:21:02    

red faction a écrit :

Code :
  1. #include <gl/glut.h>
  4. void Reshape(int width, int height);
  5. void Draw();
  7. int Win1;
  9. int main( int argc, char *argv[ ], char *envp[ ] )
  10. {
  11. glutInit(&argc,argv);
  12. glutInitWindowSize(640,480);
  13. glutInitDisplayMode(GLUT_RGBA | GLUT_DOUBLE | GLUT_DEPTH);
  15. Win1 = glutCreateWindow("test" );
  18. glutReshapeFunc(Reshape);
  19. glutDisplayFunc(Draw);
  21. glutMainLoop();
  23. return 0;
  24. }
  26. void Reshape(int width, int height)
  27. {
  28. glViewport(0,0,width,height);
  29. glMatrixMode(GL_PROJECTION);
  30. glLoadIdentity();
  31. gluPerspective(45,float(width)/float(height),1,100);
  32. glMatrixMode(GL_MODELVIEW);
  33. }
  36. void Draw()
  37. {
  38. glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT);
  39. glMatrixMode(GL_MODELVIEW);
  40. glLoadIdentity();
  42. gluLookAt(0,0,10,0,0,0,0,1,0);
  44.         glutSolidSphere(0.4,50,50) ;
  46. glutSwapBuffers();
  47. glutPostRedisplay();
  48. }


 
 
pas teste mais ca devrait fonctionner
 
 
 
void glutSolidSphere  ( GLdouble radius , GLint slices , GLint stacks );  
 
radius The radius of the sphere.  
slices  
The number of subdivisions around the Z axis (similar to lines of longitude).  
stacks  
The number of subdivisions along the Z axis (similar to lines of latitude).  
 
ma bonte me perdra  :o
 
 
EDIT : javais pas fait attention , cest du c mais a mon avis ca ne posera pas trop des problemes pour la conversion


 
Merci beaucoup mais comme tu l'as noté, le delphi c'est pas du C :sweat:

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed