Entwickler-Ecke :: Thema anzeigen

Raphael O. - So 14.12.03 21:27

habs grad leider nur für ne Halbkugel da, aber dass sollte sich erweitern lassen und dann brauch ich mir jetzt nicht die Mühe machen ;) :mrgreen:

Delphi-Quelltext

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;

Skydome ist ein 2-Dimensionales Array, in dem die Werte gespeichert werden, weil die bei jedem Renderdurchlauf neu zu errechnen unnötiger Ressourcenverbrauch wäre...

zeichnen zue ich das wie folgt (3Vertices werden jeweils als 3Eck dargestellt...)

Delphi-Quelltext

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();

ich weiß nicht mehr inwieweit die verschachtelung nötig war... kommt mir im Moment etwas kompliziert vor :-/
Spitze ist übrigens so definiert:

Delphi-Quelltext

1:
2:

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

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!