OpenGL и Delphi...

[katris]

Здравствуйте!
Пытаюсь освоить потихоньку OpenGL. У меня должен рисоваться эллипсоид полностью, а выходит какой-то каркасик всё время дырявый. Не могу разобраться, что надо изменить...
Подскажите, пожалуйста, в чём тут проблемка?

procedure TForm1.AddPoints(phi,psi:single );
  var x,y,z, x1,y1,z1,x2,y2,z2:single;
begin
   x := a*sin(phi)*cos(psi);
   y := b*sin(phi)*sin(psi);
   z := c*cos(phi);

   glColor3f(0,2,2);
   glVertex3f( x, y, z );

   x1 := a*sin(phi+d)*cos(psi+dd);
   y1 := b*sin(phi+d)*sin(psi+dd);
   z1 := c*cos(phi+dd);

   glColor3f(0,0,2);
   glVertex3f( x1, y1, z1 );

   x2 := a*sin(phi+d+d)*cos(psi+d+d);
   y2 := b*sin(phi+d+d)*sin(psi+d+d);
   z2 := c*cos(phi+d+d);
   glColor3f(2,0,2);
   glVertex3f( x2, y2, z2 );

   glNormal3f((y1-y)*(z2-z)-(z1-z)*(y2-y),(z1-z)*(x2-x)-(x1-x)*(z2-z),(x1-x)*(y2-y)-(y1-y)*(x2-x) );
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
a:=1;
b:=2 ;
c:=1 ;
count:=40;
d:=pi*2/count;
dd:=pi*2/count;
phi[0]:=0;
phi[0]:=0;
glEnable(GL_NORMALIZE);

glClear (GL_COLOR_BUFFER_BIT);
glPolygonMode (GL_FRONT_AND_BACK, GL_FILL);
glPushMatrix;
glRotatef (90.0, 1.0, 0.0, 0.0);  
glPointSize(1);
glBegin(GL_TRIANGLES);

for i := 0 to count do
  for j := 0 to count do
      AddPoints( i*d, j*dd );
glEnd;

glPopMatrix;
SwapBuffers(DC);
end

;