Hidden-Lines-Algorithmus

**Behrendt**

Hallo Leute!
Im Zuge meiner Informatik-Facharbeit Jgst. 12 habe ich die Aufgabe bekommen mit Delphi den Hidden-Lines-Algorithmus zu programmieren. Als ich das Thema bekommen habe, war ich erstmal etwas perplex, da wir in Delphi zuvor nie viel mehr als ein paar simple Canvas-Spielereien gemachth haben. Aber ich habe jetzt mal angefangen mich dieser Thematik anzunehmen. Erstmal habe ich die Umwandlung von dreidimensionalen Koordinaten auf 2-dimensionale Koordinaten geschrieben. Desweiteren habe ich schon mal ein bisschen mit Verbindungen der Punkte rumgespielt, aber ich denke die ganz normale LineTo-Methode ist nicht sehr geeignet für das was ich vorhabe oder? Da wäre ja viel zu viel Rechenaufwand mit verbunden. Es wäre sicherlich einfacher die Punkte bzw. die zu zeichnenden Polygone vorzusotieren und dann nacheinander übermalen zu lassen. Geritten von dieser Idee habe ich mir mal den Polygon-Befehl angeguckt, aber steige da noch nicht ganz durch, da ich ja dafür irgendwie ein TPoint-Array benutzen muss. Aber über die globale Deklarieung des selbigen komme ich auch garnicht raus. Das Handbuch bzw. die Hilfe gibt da auch nicht sehr viel her. Ich hänge euch mal meinen Code an, ich hoffe ihr steigt da so weit durch, ist bestimmt ein Horror für euch, denn ich bin ungeübt im programmieren muss ich sagen! Bin für alle Tipps dankbar, nicht nur die zum Polygon-Zeichnen, sondern auch was Lesbarkeit, Redundanz, etc. angeht könnt ihr kritisieren was das Zeug hält!

zusammenfalten · markieren

Delphi-Quellcode:

			var

  Form1: TForm1;

  x,xp,y,yp,z,d,h,a:integer;

  Ko_X:array [1..100] of Real;

  Ko_Y:array [1..100] of Real;

  Ko_Z:array [1..100] of Real;

  Ko_Xp:array [1..100] of Real;

  Ko_Yp:array [1..100] of Real;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var i,j:integer;

begin

a:=Trunc(Image1.Width/2); // Verschiebt den Ursprung des Koordinatensystems auf der Leinwand

d:=StrToInt(Edit1.Text); // Beschreibt den Abstand des Betrachters zur Bildebene

h:=Trunc(Image1.Height/2); // Verschiebt den Ursprung des Koordinatensystems auf der Leinwand

// Koordinaten der Punkte des Würfels

Ko_X[1]:=(100);

Ko_Y[1]:=(100);

Ko_Z[1]:=(100);

Ko_X[2]:=(100);

Ko_Y[2]:=(100);

Ko_Z[2]:=(200);

Ko_X[3]:=(200);

Ko_Y[3]:=(100);

Ko_Z[3]:=(200);

Ko_X[4]:=(200);

Ko_Y[4]:=(100);

Ko_Z[4]:=(100);

Ko_X[5]:=(100);

Ko_Y[5]:=(200);

Ko_Z[5]:=(100);

Ko_X[6]:=(100);

Ko_Y[6]:=(200);

Ko_Z[6]:=(200);

Ko_X[7]:=(200);

Ko_Y[7]:=(200);

Ko_Z[7]:=(200);

Ko_X[8]:=(200);

Ko_Y[8]:=(200);

Ko_Z[8]:=(100);

with Image1.Canvas do

  begin

  { Einstellen der Farbe, in der gezeichnet wird }

  Brush.Color := clblack;

  Pen.Color := clblack;

  { Umrechnen der gegebenen 3-dimensionalen Koordinaten

    in 2-dimensionale Koordinaten auf der Bildebene }

  for i:= 1 to 8 do

    begin

      Ko_Xp[i]:=a+(d/(d+Ko_Z[i]))*Ko_X[i];

      Ko_Yp[i]:=h+(d/(d+Ko_Z[i]))*Ko_Y[i];

    end;

  i:=1;

  // Kanten

  for j:= 1 to 8 do

    begin

      moveto(Trunc(Ko_Xp[i]),Trunc(Ko_Yp[i]));

      if i=4 then i:=0;

      if i=8 then i:=4;

      lineto(Trunc(Ko_Xp[i+1]),Trunc(Ko_Yp[i+1]));

      if i=0 then i:=5;

      i:=i+1;

    end;

  end;

end;

procedure TForm1.Button2Click(Sender: TObject);

// Löschen der Bildebene

begin

  with Image1.Canvas do

    begin

    Brush.Color := clwhite;

    Pen.Color := clwhite;

    rectangle(0,0,Trunc(Image1.Width),Trunc(Image1.Height));

    end;

end;

end.

MfG
Behrendt

Hidden-Lines-Algorithmus

Hidden-Lines-Algorithmus

Forumregeln