[fpc-pascal]OpenGL/GLUT run time error when I whant compile this code

[James Mills]

On Sat, Apr 05, 2003 at 10:02:07AM +0800, Karim Forsthofer wrote:
> Hello 
> I played around with the OpenGL unit, and I wrote some minimal OpenGL code to get a window: 
> Here is the code:
> 
> program glbasic;
> 
> uses
>   gl, glut;
> 
> const
>   width = 640;
>   height= 480;
> 
> procedure drawthings;
> 
> begin
>   glClearColor(0.0, 0.0, 0.0, 0.0);
>  (*will add some more code*);
> end;
> 
> begin 
>   glutInit(@argc, argv);
>   glutInitDisplayMode(GLUT_DOUBLE or GLUT_RGB);
>   glutInitWindowSize( width, height);
>   glutInitWindowPosition(0, 0);
>   glutCreateWindow('glbasic');
>   glutDisplayFunc(@drawthings);
>   glutMainLoop();
> end.
> 
> Now, when I whant to run to code, I get some Run time errors on the console: 
> 
> Runtime error 216 at 0x4052F5CA
>    0x4051F5CA
> Runtime error 216 at 0x0804C1CA
>    0x0849C1CA
>    0x0805127E
>    
>    etc. 
>    etc. 
>    etc. (about 20 lines)
> 
> 1). I know not a lot of runtime errors, but after succesfully compiling, that isn`t a fpc bug, is it ? 
>     What is the source of this run time error ? (mesa, fpc or my code ?)
> 2). I think about there isn`t enough code in the drawthings procedure to run succesfull. 
> 
> What you think ? 

That piece of code runs fine on my machine, except that my display
doesn't support OpenGL GLX Extension :( hehe, need to compile my nvidia
kernel drivers...

cheer
sJames

> 
> Greetings 
> Karim F. 
> 
> -- 
> ______________________________________________
> http://www.linuxmail.org/
> Now with e-mail forwarding for only US$5.95/yr
> 
> Powered by Outblaze
> _______________________________________________
> fpc-pascal maillist  -  fpc-pascal at lists.freepascal.org
> http://lists.freepascal.org/mailman/listinfo/fpc-pascal