3D Darstellung in Delphi

[Maren und Anika]

Ok, wir wissen jetzt wie es funktioniert.
Wir haben 3 Projektionearten um einen Würfel, Pyramide, usw. darzustellen, aber bei der Kugel klappt es einfach nicht.
Könnten ihr mal gucken ob es ein Fehler im Script gibt? :freak:

Delphi-Quellcode:

constructor CKugel.create(Radius,Winkel,Aufloesung:Integer;VW:CWinView);
      var
        Umfangsflaechenzahl : Integer;
        Eckenanzahl, Flaechenanzahl : Integer;
        i,von,bis:Integer;
        PF : Array of TSeitenflaeche;    //Anzahl "Aufloesung" Flächen
    begin
      Umfangsflaechenzahl:=360 div Winkel;
      Eckenanzahl:=(Aufloesung-2)*Umfangsflaechenzahl+2;
      Flaechenanzahl:=Umfangsflaechenzahl*Aufloesung;
      inherited create(Eckenanzahl,Flaechenanzahl,VW);
      von:=0;
      bis:=Umfangsflaechenzahl;
      for i:=von to bis-1 do
        begin
          SetLength(PF[i],3);             //e Flächen mit 3 Eckpunkten
          A[i]:=3;                        //Eckenanzahl pro Fläche
        end;
      von:=bis;
      bis:=bis+Flaechenzahl-2*Umfangsflaechenzahl;
      for i:=von to bis-1 do
        begin
          SetLength(PF[i],4);             //e Flächen mit 4 Eckpunkten
          A[i]:=4;                        //Eckenanzahl pro Fläche
        end;
      von:=bis;
      bis:=bis+Umfangsflaechenzahl;
      for i:=von to bis-1 do
        begin
          SetLength(PF[i],3);             //e Flächen mit 3 Eckpunkten
          A[i]:=3;                        //Eckenanzahl pro Fläche
        end;

:duck: