Hidden-Lines-Algorithmus

[mimi]

Also der code ist schonmal nicht schlecht, Aber du kannst ihn weiter verkürzten

Delphi-Quellcode:

with poly[6] do
  begin
    Punkt1:= Ko_B[1];
    Punkt2:= Ko_B[2];
    Punkt3:= Ko_B[3];
    Punkt4:= Ko_B[4];
  end;

Das wiederholst du acht mal. Schau mal nach was Funktionen bzw. Proceduren sind. Dann könnte man das so zusammen fasssen:

Delphi-Quellcode:

procedure From1.SetPoly(const Index, index1, index2, index3, index4:Integer);
begin
  poly[index].Punkt1:= Ko_B[index1];
  poly[index].Punkt2:= Ko_B[index2];
  poly[index].Punkt3:= Ko_B[index3];
  poly[index].Punkt4:= Ko_B[index4];
end; //  From1.SetPoly

// aufgerufen könnte diese Procedure so werden:
SetPoly(1,2,3,7,6);

ich hoffe das Prinzip ist dir Klar...
Hier findest du noch mehr Interessante sachen:
http://www.delphi-treff.de/tutorials/