DGL • Thema anzeigen - floating point division by zero

floating point division by zero

Moderator: DGL-Team

Seite 1 von 1

[ 2 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

PeterHer

Betreff des Beitrags: floating point division by zero

Verfasst: Mi Dez 11, 2013 13:06

DGL Member

Registriert: Mi Dez 11, 2013 10:43
Beiträge: 2
Programmiersprache: Delphi XE5

Hi All,

I have the following code:

Code:

 
  glPushMatrix;
 
    glMatrixMode(GL_PROJECTION);
    glLoadIdentity;
    glViewport(0, 0, 1400, 700);
    glOrtho(-(1400 / 700),
             (1400 / 700),
            -1, 1,
            -10, 10);
 
    glMatrixMode(GL_MODELVIEW);
    glLoadIdentity;
 
    // Enable Lighting
    glEnable(GL_LIGHTING);
 
    // Enable Light0
    glEnable(GL_LIGHT0);
 
    light0Pos[0] := 1;
    light0Pos[1] := 1;
    light0Pos[2] := 1;
 
    // Set The Lights Position
    glLightfv(GL_LIGHT0, GL_POSITION, @light0Pos);
    glMaterialfv(GL_FRONT_AND_BACK, GL_AMBIENT_AND_DIFFUSE, @MaterialColor1);
    glMaterialfv(GL_FRONT_AND_BACK, GL_SPECULAR, @specular1);
 
    glScalef(1, 1, 1);
 
    glLineWidth(1);
    glBegin(GL_LINES);
      glVertex3f(-1, 0,  -9);
      glVertex3f( 1, 0,  -9);
    glEnd;
 
    // Disable Lighting
    glDisable(GL_LIGHTING);
 
    // Disable Light0
    glDisable(GL_LIGHT0);
 
  glPopMatrix;
 

If I run this code as a 32Bit application everything is fine but running this code as a 64Bit app I get this error message:
'Project x.exe raised exception class $C000008E with message 'c000008e FLOAT_DIVIDE_BY_ZERO'

The error appears when this executes :
glVertex3f(-1, 0, -9);
glVertex3f( 1, 0, -9);

Where these variables are :
Light0Pos : Array[0..3] of glFloat = (0.0, 0.0, 0.0, 1.0);

Const
MaterialColor1 : Array[1..4] of glFloat = (0.2, 0.1, 0.4, 1.0);
Specular1 : Array[1..4] of glFloat = (0.2, 0.2, 0.2, 1.0);

Any idea what I am doing wrong?

Thanks in advance.

I have :
Win 7 Pro 64Bit
Delphi XE5 Ent
AMD Radeon HD 7900 Series videocard

Nach oben

PeterHer

Betreff des Beitrags: Re: floating point division by zero

Verfasst: Do Dez 12, 2013 11:33

DGL Member

Registriert: Mi Dez 11, 2013 10:43
Beiträge: 2
Programmiersprache: Delphi XE5

I pinpoint the error.
Seems that this line of code glEnable(GL_LINE_SMOOTH) causes the problem.
Strange but if I comment out this line everything is fine.

Nach oben

Seite 1 von 1

[ 2 Beiträge ]

Foren-Übersicht » Programmierung » OpenGL

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 55 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.