Bonjour tout le monde !
Voila, j'ai un petit problème avec le code suivant :
program Template;
uses
Windows,
Messages,
glut,
OpenGL;
const
WND_TITLE = 'Mes premiers en pas OpenGL';
var
spin : integer;
{$R *.RES}
procedure init();
begin
glclearcolor(0,0,0,0);
glshademodel(gl_flat);
end;
procedure display ;cdecl;
begin
glclear(GL_color_buffer_bit);
glpushmatrix();
glrotate(45,0,0,1);
glcolor3f(1,1,1);
glrectf(-25,-25,25,25);
glpopmatrix();
glutswapbuffers();
end;
procedure reshape(Width, Height : Integer);cdecl;
begin
glViewport(0, 0, Width, Height);
glmatrixmode(gl_projection);
glloadidentity();
glortho(-50,50,-50,50,-1,1);
glmatrixmode(gl_modelview);
glloadidentity();
end;
begin
glutinit(MS_LIB);
glutinitdisplaymode(GLUT_DOUBLE or GLUT_RGB);
glutinitwindowsize(250,250);
glutinitwindowposition(100,100);
glutcreatewindow(WND_TITLE);
init();
glutdisplayfunc(display);
glutreshapefunc(reshape);
glutmainloop();
end.
|
Je m'explique :
Une fois le code compilé et éxécuté, la fenetre openGL s'ouvre bien, avec un joli petit carré en son centre, pivoté de 45 degré selon l'axe z, jusque là, pas de problème.
Par contre, dés que je veux redimensionner la fenetre, au lieu de me recalculer la scène pour un affichage correct, il me déforme mon jolie petit carré, j'arrive pas à trouver de solution, au secours !