1:
2:
3:
4:
5:
6:
7:
8:
9:

  for i := 0 to 19 do
    for k := 0 to 19 do
    begin
      xrot := 90 * ((i + 1) / 20);
      YRot := 360 * ((k + 1) / 20);
      Skydome[i, k][0] := cos(degtorad(yrot - 90)) * cos(degtorad(xrot)) * 5;
      Skydome[i, k][1] := -sin(degtorad(xrot)) * 5 + 1;
      Skydome[i, k][2] := -cos(degtorad(yrot)) * cos(degtorad(xrot)) * 5;
    end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

 glBegin(GL_TRIANGLES);
  for i := 0 to 19 do
    for k := 0 to 19 do
    begin
         if k <> 19 then glVertex3f(Skydome[i, k + 1,0], Skydome[i, k + 1,1], Skydome[i, k + 1][2])
      else
        glVertex3f(Skydome[i, 0,0], Skydome[i, 0,1], Skydome[i, 0,2]);

      glVertex3f(Skydome[i, k,0], Skydome[i, k,1], Skydome[i, k,2]);

        if i <> 19 then glVertex3f(Skydome[i + 1,k,0], Skydome[i + 1,k,1],          Skydome[i + 1,k,2])
      else
        glVertex3f(Spitze[0], Spitze[1], Spitze[2]);


      if i <> 19 then glVertex3f(Skydome[i + 1,k,0], Skydome[i + 1,k,1],
          Skydome[i + 1,k,2])
      else
        glVertex3f(Spitze[0], Spitze[1], Spitze[2]);


      if (i <> 19) AND (k <> 19) then glVertex3f(Skydome[i + 1,k + 1][0],
          Skydome[i + 1,k + 1,1], Skydome[i + 1,k + 1,2])
      else
      begin
        if i = k then  glVertex3f(Skydome[0,0][0], Skydome[0,0][1], Skydome[0,0,2])
        else if k = 19 then   glVertex3f(Skydome[i + 1,0,0], Skydome[i + 1,0,1],
            Skydome[i + 1,0,2])
        else
          glVertex3f(Skydome[0,k + 1,0], Skydome[0,k + 1][1], Skydome[0,k + 1,2]);
      end;

       if (k <> 19) then glVertex3f(Skydome[i, k + 1,0], Skydome[i, k + 1,1],Skydome[i, k + 1,2])
      else
        glVertex3f(Skydome[i, 0,0], Skydome[i, 0,1], Skydome[i, 0,2]);
    end;
glEnd();					

1:
2:

const
  Spitze : array[0..2] of Integer = (0,1,0);