[Comm] fpc+glut

[Comm] fpc+glut

[lnkvisitor.ts]

[-- Attachment #1: Type: text/plain, Size: 893 bytes --]

на паскале пишу простинький код:
Program test;
uses
  glut,glu,gl;
Procedure Draw;cdecl; begin
 glClearColor(0,0,0,1);
 glClear(gl_color_buffer_bit);
 glfinish;
end;

begin
writeln('1');glutinit(@argc,argv);
writeln('2');glutinitdisplaymode(glut_rgb);
writeln('3');glutinitwindowsize(800,600);
writeln('4');glutcreatewindow('fff');
writeln('5');glutdisplayfunc(@Draw);
glutmainloop;
end.



в результате получаю
[lnk@localhost fpc]$ ./1
1
2
3
4
An unhandled exception occurred at $A7695F89 :
EInvalidOp : Invalid floating point operation
  $A7695F89
  $A71EEB6D
  $A714754C
  $A6C803BC
  $A730AF19
  $A7317485
  $A7323F85
  $A7806D37
  $A77FFBEE
  $A7DEB34F
  $A7DEB748
  $A7C700A6
  $A7C6E71C
  $A7C6FAE5
  $08048504  main,  line 21 of /home/lnk/fpc/1.pas



стоит freeglut-2.4.0-alt1


с чем .то может быть связанно?


[-- Attachment #2: lnkvisitor.ts.vcf --]
[-- Type: text/x-vcard, Size: 311 bytes --]

begin:vcard
fn;quoted-printable:=D0=94=D0=BC=D0=B8=D1=82=D1=80=D0=B8=D0=B9 =D0=9A=D1=83=D0=BB=D0=B8=D0=BA=
	
n;quoted-printable;quoted-printable:=D0=9A=D1=83=D0=BB=D0=B8=D0=BA;=D0=94=D0=BC=D0=B8=D1=82=D1=80=D0=B8=D0=B9
email;internet:lnkvisitor.ts@gmail.com
x-mozilla-html:FALSE
version:2.1
end:vcard

Re: [Comm] fpc+glut

[Алексей Шенцев]

В сообщении от Sunday 20 January 2008 22:56:43 lnkvisitor.ts@gmail.com 
написал(а):
> на паскале пишу простинький код:
> Program test;
> uses
>   glut,glu,gl;
> Procedure Draw;cdecl; begin
>  glClearColor(0,0,0,1);
>  glClear(gl_color_buffer_bit);
>  glfinish;
> end;
>
> begin
> writeln('1');glutinit(@argc,argv);
> writeln('2');glutinitdisplaymode(glut_rgb);
> writeln('3');glutinitwindowsize(800,600);
> writeln('4');glutcreatewindow('fff');
> writeln('5');glutdisplayfunc(@Draw);
> glutmainloop;
> end.
>
>
>
> в результате получаю
> [lnk@localhost fpc]$ ./1
> 1
> 2
> 3
> 4
> An unhandled exception occurred at $A7695F89 :
> EInvalidOp : Invalid floating point operation
>   $A7695F89
>   $A71EEB6D
>   $A714754C
>   $A6C803BC
>   $A730AF19
>   $A7317485
>   $A7323F85
>   $A7806D37
>   $A77FFBEE
>   $A7DEB34F
>   $A7DEB748
>   $A7C700A6
>   $A7C6E71C
>   $A7C6FAE5
>   $08048504  main,  line 21 of /home/lnk/fpc/1.pas
>
>
>
> стоит freeglut-2.4.0-alt1
>
>
> с чем .то может быть связанно?

Опиши своё железо, ядро. У меня она нормально работает. А так же приложи вывод 
от srace glutest.
-- 
С уважением Шенцев Алексей Владимирович.
E-mail: ashen@nsrz.ru
XMPP: ashen@altlinux.org, AlexShen@jabber.ru
ICQ: 271053845