Game Development

Game Development RSS

OpenGL problem

Thread Solved

•

Join Date: Nov 2007

Posts: 6

Reputation: eenceo is an unknown quantity at this point

Solved Threads: 0

eenceo

Offline

Newbie Poster

OpenGL problem

Feb 23rd, 2009

I've been having some trouble using OpenGl in Delphi. Can anyone tell me what I might have done wrong.
Click here for a screen shot.

•

Join Date: Jul 2006

Posts: 1,091

Reputation: MattEvans is a jewel in the rough

Solved Threads: 63

MattEvans

Offline

Veteran Poster

Re: OpenGL problem

Feb 24th, 2009

looks like you have not called glEnable ( GL_DEPTH_TEST );
otherwise, post code

Plato forgot the nullahedron..

•

Join Date: Nov 2007

Posts: 6

Reputation: eenceo is an unknown quantity at this point

Solved Threads: 0

eenceo

Offline

Newbie Poster

Re: OpenGL problem

Feb 24th, 2009

 Help with Code Tags 
 delphi Syntax (Toggle Plain Text) 
procedure TForm1.Draw;
const ambientLight : TGLArrayf4 = (0.3, 0.3, 0.3, 1.0);
      lightColor   : TGLArrayf4 = (0.7, 0.7, 0.7, 1.0);
      lightPos     : TGLArrayf4 = (-2 * 6, 6, 4 * 6, 1.0);
var c : CCube;
begin
  glViewport(0, 0, Width, Height);
	glMatrixMode(GL_PROJECTION);
	glLoadIdentity();
  gluPerspective(45.0, width / height, 1.0, 200.0);
 
  c := CCube.Create;
  c.posx := 0;
  c.posy := 0;
  c.posz := 0;
  c.sizex := 6;
  c.sizey := 2;
  c.sizez := 6;
 
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
 
	glMatrixMode(GL_MODELVIEW);
	glLoadIdentity();
 
	glTranslatef(0.0, 0.0, -20.0);
 
  glLightModelfv(GL_LIGHT_MODEL_AMBIENT, @ambientLight);
  glLightfv(GL_LIGHT0, GL_DIFFUSE, @lightColor);
	glLightfv(GL_LIGHT0, GL_POSITION, @lightPos);
 
  glRotatef(-45, 1.0, 1.0, 0.0);
 
  //glShadeModel(GL_FLAT);
 
  c.Draw;
  SwapBuffers(wglGetCurrentDC);
end;
procedure TForm1.Draw;
const ambientLight : TGLArrayf4 = (0.3, 0.3, 0.3, 1.0);
      lightColor   : TGLArrayf4 = (0.7, 0.7, 0.7, 1.0);
      lightPos     : TGLArrayf4 = (-2 * 6, 6, 4 * 6, 1.0);
var c : CCube;
begin
  glViewport(0, 0, Width, Height);
	glMatrixMode(GL_PROJECTION);
	glLoadIdentity();
  gluPerspective(45.0, width / height, 1.0, 200.0);

  c := CCube.Create;
  c.posx := 0;
  c.posy := 0;
  c.posz := 0;
  c.sizex := 6;
  c.sizey := 2;
  c.sizez := 6;

  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
	
	glMatrixMode(GL_MODELVIEW);
	glLoadIdentity();
	
	glTranslatef(0.0, 0.0, -20.0);

  glLightModelfv(GL_LIGHT_MODEL_AMBIENT, @ambientLight);
  glLightfv(GL_LIGHT0, GL_DIFFUSE, @lightColor);
	glLightfv(GL_LIGHT0, GL_POSITION, @lightPos);

  glRotatef(-45, 1.0, 1.0, 0.0);

  //glShadeModel(GL_FLAT);
  
  c.Draw;
  SwapBuffers(wglGetCurrentDC);
end;

this code is ran on draw. c.draw; calls a function in my CCube class which does the actual drawing which i don't think the problem is in.

 Help with Code Tags 
 delphi Syntax (Toggle Plain Text) 
glEnable(GL_DEPTH_TEST);
	glEnable(GL_LIGHTING);
	glEnable(GL_LIGHT0);
	glEnable(GL_NORMALIZE);
	glEnable(GL_COLOR_MATERIAL);
glEnable(GL_DEPTH_TEST);
	glEnable(GL_LIGHTING);
	glEnable(GL_LIGHT0);
	glEnable(GL_NORMALIZE);
	glEnable(GL_COLOR_MATERIAL);